webForumDet fria alternativet
Logga in / Bli medlem

HJÄLP Paging!!

ASPur ASP

61 svar · 1 521 visningar · startad av Jeppeweb · sida 2 av 4

Frågan, av Jeppeweb

Hur skulle jag kunna inkludera ett paging system på denna sida? Jag vill att det endast det skall synas 10 poster på varje sida... TACKSAM FÖR HJÄLP <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title></title> <LINK REL="stylesheet" href="style.css

Läs frågan i sin helhet →
voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#21
response.write "<a href='" & server.HTMLEncode(request.Querystring("epost")) ...

du kan inte använda <%= i en response..

<!--#include file="functions.asp"-->
<!--#include file="databaskopplingar.asp"-->
<!--#include file="includes/db.asp" -->

<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'//		© 2003
'//		Pagingsystem med GetRows()
'//		Skapat 23 Maj 2003 av Palle Zingmark
'//		[url]www.palleman.nu[/url] | [email]info@palleman.nu[/email]
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim

	Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
	Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering

set connect = server.createobject("ADODB.connection")
connect.Open "DRIVER={MySQL ODBC 3.51 Driver};S

dim SQL
sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&safeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
	Set RecSet = Connect.Execute(sql)
		If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
	RecSet.Close : Set RecSet = Nothing
	
Connect.Close
Set Connect = Nothing

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering

If IsArray(arrRecSet) 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(arrRecSet, 2)
	intPages = ((intTotalPosts)\intPostsPerPage)+1

	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
		intLastPost = UBound(arrRecSet, 2) 
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If

	'// Skriv ut posterna
	For i = intFirstPost To intLastPost
TradID = arrRecSet(0,i)
strRubrik = arrRecSet(1,i)
strepost = arrRecSet(2,i)
strusername = arrRecSet(3,i)
strdatum = arrRecSet(4,i)

%>

<table class="tbl" width="586">
<tr><td><table class="tbl2" width="580" cellspacing="0" cellpadding="0">

<tr><td colspan="3"><a href="main.asp?page=87">Kategori</a> » <%=Server.Htmlencode(Request.Querystring("kat"))%></td></tr>
<tr>
	<td width='30' height='21'>
	&nbsp;</td><td width="449">&nbsp;</td><td align='left' width="100">
	<b><a href="main.asp?page=92"><font color="#000000">Skapa ny tråd</font></a></b></td>
</tr>
<tr>
	<td width='30' height='21'>
	&nbsp;</td><td width="449"><b>Trådar:</b></td><td align='left' width="100">
	<b>Antal svar:</b></td>
</tr>
<!-- #include file="includes/color.asp" -->
<tr class='<%=color%>'><td width='30' height='40'>
	<p align="center"><img src='bilder/forum.png' alt=""></td>
 <td width="449"><b><a href='main.asp?page=93&tradid=<%=Server.HtmlEncode(TradID)%>'><%=Server.HtmlEncode(strRubrik)%></a></b><%

	// Skriver ut trådarna, samt räknar hur många svar det är i varje tråd.
	Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(TradID)&"'")
%> skapades av <a href="<%=Server.HtmlEncode(strepost)%>"><%=Server.HtmlEncode(strusername)%></a><br>&nbsp;<%=strDatum%></td>
	<td align='left' width="100"><br><%=Count(0)%> st</td></tr><%
	Count.Close : Set Count = Nothing
%></table></table>

<%

	Next

	'// Navigering, välj själv knappar eller text
	Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
	'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

'// Fanns inga poster
Else
	Response.Write "Här var det tomt.. fyll på i databasen bums. =)"

End If

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>

Nöjd nu?

Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#22

grymt massa tack .. men :$

Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/cat_open.asp, line 93

Next
^

tar bort Next och får..

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/cat_open.asp, line 98

Else
^

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#23
<!--#include file="functions.asp"-->
<!--#include file="databaskopplingar.asp"-->
<!--#include file="includes/db.asp" -->

