Ka' ik' gå tilbage, og bliver ved med at gå frem (Pagging)

hej, vil du have et andet paging script

Download: adovbs.inc - http://www.aspscript.dk/adovbs/adovbs.zip



<!-- #include file="inc/adovbs.inc" -->
<%
    Response.Write "<Center>"
    intBillede = Request.Querystring("billede")
    If Request.Querystring("billede") =< 0  Then
        intBillede = 1
        Else
        intBillede = CInt(Request.Querystring("billede"))
        End If

    Set objRS = Server.CreateObject("ADODB.RecordSet")
    objRS.CursorLocation = adUseClient
    objRS.PageSize = 1
   
    strSQL = "SELECT sti FROM billeder"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/db/database.mdb")
    objRS.Open strSQL, strDSN, 1
   
    intPageCount = objRS.PageCount
    'intRecCount = objRS.PageSize
    If intBillede > intPageCount Then
    intBillede = intPageCount
    end if
   
    If Not objRS.EOF Then
    objRS.AbsolutePage = intBillede
    Response.Write "Side <B>" & intBillede & "</B> af <B>" & intPageCount & "</B>"
    Response.Write "<Br>"
    Response.Write "<Br>"
   
    Do While objRS.AbsolutePage = intBillede And Not objRS.EOF
    Response.Write "<Img Src=""/Filer/" & objRS("Sti") & """>"
    objRS.MoveNext
      Loop
   
    End If
   
    If intPageCount > 0 Then
    Response.Write "<Br>"
    Response.Write "<Br>"
    Response.Write "Gå til side: "
   
    For intNum = 1 To intPageCount
    Response.Write "<A Href=""?Side=Vis&Billede=" & intNum & """>" & intNum & "</A>"
    Next
    Response.Write "<Br>"
    Response.Write "<Br>"
   
    If intBillede <> 1 AND intBillede <> 0 Then
    Response.Write "<A Href=""?Side=Vis&Billede=" & intBillede - 1 & """>&lt;&lt;</a>"
    Else
    Response.Write "&lt;&lt;"
    End If
   
    Response.Write "&nbsp;"
   
    If intBillede < intPageCount Then
    Response.Write "<A Href=""?Side=Vis&Billede=" & intBillede + 1 & """>&gt;&gt;</A>"
    Else
    Response.Write "&gt;&gt;"
    End If
    End If
   
    Response.Write "</Center>"

    objRS.Close
    Set objRS = Nothing
%>

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/TTT/Yes.asp, line 17


- Og linie 17 forlyder:

objRS.CursorLocation = adUseClient


Tak for hjælpen, ska' du da ha'!

har du husket at downloade adovbs.inc - og includere den

<!-- #include file="adovbs.inc" -->

Så virker det sgu..

Men når jeg smider hele mit gallri sammen, så melder den fejl..
Filen ser sådan ud:

<!-- #include virtual="/_include/includes.asp" -->
<!-- #include virtual="/TTT/adovbs.inc" -->

<%

Call OpenDataBase

Session("Brugernavn") = "Kristian"
Session("IP") = Request.ServerVariables("Remote_Addr")


'*** Upload form - Start ***

Response.Write "<Form Action=""?Side=Upload"" Method=""Post"" Enctype=""Multipart/form-data"">"

Response.Write "Sti:"
Response.Write "<Br>"
Response.Write "<Input Type=""File"" Size=""30"" Name=""Sti"">"
Response.Write "<Br>"
Response.Write "Beskrivelse:"
Response.Write "<Br>"
Response.Write "<Textarea Type=""Text"" Name=""Beskrivelse"" Rows=""8"" Cols=""27""></Textarea>"
Response.Write "<Br>"
Response.Write "<Br>"
Response.Write "<Input Type=""Submit"" Value=""Upload.."">"

Response.Write "</Form>"

'*** Upload form - Slut ***

If Request.Querystring("Side") = "Upload" Then

'*** Upload - Start ***

Response.Expires = -180
Response.Buffer = True
Session.LCID = 1030

iFejl = 0

Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.Save

Set File = Upload.Files("Sti")

If Not File Is Nothing Then

Filename = File.Filename

Filesize = File.Size
       
If Filesize > 102400 Then
iFejl = 1
strFejl = strFejl & "Filen må ikke fylde mere end 100 KB..<Br>"
End If

strBeskrivelse = Trim(Upload.Form("Beskrivelse"))

If Len(strBeskrivelse) <= 0 Then
iFejl = 1
strFejl = strFejl & "Du skal udfylde Beskrivelsen..<Br>"
End If

Filetype = File.ImageType

If LCase(FileType) <> "gif" And LCase(FileType) <> "jpg" And LCase(FileType) <> "jpeg" Then
iFejl = 1
strFejl = strFejl & "Filen <B>SKAL</B> være GIF eller JPG..<Br>"
End If

