Side skift med asp hvis flere en 10 poster
Hej igen igenjeg har en kørsel-database hvor der bliver indtastet dato og start/slut-km og bruger kan i hjælpe det jeg gerne ville have er : den skal hente en specifik bruger efter brugers valg vise max 10 og have mulighed for at indtaste nye data.
her er hvad jeg har : www.blueeye.dk/visdb1.asp
<html>
<title>Hente data fra database</title>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
</head>
<body>
<ul>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=D:\web\blueeye.dk_p7e8vv\db\km.mdb"
Conn.Open DSN
strSQL = "Select * From kilometer Order by DATO"
Set rs = Conn.Execute(strSQL)
Do
strLink = rs("Dato") & " " & rs("Position") & " " & rs("km") & " " & rs("Bruger")
Response.Write "<li>" & strLink & "</li>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</ul>
</body>
</html>
her er filerne
www.blueeye.dk/hent_km.asp
<html>
<title>Hente data fra KMdatabase</title>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
</head>
<body>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\web\blueeye.dk_p7e8vv\db\km.mdb"
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from user"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
Response.Write "<form action='visKM.asp' method='post' name='Hent user'>"
Response.Write "<select name='user'>"
Do
Response.Write "<option>" & rs("bruger") & "</option>"
' Gå til næste Record i rs
rs.MoveNext
Loop While Not rs.EOF
Response.Write "</select> <input type='submit' value='Vis Bruger' name='Vis Bruger'></form>"
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
www.blueeye.dk/viskm.asp
<html><head>
<title>Hentning af KM</title>
<meta name="Generator" content="Stone's WebWriter 4">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
</head><body>
<div style="text-align:center">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\web\blueeye.dk_p7e8vv\db\km.mdb"
conn.Open strDSN
strSQL = "Select * From kilometer Where Bruger = " & Request.Querystring("user")
rs.Open strSQL, Conn, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10 'Antal billeder pr. side
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
antalPrRow = 1 'antal poster pr række
noPrRow=0 'tælle variable
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
response.Write "<table>"
Do While Not rs.EOF And intRecCount > 0
if noPrRow=0 then Response.Write "<tr>"
Response.Write "<td>" & rs("Dato") & rs("position") & rs("KM") & rs("Bruger") & "</a></td>"
noPrRow=noPrRow+1
if noPrRow=antalPrRow then
response.write "</tr>"
noPrRow=0
end if
intRecCount = intRecCount - 1
rs.MoveNext
Loop
if noPrRow>0 then response.write "</tr>"
response.write "</table>"
End If
rs.Close
Set rs = Nothing
Conn.Close
Set Conn=nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</div>
</body></html>
jeg håber der er en der kan hjælpe