<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'//		© 2003
'//		Pagingsystem med GetRows()
'//		Skapat 23 Maj 2003 av Palle Zingmark
'//		[url]www.palleman.nu[/url] | [email]info@palleman.nu[/email]
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim

	Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
	Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering

set connect = server.createobject("ADODB.connection")
connect.Open "DRIVER={MySQL ODBC 3.51 Driver};S

dim SQL
sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&safeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
	Set RecSet = Connect.Execute(sql)
		If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
	RecSet.Close : Set RecSet = Nothing
	
Connect.Close
Set Connect = Nothing

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering

If IsArray(arrRecSet) 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(arrRecSet, 2)
	intPages = ((intTotalPosts)\intPostsPerPage)+1

	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
		intLastPost = UBound(arrRecSet, 2) 
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If

	'// Skriv ut posterna
	For i = intFirstPost To intLastPost
          TradID = arrRecSet(0,i)
          strRubrik = arrRecSet(1,i)
          strepost = arrRecSet(2,i)
          strusername = arrRecSet(3,i)
          strdatum = arrRecSet(4,i)
          Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(TradID)&"'")
          antal = Count(0)
          count.close : set Count = nothing
%>
<table class="tbl" width="586">
<tr><td><table class="tbl2" width="580" cellspacing="0" cellpadding="0">

<tr><td colspan="3"><a href="main.asp?page=87">Kategori</a> » <%=Server.Htmlencode(Request.Querystring("kat"))%></td></tr>
<tr>
	<td width='30' height='21'>
	&nbsp;</td><td width="449">&nbsp;</td><td align='left' width="100">
	<b><a href="main.asp?page=92"><font color="#000000">Skapa ny tråd</font></a></b></td>
</tr>
<tr>
	<td width='30' height='21'>
	&nbsp;</td><td width="449"><b>Trådar:</b></td><td align='left' width="100">
	<b>Antal svar:</b></td>
</tr>
<!-- #include file="includes/color.asp" -->
<tr class='<%=color%>'><td width='30' height='40'>
	<p align="center"><img src='bilder/forum.png' alt=""></td>
 <td width="449"><b><a href='main.asp?page=93&tradid=<%=Server.HtmlEncode(TradID)%>'><%=Server.HtmlEncode(strRubrik)%></a></b>skapades av <a href="<%=Server.HtmlEncode(strepost)%>"><%=Server.HtmlEncode(strusername)%></a><br>&nbsp;<%=strDatum%></td>
	<td align='left' width="100"><br><%=antal%> st</td></tr></table></table>
<%

	Next

	'// Navigering, välj själv knappar eller text
	Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
	'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

'// Fanns inga poster
Else
	Response.Write "Här var det tomt.. fyll på i databasen bums. =)"
End If
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#24

Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/cat_open.asp, line 86

Next
^

:$

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#25
<!--#include file="functions.asp"-->
<!--#include file="databaskopplingar.asp"-->
<!--#include file="includes/db.asp" -->
<!-- #include file="includes/color.asp" -->
<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'//		© 2003
'//		Pagingsystem med GetRows()
'//		Skapat 23 Maj 2003 av Palle Zingmark
'//		[url]www.palleman.nu[/url] | [email]info@palleman.nu[/email]
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim

	Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
	Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering

set connect = server.createobject("ADODB.connection")
connect.Open "DRIVER={MySQL ODBC 3.51 Driver};S

dim SQL
sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&safeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
	Set RecSet = Connect.Execute(sql)
		If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
	RecSet.Close : Set RecSet = Nothing
	
Connect.Close
Set Connect = Nothing

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering

