webForumDet fria alternativet
Logga in / Bli medlem

HJÄLP Paging!!

ASPur ASP

61 svar · 1 521 visningar · startad av Jeppeweb

JeppewebMedlem sedan sep. 2006462 inlägg
#1

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" type="text/css">
</head>

        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="588">
          <tr>
            <td width="588" style="border-bottom: 1px solid #000000">&nbsp;</td>
          </tr>
</table>
	

	
        <table border="0" width="592" cellspacing="0" cellpadding="0" height="23" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#5C6671">
		<tr>
		<td style="border-bottom:1px solid #000000; border-left:1px solid #000000; vertical-align:middle" height="25" width="173" >
        

<table style="DISPLAY: inline-block; WIDTH: 581; BACKGROUND-COLOR: #5C6671; border-collapse:collapse" cellSpacing="0" cellPadding="0" border="0" bordercolor="#111111" height="1">
  <tr>
    <td width="655" style="; border-left-width:1; border-right-width:1; border-bottom-width:1" height="1">
    <div style="font-size: 10px; font-family: Tahoma; height: 5; width:507"><b>
		<font color="#FFFFFF">&nbsp; FORUM</font></b></div></td>
    <td width="15" style="; border-left-width:1; border-right-width:1; border-bottom-width:1" height="1">
</td>
  </tr>
</table>
          </td>
		<td bgcolor="#112434" style="vertical-align:top" height="25" width="3" align="right" >
        

<img border="0" src="right_up2.gif" width="4" height="4"></td>
        </tr>
        <tr>
		<td style="border-bottom:1px solid #000000; border-left:1px solid #000000; vertical-align:middle" height="23" width="173" >
        

<table id="x0" style="DISPLAY: inline-block; WIDTH: 407; BACKGROUND-COLOR: #5C6671; border-collapse:collapse" cellSpacing="0" cellPadding="0" border="0" bordercolor="#111111">
  <tr>
    <td width="401">
    <table style="border-style:solid; border-width:0; border-collapse:collapse" cellSpacing="0" cellPadding="0" width="586" bordercolor="#111111" height="10">
      <tr>
        <td height="10" width="618">
        <table cellSpacing="0" cellPadding="0" style="border-collapse: collapse" bordercolor="#111111">
          <tr>
            <td align="middle" bgcolor="#5C6671">
            <font color="#FFFFFF">
            <img border="0" src="osynlig.gif"><a href="main.asp?page=87"><font color="#FFFFFF">Kategorier</font></a><img border="0" src="osynlig.gif"></td>
            <td align="middle" bgcolor="#5C6671">
            <font color="#FFFFFF">
            <img border="0" src="osynlig.gif"><a href="main.asp?page=92"><font color="#FFFFFF">Skapa 
			tråd</font></a></span></b><img border="0" src="osynlig.gif"></font></td>
            <td align="middle" bgcolor="#5C6671">
            <font color="#FFFFFF">
     <img border="0" src="osynlig.gif"><a href="main.asp?page=89"><font color="#FFFFFF">Senaste 
			trådarna</font></a><img border="0" src="osynlig.gif"></td>

            <td align="middle" bgcolor="#5C6671">
            <font color="#FFFFFF">
     <img border="0" src="osynlig.gif"><a href="main.asp?page=90"><font color="#FFFFFF">Senaste 
			svaren</font></a><img border="0" src="osynlig.gif"></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
          </td>
		<td bgcolor="#112434" style="vertical-align:top" height="23" width="3" align="right" >&nbsp;</td>
        </tr>
