/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Paging et Recordset
Fra : Jacob ..


Dato : 16-01-04 10:51

Jeg har en sql-sætning, som henter poster efter nogle kriterer.

Hvis jeg nu ønkser at få vist 10 ad gangen og mulighed for at
bladre videre til de næste 10 resultater??? Jeg har forsøgt på
HTML's asp-tutorial, men uden den helt store åbenbaring... Please
Help!

Her er min sætning:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" &
Server.MapPath("/Gate/Database/database.mdb")
Conn.Open DSN

strSQL = "Select * From tblRygte WHERE PersonNavnID = "
&Request.Querystring("ID")& " ORDER BY OprettetDato"

Set rs = Conn.Execute(strSQL)

If Not rs.EOF Then

%>

<tr>
<td width="43%" bgcolor="#FFCC66"><font
color="#000000"><b>Rygte:</b></font></td>
<td width="16%" bgcolor="#FFCC66"><font
color="#000000"><b>Dato:</b></font></td>
<td width="11%" bgcolor="#FFCC66"
align="center"><b>Set af:</b></td>
<td width="31%" bgcolor="#FFCC66"><font
color="#000000"><b>Sandhedsgrad:</b></font></td>



<%Do
strNavn = rs("KOverskrift")
strDato = rs("OprettetDato")
strJa = rs("RygteJa")
strNej = rs("RygteNej")
strCount = rs("RygteCount")

strLink = "<a href='RygteView.asp?id=" & rs("RID") & "'>" &
strNavn & "</a>"%>
</tr>


<tr>
<td width="43%"><font face="Tahoma"
size="2"><b><%Response.Write "" & strLink & ""%></b></font></td>
<td width="16%"><font face="Tahoma"
size="2" color="#000000"><b><%Response.Write "" & strDato &
""%></b></font></td>
<td width="11%" align="center"><font
face="Tahoma" size="2"><b><%Response.Write "" & strCount &
""%></b></font></td>
<td width="31%"><b><font
color="#FF0000">Ja: <%Response.Write "" & strJa &
""%></font><font color="#000000">/</font><font
color="#0000FF">Nej: <%Response.Write "" & strNej &
""%></font></b></td>

<% rs.MoveNext
Loop While Not rs.EOF

Else
response.write "Ingen indlæg."
End If

Conn.Close
Set Conn = Nothing
%>

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Jens Gyldenkærne Cla~ (16-01-2004)
Kommentar
Fra : Jens Gyldenkærne Cla~


Dato : 16-01-04 11:01

Jacob .. skrev:

> Hvis jeg nu ønkser at få vist 10 ad gangen og mulighed for at
> bladre videre til de næste 10 resultater?


Prøv at kigge her:
<http://www.4guysfromrolla.com/webtech/121298-1.shtml>

> ??

De her blev til overs.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

Jacob .. (17-01-2004)
Kommentar
Fra : Jacob ..


Dato : 17-01-04 18:29

> <http://www.4guysfromrolla.com/webtech/121298-1.shtml>

Ja, Good old 4Guys. Havde lidt problemer med deres script,
fejlede konstant. Fandt et på activedeveloper - det fejlede også
indtil jeg faldt over fejlen og nu virker det.

Tak for hjælpen (igen)

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Søg
Reklame
Statistik
Spørgsmål : 177549
Tips : 31968
Nyheder : 719565
Indlæg : 6408822
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste