1 svar · 154 visningar · startad av jwradhe
<%
Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/forum.mdb")
%>
<%
Set RecSet = Server.CreateObject("ADODB.recordset")
SQL = "SELECT * from forum "
RecSet.Open SQL, Connect, 3, 3
RecSet.AddNew
RecSet("rubrik") = Request.Form("rubrik")
RecSet("inlagg") = Request.Form("inlagg")
RecSet("namn") = Request.Form("user")
RecSet("kat") = Request.Form("kat")
RecSet("huv") = Request.Form("huv")
RecSet("datum") = now
RecSet("senaste") = now
RecSet.Update
set RecSet = nothing
%>
<%
Set RecSet = Server.CreateObject("ADODB.recordset")
SQL = "SELECT * from kat WHERE forum = '" & Request.Form("kat")& "'"
RecSet.Open SQL, Connect, 3, 3
RecSet("tradar") = RecSet("tradar")+1
RecSet("by") = Request.Form("user")
RecSet("senaste") = now
RecSet.Update
set RecSet = nothing
%>
<%
Set RecSet = Server.CreateObject("ADODB.recordset")
SQL = "SELECT * from users WHERE userName = '" & Session("user") & "'"
RecSet.Open SQL, Connect, 3, 3
RecSet("userPoints") = RecSet("userPoints") + 2
RecSet("userInlagg") = RecSet("userInlagg") + 1
RecSet.Update
RecSet.Close
%>
<%
Connect.Close
Set Connect = nothing
Response.Redirect "las_kat.asp?kat=" & Request.Form("kat")
%>
får felmeddelande :
error '80020009'
Exception occurred.
/jwradhe/add_trad.asp, line 41
rad 41 är
RecSet("userPoints") = RecSet("userPoints") + 2
va har jag gjort fel?
Förmodligen är det ingen post som uppfyller villkoret
RecSet.Open SQL, Connect, 3, 3
if not recset.eof then
RecSet("userPoints") = RecSet("userPoints") + 2
RecSet("userInlagg") = RecSet("userInlagg") + 1
RecSet.Update
else
response.write "Ogiltigt namn " & session("user")
end if
RecSet.Close
Innehåller session("user") rätt värde?