Ryde/ændre databasen automatisk hvr lørdag?
Jeg har følgende hvor man tilmelder sig træning:Default.asp:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Tilmeld</title>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<style type="text/css">
<!--
-->
</style><link rel="stylesheet" href="http://www.team-ccc.dk/KMregnskab/team-ccc.css">
</head>
<body>
<%
' 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("db.mdb")
Conn.Open DSN
' SQL forespørgsel
strSql = "SELECT * FROM Uge WHERE id = (SELECT MAX(ID) FROM Uge)"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
sUge = rs("uge")
' Udskriv værdien af kolonnen Uge
Response.Write " Træning uge: <strong><font color=""#ff0000"">" & sUge & "</font></strong>"
' 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
%>
<form action="tilmeld.asp" method="post" name="form1" id="form1">
<table cellspacing="2">
<tr>
<td>
<table>
<tr>
<td colspan="2"><strong>Tirdag</strong></td>
</tr>
<tr>
<td>Navn:</td>
<td>
<input type="text" name="fname2" size="20" maxlength="50">
</td>
</tr>
</table>
</td>
<td>
<table>
<tr>
<td colspan="2"><strong>Lørdag</strong></td>
</tr>
<tr>
<td>Navn:</td>
<td>
<input type="text" name="fname" size="20" maxlength="50">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan=2><input type="submit" value="Tilmeld"></td>
</tr>
</table>
</form>
<a href="Admin/default.asp">Admin</a>
</body>
</html>
tilmeld.asp:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<title>Untitled</title>
</head>
<style type="text/css">
<!--
-->
</style><link rel="stylesheet" href="http://www.team-ccc.dk/KMregnskab/team-ccc.css">
<body>
<%
if request.servervariables("request_method") = "POST" then
' der er submittet..
dim conn, strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath(".")+"/db.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn
fname = request.form("fname")
fname2 = request.form("fname2")
conn.execute("insert into tilmeld(fname, fname2) values ('"&fname&"', '"&fname2&"')")
response.redirect "tak.asp"
else
response.write "Du skal indtaste noget! Gå tilbage igen.."
end if
%>
<br>
<br>
<a href="http://www.team-ccc.dk" target="_top">Tilbage</a>
</body>
</html>
Problemet er at jeg manuelt skal ind og slette tilmeldinger i databasen og samtidig ændre ugen manuelt (uge 15, 16 osv.)
er det på nogen måde muligt at lave det sådan at tilmeldninger automatisk slettet hver lørdag kl. 10.00 og at ugen automatisk skifter?
Ville blive meget glad hvis nogen kunne hjælpe mig.....
fomse:-)
