well! back again!
Kom inte på nån bra topic som passade så jag körde en mix på vad det kan vara! jag får felmedelande! men det kan inte stämma! det första som är Fetmarkerat fungerar skitbra!
men det andra som är Fetmarkerat längre ner vägrar fungera utan jag får felmess, men koden är den amma fast den liger i 2 olika Querystrings! :( Posten finns i databasen! förstår inte vaffö den vill jävlas :(
Jag försöker göra ett eget forum! fråga mig inte vad jag tänker med för det har jag inte en aning om :P jag vet knappt vad jag gör :)
ADODB.Field (0x800A0BCD)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/community/forum.asp, line 79
<%
if request.querystring("forum") = "yes" then
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/forum.mdb")&";"
strSQL = "SELECT * FROM tblForum ORDER BY ForumName"
set RSforum = conn.execute(strSQL)
IF RSforum.bof and RSforum.eof then
%>
<tr>
<td colspan="2" bgcolor="#E0DFE3"><strong>Det finns inga forum ännu!</strong></td>
</tr>
<%else
Do until RSforum.eof
[b]ForumLastThread = RSforum("ForumLastThread")[/b]
strSQL = "SELECT * FROM tblThread WHERE ThreadID = "&ForumLastThread&""
Set RSthread = conn.execute(strSQL)
%>
<tr>
<td width="400" bgcolor="#E0DFE3"><a href="forum.asp?category=yes&ForumID=<%=RSforum("ForumID")%>"><b><%=RSforum("ForumName")%></b></a></td>
<td width="135" bgcolor="#E0DFE3"><i><%=RSthread("ThreadLastUpdate")%></i></td>
</tr>
<tr>
<td width="400" bgcolor="#E0DFE3"><%=RSforum("ForumDescription")%></td>
<td width="135" bgcolor="#E0DFE3"><i><%=RSthread("ThreadName")%></i></td>
</tr>
<%
RSforum.movenext
loop
end if
end if
If request.querystring("category") = "yes" then
ForumID = request.querystring("ForumID")
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/forum.mdb")&";"
strSQL = "SELECT * FROM tblCategory WHERE ForumID = '"&ForumID&"' ORDER BY CategoryName"
set RScategory = conn.execute(strSQL)
strSQL2 = "SELECT * FROM tblForum WHERE ForumID = "&ForumID&" ORDER BY ForumName"
set RSforum = conn.execute(strSQL2)
IF RScategory.bof and RScategory.eof then
%>
<tr>
<td colspan="2" bgcolor="#E0DFE3"><strong>Det finns inga Kategorier i detta forum ännu!</strong></td>
</tr>
<%else
Do until RScategory.eof
[b]ForumLastThread = RSforum("ForumLastThread")[/b]
strSQL = "SELECT * FROM tblThread WHERE ThreadID = "&ForumLastThread&""
Set RSthread = conn.execute(strSQL)
%>
<tr>
<td width="400" bgcolor="#E0DFE3"><a href="forum.asp?category=yes&ForumID=<%=RScategory("CategoryID")%>"><b><%=RScategory("categoryName")%></b></a></td>
<td width="135" bgcolor="#E0DFE3"><i><%=RSthread("ThreadLastUpdate")%></i></td>
</tr>
<tr>
<td width="400" bgcolor="#E0DFE3"><%=RScategory("CategoryDescription")%></td>
<td width="135" bgcolor="#E0DFE3"><i><%=RSthread("ThreadName")%></i></td>
</tr>
<%
RSforum.movenext
loop
end if
end if%>
</table>