</table>
	
	
	
	

        </tr>
        <table border="0" width="592" cellspacing="0" cellpadding="0" height="23" style="border-collapse: collapse" bordercolor="#111111">
		<tr>
            <td width="587" style="border-left: 1px solid #000000; border-bottom: 1px solid #000000" bgcolor="#FFFFFF">	    

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

	// Öppnar SQL-satsen för trådar i respektive kategori.
	Set RS = ObjConn.Execute("Select * from forum where kat='"&SafeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc")

	// Kontrollerar om det är några trådar.
		IF RS.Eof then
			Response.Write("Inga forumsinlägg att visa.<p></p><a href=""main.asp?page=87"">Gå tillbaka</a>")
		else

%><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(RS("TradID"))%>'><%=Server.HtmlEncode(RS("rubrik"))%></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(RS("tradID"))&"'")
%> skapades av <a href="<%=Server.HtmlEncode(RS("epost"))%>"><%=Server.HtmlEncode(RS("username"))%></a><br>&nbsp;<%=RS("datum")%></td>
	<td align='left' width="100"><br><%=Count(0)%> st</td></tr><%
	Count.Close : Set Count = Nothing

	RS.Movenext
	Loop

%></table></table><%

// Avslutar kontrollen "Några trådar i respektive kategori."
		End if

// Stänger Recordset och databasen.
	RS.Close : Set RS = Nothing
	ObjConn.Close : Set RS = Nothing

%><br>
</td>
		<td bgcolor="#112434" style="vertical-align:middle" height="23" width="4" >&nbsp;
        

</td>
</table>

<table id="PageBox2" valign="top" style="display: inline-block; width: 592; background-color: white; border-collapse:collapse" cellSpacing="0" cellPadding="0" border="0" bordercolor="#111111" height="5">
  <tr>
    <td width="622" bgColor="#394F5E" height="5">
    <img border="0" src="down_left.gif"></td>
    <td width="6" bgColor="#112434" height="5">
    <img border="0" src="right_down.gif"></td>
  </tr>
</table>

</div>
voigtann1Medlem sedan juni 20019 519 inlägg
#2

Sökte: http://www.webforum.nu/showthread.php?t=76209&highlight=paging
Är ett bra script du kan leka med.

JeppewebMedlem sedan sep. 2006462 inlägg
#3

Tankade ned scriptet.. vart ska denna kod läggas in någonstans i min kod och hur skall den se ut?

TACKSAM FÖR HJÄLP!

<!--#include file="functions.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 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("databas.mdb")

	Set RecSet = Connect.Execute("SELECT fldName FROM tblTable ORDER BY fldName")
		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 = 20

	'// 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
		strName = arrRecSet(0,i)
		Response.Write "	"& strName &"<br>"& vbcrlf
	Next
	Response.Write vbcrlf &"</td>"& vbcrlf &"</tr>"& vbcrlf &"<tr>"& vbcrlf &"<td>"& vbcrlf

	'// 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

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
voigtann1Medlem sedan juni 20019 519 inlägg
#4

börja med att ersätta SQL strängen....

JeppewebMedlem sedan sep. 2006462 inlägg
#5

Så...?

<!--#include file="functions.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};SERVER=; DATABASE=; UID=; PWD=;"

	Set RecSet = Connect.Execute("SELECT forum FROM svar ORDER BY datum")
		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 = 20

	'// 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
		strName = arrRecSet(0,i)
		Response.Write "	"& strName &"<br>"& vbcrlf
	Next
	Response.Write vbcrlf &"</td>"& vbcrlf &"</tr>"& vbcrlf &"<tr>"& vbcrlf &"<td>"& vbcrlf

	'// 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

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
voigtann1Medlem sedan juni 20019 519 inlägg
#6

.. nja... hade väl hellre använt din egna SQL som du redan har skapat:

"Select * from forum where kat='"&SafeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"
JeppewebMedlem sedan sep. 2006462 inlägg
#7

okay then.

<!--#include file="functions.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};SERVER=195.128.174.35; DATABASE=; UID=; PWD=;"

 "Select * from forum where kat='"&SafeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc"		
 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 = 20

	'// 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
		strName = arrRecSet(0,i)
		Response.Write "	"& strName &"<br>"& vbcrlf
	Next
	Response.Write vbcrlf &"</td>"& vbcrlf &"</tr>"& vbcrlf &"<tr>"& vbcrlf &"<td>"& vbcrlf

	'// 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

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

Vart smäller jag in denna kod i min andra kod nu då? För det lyckas jag ej med :(

Tacksam för hjälp

voigtann1Medlem sedan juni 20019 519 inlägg
#8

Du kan först inte ta bort ditt Recordset ...du behöver ju ditt recordset för att kunna hämta data.

Set RecSet = Connect.Execute("DIN SQL HÄR")

då jag menade att använda din SQL fråga :) inte att du skulle ta bort hela recordset kopplingen till databasen ;) .
Mitt råd är att du får nog läsa lite mer hur recordset och datahämtning fungera.

PS Du behöver inte länka all kod hela tiden ;)

Ett annat tips är inkludera bara det du vill ha med dig ur din SQL:
TradID,rubrik,epost,username,datum

då din databas kan innehålla information som inte ens hämtas ut.
Så ersätt * med de tabeller du vill hämta ut.

voigtann1Medlem sedan juni 20019 519 inlägg
#9
<!--#include file="functions.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};SERVER=; DATABASE=; UID=; PWD=;"

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

''''''''''''''''''''''''''''''
'''' DIN LAYOUT HÄR
'''' arrRecSet(0,i) = TradID
'''' arrRecSet(1,i) = Rubrik
'''' arrRecSet(2,i) = epost
'''' arrRecSet(3,i) = username
'''' arrRecSet(4,i) = datum
'''''''''''''''''''''''''''''''

TradID = arrRecSet(0,i)
strRubrik = arrRecSet(1,i)
strepost = arrRecSet(2,i) =
strusername = arrRecSet(3,i)
strdatum = arrRecSet(4,i)
		Response.Write "	"& strName &"<br>"& vbcrlf
	Next
	Response.Write vbcrlf &"</td>"& vbcrlf &"</tr>"& vbcrlf &"<tr>"& vbcrlf &"<td>"& vbcrlf

	'// 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

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

Nu bör du klarar flytta din layout in i denna kod...
komihåg om du skriver:
<td height="1">
så skriver du:
response.write "<td height=""1"">" eller response.write "<td height='1'>"

JeppewebMedlem sedan sep. 2006462 inlägg
#10
strepost = arrRecSet(2,i) =

