Timesystem, virker ikke?
Hej Eksperter..Jeg har et timesystem som ikke rigtig gider virke mere. Jeg har på fornemmelsen at det er min access database der svigter, men hvis i nu skulle se nogle fejl i koden her, så skriv endelig så jeg kan få rettet det.
----------------
<html>
<head>
<title>Community</title>
<!-- #include virtual="style.css" -->
</head>
<body>
<%
If Session("login") = true Then
%>
<%
mode = request("mode")
if mode = "" then
Session("opr_tid") = Time
%>
<meta HTTP-EQUIV='REFRESH' target='_self' CONTENT='61; URL=count2.asp?mode=save'>
<%
end if
%>
<p>
<%
if mode = "save" then
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../db/c1o2m3m4u5n6i7t8y9.mdb")
Conn.Open DSN
Set rs = Conn.Execute("SELECT * FROM brugere WHERE id = " & Session("id"))
nytid = rs("tid") + DateDiff("n", Session("opr_tid"), Time)
strSQL = ("UPDATE brugere SET tid=" & nytid & " WHERE id=" & Session("id"))
Conn.Execute(strSQL)
Set rs = Conn.Execute("SELECT * FROM brugere WHERE id = " & Session("id"))
dividerstykke = rs("tid")/60
If instr(dividerstykke, ",") Then
Response.Write ""
Else
strSQL = ("UPDATE brugere SET penge=penge+1 WHERE id=" & Session("id"))
Conn.Execute(strSQL)
End If
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Write "<meta HTTP-EQUIV='REFRESH' target='_self' CONTENT='0000; URL=count2.asp'>"
%>
<%
end if
%>
<%
Else
Response.Write "Logger af..."
End If
%>
</font></font>
</body>
</html>
