Hejsan alla ni som vill hjälpa mig.
Jag har denna kod på sidan som skriver ut inläggen Films.asp.
<code>For iCounter = 0 To Ubound(aMedia, 2)
Response.Write "<tr><td>" & MediaLink(aMedia(0, iCounter), aMedia(1, iCounter), "") & "</td>"
Response.Write "<td>" & aMedia(2, iCounter) & "</td>"
Response.Write "<td>" & aMedia(3, iCounter) & "</td> "
Response.Write "<td>" & aMedia(6, iCounter) & "</td></tr>"
Next
ElseIf sAction <> "" Then
Response.Write "Ingenting hittades."
End If
End If</code>
Sedan på en annan sida som includeras har jag följande som öppnar upp databasen.
<code>Function GetAllMedias(sUserName, iMediaType, sSort)
Dim oDB
Dim oRS
Dim sSQL
Set oDB = New DBHandler
Set oRS = Server.CreateObject("ADODB.RecordSet")
sSQL = "SELECT M_Id, M_Title, MT_Name, M_User, M_Artist, M_Description, M_Created, M_Type FROM Media, MediaTypes WHERE M_Type = MT_Id"
If iMediaType > 0 Then sSQL = sSQL & " AND M_Type = " & iMediaType
If sUserName <> "" Then sSQL = sSQL & " AND M_User = '" & FixQuotes(sUserName) & "'"
Select Case sSort
Case "date_desc"
sSQL = sSQL & " ORDER BY M_Created DESC, M_Title"
Case "date_asc"
sSQL = sSQL & " ORDER BY M_Created ASC, M_Title"
Case "title_desc"
sSQL = sSQL & " ORDER BY M_Title DESC"
Case "mediatype_desc"
sSQL = sSQL & " ORDER BY MT_Name DESC, M_Title"
Case "mediatype_asc"
sSQL = sSQL & " ORDER BY MT_Name ASC, M_Title"
Case "owner_desc"
sSQL = sSQL & " ORDER BY M_User DESC, M_Title"
Case "owner_asc"
sSQL = sSQL & " ORDER BY M_User ASC, M_Title"
Case Else
sSQL = sSQL & " ORDER BY M_Title ASC"
End Select
Set oRS = oDB.RetrieveRS(sSQL)
If Not oRS.EOF Then GetAllMedias = oRS.GetRows()
Set oDB = Nothing
Set oRS = Nothing
End Function</code>
Jag har tittat på andra paging script men får inte ihop det. Är det någon villig som vill finna ut ett svar.// Jocke

Jag föreslår att du tittar på den artikeln här på sektionen asp - den ger dig precis all den information du söker.

Hälsningar
/Pelle