mmm. kan ikke lige se fejlen ang. IP

hej

Når jeg forsøger at køre det her script, da jeg gerne vil have at nogle IP adresser IKKE kommer ind på siden, får jeg følgende fejl..

Type Mismatch

Her er koden

<% @language=VBScript %>
<%

set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")


if oRS("IP") = "221.16.172.104" or "125.185.190.169" or "219.109.102.51" then
response.redirect ("https://www.cia.gov")
end if


Person = request.form ("Person")
Email = request.form("Email")
Beskrivelse = request.form ("Beskrivelse")
IP = Request.ServerVariables("REMOTE_ADDR")


  strSQL = "Insert into gastebog (Person, Email, Beskrivelse, IP) values ('" & Person & "', '" & Email & "', '" & Beskrivelse & "', '" & IP & "')"
  response.write strSQL
  Conn.Execute(strSQL)


    conn.Close
    set conn = nothing

   
Set JMail = Server.CreateObject("JMail.SMTPMail")

JMail.ServerAddress = "mail.thomasknielsen.dk"

JMail.Sender = "info@thomasknielsen.dk"
JMail.Subject = "Der er kommet et indlæg i gæstebogen"

JMail.AddRecipient "x@webspeed.dk"

' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 1

JMail.Execute
   
   
   
   
response.redirect ("/index.asp?id=8")
%>