kan en fortelle mig havd der er i vejn med denne side
<%@ Language=VBScript %><%
If Not Session(\"login\") > 0 Then Response.Redirect(\"login.asp\")
%>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE>Din TmX profil</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<SCRIPT LANGUAGE=\"JavaScript\" TYPE=\"text/javascript\">
function validate(opret) {
if (document.aendre.password.value == \"\") {
alert(\"Husk at skrive dit password.\");
document.aendre.password.focus();
return false;
}
else {
if (document.aendre.name.value == \"\") {
alert(\"Husk at skrive dit navn.\");
document.aendre.name.focus();
return false;
}
else {
if (document.aendre.alias.value == \"\") {
alert(\"Husk at skrive dit alias\");
document.aendre.alias.focus();
return false;
}
else {
if (document.aendre.age.value == \"\") {
alert(\"Husk at skrive din alder\");
document.aendre.age.focus();
return false;
}
else {
if (document.aendre.email.value == \"\") {
alert(\"Husk at skrive din e-mail\");
document.aendre.email.focus();
return false;
}
else {
if (document.aendre.icq.value == \"\") {
alert(\"Der skal stå noget i ICQ feltet.\");
document.aendre.icq.focus();
return false;
}
else {
if (document.aendre.about.value == \"\") {
alert(\"Der skal stå noget om dig.\");
document.aendre.about.focus();
return false;
}
}
}
}
}
}
}
return true;
}
function start() {
document.aendre.name.focus();
return false;
}
<%
set Conn = Server.createobject(\"adodb.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\".\") &\"/database.mdb; DefaultDir=DBQ=\"& Server.MapPath(\"/\") &\";Driver={Microsoft Access Driver (*.mdb)};\"
if Request.QueryString(\"UPDATE\") = 1 then
SQL = \"UPDATE User SET username =\" & Request.Form(\"username\") & \", \" & _
\" password = \" & Request.Form(\"password\") & \", \" & _
\" name = \" & Request.Form(\"name\") & \", \" & _
\" alias = \" & Request.Form(\"alias\") & \", \" & _
\" age = \" & Request.Form(\"age\") & \", \" & _
\" email = \" & Request.Form(\"email\") & \", \" & _
\" icq = \" & Request.Form(\"icq\") & \", \" & _
\" about = \" & Request.Form(\"about\") & _
\"WHERE userID = \" & Session(\"login\") & \";\"
Set RS = conn.Execute(SQL)
end if
SQL = \"SELECT * FROM user WHERE userID = \"& Session(\"login\")
Set RS = conn.Execute(SQL)
%>
</SCRIPT>
</HEAD>
<body text=\"#ffffff\" link=\"#ffffff\" alink=\"#ffffff\" vlink=\"#ffffff\" bgcolor=\"#000000\">
<center>
<!-- #include file=\"menu.asp\" -->
<FORM ACTION=\"profil.asp?update=1\" METHOD=\"POST\" NAME=\"aendre\" onsubmit=\"return validate(this)\">
<TABLE WIDTH=\"30%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"3\" CLASS=\"css\">
<TR>
<TD>User name:</TD>
<TD><%=RS(\"userName\")%></TD>
</TR>
<TR>
<TD>Password: </TD>
<TD><INPUT TYPE=\"text\" VALUE=\"<%=RS(\"password\")%>\" NAME=\"password\" CLASS=\"css\"></TD>
</TR>
<TR>
<TD HEIGHT=\"20\"></TD>
<TD HEIGHT=\"20\"></TD>
</TR>
<TR>
<TD>Navn: </TD>
<TD><INPUT TYPE=\"text\" VALUE=\"<%=RS(\"name\")%>\" NAME=\"name\" CLASS=\"css\"></TD>
</TR>
<TR>
<TD>Nickname: </TD>
<TD><INPUT TYPE=\"text\" VALUE=\"<%=RS(\"alias\")%>\" NAME=\"alias\" CLASS=\"css\"></TD>
</TR>
<TR>
<TD>Alder: </TD>
<TD><INPUT TYPE=\"text\" VALUE=\"<%=RS(\"age\")%>\" SIZE=\"20\" MAXLENGTH=\"2\" NAME=\"age\" CLASS=\"css\"></TD>
</TR>
<TR>
<TD>E-mail: </TD>
<TD><INPUT TYPE=\"text\" VALUE=\"<%=RS(\"email\")%>\" NAME=\"email\" CLASS=\"css\"></TD>
</TR>
<TR>
<TD>ICQ: </TD>
<TD><INPUT TYPE=\"text\" VALUE=\"<%=RS(\"icq\")%>\" MAXLENGTH=\"8\" SIZE=\"8\" NAME=\"icq\" CLASS=\"css\" ></TD>
</TR>
<TR>
<TD VALIGN=\"top\">dit ævl: </TD>
<TD><TEXTAREA WRAP=\"on\" ROWS=\"4\" COLS=\"20\" NAME=\"about\" CLASS=\"css\"><%=RS(\"about\")%>
