Fejl i ASP kode
Hej!... Jeg får denne fejl:Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Field 'Community.Username' cannot be a zero-length string.
/znuggle_com/community/docreate.asp, line 56
i denne kode:
<%@ Language=VBScript %>
<%
Response.Buffer = True
page = Request.QueryString("page")
If page = "docreate1" Then
If Request.Form("username") = "" Then
text = "Please fill in ALL fields!"
Response.Redirect "create.asp"
End If
If Request.Form("password1") = "" Then
text = "Please fill in ALL fields!"
Response.Redirect "create.asp"
End If
If Request.Form("password2") = "" Then
text = "Please fill in ALL fields!"
Response.Redirect "create.asp"
End If
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/db.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "select * from Community"
Set RS = conn.Execute(SQL)
RS.MoveFirst
Do While NOT RS.EOF
If Request.Form("username") = RS("nick") Then
text = "Username does already exist. Please pick another."
Response.Redirect "create.asp"
else
If Request.Form("password1") = Request.Form("password2") Then
Response.Redirect "docreate.asp?page=docreate2"
else
text = "The passwords did not match."
Response.Redirect "create.asp"
End If
End If
Loop
RS.MoveFirst
End If
If page = "docreate2" Then
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")&";"
Session.LCID = 3081
Connect.Execute "Insert into Community (Nick, Password) values ('" & Request.Form("username") & "','" & Request.Form("password1") & "')"
Connect.Close
set Connect = Nothing
Response.Redirect "login.asp"
End If
%>
Nogen der kan hjælpe??