If Upload.FileExists(Server.MapPath("/Filer/" & Filename)) Then
iFejl = 1
strFejl = strFejl & "Der findes allerede en fil med det valgte navn - Vælg et andet..<Br>"
End If

Else
iFejl = 1
strFejl = strFejl & "Du skal vælge en fil..<Br>"

End If

If iFejl = 0 Then

File.SaveAs Server.MapPath("/Filer/" & File.Filename)

Sti = Upload.Files("Sti").FileName
Beskrivelse = FixTegn(Upload.Form("Beskrivelse"))
Brugernavn = Session("Brugernavn")
Dato = Now()
IP = Session("IP")

strSQL = "Insert Into Billeder (Sti, Beskrivelse, Brugernavn, Dato, IP) Values('" & Sti & "','" & Beskrivelse & "','" & Brugernavn & "','" & Dato & "','" & IP & "')"
objConn.Execute(strSQL)

Response.Redirect("?Side=Meddelse&Hvad=Filen er nu uploadet..")

End If

Set objUpload = Nothing

End If

'*** Upload - Slut ***

'*** Fejl - Start ***

If iFejl <> "" then

Response.Write "<b>Der er opstået en fejl:</b><br>"
Response.write "<i>" & strFejl & "</i><br><br>"
Response.Write "<a href=""java script:history.back();"">Tilbage</a>"

End if

'*** Fejl - Slut ***

If Request.Querystring("Side") = "Slet" Then

'*** Slet billede - Start ***

Fil = Request.QueryString("Sti")
Mappe = "/Filer/"

strSQL = "DELETE * FROM Billeder WHERE Sti = '" & Fil & "'"
objConn.Execute (strSQL)

Set Upload = Server.CreateObject("Scripting.FileSystemObject")
If (Upload.FileExists(Server.MapPath(Mappe & "/" & Fil)) = True) Then
Upload.DeleteFile(Server.MapPath(Mappe & "/" & Fil))
End If
Set Upload = Nothing

Response.Redirect("?Side=Meddelse&Hvad=Billedet blev nu slettet..")

End if

'*** Slet billede - Slut ***

If Request.Querystring("Side") = "VisAlle" Then

'*** Vis Alle - Start ***

strPageSize = 4 'antal billeder på hver linie

strSQL = "Select * From Billeder"
Set objRS = objConn.Execute(strSQL)

If objRS.EOF Then
Response.Write "Der er desværre ingen billeder endnu.."
Else

ArrBeskrivelse = ""
ArrUploaded = ""

objRS.Movefirst
Do While Not objRS.EOF

Beskrivelse = Beskrivelse & objRS("Beskrivelse") & ","
Dato = Dato & objRS("Dato") & ","

objRS.Movenext
Loop

ArrBeskrivelse = Split(Beskrivelse, ",")
ArrDato = Split(Dato, ",")

objRS.Movefirst

i = 0
Total = 0

Response.Write "<Table>"
Response.Write "<Tr>"

Do While Not objRS.EOF

i = i + 1
Total = Total + 1

Response.Write "<Td Width=""200"" Height=""200"">"
Response.Write "<A Href=""?Side=Vis&Sti=" & objRS("Sti") & """>"
Response.Write "<Img Width=""200"" Height=""200"" Border=""0"" Src=""/Filer/" & objRS("Sti") & """ Alt=""" & objRS("Beskrivelse") & """>"
Response.Write "</A>"
Response.Write "</Td>"

If i = strPageSize Then

Response.Write "</Tr>"
Response.Write "<Tr>"

iNummer = Cint(Total)-Cint(strPageSize)
For ie = 1 to strPageSize

Response.Write "<Td Width=""200"" Height=""200"">"

If ArrBeskrivelse(iNummer) = "" Then
Response.Write "Der er desværre ingen beskrivelse.."
Else
Response.Write ArrBeskrivelse(iNummer)
End if

Response.Write "<Br>"
Response.Write "Uploaded: " & ArrDato(iNummer) & ""
Response.Write "</Td>"

iNummer = iNummer + 1
next

Response.Write "</Tr>"
Response.Write "<Tr>"

i = 0

End if



'*** Vis Alle - Slut ***

If Request.Querystring("Side") = "Vis" Then

'*** Vis en enkel - Start ***

