va ska man leta fel??

Kolla om du redan har stänkt något objekt som du försöker stänga

hmm..

<%
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("rubrik") = Request.Form("huv")
RecSet("datum") = now
RecSet.Update
RecSet.Close
%>

<%
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")
%>

<%
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("rubrik") = Request.Form("huv")
RecSet("datum") = now
RecSet.Update
[red]set recset = nothing[/red]
%>

<%
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")
%>

Du kan inte använda metoden .close om du vill återanvända objektet.

Field 'forum.kat' cannot be a zero-length string. +???

va för fel?

Du har i databasen satt fältet så det inte får innehålla en tom sträng, svårare än så är det inte.

mvh,

jag behövde inte ändra nåt i databsen

hade råkat skriva <% Request.Querystring("kat")%>
istllet för <%=Request.Querystring("kat")%>