Jag håller på med att bygga ett forum.
Jag har en lista med diverse kategorier som man kan välja.
Felet uppstår bara när man vill lista en kategori där det redan finns trådar inlagda. Är kategorin tom så funakr det hur bra som helst.
Felet jag får är "Data provider or other service returned an E_FAIL status" på raden som är fet-markerad i koden.
jag använder mig av MySql som databas, men det skall inte spela någon större roll tycker jag.
Koden jag använder är följande:
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<%
' Lista de 25 senaste posterna i detta forum
strSQL = "SELECT pId,member,pHeader,pRead,pDate,pLatestAns,pAns FROM tblForumPosts WHERE pRefId = 0 AND catId = " & intForum & " ORDER BY pLatestAns DESC"
Set objPosts = Server.CreateObject("ADODB.Recordset")
objPosts.CursorLocation = 3
objPosts.Open strSQL, objCon, 3, 3
If NOT objPosts.Eof Then
objPosts.PageSize = 25
objPosts.AbsolutePage = intPage
intRowCount = 0
End If
Do Until objPosts.EOF OR intRowCount => objPosts.PageSize
intRowCount = intRowCount + 1
%>
<tr onMouseOver="this.style.background='#A0C8CB'" onMouseOut="this.style.background='#FFFFFF'" bgcolor="#FFFFFF">
<td width="25">
<%
If cInt(objPosts("pAns")) > 10 Then
Response.Write("<img src='grfx/forum_hett.gif'>")
ElseIf DateDiff("d",objPosts("pLatestAns"),Now) > 1 Then
Response.Write("<img src='grfx/forum_inaktuellt.gif'>")
Else
Response.Write("<img src='grfx/forum_aktuellt.gif'>")
End If
%>
</td>
<td><a href="default.asp?page=forum&menu=4&fp=showPost&pId=<%=objPosts("pId")%>"><%=objPosts("pHeader")%></a></td>
<td width="140"><%=objPosts("pDate")%></td>
<td width="30"><%=objPosts("pRead")%></td>
<td width="30">
<%
strSQL = "SELECT count(*) FROM tblForumPosts WHERE pRefId = " & objPosts("pId")
Set objRs = objCon.Execute(strSQL)
Response.Write(objRs(0))
Set objRs = Nothing
%>
</td>
</tr>
<%
objPosts.MoveNext
Response.Flush
Loop
%>
</table>
<%
[b]If objPosts.PageCount > 1 Then[/B]
Response.Write "NAVIGERING: "
For a = 1 to objPosts.PageCount
If a <> cINT(intPage) Then
Response.Write "<a href='default.asp?page=forum&menu=4&fp=showForum&fId=" & intForum & "&sida=" & a & "'>" & a & " </a>"
Else
Response.Write "[" & a & "] "
End If
Next
End if
objPosts.Close
Set objPosts = Nothing
closeCon(objCon)
%>