Frågan#1
Hej, jag har fått ett mycket märkligt fel i min kod. Felet kom automatiskt när sidan bara rullade (det är en del av ett community).
FEL:
ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/gastbok_lasa.asp, line 0
Okej, vart hittar jag rad 0?
KOD:
<!-- #include file="presentation_overlay.asp" -->
<div class="rubrik">Skicka gästboksinlägg till <%=recset("username")%></div><br>
<table width="580" cellpadding="0" cellspacing="0">
<tr>
<td width="580" valign="top">
<form name="form1" method="post" action="gastbok_skriva.asp?ID=<%=Request.QueryString("ID")%>">
<table width="580" cellpadding="0" cellspacing="0">
<tr>
<td width="580" valign="top">
<textarea name="text" style="width: 580px;" rows="3" class="grey"></textarea>
</td>
</tr>
<tr>
<td width="580" valign="middle" align="right" height="25">
<input type="submit" value="rocka iväg gästboksinlägget" class="greyknapp">
</td>
</tr>
</table>
</form>
<%
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/fanclub.mdb")
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/fanclub.mdb")
Const perSida = 10
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If
MinCon.execute("update gb set readed=1 where tillid = "&Session("id") )
SQL = "Select * From gb Where tillID = "&Request.QueryString("ID") &" Order By ID DESC"
With rs
.CursorLocation = 3
.CacheSize = perSida
End With
rs.Open SQL, MinCon
if rs.eof then
response.write ""
else
With rs
.PageSize = perSida
.AbsolutePage = sida
End With
Sidor = rs.PageCount
Cound = 0
Do While Not rs.EOF And Count < rs.PageSize
%>
<%Addera2 = "Select * From members where ID ="& rs("fromid")
RecSet2.Open Addera2, Connect2, 1, 2
%>
<table width="580" cellpadding="0" cellspacing="0">
<tr>
<td width="65" align="center" valign="top">
<img src="fanclub-bilder/<%=RecSet2("bild")%>" width="45" height="55" border="1">
</td>
<td width="515">
<table width="511" cellpadding="2" cellspacing="0">
<tr>
<td width="421" bgcolor="#dbdbdb"><a href="default.asp?visaSida=presentation&ID=<%=rs("fromid")%>"><b><%=rs("namn")%></b></a>,
<%= replace(formatdatetime(rs("datum"),vblongdate),"den ","") & " " & formatdatetime(rs("datum"),vbshorttime) %>
</td>
<td width="90" height="7" bgcolor="#dbdbdb" align="right">
<table cellpadding="0" cellspacing="0" border="0">
<tr>
<td><% if rs("readed") = 0 then %><b>oläst</b><% end if %></td>
<td><% IF Session("id") & "" = Request.Querystring("ID") &"" Then %><a href="javascript:popup('gastbok_historik.asp?ID=<%=rs("fromid")%>&namn=<%=rs("namn")%>','325','485');">svara</a><% END IF%></td>
<td width="7"></td>
<td><% IF Session("id") & "" = Request.Querystring("ID") & "" then %><a href="default.asp?visaSida=gastbok_tabort&delID=<%=rs("id")%>">ta bort</a><% End IF %> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="511" colspan="2" class="gb"><%=Server.HTMLEncode(rs("text"))%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table height="16" cellpadding="0" cellspacing="0"><tr><td></td></tr></table>
<%
RecSet2.Close
Count = Count + 1
rs.MoveNext
Loop
Connect2.Close
Set RecSet2 = nothing
Set Connect2 = nothing
end if
rs.Close
MinCon.Close
%>
<%If Sidor = 1 Then%>
<%Else%>
<%End If%>
<div align="center">
<%If Sidor <> 1 Then%>
<b>Fler inlägg:</b> <%For Sid = 1 To Sidor%>
<%If (Int(Sid)) = (Int(sida)) Then%>(<%=Sid%>)<%Else%> <a href="default.asp?visaSida=gastbok_lasa&ID=<%=Request.Querystring("id")%>&sida=<%=Sid%>"><%=Sid%></a> <%End If%>
<%Next%>
<%End If%></div>
</td>
</tr>
</table>
Jag förstår verkligen INGENTING. Feler har som sagt kommit automatiskt när sidan har rullat (det är en del av ett community). Det hela är mycket märkligt. Tacksam för all hjälp! Cheers!
