Har lige lavet en lille smule mere:
Dette er filen vis...
<html>
<head>
<title>Untitled</title>
<style type="text/css">
<!--
-->
</style>
</head>
<body topmargin="20" leftmargin="30">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("kmregnskab.mdb")
Conn.Open DSN
' Henter data ud til en dropdown boks
sSql = "SELECT id, navn FROM medlem"
Set Rs = Conn.Execute(sSql)
Do while not Rs.EOF
strHtml = strHtml & "<option value='"& Rs("id") &"'>"& Rs("navn") &"</option>"
Rs.MoveNext
Loop
' Henter vores id ud. Sættes først til -1 hvis der ikke er noget id.
If IsEmpty(Request.Form("member")) Then
intId = -1
else
intId = Request.Form("member")
End If
Function printRs(rs)
do while not rs.eof
strPrint = strPrint & "<strong><font color=""#ff0000"">" & rs("dato") & "</font></strong> " & Rs("km") & "<br>"
rs.movenext
loop
printRs = strPrint
End Function
%>
<form action="viskmregnskab.asp" method="post">
<select name="member">
<%= strHtml %>
</select>
<input type="submit" value="se statestik">
</form>
<%
If Not intId = -1 Then
Response.Write("<p>Du har ialt indtastet " & Conn.Execute("SELECT COUNT(ID) AS Antal FROM ThomasJensen WHERE id =" & intId)(0) & " træningspas i KM-regnskabet.</p>" & vbcrlf)
Response.Write("<p>Du har indtastet " & Conn.Execute("SELECT COUNT(Træningsform) AS AntalLAND FROM ThomasJensen WHERE Træningsform = 'Landevej' AND id = " & intId)(0) & " træningspas vedr. landevej.</p>")
Response.Write("<p>Du har indtastet " & Conn.Execute("SELECT COUNT(Træningsform) AS AntalLAND FROM ThomasJensen WHERE Træningsform = 'MTB' AND id = " & intId)(0) & " træningspas vedr. MTB.</p>")
Response.Write("<p>Du har kørt " & Conn.Execute("SELECT SUM(KM) AS Summen FROM ThomasJensen WHERE id = " & intId)(0) & " kilometer ialt.</p>")
Set Rs = Conn.Execute("SELECT * FROM ThomasJensen WHERE Træningsform = 'Landevej' AND id = " & intId & " ORDER BY Dato DESC")
Response.Write("<strong>LANDEVEJ:</strong><br>" & printRs(rs))
Set Rs = Conn.Execute("SELECT * FROM ThomasJensen WHERE Træningsform = 'MTB' AND id = " & intId & " ORDER BY Dato DESC")
Response.Write("<strong>MTB:</strong><br>" & printRs(rs))
End If
%>
Klik og vend tilbage til <a href="indtastning.asp" target="_top">indtastningsfeltet</a>
</body>
</html>
