hvis du henter databasen ovenfor igen og bruger denne kode vil der skiftevis blive lavet en registrering på komme og gå uden at brugeren skal tænke over det.
Hvis der ingen registrering er på brugeren vil det blive en ind registrering. Om det er hensigstmæssigt ved jeg ikke - man kunne også lave en option box til det
<%
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
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("\") & "\..\db\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 = "#" & now & "#"
' 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, ind, ud) VALUES (" & bruger_id & "," & dato_tid & ",-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, ind, ud) VALUES (" & bruger_id & "," & dato_tid & ",0,-1);"
else '<-- så var sidste registrering en ud registrering
strSqlWriteReg = "INSERT INTO [tbl_reg] (bruger_id, dato, ind, ud) VALUES (" & bruger_id & "," & dato_tid & ",-1,0);"
end if
end if
'opdater databasen
oConn.execute (strSqlWriteReg)
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="">
<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" action="default.asp">
</p>
<p>
</p>
<p> </p>
</form>
<% End if %>
