<%
response.buffer=true

	Response.Expires = 0
	Dim coo, ip, ip_or

'	Dim Sit, coo, ip, ip_or
'   Sit = "http://www.panorama.sk/"

	coo=Request.querystring("ckp")
	lang=Request.querystring("lang")
	if lang="" THEN
		lang="en"
	end if
	sv=Request.querystring("sv")	
	miid=Request.querystring("mid")
	if sv="" THEN
		sv=1
	end if

	dim strhitc
'///vlozena fia
'   		Call CountHit
'			On Error Resume Next
			cas=now
			ip_or=Request.ServerVariables("REMOTE_HOST")

'////vlozena fia
'			call zisti_naz(ip_or)

'			Set DNS = CreateObject("TCPIP.DNS")
'			On Error Resume Next
'			host = DNS.GetHostByIP(ip_or)
'			if host<>"" Then
'				ip=host
'			else
'				ip=ip_or
'			end If
'			zisti_naz=ip
'			Set DNS=nothing
'//////

ip=ip_or

			Set conn = Server.CreateObject("ADODB.Connection")
			conn.open "svet_kombi","sa","1927MTfa"

			sql = "kontrola_id rekl3 "& vbCrLf
			conn.execute sql

			sql2 = "insert rekl3 (cook, cas, ip, ip2) values ("&coo&", convert(datetime,'"&cas&"',104), '"&ip_or&"', '"&ip&"')"
'			response.write sql
			conn.execute sql2

			conn.close
			set conn=nothing
'////
		For ix = 1 to Request.querystring.Count
			fieldName = Request.querystring.Key(ix)
			fieldValue = Request.querystring.Item(ix) 
			if fieldname<>"ckp" then
				if Request.querystring.Count=2 then  '---prvy - externa adresa bez parametra
					strhitc=fieldValue
				elseif ix=1 AND Request.querystring.Count>2 then '---prvy - adresa s parametrom
'aby bol najdeny parameter za otaznikom
					strhitc2=split(fieldValue,"?")
					if strhitc2(1)<>"" Then
						strhitc=strhitc2(0)&"?"&strhitc2(1)&"&"
					else
						strhitc=fieldValue&"?"
					end if
				elseif ix>1 and ix<(Request.querystring.Count-1) then '---dalsie
					strhitc=strhitc&fieldName&"="&fieldValue&"&"				
				elseif ix=(Request.querystring.Count-1) then '---posledny - aby nebol na konci pokrutenec
					strhitc=strhitc&fieldName&"="&fieldValue				
				end if
			end if
		Next

'	response.write strhitc 
'	if Request.querystring.Count>0 then
		response.redirect strhitc 
'	end if
'///f-ie nepouz. sa
 	function CountHit()
			On Error Resume Next
			cas=now
			ip_or=Request.ServerVariables("REMOTE_HOST")

			call zisti_naz(ip_or)

			Set conn = Server.CreateObject("ADODB.Connection")
			conn.open "svet_kombi","sa","1927MTfa"
		
			sql = "kontrola_id rekl "& vbCrLf
			sql = sql & "insert rekl3 (cook, cas, ip, ip2) values ("&coo&", convert(datetime,'"&cas&"',104), '"&ip_or&"', '"&ip&"')"

			conn.execute sql

			conn.close
			set conn=nothing
	End function

	function zisti_naz(byref ip_or) '(Pstruh komponenta)
'			Set DNS = CreateObject("TCPIP.DNS")
'			On Error Resume Next
'			host = DNS.GetHostByIP(ip_or)
'			if host<>"" Then
'				ip=host
'			else
				ip=ip_or
'			end If
			zisti_naz=ip

'			Set DNS=nothing
	end function

   function CheckCookie(strCookieName)
	    if Request.Cookies(strCookieName) = "" Then
  	  		CheckCookie = "False"
    	Else
    		CheckCookie = "True"
	    End if
    End function

    function AddCookie()
		Response.Buffer = True
  	  	Response.Cookies(Sit) = Sit
    	Response.Cookies(Sit).Expires = Date() + 1
    End function

	response.end
%>