ho seguito il consiglio di agenti ma:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/iscrizioni/origine_ip.asp, line 10, column 14
IP_Number = A x (256*256*256) + B x (256*256) + C x 256 + D
codice:
<%

A = 127
B = 0
C = 0
D = 1

IP_Number = A x (256*256*256) + B x (256*256) + C x 256 + D

response.write IP_Number:response.end

strsql = "SELECT COUNTRY_NAME FROM tbl_ip WHERE IP_FROM <= IP_Number and IP_TO >= IP_Number"
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open strsql, objConn

do while not objRs.EOF

country_name = objRs("country_name")
response.write country_name &"
"

objRs.MoveNext
loop

objRs.close 
set objRs = nothing 

objConn.close
set objConn = Nothing

%>