Microsoft VBScript compilation error '800a03ea'

Syntax error

/cat_open.asp, line 67

strepost = arrRecSet(2,i) =
---------------------------^

tack för hjälpen hittils :)

voigtann1Medlem sedan juni 20019 519 inlägg
#11

..... tja.. läs felmeddelandet och kolla på koden
kanske ska = bort i slutet?

JeppewebMedlem sedan sep. 2006462 inlägg
#12

stämmer :P

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

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'safeSQL'

/cat_open.asp, line 24

voigtann1Medlem sedan juni 20019 519 inlägg
#13

du har inte safeSQL funktionen med i din kod...

JeppewebMedlem sedan sep. 2006462 inlägg
#14

sen då.. ska jag skriva response.write före allt detta? :S

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

	// Öppnar SQL-satsen för trådar i respektive kategori.
	Set RS = ObjConn.Execute("Select * from forum where kat='"&SafeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc")

	// Kontrollerar om det är några trådar.
		IF RS.Eof then
			Response.Write("Inga forumsinlägg att visa.<p></p><a href=""main.asp?page=87"">Gå tillbaka</a>")
		else

%><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(RS("TradID"))%>'><%=Server.HtmlEncode(RS("rubrik"))%></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(RS("tradID"))&"'")
%> skapades av <a href="<%=Server.HtmlEncode(RS("epost"))%>"><%=Server.HtmlEncode(RS("username"))%></a><br>&nbsp;<%=RS("datum")%></td>
	<td align='left' width="100"><br><%=Count(0)%> st</td></tr><%
	Count.Close : Set Count = Nothing

	RS.Movenext
	Loop

%></table></table><%

// Avslutar kontrollen "Några trådar i respektive kategori."
		End if

// Stänger Recordset och databasen.
	RS.Close : Set RS = Nothing
	ObjConn.Close : Set RS = Nothing

%>
voigtann1Medlem sedan juni 20019 519 inlägg
#15

du kan ju skapa en funktion / funktioner som delar upp din layout... annars ja

+ mycket av din kod har redan klarats upp..

JeppewebMedlem sedan sep. 2006462 inlägg
#16

Nu vet jag inte om de här e möjligt.. men iaf;

Kategori » Allmänt
Skapa ny tråd
Trådar: Antal svar:

Type mismatch

/cat_open.asp, line 75

<!--#include file="functions.asp"-->
<!--#include file="databaskopplingar.asp"-->
<!--#include file="includes/db.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};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

%>
<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>

<tr><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(RS("TradID"))%>'><%=Server.HtmlEncode(RS("rubrik"))%></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(RS("tradID"))&"'")
%> skapades av <a href="<%=Server.HtmlEncode(RS("epost"))%>"><%=Server.HtmlEncode(RS("username"))%></a><br>&nbsp;<%=RS("datum")%></td>
	<td align='left' width="100"><br><%=Count(0)%> st</td></tr></table></table><br>

<%

TradID = arrRecSet(0,i)
strRubrik = arrRecSet(1,i)
strepost = arrRecSet(2,i)
strusername = arrRecSet(3,i)
strdatum = arrRecSet(4,i)
		Response.Write "	"& strName &"<br>"& vbcrlf
	Next
	Response.Write vbcrlf &"</td>"& vbcrlf &"</tr>"& vbcrlf &"<tr>"& vbcrlf &"<td>"& vbcrlf

	'// 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

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
voigtann1Medlem sedan juni 20019 519 inlägg
#17

Du har inget RS() öppet.. du får använda Arraylist för det....
Mitt råd att skit i layouten just nu du MÅSTE lära dig hur dina koder / andras som du har laddat ner innan du börja "copy/paste"-hell
ta och flytta små delar av koderna och få den delen att fungera innan du hoppar på nästa..

JeppewebMedlem sedan sep. 2006462 inlägg
#18

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/cat_open.asp, line 63

Loop
^

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

	Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(RS("tradID"))&"'")

	Count.Close : Set Count = Nothing

	[b]RS.Movenext
	Loop[/b]

// Avslutar kontrollen "Några trådar i respektive kategori."
		End if

// Stänger Recordset och databasen.
	RS.Close : Set RS = Nothing
	ObjConn.Close : Set RS = Nothing

tacksam för hjälpen

voigtann1Medlem sedan juni 20019 519 inlägg
#19

Gör om allt från början...
ta "min" kod exempel och börja Smått flytta ditt utseende...

JeppewebMedlem sedan sep. 2006462 inlägg
#20

	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

	Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(Request.Querystring("tradID"))&"'")
response.write "<a href='<%=Server.HtmlEncode(Request.Querystring("epost"))%>"><%=Server.HtmlEncode(Request.Querystring("username"))</a><br> (Request.Querystring("datum"))</td>"
	Count.Close : Set Count = Nothing

	RS.Movenext
	Loop

		End if

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/cat_open.asp, line 59

response.write "<a href='<%=Server.HtmlEncode(Request.Querystring("epost"))
-------------------------------------------------------------------^

155 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
153 ms — hämta tråd, inlägg och bilagor (db)