Notifikationer

Markér alle som læst Log ud

Slettet bruger

21. december 2003 - 17:39 Der er 12 kommentarer og
1 løsning

hvordan får jeg mit script til at vise 1 indlæg pr side?

Jeg sidder og "leger" med et vennebogs script. Når der er skrevet i vennebogen, vil jeg have scriptet til at vise et indlæg pr side. Hvordan gør jeg det?
Som det er nu så vises alle indlæg på samme side.
Min side hvor vennebogen vises ser således ud:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<style>
td { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
body { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
</style>
</head>

<body>
All Records Entered :
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("form.mdb")

' Creating Recordset Object and opening the database
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "users", data_source
' Looping through the records to show all of them
While Not rs.EOF %>
<form action="del.asp" method="post">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#216395" width="569" height="412" id="AutoNumber1">
<tr>
<td width="569" height="412" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid #216395; border-bottom: 1px solid #216395" bordercolor="#216395">
<tr>
<td width="33%"></td><td width="33%"><a href="form.htm">Skriv i min vennebog</a></td>
<td width="34%"align="right">
</td>
</tr>
</table>
Hvad hedder du? 
<%=rs("name") %>
 
Hvor bor du? 
<%=rs("spr1") %>
 
Hvad er din fødselsdato? 
<%=rs("spr2") %>
 
Hvilken farve har dine øjne 
<%=rs("spr3") %>
 
Hvorfor får du altid bank i ludo? 
<%=rs("spr4") %>
 
Hvad kan du lide ved mig 
<%=rs("spr5") %>
 
Hvad hader du ved mig? 
<%=rs("spr6") %>
 
Hvad er din livret? 
<%=rs("spr7") %>
 
Hvad er den bedste bog, du har læst? 
<%=rs("spr8") %>
 
Hvad er den bedste film, du har set? 
<%=rs("spr9") %>
 
Hviklen parfume har du på nu? 
<%=rs("spr10") %>
 
Har du en hjemmeside? Hvis ja, hvad er adressen? 
<%=rs("spr11") %>
 
Jeg siger tak fordi du ville skrive i min vennebog, hvad siger du 
<%=rs("spr12") %>
 
<table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid #216395; border-bottom: 1px solid #216395" bordercolor="#216395">
<tr>
<td width="33%"></td>
<td width="33%"align="center">Skriv i min vennebog</td>
<td width="34%"align="right">
</td>
</tr>
</table>
 
<%
no = no + 0
rs.MoveNext
Wend
' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>

</body>
</html>

Synes godt om

deeflate Nybegynder

21. december 2003 - 18:10 #1

Prøv dette her engang:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<style>
td { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
body { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
</style>
</head>

<body>
All Records Entered :
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("form.mdb")

' Creating Recordset Object and opening the database
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "users", data_source

'finder sidetal
If request.Querystring("page") <> "" Then
page = request.Querystring("page")'
else
page = 1
end if

If Not (rs.BOF Or rs.EOF) Then

'****** paging-halløj

rs.PageSize = 6
rs.AbsolutePage = Page
intRecCount = rs.PageSize
intPageCount = rs.PageCount

'If intPageCount > 1 Then
Response.Write "Page: "

For intNum = 1 To intPageCount

If lastItem > rs.RecordCount Then
lastItem = rs.RecordCount
End if

intPage = int(page)

If intNum = intPage Then
response.Write intNum & " | "
Else
Response.Write "<a href=?page=" & intNum & ">"
response.Write intNum & "</a> | "
End if

Next
'End if

'****** slut paging-halløj

' Looping through the records to show all of them
Do While Not rs.EOF And intRecCount > 0 %>
<form action="del.asp" method="post">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#216395" width="569" height="412" id="AutoNumber1">
<tr>
<td width="569" height="412" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid

#216395; border-bottom: 1px solid #216395" bordercolor="#216395">
<tr>
<td width="33%"></td><td width="33%"><a href="form.htm">Skriv i min vennebog</a></td>
<td width="34%"align="right">
</td>
</tr>
</table>
Hvad hedder du? 
<%=rs("name") %>
 
Hvor bor du? 
<%=rs("spr1") %>
 
Hvad er din fødselsdato? 
<%=rs("spr2") %>
 
Hvilken farve har dine øjne 
<%=rs("spr3") %>
 
Hvorfor får du altid bank i ludo? 
<%=rs("spr4") %>
 
Hvad kan du lide ved mig 
<%=rs("spr5") %>
 
Hvad hader du ved mig? 
<%=rs("spr6") %>
 
Hvad er din livret? 
<%=rs("spr7") %>
 
Hvad er den bedste bog, du har læst? 
<%=rs("spr8") %>
 
Hvad er den bedste film, du har set? 
<%=rs("spr9") %>
 
Hviklen parfume har du på nu? 
<%=rs("spr10") %>
 
Har du en hjemmeside? Hvis ja, hvad er adressen? 
<%=rs("spr11") %>
 
Jeg siger tak fordi du ville skrive i min vennebog, hvad siger du 
<%=rs("spr12") %>
 
<table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid #216395; border-bottom: 1px solid

#216395" bordercolor="#216395">
<tr>
<td width="33%"></td>
<td width="33%"align="center">Skriv i min vennebog</td>
<td width="34%"align="right">
</td>
</tr>
</table>
 
<%
no = no + 0
intRecCount = intRecCount - 1
rs.MoveNext
Loop

'paging-halløj

'If intPageCount > 1 Then
Response.Write "Page: "

For intNum = 1 To intPageCount

If lastItem > rs.RecordCount Then
lastItem = rs.RecordCount
End if

intPage = int(page)

If intNum = intPage Then
response.Write intNum & " | "
Else
Response.Write "<a href=?page=" & intNum & ">"
response.Write intNum & "</a> | "
End if

Next
'End if

Else
'hvis rs var EOF eller BOF
response.Write "There are currently no news in the database."
End if

' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>

</body>
</html>

Synes godt om

deeflate Nybegynder

21. december 2003 - 18:11 #2

Og så skal du rette rs.PageSize til 1 - det glemte jeg lige...

Synes godt om

Slettet bruger

21. december 2003 - 18:14 #3

Jeg har lige lagt det ud på min side får jeg denne fejl
ADODB.Recordset error '800a0cb3'

Object or provider is not capable of performing requested operation.

/test.asp, line 35

Synes godt om

deeflate Nybegynder

21. december 2003 - 18:19 #4

Ok, jeg ser lige på det - øjeblik.

Synes godt om

Slettet bruger

21. december 2003 - 18:20 #5

ok :o)

Synes godt om

deeflate Nybegynder

21. december 2003 - 18:20 #6

Du skriver bare ,1 der hvor du åbner
Altså:

rs.Open "users", data_source, 1

Så skulle det virke

Synes godt om

Slettet bruger

21. december 2003 - 18:24 #7

Sådan som jeg forstå det skal det se sådan ud:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<style>
td { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
body { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
</style>
</head>

<body>
All Records Entered :
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("form.mdb")

' Creating Recordset Object and opening the database
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "users", data_source

'finder sidetal
If request.Querystring("page") <> "" Then
page = request.Querystring("page")'
else
page = 1
end if

If Not (rs.BOF Or rs.EOF) Then

'****** paging-halløj

rs.Open "users", data_source, 1
rs.AbsolutePage = Page
intRecCount = rs.PageSize
intPageCount = rs.PageCount

'If intPageCount > 1 Then
Response.Write "Page: "

For intNum = 1 To intPageCount

If lastItem > rs.RecordCount Then
lastItem = rs.RecordCount
End if

intPage = int(page)

If intNum = intPage Then
response.Write intNum & " | "
Else
Response.Write "<a href=?page=" & intNum & ">"
response.Write intNum & "</a> | "
End if

Next
'End if

'****** slut paging-halløj
' Looping through the records to show all of them
Do While Not rs.EOF And intRecCount > 0 %>
<form action="del.asp" method="post">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#216395" width="569" height="412" id="AutoNumber1">
<tr>
<td width="569" height="412" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid

#216395; border-bottom: 1px solid #216395" bordercolor="#216395">
<tr>
<td width="33%"></td><td width="33%"><a href="form.htm">Skriv i min vennebog</a></td>
<td width="34%"align="right">
</td>
</tr>
</table>
Hvad hedder du? 
<%=rs("name") %>
 
Hvor bor du? 
<%=rs("spr1") %>
 
Hvad er din fødselsdato? 
<%=rs("spr2") %>
 
Hvilken farve har dine øjne 
<%=rs("spr3") %>
 
Hvorfor får du altid bank i ludo? 
<%=rs("spr4") %>
 
Hvad kan du lide ved mig 
<%=rs("spr5") %>
 
Hvad hader du ved mig? 
<%=rs("spr6") %>
 
Hvad er din livret? 
<%=rs("spr7") %>
 
Hvad er den bedste bog, du har læst? 
<%=rs("spr8") %>
 
Hvad er den bedste film, du har set? 
<%=rs("spr9") %>
 
Hviklen parfume har du på nu? 
<%=rs("spr10") %>
 
Har du en hjemmeside? Hvis ja, hvad er adressen? 
<%=rs("spr11") %>
 
Jeg siger tak fordi du ville skrive i min vennebog, hvad siger du 
<%=rs("spr12") %>
 
<table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid #216395; border-bottom: 1px solid

#216395" bordercolor="#216395">
<tr>
<td width="33%"></td>
<td width="33%"align="center">Skriv i min vennebog</td>
<td width="34%"align="right">
</td>
</tr>
</table>
 
<%
no = no + 0
intRecCount = intRecCount - 1
rs.MoveNext
Loop

'paging-halløj

'If intPageCount > 1 Then
Response.Write "Page: "

For intNum = 1 To intPageCount

If lastItem > rs.RecordCount Then
lastItem = rs.RecordCount
End if

intPage = int(page)

If intNum = intPage Then
response.Write intNum & " | "
Else
Response.Write "<a href=?page=" & intNum & ">"
response.Write intNum & "</a> | "
End if

Next
'End if

Else
'hvis rs var EOF eller BOF
response.Write "There are currently no news in the database."
End if

' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>

</body>
</html>

Synes godt om

deeflate Nybegynder

21. december 2003 - 18:27 #8

Nej, sådan her:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<style>
td { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
body { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
</style>
</head>

<body>
All Records Entered :
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath ("form.mdb")

' Creating Recordset Object and opening the database
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "users", data_source, 1

'finder sidetal
If request.Querystring("page") <> "" Then
page = request.Querystring("page")'
else
page = 1
end if

If Not (rs.BOF Or rs.EOF) Then

'****** paging-halløj

rs.PageSize = 1
rs.AbsolutePage = Page
intRecCount = rs.PageSize
intPageCount = rs.PageCount

'If intPageCount > 1 Then
Response.Write "Page: "

For intNum = 1 To intPageCount

If lastItem > rs.RecordCount Then
lastItem = rs.RecordCount
End if

intPage = int(page)

If intNum = intPage Then
response.Write intNum & " | "
Else
Response.Write "<a href=?page=" & intNum & ">"
response.Write intNum & "</a> | "
End if

Next
'End if

'****** slut paging-halløj

' Looping through the records to show all of them
Do While Not rs.EOF And intRecCount > 0 %>
<form action="del.asp" method="post">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#216395" width="569" height="412" id="AutoNumber1">
<tr>
<td width="569" height="412" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid #216395; border-bottom: 1px solid #216395" bordercolor="#216395">
<tr>
<td width="33%"></td><td width="33%"><a href="form.htm">Skriv i min vennebog</a></td>
<td width="34%"align="right">
</td>
</tr>
</table>
Hvad hedder du? 
<%=rs("name") %>
 
Hvor bor du? 
<%=rs("spr1") %>
 
Hvad er din fødselsdato? 
<%=rs("spr2") %>
 
Hvilken farve har dine øjne 
<%=rs("spr3") %>
 
Hvorfor får du altid bank i ludo? 
<%=rs("spr4") %>
 
Hvad kan du lide ved mig 
<%=rs("spr5") %>
 
Hvad hader du ved mig? 
<%=rs("spr6") %>
 
Hvad er din livret? 
<%=rs("spr7") %>
 
Hvad er den bedste bog, du har læst? 
<%=rs("spr8") %>
 
Hvad er den bedste film, du har set? 
<%=rs("spr9") %>
 
Hviklen parfume har du på nu? 
<%=rs("spr10") %>
 
Har du en hjemmeside? Hvis ja, hvad er adressen? 
<%=rs("spr11") %>
 
Jeg siger tak fordi du ville skrive i min vennebog, hvad siger du 
<%=rs("spr12") %>
 
<table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid #216395; border-bottom: 1px solid #216395" bordercolor="#216395">
<tr>
<td width="33%"></td>
<td width="33%"align="center">Skriv i min vennebog</td>
<td width="34%"align="right">
</td>
</tr>
</table>
 
<%
no = no + 0
intRecCount = intRecCount - 1
rs.MoveNext
Loop

'paging-halløj

'If intPageCount > 1 Then
Response.Write "Page: "

For intNum = 1 To intPageCount

If lastItem > rs.RecordCount Then
lastItem = rs.RecordCount
End if

intPage = int(page)

If intNum = intPage Then
response.Write intNum & " | "
Else
Response.Write "<a href=?page=" & intNum & ">"
response.Write intNum & "</a> | "
End if

Next
'End if

Else
'hvis rs var EOF eller BOF
response.Write "There are currently no news in the database."
End if

' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>

</body>
</html>

Synes godt om

deeflate Nybegynder

21. december 2003 - 18:28 #9

Der er faktisk også et par linier, der kan slettes.
Jeg arbejder det lige igennem og kommenterer paging-delen, så du kan følge med :)

Synes godt om

Slettet bruger

21. december 2003 - 18:33 #10

Nu virker det :o)

Synes godt om

deeflate Nybegynder

21. december 2003 - 18:37 #11

Det var godt :)

Her er en kommenteret version, hvor der er fjernet et par unødvendige linier:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<style>
td { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
body { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
</style>
</head>

<body>
All Records Entered :
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath ("form.mdb")

' Creating Recordset Object and opening the database
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "users", data_source, 1

'finder sidetal
If request.Querystring("page") <> "" Then
page = request.Querystring("page")'
else
page = 1
end if

If Not (rs.BOF Or rs.EOF) Then
'hvsi rs ikke er tomt

'****** paging-halløj
'antal indlæg pr side
rs.PageSize = 1

'den side vi er på - altså ved hvilken record, der skal startes
rs.AbsolutePage = Page

'antal indlæg pr side - i variabel
intRecCount = rs.PageSize

'antal sider i alt
intPageCount = rs.PageCount

'If intPageCount > 1 Then ' - afkommentér hvis du kun ønsker sidetal vist, hvis der er mere end en side
Response.Write "Page: "

'sidetal og links til andre sider
For intNum = 1 To intPageCount
intPage = int(page)
If intNum = intPage Then
response.Write intNum & " | "
Else
Response.Write "<a href=?page=" & intNum & ">"
response.Write intNum & "</a> | "
End if
Next
'End if ' - afkommentér hvis du kun ønsker sidetal vist, hvis der er mere end en side

'****** slut paging-halløj

' Looping through the records to show all of them
Do While Not rs.EOF And intRecCount > 0 %>
<form action="del.asp" method="post">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#216395" width="569" height="412" id="AutoNumber1">
<tr>
<td width="569" height="412" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid

#216395; border-bottom: 1px solid #216395" bordercolor="#216395">
<tr>
<td width="33%"></td><td width="33%"><a href="form.htm">Skriv i min vennebog</a></td>
<td width="34%"align="right">
</td>
</tr>
</table>
Hvad hedder du? 
<%=rs("name") %>
 
Hvor bor du? 
<%=rs("spr1") %>
 
Hvad er din fødselsdato? 
<%=rs("spr2") %>
 
Hvilken farve har dine øjne 
<%=rs("spr3") %>
 
Hvorfor får du altid bank i ludo? 
<%=rs("spr4") %>
 
Hvad kan du lide ved mig 
<%=rs("spr5") %>
 
Hvad hader du ved mig? 
<%=rs("spr6") %>
 
Hvad er din livret? 
<%=rs("spr7") %>
 
Hvad er den bedste bog, du har læst? 
<%=rs("spr8") %>
 
Hvad er den bedste film, du har set? 
<%=rs("spr9") %>
 
Hviklen parfume har du på nu? 
<%=rs("spr10") %>
 
Har du en hjemmeside? Hvis ja, hvad er adressen? 
<%=rs("spr11") %>
 
Jeg siger tak fordi du ville skrive i min vennebog, hvad siger du 
<%=rs("spr12") %>
 
<table border="0" cellpadding="0" cellspacing="0" width="500" style="border-collapse: collapse; border-top: 1px solid #216395; border-bottom: 1px solid

#216395" bordercolor="#216395">
<tr>
<td width="33%"></td>
<td width="33%"align="center">Skriv i min vennebog</td>
<td width="34%"align="right">
</td>
</tr>
</table>
 
<%
no = no + 0

'intRecCount tæller ned til nul nåes
intRecCount = intRecCount - 1

rs.MoveNext
Loop

'paging-halløj - det samme som ovenfor

'If intPageCount > 1 Then
Response.Write "Page: "
For intNum = 1 To intPageCount
intPage = int(page)
If intNum = intPage Then
response.Write intNum & " | "
Else
Response.Write "<a href=?page=" & intNum & ">"
response.Write intNum & "</a> | "
End if
Next
'End if

Else
'hvis rs var EOF eller BOF
response.Write "Der er ingen indlæg i vennebogen."
End if

' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>

</body>
</html>

Synes godt om

Slettet bruger

21. december 2003 - 18:42 #12

Mange tak for din hjælp :o)

God jul og godt nytår til dig :o)

Synes godt om

deeflate Nybegynder

21. december 2003 - 18:44 #13

Tak! Og i lige måde :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS