Formmail :)
Nogen der gider kigge dette script meget nøje igennem, der er en fejl et sted, men kan ikke lige finde den.Fejl beskrivelse:
jmail.SMTPMail error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/kontakt1.asp, line 45
Selvom i ikke kan pinge mail.soroe-dans.dk, så virker den fint nok.
bash# ping mail.soroe-dans.dk
PING hermes.web-sale.dk (62.61.157.246): 56 data bytes
64 bytes from 62.61.157.246: icmp_seq=0 ttl=255 time=0.105 ms
64 bytes from 62.61.157.246: icmp_seq=1 ttl=255 time=0.074 ms
64 bytes from 62.61.157.246: icmp_seq=2 ttl=255 time=0.105 ms
64 bytes from 62.61.157.246: icmp_seq=3 ttl=255 time=0.083 ms
64 bytes from 62.61.157.246: icmp_seq=4 ttl=255 time=0.074 ms
--- hermes.web-sale.dk ping statistics ---
5 packets transmitted, 5 packets received, 0% packet loss
round-trip min/avg/max/std-dev = 0.074/0.088/0.105/0.015 ms
Selve scriptet:
<%
If LCase(Request("action")) = "send" Then
If request.form("hmail") <> "" and request.form("dmail") <> "" Then
strText = ""
strText = strText & "Kære Ansøgere!" & vbCrLf & vbCrLf
strText = strText & "Vi har nu modtaget din anmodning om optagelse hos SASF." & vbCrLf & vbCrLf
strText = strText & "Kontroller venligst at de indtastede data er korrekte." & vbCrLf & vbCrLf
strText = strText & "Oplysninger om Herren" & vbCrLf
strText = strText & "Navn: " & Request("hnavn") & vbCrLf
strText = strText & "Fødselsdag/år: " & Request("hfoedt") & vbCrLf
strText = strText & "Adresse 1: " & Request("hadr1") & vbCrLf
strText = strText & "Adresse 2: " & Request("hadr2") & vbCrLf & vbCrLf
strText = strText & "Postnr.: " & Request("hpostnr") & vbCrLf & vbCrLf
strText = strText & "By: " & Request("hby") & vbCrLf & vbCrLf
strText = strText & "Telefon nr.: " & Request("htelefon") & vbCrLf & vbCrLf
strText = strText & "Mail: " & Request("hmail") & vbCrLf & vbCrLf
strText = strText & "Oplysninger om Damen" & vbCrLf
strText = strText & "Navn: " & Request("dnavn") & vbCrLf
strText = strText & "Fødselsdag/år: " & Request("dfoedt") & vbCrLf
strText = strText & "Adresse 1: " & Request("dadr1") & vbCrLf
strText = strText & "Adresse 2: " & Request("dadr2") & vbCrLf & vbCrLf
strText = strText & "Postnr.: " & Request("dpostnr") & vbCrLf & vbCrLf
strText = strText & "By: " & Request("dby") & vbCrLf & vbCrLf
strText = strText & "Telefon nr.: " & Request("dtelefon") & vbCrLf & vbCrLf
strText = strText & "Mail: " & Request("dmail") & vbCrLf & vbCrLf
strText = strText & "Turnerings oplysninger" & vbCrLf
strText = strText & "Kategori: " & Request("kategori") & vbCrLf
strText = strText & "Organisation: " & Request("organisation") & vbCrLf
strText = strText & "Række: " & Request("raekke") & vbCrLf & vbCrLf & vbCrLf
strText = strText & "Med venlig hilsen" & vbCrLf & vbCrLf
strText = strText & "Sorø Amatør Sportsdanserforening SASF" & vbCrLf & vbCrLf
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.soroe-dans.dk"
JMail.Sender = "webmaster@soroe-dans.dk"
JMail.SenderName = "Sorø Amatør Sportsdanserforening SASF"
JMail.AddRecipient Request("hemail")
JMail.AddRecipientBCC "webmaster@soroe-dans.dk"
Jmail.Subject = "Anmodning om tilmelding"
JMail.Body = strText
JMail.Execute
Set JMail = Nothing
else
error = "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='red'> Du skal udfylde felterne E-mail før du kan afsende!</font></color>"
end if
end if
%>
<body background="images/sasfbag.jpg">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="80%" background="images/sasfbagtxt.jpg">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="50%"><font size="4">Postadresse:</font></td>
<td width="50%"><font size="4">Personlig kontakt:</font></td>
</tr>
<tr>
<td width="50%"><font size="3">Sorø Amatør Sportsdanserforening<br>
Storgade 21 1.<br>
4180 Sorø</font></td>
<td width="50%"><font size="4">Kasserer:<br>
</font><font size="3">Anne Odgaard Nielsen<br>
Søstrædet 22<br>
4180 Sorø<br>
Telefon: 57 83 26 39<br>
</font>Mail: <a href="mailto:kasserer@soroe-dans.dk">kasserer@soroe-dans.dk</a></td>
</tr>
</table>
</center>
</div>
<p> </p>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="100%"><font size="4">Anmodning om tilmelding</font></td>
</tr>
<tr>
<td width="100%"><font size="3">Kontakt:<br>
Ib eller Inge-Merete Lindholm<br>
telefon: 57 83 25 32</font></td>
</tr>
<tr>
<td width="100%"><font size="4"><br>
eller udfyld og send nedenstående skema:</font></td>
</tr>
</table>
</center>
</div>
<p> </p>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="100%" align="center">
<FORM METHOD="POST" ACTION="kontakt1.asp" NAME="frmOrder" ONSUBMIT="checkform(this);">
<INPUT TYPE=HIDDEN NAME="action" VALUE="send">
<%
response.write error
%>
<table border="0" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="100%" colspan="3">
<p><font size="4">Personlige oplysninger</font></td>
</tr>
<tr>
<td width="33%"></td>
<td width="33%"><b>Herren</b></td>
<td width="34%"><b>Damen</b></td>
</tr>
<tr>
<td width="33%"><b>Navn</b></td>
<td width="33%"><input type="text" name="hnavn" size="26" tabindex="1"></td>
<td width="34%"><input type="text" name="dnavn" size="26" tabindex="9"></td>
</tr>
<tr>
<td width="33%"><b>Fødselsdag/år</b></td>
<td width="33%"><input type="text" name="hfoedt" size="26" tabindex="2"></td>
<td width="34%"><input type="text" name="dfoedt" size="26" tabindex="10"></td>
</tr>
<tr>
<td width="33%"><b>Adresse</b></td>
<td width="33%"><input type="text" name="hadr1" size="26" tabindex="3"></td>
<td width="34%"><input type="text" name="dadr1" size="26" tabindex="11"></td>
</tr>
<tr>
<td width="33%"></td>
<td width="33%"><input type="text" name="hadr2" size="26" tabindex="4"></td>
<td width="34%"><input type="text" name="dadr2" size="26" tabindex="12"></td>
</tr>
<tr>
<td width="33%"><b>Postnummer og by</b></td>
<td width="33%"><input type="text" name="hpostnr" size="5" tabindex="5"><input type="text" name="hby" size="20" tabindex="6"></td>
<td width="34%"><input type="text" name="dpostnr" size="5" tabindex="13"><input type="text" name="dby" size="20" tabindex="14"></td>
</tr>
<tr>
<td width="33%"></td>
<td width="33%"></td>
<td width="34%"></td>
</tr>
<tr>
<td width="33%"><b>Telefon</b></td>
<td width="33%"><input type="text" name="htelefon" size="26" tabindex="7"></td>
<td width="34%"><input type="text" name="dtelefon" size="26" tabindex="15"></td>
</tr>
<tr>
<td width="33%"><b>Mail</b></td>
<td width="33%"><input type="text" name="hmail" size="26" tabindex="8"></td>
<td width="34%"><input type="text" name="dmail" size="26" tabindex="16"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="100%" colspan="4">
<p><font size="4"><br>
Turnerings oplysninger</font></td>
</tr>
<tr>
<td width="15%"></td>
<td width="29%">Kategori</td>
<td width="28%">Organisation</td>
<td width="28%">Række</td>
</tr>
<tr>
<td width="15%"></td>
<td width="29%"><select size="1" name="kategori" tabindex="17">
<option>Ikke valgt</option>
<option>Minibørn</option>
<option>Børn</option>
<option>Børn II</option>
<option>Junior I</option>
<option>junior II </option>
<option>Ynglinge</option>
<option>Voksne</option>
</select> </td>
<td width="28%"><select size="1" name="organisation" tabindex="18">
<option>Ikke valgt</option>
<option>DS</option>
<option>DOF</option>
</select> </td>
<td width="28%"> <select size="1" name="raekke" tabindex="19">
<option>Ikke valgt</option>
<option>Debutant</option>
<option>Rekruttering</option>
<option>Talent</option>
<option>Konkurrence</option>
<option>Sport</option>
</select> </td>
</tr>
</table>
<blockquote>
<input type="submit" value="Send" STYLE="background-color:white; color:black; border-color:#0080C0; font-family:verdana,arial; font-SIZE:10px;"> <input type="RESET" value="Fortryd" STYLE="background-color:white; color:black; border-color:#0080C0; font-family:verdana,arial; font-SIZE:10px;">
</blockquote>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<p> </p>
</body>
