Rediger profil til community
Jeg hr prøvet at lave en rediger_profil.asp til et community. Jeg ved godt der er en masse fejl, og de behøves ikke at blive rettet nu, men den viser dette når jeg prøver at se filen:Microsoft VBScript runtime error '800a000d'
Type mismatch: 'rs'
/syntax/hh-spray/community/rediger_profil.asp, line 19
Det er mega træls, så hvis nogen kan hjælpe vil jeg blive glad ;)
Her er filen:
<%
mode = Request("mode")
Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("com123.mdb") & ""
Session.LCID = 1030
%>
<html>
<head>
<title>Community</title>
</head>
<body>
<% if mode = "" then %>
<form method=post action=rediger_profil.asp?mode=gem>
<font size=4>Rediger bruger i community</font><br>
<font color=red size=2><%=Request.Querystring("error")%></font><br>
Brugernavn: <%=rs("brugerNavn")%><br>
Kodeord: <input type=text name=kodeord value="<%=rs("brugerKode")%>"><br>
Email: <input type=text name=brugeremail value="<%=rs("brugerEmail")%>"><br>
Hjemmeside <input type=text name=brugerhttp value="<%=rs("brugerHttp")%>"><br>
ICQ <input type=text name=icq value="<%=rs("brugerIcq")%>"><br>
Fritekst<br><textarea name=brugerTekst col=10 rows=10 cols="20" value="<%=server.htmlEncode(rs("brugerTekst"))%>"></textarea><br>
<input type=submit value=Opdater>
</form>
<% end if %>
<% if mode = "gem" then
if Request.form("kode") = "" then Response.redirect("rediger_info.asp?error=Du glemte at vælge et password! <a href='java script:history.back(1)'>Tilbage</a>") end if
if Request.form("email") = "" then Response.redirect("rediger_info.asp?error=Du glemte at skrive en e-mail adresse! <a href='java script:history.back(1)'>Tilbage</a>") end if
if Request.form("info") = "" then Response.redirect("rediger_info.asp?error=Du skal skrive noget om dig selv! <a href='java script:history.back(1)'>Tilbage</a>") end if
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger where brugernavn = '" & session("brugernavn") & "'"
rs.Open strSQL, Conn, 1, 3
rs.update
rs("brugerNavn") = Request.form("navn")
rs("brugerKode") = Request.form("kode")
rs("brugerIcq") = Request.form("icq")
rs("brugerTekst") = Request.form("info")
rs("brugerMsn") = Request.form("msn")
rs("brugerHttp") = Request.form("hjemmeside")
rs("brugerEmail") = Request.form("email")
rs.update
rs.Close
Set rs = Nothing
Response.write("Din profil blev opdateret..")
end if %>
<%
sql = "select * from bruger ORDER BY brugernavn"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 3 %>
</body>
</html>
