hjælp til lidt asp..
Er ved at lave sådan en lille smart føsdags ting ;)Men..
har prøvet at få det til at funke sådan at når der er en person der har føsdag så skal der sendes en email til personen med lidt tillykke osv..
Men hvordan laver jeg det? kan ikke selv hitte det..
Hjælp... Min kode ser så ledes ud : <%'//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>
