Oprettelse af bruger..
Ja jeg kan ikke få denne side til at virke.. kan i hjælpe mig med at finde fejlene?___________________________________________________________
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Community udviklet af David de Sousa</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<%
'Forskellig menu alt efter om man er logget ind eller ej
if session("Nick") <> "" then
if Request.QueryString("mode") = "slet" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Profiler.mdb")
Set rs = Conn.Execute("DELETE FROM bruger WHERE id = " & request("id"))
Conn.Close
Set Conn = Nothing
response.redirect("?mode=logaf")
end if
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("Profiler.mdb")
'Henter brugerens profil
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from bruger where brugernavn = '" & Session("Nick") & "'"
rs.open sql, conn, 1, 3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
rs.update
rs("Nick") = Server.HTMLEncode(Request("Nick"))
rs("Kode") = Server.HTMLEncode(Request("Kode"))
rs("Scooter") = Server.HTMLEncode(Request("Scooter"))
rs("Motor") = Server.HTMLEncode(Request("Motor"))
rs("Gejl") = Server.HTMLEncode(Request("Gejl"))
rs("Fremtid") = Server.HTMLEncode(Request("Fremtid"))
rs("Billed") = Server.HTMLEncode(Request("Billed"))
rs.update
Response.Write("<b><font color='red'>Dine data er nu Opdateret</font></b><br>")
end if
%>
<font face="Verdana" size="2"><b>
Rediger din profil:</b></font>
<form method="post" action="bruger.asp">
<table>
<tr>
<td bgcolor="#Ffffff"><font class="small" face="Verdana" size="2">Brugernavn</font></td>
<td bordercolor="#ffffff"><font face="Verdana" size="2"><input type="text" name="Nick"><%=Request("Nick")%></font></td>
</tr>
<tr>
<td bgcolor="#Ffffff"><font class="small" face="Verdana" size="2">Adgangskode</font></td>
<td bordercolor="#ffffff"><font face="Verdana" size="2"><input type="password" name="Kode"><%=Request("Kode")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small" size="2" face="Verdana">Scooter</font></td>
<td bordercolor="#ffffff"><font face="Verdana" size="2"><input type="text" name="Scooter"><%=Request("Scooter")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small" size="2" face="Verdana">Motor</font></td>
<td bordercolor="#ffffff"><font face="Verdana" size="2"><textarea cols="20" rows="6" name="Gejl"><%=Request("Motor")%></textarea></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small" size="2" face="Verdana">Gejl</font></td>
<td bordercolor="#ffffff"><font face="Verdana" size="2"><textarea cols="20" rows="6" name="Gejl"><%=Request("Gejl")%></textarea></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small" size="2" face="Verdana">Fremtid</font></td>
<td bordercolor="#ffffff"><font face="Verdana" size="2"><textarea cols="20" rows="6" name="fremtid"><%=Request("Fremtid")%></textarea></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font class="small" size="2" face="Verdana">Billed</font></td>
<td bordercolor="#ffffff"><font face="Verdana" size="2"><input type="text" name="Billed" value="http://"><%=Request("Billed")%></font></td>
</tr>
<tr>
<td bordercolor="#ffffff"><font face="Verdana" size="2"> </font></td>
<td bordercolor="#ffffff"><font face="Verdana" size="2"><input type="submit" value="Opdater" id=submit1 name=submit1></font><p></p></td>
</tr>
</table>
</form>
<p><font face="Verdana" size="2"><a href="bruger.asp?mode=logaf">Logaf</a>
</font></p>
<font face="Verdana" size="2">
<%
rs.close
set rs = nothing
%>
<% else %>
Du er ikke logget ind</font><p>
<font face="Verdana" size="2">
<a href="login.asp">Login</a></font><% end if %>
___________________________________________________________