Response.Write "<Center>"
    intBillede = Request.Querystring("billede")
    If Request.Querystring("billede") =< 0  Then
        intBillede = 1
        Else
        intBillede = CInt(Request.Querystring("billede"))
        End If

    Set objRS = Server.CreateObject("ADODB.RecordSet")
    objRS.CursorLocation = adUseClient
    objRS.PageSize = 1
   
    strSQL = "SELECT sti FROM billeder"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/db/database.mdb")
    objRS.Open strSQL, strDSN, 1
   
    intPageCount = objRS.PageCount
    'intRecCount = objRS.PageSize
    If intBillede > intPageCount Then
    intBillede = intPageCount
    end if
   
    If Not objRS.EOF Then
    objRS.AbsolutePage = intBillede
    Response.Write "Side <B>" & intBillede & "</B> af <B>" & intPageCount & "</B>"
    Response.Write "<Br>"
    Response.Write "<Br>"
   
    Do While objRS.AbsolutePage = intBillede And Not objRS.EOF
    Response.Write "<Img Src=""/Filer/" & objRS("Sti") & """>"
    objRS.MoveNext
      Loop
   
    End If
   
    If intPageCount > 0 Then
    Response.Write "<Br>"
    Response.Write "<Br>"
    Response.Write "Gå til side: "
   
    For intNum = 1 To intPageCount
    Response.Write "<A Href=""?Side=Vis&Billede=" & intNum & """>" & intNum & "</A>"
    Next
    Response.Write "<Br>"
    Response.Write "<Br>"
   
    If intBillede <> 1 AND intBillede <> 0 Then
    Response.Write "<A Href=""?Side=Vis&Billede=" & intBillede - 1 & """>&lt;&lt;</a>"
    Else
    Response.Write "&lt;&lt;"
    End If
   
    Response.Write "&nbsp;"
   
    If intBillede < intPageCount Then
    Response.Write "<A Href=""?Side=Vis&Billede=" & intBillede + 1 & """>&gt;&gt;</A>"
    Else
    Response.Write "&gt;&gt;"
    End If
    End If
   
    Response.Write "</Center>"

    objRS.Close
    Set objRS = Nothing

End If

'*** Vis en enkel - Slut ***

If Request.Querystring("Side") = "Meddelse" Then

'*** Meddelse - Start ***

Hvad = Request.QueryString("Hvad")

Response.Write Hvad

End If

'*** Meddelse - Slut ***

Call CloseDataBase

%>


Og fejlen lyder:

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/TTT/index.asp, line 308



- Kan du hjælpe?
Og er filen adovbs.inc nødvendig, og hva' gør den?

øhh - prøv lige at rette -
--------------------------
iNummer = iNummer + 1
next
Response.Write "</Tr>"
Response.Write "<Tr>"
i = 0
End if
'*** Vis Alle - Slut ***
--------------------------
til
--------------------------
iNummer = iNummer + 1
objRs.movenext
loop
Response.Write "</Tr>"
Response.Write "<Tr>"
i = 0
End if
'*** Vis Alle - Slut ***

adovbs.inc, er Microsofts type bibliotek som omsætter en connection's eller recordset's parametre til ord istedet for tal,

ex. der bruger adovbs.inc

rs.Open strSQL, dbconn, adOpenStatic, adLockReadOnly

det kunne lige sågodt være

rs.Open strSQL, dbconn, 3, 1

I adovbs.inc ligger altså alle de parametre som anvendes i forbindelse med ADO database forbindelser, og jeg kan kun anbefale dig at begynde at benytte den.
Hvis du åbner filen kan du få et overblik over hvilke parametre der egentlig er, og det falder ligsom i øjnene at hvis man skulle huske alle de kryptiske talværdier bliver det uoverskueligt. Det er væsentligt nemmere at huske "beskrivene ord"

Du har i dit script følgende

objRS.CursorLocation = adUseClient

Åbner du adovbs.inc og finder

'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

- så kan du se at adUseClient har værdien 3
det vil sige at hvis du ikke vil bruge adovbs.inc så skriver du bare

objRS.CursorLocation = 3    'i stedet for og smider din adovbs.inc væk i en mappe.

Nu har jeg bare gjort mig det til vane at bruge ADO biblioteket

Du kan læse mere/ alt om ADO her http://www.w3schools.com/ado/
Den adovbs.inc du har er ikke den komplette. Den kan du hendte her http://www.aspscript.dk/ado/full_adovbs.zip

Prøv bare for sjov at fjerne linien, sæt ' foran, og se hvad der sker...

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/TTT/index.asp, line 209

loop
^

- Kommer fejlen til at hedde, så.

nåå ja din next hører jo til
For ie = 1 to strPageSize

prøv sådan her

iNummer = iNummer + 1
next
Response.Write "</Tr>"
Response.Write "<Tr>"
objRs.MoveNext
loop
i = 0
End if
'*** Vis Alle - Slut ***

Samme fejl, desværre :(

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/ttt/index.asp, line 212

loop
^

nå da hmm - der mangler jo også nogle End If
Så må det være sådan her
--------
iNummer = iNummer + 1
next
Response.Write "</Tr>"
Response.Write "<Tr>"
i = 0
End if
objRs.movenext
loop
End If
End If

Så virker det..
Mange tak for hjælpen, du fortjener de points :o)

- God weekend..

I lige måde ;)