Hjælp til opret bruger funktion
Er ret ny indenfor dette emne, nogen der kan fortælle mig hvad min fejl er i dette script? Når jeg laver fejl, kommer den godt nok med fejlmeldingen, men når jeg vil oprette bruger siger den at der opstod en Intern http-500 serverfejl.Nogen der kan hjælpe mig?
<%
Dim xBruger, xKode, xGentag, xKoen, Conn, DSN, strSQL
xBruger = Request.Form("bruger")
xKode = Request.Form("kode")
xGentag = Request.Form("gentag")
xKoen = Request.Form("koen")
' Validerer data, og opretter bruger.
If xBruger <> "" and xKode <> "" Then
' Tjekker om kode og brugernavn er langt nok
If Len(xBruger) > 0 and Len(xKode) > 5 Then
' Åbner database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.Mappath("/hhannoy/db/18219282.mdb")
Conn.Open DSN
strSQL = "Insert into login (Brugernavn, Kode, Koen) "
strSQL = strSQL & "values ("
strSQL = strSQL & "'" & xBruger & "', "
strSQL = strSQL & "'" & xKode & "', "
strSQL = strSQL & "'" & xKoen & "');"
Conn.Execute(strSQL)
Response.Write "Din bruger blev oprettet!"
' Lukker database
Conn.Close
Set Conn = Nothing
' Hvis brugernavn/kode ikke er lang nok, skrives der fejl.
Else
Response.Write "Fejl!<br>Krav:<br>Dit navn skal mindst være 1 tegn.<br>Din kode skal mindst være 6 tegn!<br>Din kode skal være identisk med den du skriver igen!"
End If
Else
%>
<!-- Form til opret bruger! -->
<form action="opret.asp" method="post">
Bruger: <input type="text" name="Bruger" value="" style="background: opacity; border: 1px solid black"><br>
Password: <input type="password" name="Kode" value="" style="background: opacity; border: 1px solid black"><br>
Password igen: <input type="password" name="Gentag" value="" style="background: opacity; border: 1px solid black"><br>
Køn: <select type="dropdown" style="background: opacity; border: 1px solid black">
<option value="han">Dreng
<option value="hun">Pige
</select><br>
<input type="submit" value="Opret!"><br><br>
</form>
<%
End If
%>
