Nu har jeg gjort sådan for at undgå det med opdatering af siden, men det virker ikke
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
' Databaseforbindelse - husk at angive sti til din database
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("kmregnskab.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
' Tæller det samlede antal træningspas
strSQL = "SELECT COUNT(ID) AS Antal FROM ThomasJensen"
' SQL sætning eksekveres
Set rs = Conn.Execute(strSQL)
'Data skrives ud
Response.Write "<p>Du har ialt indtastet " & rs("Antal") & " træningspas i KM-regnskabet.</p>"
' Tæller antal poster vedr. Landevej
strSQL = "SELECT COUNT(Træningsform) AS AntalLAND FROM ThomasJensen WHERE Træningsform = 'Landevej'"
' SQL sætning eksekveres
Set rs = Conn.Execute(strSQL)
'Data skrives ud
Response.Write "<p>Du har indtastet " & rs("AntalLAND") & " træningspas vedr. landevej.</p>"
' Tæller antal poster vedr. MTB
strSQL = "SELECT COUNT(Træningsform) AS AntalLAND FROM ThomasJensen WHERE Træningsform = 'MTB'"
' SQL sætning eksekveres
Set rs = Conn.Execute(strSQL)
'Data skrives ud
Response.Write "<p>Du har indtastet " & rs("AntalLAND") & " træningspas vedr. MTB.</p>"
' Summere antal poster i kolonnen KM
strSQL = "SELECT SUM(KM) AS Summen FROM ThomasJensen"
' SQL sætning eksekveres
Set rs = Conn.Execute(strSQL)
'Data skrives ud
Response.Write "<p>Du har kørt " & rs("Summen") & " kilometer ialt.</p>"
' SQL forespørgsel på landevej
strSql = "SELECT * FROM ThomasJensen WHERE Træningsform = 'Landevej' ORDER BY Dato DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
'Overskrift
Response.Write "<strong>LANDEVEJ:</strong><br>"
' Gennemløb Recordset (rs) med en løkke
Do
sKM = rs("KM")
dDato = rs("Dato")
' Udskriv værdien af kolonnen Dato og KM
Response.Write ""
Response.Write "<strong><font color=""#ff0000"">" & dDato & "</font></strong> "
Response.Write "" & sKM & "<br><br>"
Response.Write ""
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' SQL forespørgsel på MTB
strSql = "SELECT * FROM ThomasJensen WHERE Træningsform = 'MTB' ORDER BY Dato DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
'Overskrift
Response.Write "<strong>MOUNTAINBIKE:</strong><br>"
' Gennemløb Recordset (rs) med en løkke
Do
sKMMTB = rs("KM")
dDatoMTB = rs("Dato")
' Udskriv værdien af kolonnen Dato og KM
Response.Write ""
Response.Write "<strong><font color=""#ff0000"">" & dDatoMTB & "</font></strong> "
Response.Write "" & sKMMTB & "<br><br>"
Response.Write ""
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
Response.Redirect(Request.ServerVariables("SCRIPT_NAME"));
End if
%>
Men det virker ikke, der kommer en fejl:
HTTP 500 - Internal server error
Internet Explorer
Fomse:-)
