Det har jeg også gjort!
Så siger den:
ADODB.Recordset error \'800a0cc1\'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/ftk/beskyttet.asp, line 94
hele kode:
<% @LANGUAGE = VBSCRIPT %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/FTK/db/login_2000.mdb\") & \";UID=admin;PWD=;\"
Set rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/FTK/db/login_2000.mdb\") & \";UID=admin;PWD=;\"
SQL = \"Select * FROM users WHERE username = \'\" & session(\"password-session\") & \"\'\"
set rs = rs.Execute(SQL)
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader \"cache-control\", \"private\"
Response.AddHeader \"pragma\", \"no-cache\"
%>
<%
if request(\"Mode\") = \"logaf\" then
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
rs.Open SQL, Conn, adOpenKeyset, adLockOptimistic
rs.Update
rs(\"SidstPå\") = Now
rs.Update
session.Abandon
Response.Redirect(\"default.asp?logud=TRUE\")
end if
%>
<%
Response.Buffer = True
IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"login.asp?mode=fejllogin\")
end if
%>
<head>
<title></title>
<style>
A:link {color : red;text-decoration: none}
A:visited {color : red;text-decoration: none}
A:active {color : red;text-decoration: none}
A:hover {color : white;text-decoration: underline}
.t{font: 11px Verdana, Arial;text-decoration: none}
.nu{font: bold 10px Verdana, Arial;text-decoration: none}
.n{font: 10px/11px Verdana, Arial;text-decoration: none}
a.S{color : #000000;text-decoration: none}
A:link.S{color : cococo;text-decoration: none}
A:visited.S{color : #000000;text-decoration: none}
A:active.S{color : #000000;text-decoration: none}
</style>
</head>
<body bgcolor=\"#a0a0a0\" text=\"#000000\">
<div align=\"center\">
<center>
<table border=\"1\" width=\"554\" height=\"376\" bgcolor=\"#A0A0A0\" bordercolordark=\"#A0A0A0\" bordercolorlight=\"#A0A0A0\" bordercolor=\"#A0A0A0\">
<tr>
<td width=\"554\" height=\"20\" bgcolor=\"#333333\" bordercolor=\"#000000\"><center>
<font color=\"#FFFFFF\">-</font> <a href=\"indbakke.asp\"><font face=\"Verdana\" size=\"-2\">Inbox</font></a> <font color=\"#FFFFFF\">-</font>
<a href=\"beskyttet.asp?mode=chat\"><font face=\"Verdana\" size=\"-2\">Chat</font></a> <font color=\"#FFFFFF\">-</font>
<a href=\"beskyttet.asp?mode=ret\"><font face=\"Verdana\" size=\"-2\">Ret profil</font></a> <font color=\"#FFFFFF\">-</font>
<font size=\"-2\" face=\"verdana\"> <%
If Rs(\"BrugerStatus\") = \"Admin\" Then
Response.write(\"<a href=show.asp target=_SELF>Admin</a> <font color=#FFFFFF>-</font> \")
End If
%>
<a href=\"beskyttet.asp?mode=logaf\"><font face=\"Verdana\" size=\"-2\">Log af</font></a> <font color=\"#FFFFFF\">-</font>
</font>
</center>
</td>
</tr>
<tr>
<td width=\"554\" height=\"344\" bgcolor=\"#666666\" valign=\"top\" bordercolor=\"#000000\"> <font face=\"Verdana\" size=\"-2\">Velkommen <b><% = rs(\"Username\") %> </b><br>Du har <b><%= RS(\"points\")%></b> points.<br> Du var her sidst d. <%= rs(\"sidstpå\") %></font> <br>
<font face=\"Verdana\" size=\"-2\"><%
Set rs1 = Server.CreateObject (\"ADODB.Recordset\")
Sql2 = \"SELECT * FROM Post WHERE afsender = \'\" & rs(\"username\") & \"\' AND laest = \'NO\'\"
rs1.Open Sql2, Conn, 3, 3
If cint(rs1(\"antal\")) = 0 Then
Response.Write \"Du har ingen ulæste breve.\"
Else
Response.Write \"Du har \" & cint(rs1(\"antal\")) & \" ulæste breve\"
End If
%></td>
</tr>
</table>
</center>
</div>
<%
rs1.Close
Set rs1 = Nothing
Set sql2 = Nothing
%>
Ny bruger
Nybegynder
Opret
Preview
