Fejl
Jeg har lavet en side hvor man kan rette sin profil og når man så retter og trykker på opdater så sletter den brugeren fra databasen istedet for at opdatere den... ? hjælp..Her er siden:
<%'Forskellig menu alt efter om man er logget ind eller ej
if session("brugernavn") <> "" then
%>
<%
if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("login.asp")
end if
Response.Buffer = True
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
'Henter brugerens profil
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
rs.open sql, conn, 1, 3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
rs.update
rs("brugernavn") = Request.form("brugernavn")
rs("password") = Request.form("password")
rs("navn") = Request.form("navn")
rs("kon") = Request.form("kon")
rs("email") = Request.form("email")
rs("icq") = Request.form("icq")
rs("website") = Request.form("website")
rs("fritekst") = Request.form("fritekst")
rs.update
Response.Write("<b><font color='red'>Dine data er nu Opdateret</font></b><br>")
end if
%>
Rediger din profil:<br>
<form method="post" action="retp.asp">
<table>
<tr>
<td bordercolor="#ffffff"><font class="small">Brugernavn</font></td>
<td bordercolor="#ffffff"><font class="small"><%=rs("brugernavn")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">Adgangskode</font></td>
<td bordercolor="#ffffff"><input type="text" name="adgangskode" value="<%=rs("password")%>"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">Email</font></td>
<td bordercolor="#ffffff"><input type="text" name="email" value="<%=rs("email")%>"></td>
</tr>
<tr>
<td bordercolor="#ffffff">Rigtigt navn</td>
<td bordercolor="#ffffff"><input type="text" name="rigtig_navn" value="<%=rs("navn")%>" size="20"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">Hjemmeside</font></td>
<td bordercolor="#ffffff"><input type="text" name="hjemmeside" value="<%=rs("website")%>"></td>
</tr>
<tr>
<td bordercolor="#ffffff">Rigtigt navn</td>
<td><select name="kon" class="bottom" size="1" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1" value="<%=rs("kon")%>">
<option value="-">(Vælg)</option>
<% if kon = "Mand" then%><option selected value="Mand"><%else%><option value="Mand"><%end if%>Mand</option>
<% if kon = "Kvinde" then%><option selected value="Kvinde"><%else%><option value="Kvinde"><%end if%>Kvinde</option>
</select>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">ICQ nummer</font></td>
<td bordercolor="#ffffff"><input type="text" name="icq" value="<%=Rs("icq")%>"></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small">Fri tekst</font></td>
<td bordercolor="#ffffff"><textarea cols="20" rows="6" name="fri_tekst"><%=Rs("fritekst")%></textarea></td>
</tr>
<tr>
<td bordercolor="#ffffff"> </td>
<td bordercolor="#ffffff"><input type="submit" value="Opdater" id=submit1 name=submit1></td>
</tr>
</table>
</form>
<p><a href="bruger.asp?mode=logaf">Logaf</a> I <a href="mailbox.asp">Mail
Box</a> I <a href="bruger1.asp?brugernavn=<%=session("brugernavn")%>">Se din egen profil</a></p>
<%
rs.close
set rs = nothing
%>
<% else %>
<font size="4">Du er ikke logget ind</font><p>
<a href="login.asp">login</a> eller <a href="opret.asp">bliv medlem</a>
<% end if %>
Håber i kan hjælpe EKSPERTER!! :o)