If IsArray(arrRecSet) 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(arrRecSet, 2)
	intPages = ((intTotalPosts)\intPostsPerPage)+1

	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
		intLastPost = UBound(arrRecSet, 2) 
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If

	'// Skriv ut posterna
	For i = intFirstPost To intLastPost
          TradID = arrRecSet(0,i)
          strRubrik = arrRecSet(1,i)
          strepost = arrRecSet(2,i)
          strusername = arrRecSet(3,i)
          strdatum = arrRecSet(4,i)
          Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(TradID)&"'")
          antal = Count(0)
          count.close : set Count = nothing
          response.write "<table class='tbl' width='586'>"
          response.write "<tr><td><table class='tbl2' width='580' cellspacing='0' cellpadding='0'>"
          response.write "<tr><td colspan='3'><a href='main.asp?page=87'>Kategori</a> » " & Server.Htmlencode(Request.Querystring("kat")) & "</td></tr>"
          response.write "<tr>"
          response.write "	<td width='30' height='21'>"
          response.write "	&nbsp;</td><td width='449'>&nbsp;</td><td align='left' width='100'>"
          response.write "	<b><a href='main.asp?page=92'><font color='#000000'>Skapa ny tråd</font></a></b></td>"
          response.write "</tr>"
          response.write "<tr>"
          response.write "	<td width='30' height='21'>"
          response.write "	&nbsp;</td><td width='449'><b>Trådar:</b></td><td align='left' width='100'>"
          response.write "	<b>Antal svar:</b></td>"
          response.write "</tr>"
          response.write "<tr class='" & color & "'><td width='30' height='40'>"
          response.write "	<p align='center'><img src='bilder/forum.png' alt=''></td>"
          response.write " <td width='449'><b><a href='main.asp?page=93&tradid=" & Server.HtmlEncode(TradID) & "'>" & Server.HtmlEncode(strRubrik) & "</a></b>skapades av <a href='" & Server.HtmlEncode(strepost) & "'>" & Server.HtmlEncode(strusername) & "</a><br>&nbsp;" & strDatum & "</td>"
          response.write "	<td align='left' width='100'><br>" & antal & " st</td></tr></table></table>"
	Next

	'// Navigering, välj själv knappar eller text
	Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
	'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

'// Fanns inga poster
Else
	Response.Write "Här var det tomt.. fyll på i databasen bums. =)"
End If
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#26

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/cat_open.asp, line 91

tack för hjälpen

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#27

cat_open.asp är det ens den filen jag håller på att skriva?

Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#28

Yesbox

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#29

det kan inte stämma.. då rad 91 för mig är en ' kommentar...

Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#30

tog bort 'kommentaren och nu hamnar vi helt plötsligt på rad 89 vilket är "End if" .. så felet måste väll ligga runt omkring dessa rader..?

	Next

	'// Navigering, välj själv knappar eller text
	Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
	'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

'// Fanns inga poster
Else
	Response.Write "Här var det tomt.. fyll på i databasen bums. =)"
End If
%>
voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#31

du...

connect.Open "DRIVER={MySQL ODBC 3.51 Driver};5

ska väl ändå vara

connect.Open "DRIVER={MySQL ODBC 3.51 Driver};"

Det är inte så lätt att hjälpa dig om du ta bort koder / kommentarer ...

Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#32

Hade SERVER, PASS o sånt där innan.. tog såklart bort de innan jag postade här.. men de e var saksamma.. samma effekt med connect.Open "DRIVER={MySQL ODBC 3.51 Driver};"

iallafall.. ligger fortf på samma felmeddelande :S

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#33

och felmeddelandet lyder?
jag ger snart upp här... har spenderat för mycket tid idag på detta..

Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#34

cat_open.asp

<!--#include file="functions.asp"-->
<!--#include file="databaskopplingar.asp"-->
<!--#include file="includes/db.asp" -->
<!--#include file="includes/color.asp" -->
<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'//		© 2003
'//		Pagingsystem med GetRows()
'//		Skapat 23 Maj 2003 av Palle Zingmark
'//		www.palleman.nu | info@palleman.nu
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim

	Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
	Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering

set connect = server.createobject("ADODB.connection")
connect.Open "DRIVER={MySQL ODBC 3.51 Driver};"

dim SQL
sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&safeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
	Set RecSet = Connect.Execute(sql)
		If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
	RecSet.Close : Set RecSet = Nothing
	
Connect.Close
Set Connect = Nothing

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering

If IsArray(arrRecSet) 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(arrRecSet, 2)
	intPages = ((intTotalPosts)\intPostsPerPage)+1

	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
		intLastPost = UBound(arrRecSet, 2) 
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If

	'// Skriv ut posterna
	For i = intFirstPost To intLastPost
          TradID = arrRecSet(0,i)
          strRubrik = arrRecSet(1,i)
          strepost = arrRecSet(2,i)
          strusername = arrRecSet(3,i)
          strdatum = arrRecSet(4,i)
          Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(TradID)&"'")
          antal = Count(0)
          count.close : set Count = nothing
          response.write "<table class='tbl' width='586'>"
          response.write "<tr><td><table class='tbl2' width='580' cellspacing='0' cellpadding='0'>"
          response.write "<tr><td colspan='3'><a href='main.asp?page=87'>Kategori</a> » " & Server.Htmlencode(Request.Querystring("kat")) & "</td></tr>"
          response.write "<tr>"
          response.write "	<td width='30' height='21'>"
          response.write "	&nbsp;</td><td width='449'>&nbsp;</td><td align='left' width='100'>"
          response.write "	<b><a href='main.asp?page=92'><font color='#000000'>Skapa ny tråd</font></a></b></td>"
          response.write "</tr>"
          response.write "<tr>"
          response.write "	<td width='30' height='21'>"
          response.write "	&nbsp;</td><td width='449'><b>Trådar:</b></td><td align='left' width='100'>"
          response.write "	<b>Antal svar:</b></td>"
          response.write "</tr>"
          response.write "<tr class='" & color & "'><td width='30' height='40'>"
          response.write "	<p align='center'><img src='bilder/forum.png' alt=''></td>"
          response.write " <td width='449'><b><a href='main.asp?page=93&tradid=" & Server.HtmlEncode(TradID) & "'>" & Server.HtmlEncode(strRubrik) & "</a></b>skapades av <a href='" & Server.HtmlEncode(strepost) & "'>" & Server.HtmlEncode(strusername) & "</a><br>&nbsp;" & strDatum & "</td>"
          response.write "	<td align='left' width='100'><br>" & antal & " st</td></tr></table></table>"
	Next

	'// Navigering, välj själv knappar eller text
	Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
	'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

'// Fanns inga poster
Else
	Response.Write "Här var det tomt.. fyll på i databasen bums. =)"
End If
%>

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/cat_open.asp, line 90

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#35

får man fråga hur <!--#include file="includes/color.asp" --> ser ut?

Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#36
<%

// Olika färger på olika rader, fägerna ändrar du i CSS-filen.
Color = "rad1"
Do until RS.Eof
If color = "rad1" then
	Color = "rad2"
Else
	Color = "rad1"
End if

%>
voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#37

där är felet....

<%
function color
if i = 0 then
Color = "rad1"
i = 1
else
Color = "rad2"
i = 0
end if
%>

Då du inte har något "RS" i huvudtaget längre..

för övrigt så måste du läsa hur man kodar... det du gör just nu (som jag har sett) gör du det MYCKET svårare än vad den behöver vara..

har en känsla att du har mycket skräp i dina koder..
och att du får kolla igneom <!--#include file="databaskopplingar.asp"-->
<!--#include file="includes/db.asp" --> också

Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#38

Microsoft VBScript compilation error '800a03f7'

Expected 'Function'

/cat_open.asp, line 91

End
---^

Den klagar på att det fattas en "end if" i slutet.. slänger in end if och får detta felmeddelande..

tacksam för hjjälp

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#39

end function... ibland måste man tänka lite själv Jeppeweb..

<%
function color
if i = 0 then
Color = "rad1"
i = 1
else
Color = "rad2"
i = 0
end if
end function
%>
Jeppewebs avatarJeppewebMedlem sedan sep. 2006462 inlägg
#40

:) ja..

tack så hemskt mkt för all din tid.. tack tack!

261 ms totalt · 3 externa anrop · v20260731065814-full.4bcf49fe
127 ms — hämta forumlista (db)
120 ms — hämta statistik (db)
138 ms — hämta tråd, inlägg och bilagor (db)