Fast nu meckade jag till det rejält, HaHa, jag klarade det utan ngn proffessionell hjälp ;)
Nu funakr bara paginen på svaren, vilket är lysande, för då blir effekten att frågan hela tiden finns högst upp, vilket i sin tur är K A N O N ! ! !
Frågan#1
Hej Igen
Det strular som faan just nu, varje tråd i mitt forum skriv ut med två olika SQL'er, för att ämnet och frågan ligger i en tabell, alla svaren ligger i en annan tabell:
<%
Response.Expires = -1000
'_____________________________________________________________
id = Request.Querystring("id")
'_____________________________________________________________
Dim oConn
Dim oRec
Dim oRec2
Dim strSQL
'_____________________________________________________________
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/forum_db.mdb"))
'_____________________________________________________________
strSQL= "SELECT * FROM tbl_forum_subj WHERE ID = " & id & ";"
Set oRec = Server.CreateObject("ADODB.Recordset")
Set oRec = oConn.Execute(strSQL)
Response.Write("<table width='100%' border='0'><tr><td align='left' bgcolor='#FCFDCD'><font color='#000000' face='Verdana' size='2'><b>" & oRec("Amne") & "</b></td><td align='right' bgcolor='#FCFDCD'>Av: " & oRec("Skribent") & " den " & oRec("Datum") & " <i>" & oRec("Ipadress") & "</i></font></td></tr><tr><td width='100%' colspan='2'><font color='000000' face='Verdana' size='2'><br>" & oRec("Inlagg") & "</td></tr><tr><td width='100%' colspan='2' bgcolor='#FCFDCD'></font></td></tr><tr><td width='100%' colspan='2'><hr noshade='noshade' style='height: 1px; color: #ccc' />")
Set oRec = NOTHING
Set strSQL = NOTHING
'_____________________________________________________________
nextPage = TRIM( Request.Querystring( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1
strSQL2= "SELECT * FROM tbl_forum_sv WHERE Svar_ID = " & id & ";"
Set oRec2 = Server.CreateObject("ADODB.Recordset")
oRec2.Open strSQL2, oConn, 1, 3
oRec2.PageSize = 3 '<-- Här bestämmer du hur många inlägg det ska finnas på sidan
oRec2.AbsolutePage = nextPage
Do until oRec2.EOF OR rowCount = oRec2.PageSize
rowCount = rowCount + 1
Response.Write("<tr><td align='left' bgcolor='#FCFDCD'></td><td align='right' bgcolor='#FCFDCD'>Av: " & oRec2("Skribent") & " den " & oRec2("Datum") & " <i>" & oRec2("Ipadress") & "</i></font></td></tr><tr><td width='100%' colspan='2'><font color='000000' face='Verdana' size='2'><br>" & oRec2("Inlagg") & "</td></tr><tr><td width='100%' colspan='2' bgcolor='#FCFDCD'></font></td></tr><tr><td width='100%' colspan='2' height='20'><hr noshade='noshade' style='height: 1px; color: #ccc' /></td></tr>")
oRec2.MoveNext
Loop
Response.Write("<tr><td width='100%' colspan='2' bgcolor='#FCFDCD'>jtyjtyjtjyjtjtj</td></tr></table>")
IF oRec2.PageCount > 1 THEN
FOR a = 1 to oRec2.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write " <a href='ladda_trad.asp?nextPage="& a &"'>[ "& a &" ]</a> "
ELSE
Response.Write " <b>"& a & "</b> "
END IF
NEXT
END IF
Set oConn = NOTHING
Set oRec2 = NOTHING
Set strSQL2 = NOTHING
%>
första sidan skrivs ut klockrent, men blir det fler sidor olch man trycker på¨nästföljande sida, så får jag felmesset:
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel (operator saknas) i frågeuttrycket 'ID ='.
/ec/script/forum/fritt/ladda_trad.asp, line 37
Det skumma är att det den klagar på är den FÖRSTa SQLäen, den som plockar ut den första frågan, från tabellen den inte ska köra paging på.
Hur ska jag bära mig åt för att lösa detta?
Känner mig hyffsat hjälplös utan er, med tanke på att jag inte är ngn pro på ASP.
