<%
Response.write "<form action='sortering.asp' method='post' style='display:inline'>"
Response.write "<select name='DropBox'>"
Response.write "<option value='Valg'>Vælg sorteringsform...</option>"
Response.write "<option value='priser'>Priser</option>"
Response.write "</select>"
Response.write "<input type='submit' value='OK' />"
Response.write "</form><br /><br />"
varDropBox = Request.form("DropBox")
if Len(varDropBox) = 0 then
varDropBox = Request.QueryString("DropBox")
End if
Select Case varDropBox
'===================================================
Case "priser"
'===================================================
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM vare WHERE salgspris <> '' ORDER BY salgspris;"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/vti_log/lager.mdb")
rs.Open strSQL, strDSN, 1
if Not (rs.BOF Or rs.EOF) then
rs.PageSize = 18
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b> (Sorteret efter pris)</p>"
Do While Not rs.EOF And intRecCount > 0
Response.write "<img src='image/pil1.gif'> <a href='beskrivelse.asp?id=" & rs("id") & "'>"
Response.write rs("salgspris")
Response.write " kr.</a> ("
Response.write rs("del")
response.write " med varenr. "
Response.write rs("varenummer")
Response.write ") "
if rs("afsendt") = "Ja" then
response.write "<img src='image/solgt.gif' alt='Er solgt!'>"
else
response.write "<img src='image/ikkesolgt.gif' alt='Ikke solgt!'>"
end if
Response.write "<br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.write "</div><div id='midtenbunden'>"
Response.write "<br /><img src='image/stiblet.gif'><br>"
Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=sortering.asp?DropBox=priser&page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<br>"
If Clng(intPage) > 1 Then
Response.Write "<a href=sortering.asp?DropBox=priser&page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=sortering?DropBox=priser&page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
response.write "<br>"
'===================================================
Case "Valg"
'===================================================
Response.write " Du har ikke valgt sorteringsform!"
End select
%>
