<%
Response.Expires = -1000
'_____________________________________________________________
id = Request.Querystring("id")
nextPage = TRIM( Request.Querystring( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1
'_____________________________________________________________
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("")
Response.Write("| " & oRec("Amne") & " | Av: " & oRec("Skribent") & " den " & oRec("Datum") & " " & oRec("Ipadress") & " |
" & oRec("Inlagg") & " | |
| ")
Set oRec = NOTHING
Set strSQL = NOTHING
'_____________________________________________________________
strSQL2= "SELECT * FROM tbl_forum_sv WHERE Svar_ID = " & id & ";"
Set oRec2 = Server.CreateObject("ADODB.Recordset")
oRec2.Open strSQL2, oConn, 1, 3
If NOT oRec2.Eof Then
oRec2.PageSize = 10 '<-- 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(" | Av: " & oRec2("Skribent") & " den " & oRec2("Datum") & " " & oRec2("Ipadress") & " |
" & oRec2("Inlagg") & " | |
| ")
oRec2.MoveNext
Loop
Response.Write("| ")
IF oRec2.PageCount > 1 THEN
FOR a = 1 to oRec2.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write " [ "& a &" ] "
ELSE
Response.Write " "& a & " "
END IF
NEXT
END IF
Else
Response.Write("")
Set oConn = NOTHING
Set oRec2 = NOTHING
Set strSQL2 = NOTHING
%>
|
```
Det är det här jag har trubbel med, för jag vet inte hur jag ska bära mig åt för få fram id't för just den tråden som skrivits ut.
Permalänk: https://www.webforum.nu/p/78784
## #2 — m_soderlund, 2003-06-03T12:58Z
Det är ju bara att skriva:
```
svara.asp?id=" & id
```
Variabeln *id* har ju redan id-numret för tråden.. ;)
Permalänk: https://www.webforum.nu/p/1073024
## #3 — MickeA.com, 2003-06-03T15:07Z
Japp, visst, jag vimsade lite bara ; ))
Permalänk: https://www.webforum.nu/p/1073129
---
Tråden på webben: https://www.webforum.nu/amne/asp/78784-skicka-med-id-för-trådar
|