Infoga script i sida

30 mars, 2003

försöker att få ett paging script in i min befintliga sida.

om jag kör enbart min sida utan paging så fungerar den.

Kör jag bara paging scriptet i en tom sida så fungerar det bra.

men jag klarar inte av att lägga in paging scriptet i min befintliga sida.

har provat nu i flera timmar, men får det inte att fungera.

paging scritpet ser ut så här

<%Response.Expires = -1500 %>

<HTML>

<HEAD>

</HEAD>

<BODY>

<%

' ^^ Skapar variabler : ^^

Dim IntSida, Conn, RS, SQL

' ^^ Kollar vilken sida som skall visas, om tomt visas sida 1 : ^^

IntSida = Trim(Request.QueryString("Sida"))

If IntSida = "" Then

IntSida = 1

Else

IntSida = Cint(IntSida) ' ^^ Gör om det till ett tal ^^

End If

' ^^ Startar Databaskoppling och RS : ^^

Set Conn = Server.CreateObject("ADODB.Connection")

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

'Conn.Open "DSN=gastbok" ' ^^ Byt till denna om du vill använda DSN! ^^

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/xdatabas.mdb") ' ^^ Byt ut denna om du vill använda DSN! ^^

' ^^ Väljer alla fält i tabellen & sorterar efter det senaste datumet : ^^

SQL = "SELECT * FROM galleribilder ORDER BY bildid DESC"

' ^^ Startar igång : ^^

RS.Open SQL, Conn, 3,1

'^^ Om tabellen är tom : ^^

If RS.EOF = True Then

Response.Write("Inga poster hittades i databasen!<BR>")

Else

' ^^ Bestämmer hur många inlägg det ska vara per sida : ^^

RS.PageSize = 10

' ^^ Visar önskad sida : ^^

RS.AbsolutePage = IntSida

End If

' ^^ Visar inläggen tills antalet per sida uppfylls eller inläggen tar slut : ^^

Do until RS.EOF Or IntAntal >= RS.PageSize

' ^^ Räknare : ^^

IntAntal = IntAntal + 1

%>

Bild Id : <% = RS("bildid") %><BR>

katperid : <% = RS("katperid") %><BR>

Bild : <BR>

<% = RS("bild") %><P>

<%

RS.MoveNext

Loop

' ^^ Visa sidlänkar : ^^

If RS.PageCount > 1 then ' ^^ Kollar så det finns fler sidor ^^

For I = 1 To RS.PageCount ' ^^ Startar en loop som ska fixa alla sidnummer ^^

If I <> IntSida Then ' ^^ Kollar så att vi ej länkar aktuellt sidnummer ^^

Response.Write("<A href='visa_bilder.asp?Sida=" & I & "'>" & I & "</A> ")

Else ' ^^ Om det är sidan som är aktiv, gör ingen länk.

Response.Write(I & " ")

End If

RS.Close

Conn.Close

%>

</BODY>

</HTML>

Nu till min nuvarande sida.

paging koden skulle jag vilja ha in i denna kod.

Samt att lite måste tas bort från denna kod, eftersom den listar alla bilder på en sida nu..

<%sql="select * from galleripersoner where katid = "&request("galleriid")&""

set rs = conn.execute(sql)%>

<%

i = 0

do until rs.eof%>

<%if i = 3 or i = 6 or i = 9 or i = 12 or i = 15 or i = 18 or i = 21 or i = 24 or i = 27 or i = 30 then

Response.Write("</tr><tr>")

end if%>

<%

SQL = "Select count(*) AS antal FROM galleribilder where katperid = "&rs("katperid")&""

Set RS3 = conn.Execute(SQL)

if rs3("antal") > 0 then

SQL = "Select * FROM galleribilder where katperid = "&rs("katperid")&""

RStemp = UBOUND(Conn.Execute(SQL).GetRows(),2)+1

Randomize

post = Int(RND*RStemp)

Set RS2 = Conn.Execute(SQL)

For s = 1 to post

RS2.MoveNext

<%

if rs2("width")=0 or rs2("height")=0 then

width=80

height=120

else

width=round((rs2("width")/3),0)

height=round((rs2("height")/3),0)

end if

%>

<img src="galleri/<%=RS2("bild")%>" WIDTH="<%=width%>" HEIGHT="<%=height%>" BORDER='0'></a></td></tr></table>

<%end if%>

[<a href="visa_bilder.asp?katperid=<%=rs("katperid")%>"><b><%=rs("namn")%></b></a>]<br>

<i><%=rs3("antal")%> bilder</i> </p>

</center>

</td></tr></table>

</td>

<%

i = i+1

rs.movenext

loop%>

</tr></table>

Hoppas nån kan hjälpa mig.

Logga in

Infoga script i sida

Rekommendera Poster

The_Spirit

Länk till kommentar

Dela på andra webbplatser

Arkiverat

Vem är online 0 Medlemmar, 0 anonym, 38 gäster (Visa hela listan)

Populära medlemmar

Publika meddelanden

Senaste som Tittar

Senaste inlägg

Forum

Aktivitet

pcforalla.se