%
Dim ValidatedForThisPage,Thispage,Thispage2,Thispage3,rs,sqlString,connString2,ipaddress,ipfind
Session("Thispage") = Request.ServerVariables("script_name")
Session("Thispage2") = Request.ServerVariables("SERVER_NAME")
Session("Thispage3") = Request.ServerVariables("HTTP_REFERER")
ipaddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ipaddress = "" then
ipaddress = Request.ServerVariables("REMOTE_ADDR")
end if
%>
<%
sqlString = "select * from iphistorycr where ipAdd2 = '" &ipaddress &"'"
set rs = createObject("adodb.recordset")
rs.open sqlString, connString
if not rs.eof then
ipfind= TRUE
rs.close
set rs = nothing
Else
ipfind= FALSE
rs.close
set rs = nothing
'Response.Redirect "verification.asp"
End If
If ipfind = FALSE Then
%>
<%
Else
%>
Real Estate Condo and Apartments
Costa Rica Property Consultants
USA Office (Toll Free)
1-(800) 379-2465
Costa Rica Telefono
(506) 289-9938
Real Estate Condo and Apartments
Find Real estate sites for condominium, apartments, hotels and ready for occupancy units