Sider bliver bare blank
Hvorfor går denne side på i "stå", bliver blank, og så ikke mere?Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
<%
if request.querystring("type") = "opret" then
registrering = "ja"
Set rsu = Server.CreateObject("ADODB.Recordset")
strSQLU = "Select * FROM users"
rsu.Open strSQLU, Conn, 3, 3
if request.form("nick") <> "" or request.form("fornavn") <> "" or request.form("password") <> "" or request.form("email") then
if request.form("nick") = rsu.fields("brugernavn") then
response.redirect "opret.asp?fejl=1"
else
nick = request.form("nick")
fornavn = request.form("fornavn")
efternavn = request.form("efternavn")
password = request.form("password")
passwordigen = request.form("passwordigen")
email = request.form("email")
msn = request.form("msn")
icq = request.form("icq")
password = trim(password)
passwoed = lcase(password)
passwordigen = trim(passwordigen)
passwordigen = lcase(passwordigen)
if password <> passwordigen then response.redirect "opret.asp?fejl=2"
rsu.Addnew
rsu("brugernavn") = nick
rsu("fornavn") = fornavn
rsu("efternavn") = efternavn
rsu("password") = password
rsu("email") = email
rsu("msn") = msn
rsu("icq") = icq
response.redirect "default.asp"
end if
end if
end if
if registrering = "ja" then
rsu.Close
Set rsu = nothing
end if
%>
