Når du har lavet den nye kolonne i tabellen kunne koden eks. være sådan her:
<%'//følgende fortæller at dato skal i være i dansk format!
Session.LCID = 1030
'//Her vælger vi databasen og tilslutter!
Set myConn = Server.CreateObject("ADODB.Connection")
'myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("event.mdb")
myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("event.mdb")
sql = "select * from Datoer where Month="&Month(now)&" ORDER BY Navn"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, myConn, 1, 3
page = Request("page")
Response.Buffer = True%>
<html>
<head>
<title>Fødselsdags Kalender</title>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#CCCCCC">
<%if page="new" then%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="100%"><font size="2" face="Verdana">Tilføj din egen fødselsdag..</font>
<form method="POST" action="?page=add">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="21%"><font size="2" face="Verdana">Dit Navn:</font></td>
<td width="81%">
<input type="text" name="Navn" size="30" maxlength="50"></td>
</tr>
<tr>
<td width="21%"><font size="2" face="Verdana">Din E-mail:</font></td>
<td width="81%">
<input type="text" name="Email" size="30" maxlength="50"></td>
</tr>
<tr>
<td width="21%"><font size="2" face="Verdana">Din Fødselsdag:</font></td>
<td width="81%"><select size="1" name="Day">
<option selected value="01">01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8">08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select> - <select size="1" name="Month">
<option selected value="01">Januar</option>
<option value="2">Februar</option>
<option value="3">Marts</option>
<option value="4">April</option>
<option value="5">Maj</option>
<option value="6">Juni</option>
<option value="7">Juli</option>
<option value="8">August</option>
<option value="9">September</option>
<option value="10">Oktober</option>
<option value="11">November</option>
<option value="12">December</option>
</select> - <input type="text" name="year"></td>
</tr>
<tr>
<td width="21%"> </td>
<td width="81%"> </td>
</tr>
<tr>
<td width="21%"> </td>
<td width="81%"><input type="submit" value="Send" name="B1"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%end if%>
<%if page="add" then
'//Tjekker felterne er udfyldt!
if Request.form("Navn") = "" then Response.Redirect("event.asp?page=fejl&error=Du glemte at skrive et navn <a href=""java script:history.back(1)"">Tilbage</a>") end if
if Request.form("Email") = "" then Response.Redirect("event.asp?page=fejl&error=Du glemte at skrive en e-mail adresse <a href=""java script:history.back(1)"">Tilbage</a>") end if
'//Tilføjer ny fødselsdag i databasen!
rs.addnew
rs("Navn") = Request.Form("Navn")
rs("Email") = Request.Form("Email")
rs("Day") = Request.Form("Day")
rs("Month") = Request.form("Month")
rs("Year") = Request.form("Year")
rs.update
response.write("<font face=""verdana"" size=""2"">Fødselsdagen blev tilføjet i databasen..</font>")
end if%>
<%if page="fejl" then
response.write("<font face=""verdana"" size=""2"">"&request.querystring("error")&"</font>")
end if
if page="" then
response.write("<font face=""verdana"" size=""2""><a href=""?page=new"">Tilføj din fødselsdag</a></font>")
'//Hvis der ingen fødsesldage er skriver vi dette!
If rs.Eof or rs.Bof then
response.write("<table><tr><td><font face=""verdana"" size=""2"">Der er ingen der har fødselsdag i denne måned..</font></td></tr></table>")
else
'//Her starter vi vores tabel, kan også laves uden!
response.write("<table border=""0""><tr><td><font face=""verdana"" size=""2"">Fødselsdage i denne måned..</font></td></tr>")
'//Her starter vi en loop af datoer!
Do Until rs.eof
'//Her udskriver vi event i denne måned!
response.write "<tr><td><font face=""verdana"" size=""2"">"
response.write "<a href=""mailto:"&rs("Email")&""">"&rs("Navn")&"</a> har fødselsdag den: "&rs("Day")&"-"&rs("Month")&"-"&rs("Year") & " og "
if Int(day(now)) >= Int(rs("day")) then
response.write " fyldte "
else
response.write " fylder "
end if
Response.Write (Year(now) - rs("Year")) & " år."
response.write "</font></td></tr>"
rs.movenext
loop
response.write("<tr><td><font face=""verdana"" size=""2"">Klik på navnet for at sende en fødselsdags hilsen..</font></td></tr></table>")
'//Her lukker vi efter os!
rs.Close
Set rs = Nothing
myConn.Close
Set myConn = Nothing
end if
end if%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
