adovbs.inc fel...

Antagligen ngt i koden på sidan du plockar in adovbs.inc.
Visa koden där i stället.
MVH Jesper

Se till att du inte dimmar variablarna mer än en gång!

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/medlemmar.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From medlemmar"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Dim ok

Do UNTIL RecSet.EOF
If not RecSet("anvandarnamn") >< Request.Form("anvandarnamn") Then
ok = "nej"
End If
RecSet.MoveNext
Loop

If ok = "nej" Then
Session("fel") = "anvandarnamn"
Response.Redirect "registrera.asp"
End IF

RecSet.AddNew

RecSet("anvandarnamn") = Request.Form("anvandarnamn")
RecSet("fornamn") = Request.Form("fornamn")
RecSet("efternamn") = Request.Form("efternamn")
RecSet("fodd") = Request.Form("ar") & "/" & Request.Form("manad") & "/" & Request.Form("dag")
RecSet("inlagg") = 0
RecSet("email") = Request.Form("email")
RecSet("bor") = Request.Form("bor")
RecSet("behorighet") = "medlem"
RecSet("icq") = Request.Form("icq")
RecSet("msn") = Request.Form("msn")
RecSet("hemsida") = Request.Form("hemsida")
RecSet("losenord") = Request.Form("losenord")
RecSet("registreringsdatum") = date

RecSet.Update
RecSet.Close
Connect.Close

Session("anvandarnamn") = Request.Form("anvandarnamn")
Session("fornamn") = Request.Form("fornamn")
Session("efternamn") = Request.Form("efternamn")
Session("fodd") = Request.Form("ar") & "/" & Request.Form("manad") & "/" & Request.Form("dag")
Session("inlagg") = "0"
Session("email") = Request.Form("email")
Session("bor") = Request.Form("bor")
Session("behorighet") = "medlem"
Session("icq") = Request.Form("icq")
Session("msn") = Request.Form("msn")
Session("hemsida") = Request.Form("hemsida")
Session("inloggad") = "ja"

Response.Redirect "default.asp"
%>

bara vanligt databastjafs. :)
koden ligger i en includefil så en includefil inkluderas i en includefil typ... om det gör nån skillnad.

Har du : Dim ok, på någon annan include-sida? Så prova att ta bort den! Eller byt namn på någon variabel:

Förslag: Dim Allright ;)

MVH Jesper

ok, ska prova.
imorron... det är nåt fel på datorn. kan vara ute på nätet ett tag sedan funkar det inte längre. tror det är nåt virus... :(

kolla om du har inkluderat adovbs.inc i inklud filen också om du har gjort så ta väck den ena mmm tror jag
MVH /cupy

HAHA! Va dum man kan va!
Hade inkluderat adovbs.inc på en massa ställen... :e