koden til ovenstående link :
<%
Option explicit
dim oConn
dim oRsBruger
dim oRsReg
dim strSqlBruger
dim strSqlReg
dim strSqlWriteReg
dim bruger_navn
dim bruger_id
dim bruger_kode
dim dato_tid
dim dato
dim Moedetid
dim indStemplet
dim udStemplet
dim Minutter
dim TotalMinutter
dim ArbejdsTid
If request.ServerVariables("REQUEST_METHOD") = "POST" then
' hent data fra form
bruger_navn = replace(request.Form("navn"),"'","")
bruger_kode = replace(request.form("kode"),"'","")
' felter skal være udfyldt
if (trim(bruger_navn) = "") or (trim(bruger_kode) = "") then
response.write("Forkert navn og kode")
response.End()
end if
' find bruger
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") & "/jobreg.mdb;PWD=admin;"
strSqlBruger = "SELECT * FROM [tbl_bruger] WHERE [bruger_navn] = '" & bruger_navn & "' AND [bruger_kode] = '" & bruger_kode & "';"
set oRsBruger = oConn.execute(strSqlBruger)
' bruger ikke fundet
if oRSBruger.eof then
Response.Write("Forkert navn og kode")
else
' find registreringer på bruger
' sorter med nyeste øverst
bruger_id = oRsBruger("bruger_id")
strSqlReg = "SELECT * FROM [tbl_Reg] WHERE [bruger_id] = " & bruger_id & " ORDER BY [dato] DESC;"
set oRsReg = oConn.execute(strSqlReg)
'registrering
dato_tid = split(now, " ")
response.write (dato_tid(0) & "<BR>")
response.write (dato_tid(1) & "<BR>")
'response.end()
' første kørsel findes ingen registreringer for bruger
if oRsReg.eof then
'opret ny komme registrering
strSqlWriteReg = "INSERT INTO [tbl_reg] (bruger_id, dato, tid, ind, ud) VALUES (" & bruger_id & "," & dato_tid(0) & ",#" & dato_tid(1) & "#,-1,0);"
' efterfølgende kørsler
else
'kontroller om den seneste er en ind eller ud registrering
if oRsReg("ind") = -1 then '<-- så var sidste registrering en ind registrering
strSqlWriteReg = "INSERT INTO [tbl_reg] (bruger_id, dato, tid, ind, ud) VALUES (" & bruger_id & ",#" & dato_tid(0) & "#,#" & dato_tid(1) & "#,0,-1);"
else '<-- så var sidste registrering en ud registrering
strSqlWriteReg = "INSERT INTO [tbl_reg] (bruger_id, dato, tid, ind, ud) VALUES (" & bruger_id & ",#" & dato_tid(0) & "#,#" & dato_tid(1) & "#,-1,0);"
end if
end if
'opdater databasen
oConn.execute (strSqlWriteReg)
'skriv data for bruger
set oRsReg = oConn.Execute(strSqlReg)
response.Write("<table width=50% border=1><tr><td colspan=3>Registreringer for bruger " & bruger_navn & "</td></tr>")
do while not oRsReg.Eof
if oRsReg("Ind") = -1 then
Response.Write("<tr><td>Ind stempling" & "</td>" & "<td>" & oRsReg("Dato") & "</td><td> Kl: " & oRsReg("tid") & "</td></tr>")
else
Response.Write("<tr><td>Ud stempling" & "</td>" & "<td>" & oRsReg("Dato") & "</td><td> Kl: " & oRsReg("tid") & "</td></tr>")
end if
oRsReg.movenext
loop
response.Write("</table>")
response.write("<table width=50% border=1><tr><td>Dato</td><td>Tid</td><td>Info</td>")
dato = left(now,10)
strSqlReg = "SELECT * FROM [tbl_reg] " & _
"WHERE [bruger_id] = " & oRsBruger("bruger_id") & " AND [Dato] = #" & dato & "#;"
'"WHERE [bruger_id] = " & oRsBruger("bruger_id") & " AND [Dato] = #" & dato & "# Order by [Tid] ASC;"
set orsreg = oconn.execute(strsqlreg)
Moedetid = left(orsreg("Tid"),5)
Do until oRsReg.EOF
'den første registrering skal være en indStemplet ellers fejl
response.write (left(oRsReg("Tid"),5) & "<br>")
Indstemplet = timertilminutter(left(orsreg("Tid"),5))
oRsReg.MoveNext
if not oRsReg.Eof then
response.write (left(oRsReg("Tid"),5) & "<br>")
UdStemplet = timertilminutter(left(oRsReg("Tid"),5))
else
response.write (mid(now,12,5) & "<br>")
Udstemplet = timertilminutter(mid(now,12,5))
end if
Minutter = Udstemplet - Indstemplet
TotalMinutter = TotalMinutter + Minutter
if not oRsReg.Eof then
oRsReg.MoveNext
end if
loop
response.write (totalminutter & "<br>")
Arbejdstid = udregntid(totalMinutter)
response.write ("<tr><td>" & Dato & "</td><td>" & Moedetid & "</td><td>" & bruger_navn & " er kommet og har været her " & arbejdstid & ".</td></tr>")
response.write("</table")
response.Write("<p><a href=" & chr(32) & "default.asp" & chr(32) & ">Ny registrering</a></p>")
oRsReg.close
set oRsReg = nothing
end if
oRsBruger.close
oConn.close
set oRsBruger = nothing
set oConn = nothing
set strSqlBruger = nothing
set strSqlReg = nothing
set strSqlWriteReg = nothing
Else
%>
<form name="form1" method="post" action="default.asp">
<p>Navn<br>
<input type="text" name="navn">
<br>
Kode
<br>
<input type="text" name="kode">
</p>
<p>
<input type="submit" name="Submit" value="Registrering" >
</p>
<p>
</p>
<p> </p>
</form>
Følgende er i databasen (skriv navn som det står)<br>
<table border="1" width="50%">
<tr>
<td>Anders And</td><td>112233</td>
</tr>
<tr>
<td>Mickey Mouse</td><td>112244</td>
</tr>
<tr>
<td>Fedtmule</td><td>112255</td>
</tr>
</table>
<% End if %>
<%
Function udregnTid(tid)
Dim timer
Dim minutter
tid = cint(tid)
minutter = tid MOD 60
do until tid < 60
tid = tid - 60
timer = timer +1
loop
udregnTid = Timer & " time(r) og " & Minutter & " minut(ter)."
End Function
Function timerTilMinutter(tid)
Dim dummy
Dim timer
Dim minutter
tid = cstr(tid)
dummy = Split(tid, ":")
minutter = cint(dummy(1)) + cint(dummy(0) * 60)
timerTilMinutter = minutter
End Function
%>
