tagwall/gæstebog - side 1-2-3..

kunne det evt. være muligt at lave en kode der kan tjekke hvor mange linier der er skrevet i dokumentet, i stedet for 10 indlæg, at den så kunne skifte side, efter 30 linier fx ?

Det hedder paging og her er et rigtig godt eksempel:
http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

Det spørgsmål går igen og igen...

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

Er et godt eksempel du måske godt kunne bruge

synes stadig ikke helt det virker ?

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

'<paging> Databasen åbnes samtidigt
rs.Open strSQL, Conn, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 2
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
'</paging> 
%>


<%    Do While Not rs.EOF And intRecCount > 0
'Hvis ikke recordsettet er tomt, fortsæt


%>

    <tr>
    <td width="50" valign="top" align="left"><A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></td>
    <td valign="top" align="left">-</td>
    <td valign="top" align="left"><%=RS("Besked")%></td>
    </tr>


<%   
'Trækker den næste record ud og lukker din forbindelse

intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

'Paging scriptet

Response.Write "Pages "
For intNum = 1 To intPageCount


Response.Write "<a href='default3.asp?fid=" &  "&page=" & intNum &  "'>" & intNum & "</a> "

next

%>

Du skal fjerne denne linje:

set rs = Conn.execute(strSQL)

Hvad viser den?

Microsoft VBScript runtime error '800a01a8'
Object required: ''

/gbog/default3.asp, line 88

og i linie 88 står der --> rs.Open strSQL, Conn, 1

Er du sikker på at din database hedder database.mdb?

Tilføj denne linje:

Set RS = Server.CreateObject("ADODB.Recordset")


Lige efter denne linje:
Set Conn = Server.CreateObject("ADODB.Connection")

Det har eagle nok lidt mere forstand på end mig, men det er  nok heller ik for ingenting han har over 200.000 point ;)

;) Fejlen kommer fordi man skal definere rs som et recordset object når man bruger .Open og paging. Når man skriver rs.Open kan vbcompileren ikke gennemskue det rs er et recordset, derfor må man lige hjælpe den på vej ;)

yeah... min database hedder skam database.mdb ;)
og eagle, kan kun sige rigtig mange gange tak, og self give dig lidt points, for din store hjælp... nu virker skidtet som det skal ;)

Jeg forstår det godt men det er ikke altid jeg tænker på sådan nogle små ting selvom de egentlig har en stor betydning :P

Skal jeg ikke ha noget for at have noget for at gi dig scriptet? Uden det kunne eagle jo ikke rette det??

Jeg kan da se at du fulgte mit link og brugte det script der var der...

Jeg opretter da bare lige et spm med point til dig så ;)

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

Syntax - Det var ikke "små ting", men nærmere en "selvfølge" :)