Få dette \"update\" til at virke
Jeg her følgende kode til at opdatere bruger indstillinger i en database, men jeg kan ikke få det til at virke. Jeg vil geren have koden gennemgået, og rettet for de fejl, som der er, så jeg lige kan klippe det ind i min hjemmeside.--------------------------------------------
<form method=\"POST\" action=\"ret.asp?mode=gemdata\">
<table>
<td width=\"36%\"><font size=\"2\"><b>Brugernavn:</b></font></td>
<td width=\"64%\"><font size=\"2\"><%=rs(\"username\")%></font></td>
</tr>
<tr>
<td width=\"36%\"><b><font size=\"2\">Kodeord:</font></b></td>
<td width=\"64%\"><font size=\"2\"><input type=\"password\" name=\"password\" size=\"20\" style=\"font-family: Tahoma; color: #FFFFFF; font-size: 10 pt; font-weight: bold; background-color: #729BAF; border-style: double; border-color: #C9D9E1\" value=\"<%=rs(\"password\")%>\"></font></td>
</tr>
<tr>
<td width=\"36%\"><b><font size=\"2\">Kodeord igen:</font></b></td>
<td width=\"64%\"><font size=\"2\"><input type=\"password\" name=\"password2\" size=\"20\" style=\"font-family: Tahoma; color: #FFFFFF; font-size: 10 pt; font-weight: bold; background-color: #729BAF; border-style: double; border-color: #C9D9E1\" value=\"<%=rs(\"password\")%>\"></font></td>
</tr>
<tr>
<td width=\"36%\"><b><font size=\"2\">Har du e-mail:</font></b></td>
<td width=\"64%\"><select size=\"1\" name=\"email_status\" style=\"font-family: Tahoma; color: #FFFFFF; font-size: 10 pt; font-weight: bold; background-color: #729BAF; border-style: double; border-color: #C9D9E1\">
<option>Ja</option>
<option selected>Nej</option>
</select></td>
</tr>
<tr>
<td width=\"36%\"><b><font size=\"2\">E-mail adresse:</font></b></td>
<td width=\"64%\"><font size=\"2\"><input type=\"text\" name=\"email\" size=\"20\" style=\"font-family: Tahoma; color: #FFFFFF; font-size: 10 pt; font-weight: bold; background-color: #729BAF; border-style: double; border-color: #C9D9E1\" value=\"<%=rs(\"email\")%>\"></font></td>
</tr>
<tr>
<td width=\"36%\"><b><font size=\"2\">Telefon:</font></b></td>
<td width=\"64%\"><font size=\"2\"><input type=\"text\" name=\"telefon\" size=\"20\" style=\"font-family: Tahoma; color: #FFFFFF; font-size: 10 pt; font-weight: bold; background-color: #729BAF; border-style: double; border-color: #C9D9E1\" value=\"<%=rs(\"telefon\")%>\"></font></td>
</tr>
<tr>
<td width=\"36%\"><b><font size=\"2\">Gren:</font></b></td>
<td width=\"64%\"><select size=\"1\" name=\"Gren\" style=\"font-family: Tahoma; color: #FFFFFF; font-size: 10 pt; font-weight: bold; background-color: #729BAF; border-style: double; border-color: #C9D9E1\">
<option>Mikro</option>
<option selected>Mini</option>
<option>Junior</option>
<option>Troppen</option>
<option>Senior</option>
<option>Ungdomsrep.</option>
</select></td>
</tr>
<tr>
<td width=\"36%\"><b><font size=\"2\">Medlemnr:</font></b></td>
<td width=\"64%\"><font size=\"2\"><input type=\"text\" name=\"medlemnr\" size=\"20\" style=\"font-family: Tahoma; color: #FFFFFF; font-size: 10 pt; font-weight: bold; background-color: #729BAF; border-style: double; border-color: #C9D9E1\" value=\"<%=rs(\"medlemnr\")%>\"></font></td>
</tr>
<tr>
<td width=\"36%\"><b><font size=\"2\">Startbillede:</font></b></td>
<td width=\"64%\"><select size=\"1\" name=\"op_billed\" style=\"font-family: Tahoma; color: #FFFFFF; font-size: 10 pt; font-weight: bold; background-color: #729BAF; border-style: double; border-color: #C9D9E1\">
<option selected>Sejs Logo</option>
<option>DDS Lilje</option>
</select></td>
</tr>
<tr>
<td width=\"36%\"><font color=\"#C9D9E1\" size=\"1\">.</font></td>
<td width=\"64%\"><font color=\"#C9D9E1\" size=\"1\">.</font></td>
</tr>
<tr>
<td width=\"36%\"> </td>
<td width=\"64%\"><input type=\"submit\" value=\"Ret indstillinger\" name=\"B1\" style=\"font-family: Tahoma; color: #FFFFFF; font-size: 10 pt; font-weight: bold; background-color: #729BAF; border-style: double; border-color: #C9D9E1\"></td>
</tr>
</form>
<%
Conn.Close
Set Conn = nothing
Set SQLstmt = nothing
End If
End If
mode = request(\"mode\")
if mode=\"gemdata\" then
if Session(\"userID\") = \"\" Then
response.redirect (\"login.asp\")
END IF
if Session(\"userID\") <> \"\" then
str_password = replace(request.form(\"password\"),\"\'\",\"\'\'\")
str_password2 = replace(request.form(\"password2\"),\"\'\",\"\'\'\")
If str_password <> str_password2 Then
response.write \"<center><b>Du har ikke angivet 2 ens passwords.</b></center>\"
else
FUNCTION fixQuotes( theString )
fixQuotes = Replace( theString, \"\'\", \"\'\'\" )
END FUNCTION
email_status = Request.Form( \"email_status\" )
Email = Request.Form( \"email\" )
telefon = Request.Form( \"telefon\" )
if telefon = \"\" then telefon = 0
gren = Request.Form( \"gren\" )
medlemnr = Request.Form( \"medlemnr\" )
op_billed = Request.Form( \"op_billed\" )
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"sejs.mdb\")
SQLstmt = \"UPDATE DISTINCTROW adgangskoder SET username = \'\" & session(\"user-name\") &\"\', email_status = \'\" & fixQuotes(email_status) & \"\', password = \'\" & (str_password) & \"\', Email=\" & fixQuotes(Email) & \", telefon=\" & fixQuotes(telefon) & \", gren =\'\" & fixQuotes(gren) & \", op_billed =\'\" & fixQuotes(op_billed) & \"\', medlemnr=\'\" & fixQuotes(medlemnr) & \"\' WHERE userid = \" & session(\"userID\")
\'response.write sqlstmt
Conn.Execute (SQLstmt)
Session(\"user-password\")= request.form(\"password\")
Conn.Close
Set Conn = nothing
Set SQLstmt = nothing
response.write(\"<center><br><br>Dine indstillinger er nu opdateret...<br><br></center>\")
End If
End If
End If
%>
</form>
