Hjælp mig ....

og hvad står der i linie 20?

Set objRS2 = Conn.execute(SQL)

og sql indholder?

SQL = \"SELECT email from userpref where email = \'\" & email & \"\'\"

Men hvad betyder ... \"if the object is closed\" ?

hvis object er lukket...

LOL... det kunne være noget med at databasen ikke er lukket ordentligt ned eller sådan noget

først gang du kørte formularen blev den åbnet, men lukket forkedt ned... har ikke hørt den fejl før

Her er lidt mere:

Fejl = \"\"

    If fornavn = empty Then Fejl = Fejl & \"Venligst indtast fornavn<br>\"
    If efternavn = empty Then Fejl = Fejl & \"Venligst indtast efternavn<br>\"
    If email = empty Then Fejl = Fejl & \"Venligst indtast E-mail<br>\"
    If adgangskode = empty Then Fejl = Fejl & \"Venligst angiv en adgangskode\"

    SQL = \"SELECT email from userpref where email = \'\" & email & \"\'\"
    Set objRS2 = Conn.execute(SQL)
        if not objRS2.eof Then
            If guid = empty Then
                Fejl = Fejl & \"<br>Du er allerede oprettet som bruger<br><span class=\"\"brod\"\"><a href=\"\"user.glemtpw.form.asp\"\">Har du glemt din adgangskode?</a></span><br>\"
            End if
        End if
    Set objRS2 = nothing
   
    If Fejl <> empty Then Response.Redirect(\"user.create.form.asp?guid=\" & guid & \"&telefon=\" & telefon& \"&mobiltelefon=\" & mobiltelefon& \"&postnummer=\" & postnummer & \"&email=\" & email & \"&statistik=\" & statistik & \"&fejl=\" & fejl & \"&navn=\" & navn)
   
    \'## Formularen er evalueret uden fejl.
   
    If guid = empty Then
        \'## Der skal oprettes en ny post
        SQL = \"INSERT INTO users(navn,telefon,mobiltelefon,postnummer,email, statistik, adgangskode, doc_date) VALUES(\"_
            & \"\'\" & navn & \"\',\"_
            & \"\'\" & telefon & \"\',\"_
            & \"\'\" & mobiltelefon & \"\',\"_
            & \"\" & postnummer & \",\"_
            & \"\'\" & email & \"\',\"_
            & \"\'\" & statistik & \"\',\"_
            & \"\'\" & adgangskode & \"\',\"_
            & \"\" & doc_date & \")\"
        \'Application.Lock
            Conn.execute(SQL)
        \'Application.UnLock
    Else
        SQL = \"UPDATE users SET \"_
            & \"navn=\'\" & navn & \"\', \"_
            & \"telefon=\'\" & telefon & \"\', \"_
            & \"mobiltelefon=\'\" & mobiltelefon & \"\', \"_
            & \"postnummer=\'\" & postnummer & \"\', \"_
            & \"email=\'\" & email & \"\', \"_
            & \"statistik=\'\" & statistik & \"\', \"_
            & \"adgangskode=\'\" & adgangskode & \"\', \"_
            & \"doc_date=\'\" & doc_date & \"\' \"_
            & \"WHERE guid = \'\" & guid & \"\'\"
        Conn.execute(SQL)
    End if           
       
        If newsltr = \"J\" Then
            SQL = \"SELECT * FROM newsltr WHERE email = \'\" & email & \"\'\"
            set objRS = Conn.execute(SQL)
                if objRS.eof Then
                    SQL = \"INSERT INTO newsltr(email) VALUES(\'\" & email & \"\')\"
                    Conn.execute(SQL)
                End if
        End IF

hvordan åbner du databasen?

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"user.mdb\")
\'Conn.Open DSN
%>

dalbjerg.... jeg får besøg en en asp haj her om lidt, så det kan han nok godt klare. Men som tak for ulejligheden synes jeg at du skal have nogle point, giv lige et svar :-)

jamen det gør jeg så