Hej med jer
Håber at der er nogle der kan være behjælpelig med følgende udfordring.
Følgende ASP kode gør det muligt at klikke frem og tilbage i et givent billed galleri, MEN mangler en stump kode der ikke får første billed med PREV knappen og sidste billed i databasen med NEXT knappen til at gå i fejl '80020009', skulle gerne kunne ramme den sidste eller første billed istedet for fejlen.
Her er koden:
' Display information for a specific images
' IN : iID (int) : image's id (table images, field iID)
' OUT : -
Sub DisplayImage(iID, iPage)
Dim oCn, oRs, rSQL, iPrev, iNext, iMovePrev, iMoveNext, iMoveFirst, oMovePrev, oMoveNext
Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT * FROM images WHERE iValid=True AND iID=" & iID
iMovePrev = "SELECT * FROM images WHERE iValid=True AND iID=" & iID - 1
iMoveNext = "SELECT * FROM images WHERE iValid=True AND iID=" & iID + 1
Set oMovePrev = DBRecordSet(oCn, iMovePrev)
Set oMoveNext = DBRecordSet(oCn, iMoveNext)
Set oRs = DBRecordSet(oCn, rSQL)
Set iPrev = oMovePrev("iID")
Set iNext = oMoveNext("iID")
If Not oRs.EOF Then
rSQL = "UPDATE images SET iHits=" & oRs("iHits") +1 & " WHERE iID=" & iID
DBExecute oCn, rSQL
CreateTopTable "Image", Server.HTMLEncode(oRs("iTitle"))
Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write " <tr class=""tableline1""><td align=""center""><a href=""" & GLOBAL_SITE_IMAGES_PAGE & "?id=" & iPrev & """> Forrige </a>"
Response.Write " <a href=""" & GLOBAL_SITE_IMAGES_PAGE & "?id=" & iNext & """> Næste </a></td></tr>" & vbCRLF
Response.Write " <tr class=""tableline1""><td align=""center""><img src=""" & Server.HTMLEncode(oRs("iSourceNormal")) & """ border=""0""></a></td></tr>" & vbCRLF
Response.Write " <tr class=""tableline2""><td align=""center"">" & CodeMessage(oRs("iDescription") , False) & "</td></tr>" & vbCRLF
Response.Write " <tr class=""tableline1""><td align=""center"">" & GetTranslation("LANG_HITS") & " : " & oRs("iHits") +1 & "</td></tr>" & vbCRLF
Response.Write " <tr class=""tablelinemain"">"
Response.Write "</table>" & vbCRLF
CreateBottomTable ""
End If
oCn.Close
Set oCn = Nothing
Set oRs = Nothing
End Sub
Er en total nybegynder indenfor ASP, derfor mit spørgsmål.
På forhånd mange tak.