<html>
<head>
<title>New Page 2</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<div align="center"><center>
<table>
<tr>
<td valign="top"><p align="left"><% if mode = "" then %> <% mode = request("mode") %> </p>
<form METHOD="post" ACTION="?mode=send">
<div align="left"><table border="0" width="100%">
<tr>
<td width="100%" align="center"><font size="2" face="Arial"><% end if %> <% if mode = "send" then %> <% if request.form("fra_navn") = "" OR request.form("fra_mail") ="" OR request.form("emne") ="" OR request.form("besked") ="" then
response.write("Du mangler at indtaste en oplysning")
else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "post.tele.dk"
JMail.Sender = Request.Form("fra_mail")
JMail.Sendername = Request.Form("fra_navn")
JMail.Subject = Request.Form("emne")
JMail.AddRecipient Request.Form("D1")
JMail.Body = Request.Form("besked")
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Silent = True
If JMail.Execute then
%> Tak for din Mail. <% Else %> Mailen
er desværre ikke afsendt prøv igen. <% End If %> <% end if %> <% end if %> </font></td>
</tr>
<tr>
<td width="100%" align="center"><font size="2" face="Arial"><div align="left"><p></font><small><font
face="Arial">Att :</font></small> <select name="D1" size="1">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database.mdb")
Set rs = Conn.Execute("select * from kontaktmail")
Do until rs.eof
%> <option value="<%=rs("kontaktmail")%>"><%=rs("kontaktnavn")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%> </select><font size="2" face="Arial"><br>
<br>
Dit Navn:<br>
<input type="text" name="fra_navn" size="20"><br>
Din E-mail:<br>
<input type="text" name="fra_mail" size="20"><br>
Emne:<br>
<input type="text" name="emne" size="35"><br>
Spørgsmål/kommentar:<br>
<textarea cols="35" rows="6" name="besked"></textarea><br>
<br>
<input TYPE="submit" VALUE="Send E-mail"></font></td>
</tr>
</table>
</div>
</form>
</td>
</tr>
</table>
</center></div>
</body>
</html>
Det eneste du skal bruger en database med tabel = kontaktmail og
og to felter, kontaktmail og kontaktnavn
Ny bruger
Nybegynder
Opret
Preview
