Fejl ved brugeropret i community?
Hej! jeg har et lille community-system, som jeg ikke kan få til at virke!Prøv at oprette en bruger her: http://www.hotplanet.dk/community/opret.asp og se den fejl den kommer med? Fejl i opret.php linie 39
Opret.php:
<html>
<head>
<title>ASP Community</title>
</head>
<body>
<% if mode = "" then %>
<form method=post action=opret.asp?mode=gem>
<font size=4>Opret bruger i community</font><br>
<font color=red size=2><%=Request.Querystring("error")%></font><br>
Ønsket Brugernavn: <input type=text name=brugernavn><br>
Ønsket Kodeord: <input type=text name=kodeord><br>
Email: <input type=text name=brugeremail><br>
Hjemmeside <input type=text name=brugerhttp><br>
ICQ <input type=text name=icq><br>
Fritekst<br><textarea name=brugerTekst col=10 rows=10 cols="20"></textarea><br>
<input type=submit value=Opret Bruger>
</form>
<% end if %>
<% if mode = "gem" then
'//Tjecker om brugernavn kodeord og email er udfyldt!
if Request.form("brugernavn") = "" then Response.Redirect("opret.asp?error=Udfyld brugernavn") end if
if Request.form("kodeord") = "" then Response.Redirect("opret.asp?error=udfyld kodeord") end if
if Request.form("brugeremail") = "" then Response.Redirect("opret.asp?error=Udfyld email") end if
'//Connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("community.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger where brugernavn = '" & Request.form("brugernavn") & "'"
rs.Open strSQL, Conn, 1, 3
'//Tjecker om brugernavnet er optaget!
If Not (rs.BOF Or rs.EOF) Then
Response.Redirect("opret.asp?error=Brugernavnet er optaget")
end if
'//Tilføjer brugeren til databasen!
rs.addnew
rs("brugernavn") = Request.form("brugernavn")
rs("brugerkodeord") = Request.form("kodeord")
rs("brugeremail") = Request.form("brugeremail")
rs("brugerhttp") = Request.form("brugerhttp")
rs("brugerICQ") = Request.form("icq")
rs("brugerTekst") = Request.form("brugertekst")
rs.update
Response.Write("Du er nu oprettet! Login <a href=default.asp>Her</a>")
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
end if %>
</body>
</html>
-----------
Kan du finde fejlen, og evt. hjælpe mig, så er de 100 point helt klart til dig!
Du kan hente hele comunityet her: http://www.hotplanet.dk/community/community.zip
