Paging i et news system

er der real penge i det så kontakt mig på mc_mads@ofir.dk

så finder vi ud af noget kan lave det i

PHP eller ASP med eller uden DATABASE

>>Fireworld, zyxep har sq ingen penge :) - Kig på min gæstebog på www.locturian.dk - noget i den stil?

locturian >>

Kan du får det paging ind i mit script - se koden og hent databasen her

http://www.eksperten.dk/spm/177268

cygnet: hvad har du med sagen at gøre !?

invisibleman > Har vist ikke direkte noget med det at gøre - men kunne godt bruge lidt hjælp i det andet spørgsmål - og så kunne det jo være at locturian lige ville tjene lidt point ved at implementerer hans paging i min kode.

cygnet, jo, det kan jeg godt. Men ikke for 30 point.

mit news system ser sådan her http://zyxep.sutiglu.dk/news/ <--- bare lige foldet ud redigeret eller noget men der vil jeg godt have paging system i hvis det kan lade sig gøre

locturian >> har sat det op til 75 point

jeg har søgt et job og hvis jeg får kan det godt være jeg gir nogen penge for det men lige nu er det kun point kender locturian han er remlig dyr :)) men fuck det, det han laver det er godt :)

zyxep, du kan da lave det efter en tutorial, ellers kan jeg godt fikse det ;o) smid en msg eller en mail.......du har vist numret......eller ring!
ses du...

http://activedeveloper.dk/aspdigital/kapitel2/paging.asp - prøv at lave det selv. Det lærer man også lidt af.. her er en guide til et

webben, tro mig, jeg kender zypex, den har han prøvet, men han fater vist minus af den ;o) selvom den nu er let.dk *s*

hehe

haha bo det var godt nok sjovt :)

webben jeg har prøvet efter det link men jeg kan ik få lortet til at du :(((( og eflow jeg sender lige en mail til dig skal lige se om det er det rigtige nr jeg har :)

ehm, jeps jeps.......bare smid den til crap@eflow.dk eller sådan noget *s*

hvad er der fejl i den her kode ?
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT FROM nyheder"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database/db.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs("LinkURL") & "<br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Do While Not rs.EOF
besked = rs("besked")
besked = Replace(besked,":)","<img src=""smile/smile0.gif"">")
besked = Replace(besked,";)","<img src=""smile/smile1.gif"">")
besked = Replace(besked,":D","<img src=""smile/smile3.gif"">")
besked = Replace(besked,"8)","<img src=""smile/smile4.gif"">")
besked = Replace(besked,":\","<img src=""smile/smile5.gif"">")
besked = Replace(besked,":(","<img src=""smile/smile9.gif"">")
besked = Replace(besked,":-)","<img src=""smile/smile11.gif"">")
besked = Replace(besked,":o)","<img src=""smile/smile13.gif"">")
besked = Replace(besked,vbcrlf,"<br>")
%>
<div align="center">
<center>
<table border="1" width="83%" cellspacing="0" cellpadding="0" style="border: 1 solid #000000" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#000000">
<tr>
<td width="50%" height="13" background="overskrift2.gif"
style="border-bottom: 1 solid #000000">
<div align="center">
<center>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<a name="<%=rs("overskrift")%>">
<td width="50%"><b><font color="#FFFFFF" face="Arial Black">..: </font><font
color="#FFFFFF" face="Trebuchet MS"><%=rs("overskrift")%></font><font color="#FFFFFF"
face="Arial Black"> :..</font></b></td>
</center>
<td width="50%" valign="top">
<p align="right"><font color="#FFFFFF" face="Trebuchet MS" size="1">Af:&nbsp;<%=rs("navn")%><br>Dato:&nbsp;<%=rs("dato")%>
</font></td>
</table>
</div>
</a>
</td>
</tr>
<tr>
<td width="50%" bgcolor="#6699FF" valign="top" colspan="2">
<p align="center"><font color="#FFFFFF" face="Trebuchet MS"><%=besked%></font></td>
</tr>
</table>
</center>
</div>
<font color="#FFFFFF" face="Trebuchet MS">
<br>
<%
  rs.MoveNext
Loop
%>
<%

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=paging.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>
</font>

den siger
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e21'

De ønskede egenskaber understøttes ikke af denne ODBC-driver.

/skrive/alt/news/default.asp, linje 10
kan det være min webserver eller ?

det er vist din connection til db'en, prøv at finde en anden, der er noget tid siden jeg har rodet med asp....så deeet....

baah jeg tog ellers det fra siden det er jo kun connection der er galt med BAH :(

zyxep.....hæh..

hey jeg prøvede at smide det på nettet men det dur ik den siger det samme bare på eng :( HELP

lukket jeg har fundet et :) for lang tid siden