type mismatch

Hej

Har følgende kode.. hvor den indsætter i en access tabel..
Samtidig vil jeg gerne have at den lige checker om den der nu skriver i min GB også har en "rigtig" IP adresse ..


Det hele har virket før.. men lige pludselig.. så virker det ikke mere !!!!!

Men den skriver følgende :

Insert into gastebog (Person, Email, Beskrivelse, IP) values ('', '', 'h', '85.82.223.30')
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'oRS'

/gastebog/update.asp, line 21


Her er koden...

<% @language=VBScript %>
<%

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


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)



Do
If request.servervariables("REMOTE_ADDR") = oRS("BANIP") Then
Response.Redirect("http://www.cia.gov")
End If
Loop While Not rs.EOF




    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 "musikeren@webspeed.dk"

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

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