<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim strSQL_stat
Dim objRS_stat
strSQL_stat = "SELECT * FROM ip WHERE a1='" & Request.ServerVariables("REMOTE_ADDR") & "'"
Set objRS_stat = Server.CreateObject("ADODB.Recordset")
objRS_stat.Open strSQL_stat, objConn, adOpenStatic, _
adLockReadOnly, adCmdText
dim stat_ver
stat_ver = "NO"
if not objrs_stat.eof then
stat_ver = "SI"
end if
objRS_stat.Close
set objRS_stat = Nothing
%>
ColdCar carrozzerie refrigeranti | Occimiano (AL) | carrozzeria,refrigerante,freddo,camion,furgoni,frigoriferi,ATP,rinnovo ATP
<% if stat_ver = "NO" then %>
<% End if %>
<%
objConn.Close
set objConn = Nothing
%>
