jeg er ved at lave et billede kalender med et arkiv... men nu er jeg løbet
ind i et problem som jeg ikke kan finde en løsning på..... alle billederne
bliver gemt i en DB
koden neden under lister alle billederne.... men det er ikke lige det den
skal.... den skal kun liste indtil at den kommer til den nuværende dato så
man ikke kan se de næste dags billeder..
den tabel som dato'en ligger i hedder "description"
håber der er nogen der kan hjælpe
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM myimages"
strDSN = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("aspupload.mdb")
rs.Open strSQL, strDSN, 1
intPage = Request("page")
req = request.querystring("ID")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
maxsize = 0
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 1
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Billede " & intPage & " af " & intPageCount &
"</b></p>"
Do While Not rs.EOF And intRecCount > 0
Response.write "<img Src=tubgetImage.asp?ID=" & req & ">"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Vælg Billede "
For intNum = 1 To intPageCount
Response.Write "<a href=arv.asp?page=" & intNum & "&ID=" & intNum&">" &
intNum & "</a> "
Next
Response.Write "<br>"
If Clng(intPage) > 1 Then
Response.Write "<a href=arv.asp?page=" & intPage - 1 & "&ID=" & req -
1&">Previous page</a> "
Else
Response.Write "Previous page"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=arv.asp?page=" & intPage + 1 & "&ID=" & req +
1&">Next page</a> "
Else
Response.Write "Next page"
End If
%>
/Frank Thomsen