okej, forsoker fa ordning pa en sak har nu... vill blanda in tabellen t_members i min sql sats, men for att jag anvander getrows() och ar ny pa saken sa vet jag inte hur allt hanger ihop till 100%, hehe.. iaf, den sager nu i pagingen att det ar 3 poster nar det ar en, tror det kan vara for att det ar 3 anvandare i db'n? Men det ar alltsa bara en (1) trad i db'n... kolla hur jag forsoker gora i sql satsen ;) och forklara garna hur jag kan anvanda det sen i min kod, tex vill kunna skriva sida.asp?id="&anvandarID&"........
[red]
<%
Dim forum, strSql, rs, arrrs, intPostsPerPage, intPage
Dim ntFirstPost, intTotalPosts, intPages, intLastPost
Dim i, threadID, threadName, threadUser, threadAns, threadLastReply
Dim strNext, intFirstPost, strModerator, objMod, strOutMod, thread
Dim strLocation, objLoc, strLinkForum, userID
Call DBConn()
Call Location()
Call Moderator()
strSql = "Select t_threads.threadID, t_threads.threadUser, t_threads.threadLastReply, t_threads.threadAns, t_threads.threadName, t_threads.ThreadAvailable, t_threads.threadForumID, t_members.userID"&_
" From t_threads, t_members where t_threads.threadForumID = "&forum
set rs = objConn.execute(strSql)
If NOT rs.EOF Then arrrs = rs.GetRows()
rs.Close : Set rs = Nothing
Call DBClose()
If IsArray(arrrs) Then
'// Poster per sida
intPostsPerPage = 10
'// Navigeringshantering
If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
intFirstPost = (intPage - 1) * intPostsPerPage
intTotalPosts = UBound(arrrs, 2)
intPages = ((intTotalPosts)\intPostsPerPage)+1
If intFirstPost + (intPostsPerPage - 1) >= UBound(arrrs,2) Then
intLastPost = UBound(arrrs, 2)
Else
intLastPost = intFirstPost + (intPostsPerPage - 1)
strNext = True
End If
'// Skriv ut posterna
For i = intFirstPost To intLastPost
threadID = arrrs(0,i)
threadUser = arrrs(1,i)
threadLastReply = arrrs(2,i)
threadAns = arrrs(3,i)
threadName = arrrs(4,i)
response.write "<br><br><table width=""100%"" bgcolor=""#EFEFEF""><tr>"&_
"<td width=""2%""></td>"&_
"<td width=""30%"">Tråd</td>"&_
"<td width=""5%"">Startad Av</td>"&_
"<td width=""5%"">Svar</td>"&_
"<td width=""15%"">Senaste</td>"&_
"</tr></table>"
response.write "<table width=""100%"" bgcolor=""#FFFFFF"">"&_
"<tr><td width=""2%""></td>"&_
"<td width=""30%""><a href=""topic.asp?id="&threadID&""">"&threadName&"</a></td>"&_
"<td width=""5%"">"&threadUser&"</td>"&_
"<td width=""5%"">"&threadAns&"</td>"&_
"<td width=""15%"">"&threadLastReply&"</td></tr></table><br><br>"
Next
Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
Else
Response.write "Inga inlägg i detta forum!"
End IF
%>
<table>
<tr>
<td><%= "Visar posterna <strong>"& intFirstPost+1 &"-"& intLastPost+1 &"</strong> av totalt <strong>"& intTotalPosts+1 &"</strong> poster" %></td>
</tr>
</table>
<%
Call HTMLEnd()
%>
[/red]
Tackar, glider till Minneapolis nu sa jag vantar pa svar tills jag ar tillbaka :D
