Fejlmeling på asp-side
Hej...Jeg får følgende fejlmeling:
jmail.SMTPMail error '8000ffff'
Error: 550 The following recipients could not be sent to: <navn@email.dk>; 550 not local host maribo.dk, not a gateway
/knuthenborgcup2003/tilmeld/joller.asp, line 132
Emailadressen er byttet ud!
Siden ser ud som følger (linie 132 er angivet:)
<% response.Expires = 0 %>
<% response.Buffer = TRUE %>
<%
If Request.Form("Add") <> "" Then
strError = ""
strFornavn = Trim(Request.Form("Fornavn"))
strEfternavn = Trim(Request.Form("Efternavn"))
strEmail = Trim(Request.Form("Email"))
strTlf = Trim(Request.Form("Tlf"))
strKategori = Trim(Request.Form("Kategori"))
strSejlnr = Trim(Request.Form("Sejlnr"))
strSkipperfor = Trim(Request.Form("Skipperfor"))
strSkipperefter = Trim(Request.Form("Skipperefter"))
strGastfor = Trim(Request.Form("Gastfor"))
strGastefter = Trim(Request.Form("Gastefter"))
strKlub = Trim(Request.Form("Klub"))
strKreds = Trim(Request.Form("Kreds"))
strAftenlb = Trim(Request.Form("Aftenlb"))
strAftenlv = Trim(Request.Form("Aftenlv"))
strAnkom = Trim(Request.Form("Ankom"))
If Len(strKategori) = 0 Then
strError = "Du skal vælge en jolletype!"
ElseIf Len(strSejlnr) = 0 Then
strError = "Du skal skrive et sejlnummer!"
ElseIf Len(strSkipperfor) = 0 Then
strError = "Du skal skrive Skipperens fornavn!"
ElseIf Len(strSkipperefter) = 0 Then
strError = "Du skal skrive skipperens efternavn!"
ElseIf Len(strKlub) = 0 Then
strError = "Du skal skrive en klub!"
ElseIf Len(strKreds) = 0 Then
strError = "Du skal vælge en kreds!"
ElseIf Len(strAftenlb) = 0 Then
strError = "Hvor mange børn, ud over sejlerene, skal deltage i fest middagen lørdag?"
ElseIf Len(strAftenlv) = 0 Then
strError = "Hvor mange voksen, ud over sejlerne, skal deltage i middagen lørdag?"
ElseIf Len(strFornavn) = 0 Then
strError = "Du skal skrive medlemmets fornavn!"
ElseIf Len(strEfternavn) = 0 Then
strError = "Du skal skrive medlemmets efternavn!"
ElseIf Len(strEmail) = 0 Then
strError = "Du skal skrive en email!"
ElseIf Len(strTlf) = 0 Then
strError = "Du skal skrive et telefonnummer!"
End If
If Len(strError) = 0 Then
Set rstemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM joller WHERE (ID = 0)"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../log/knuthenborg2003.mdb")
rstemp.Open strSQL, strDSN, 3, 3
If (rstemp.BOF Or rstemp.EOF) Then
rstemp.AddNew
rstemp("Sejlnr") = strSejlnr
rstemp("Skipperfor") = strSkipperfor
rstemp("Skipperefter") = strSkipperefter
rstemp("Gastfor") = strGastfor
rstemp("Gastefter") = strGastefter
rstemp("Klub") = strKlub
rstemp("Kreds") = strKreds
rstemp("Aftenlb") = strAftenlb
rstemp("Aftenlv") = strAftenlv
rstemp("Ankom") = strAnkom
rstemp("Fornavn") = strFornavn
rstemp("Efternavn") = strEfternavn
rstemp("Email") = strEmail
rstemp("Tlf") = strTlf
rstemp("Kategori") = strKategori
rstemp("ip") = request.servervariables("remote_host")
rstemp.Update
End If
rstemp.Close
Set rstemp = Nothing
dim besked
besked="Dette er en automail afsendt af Bandholm Sejlklub," & vbCrLf
besked=besked+"vi skulle nu have registreret din tilmelding." & vbCrLf
besked=besked+"Denne mail er også sendt til Bandholm Sejlklub." & vbCrLf
besked=besked+"Skulle der allevel opstå spørgsmål, kan du skrive" & vbCrLf
besked=besked+"til: admin@bandholmsejlklub.dk" & vbCrLf & " " & vbCrLf
besked=besked+"Her under vil de data du lige har indtastet også stå." & vbCrLf
besked=besked+"Er der fejl bedes du snarest muligt returnere denne mail" & vbCrLf
besked=besked+"til: tilmeld@bandholmsejlklub.dk" & vbCrLf & " " & vbCrLf
besked=besked+"Skipperens navn: "& strSkipperfor &" "& strSkipperefter & " " & vbCrLf
besked=besked+"Gastens navn: "& strGastfor &" "& strGastefter & " " & vbCrLf
besked=besked+"Jolletype: "& strKategori &" " & vbCrLf
besked=besked+"Sejlnummer: "& strSejlnr &" " & vbCrLf
besked=besked+"Hjemklub: "& strKlub &" og Hjemkreds "& strKreds & " " & vbCrLf & " " & vbCrLf
besked=besked+"Antal festmiddag/aftensmad lørdag (børn): "& strAftenlb &" " & vbCrLf
besked=besked+"Antal festmiddag/aftensmad lørdag (voksne): "& strAftenlv &" " & vbCrLf
besked=besked+"Dit navn: "& strFornavn &" "& strEfternavn &" " & vbCrLf
besked=besked+"Din email: "& strEmail &" " & vbCrLf
besked=besked+"Dit telefonnummer: "& strTlf &" " & vbCrLf & " " & vbCrLf & " " & vbCrLf
besked=besked+"Tak for din tilmelding, vi ses den 22. august, i Bandholm."
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.bandholmsejlklub.dk"
JMail.Sender = "tilmeld@bandholmsejlklub.dk"
JMail.Subject = "Tilmelding modtaget"
JMail.AddRecipient strEmail
JMail.AddRecipient+ "tilmeld@bandholmsejlklub.dk"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' ********** Her starter selve email-en
JMail.Body = besked
' ********** Her slutter selve email-en
JMail.Execute <-- linie 132
Set JMail = Nothing
Response.Redirect("tilmeldte.asp")
Else
strError = "<p><font face=verdana size=1 color=#000000><b>"& strError &"</b></font></p>"
strMode = "add"
End If
End If
%>
<html>
<head>
<title>Tilmeld</title>
</head>
<body>
<!--#include virtual = "/knuthenborgcup2003/style.css"-->
<a href="java script:history.back(1);">Tilbage</a><br><br>
<center>
<h2>Tilmelding for joller der ikke er optimister</h2><br>
Husk at kontrollere jollytypen!<br>
<table cellpadding=2 cellspacing=2 border=1 bordercolor=black class=format width="500">
<tr><td>
<center>
<form method="post" action="joller.asp">
<table border="0" cellspacing="0" cellpadding="0" width="450">
<tr>
<td width="100%" height="25"><%=strError%>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Vælg jolletype</font><br>
<select name="Kategori" tabindex="1" value="<%=strKategori%>">
<option value="E-jolle">E-jolle</option>
<option value="29er">29er</option>
<option value="405">405</option>
<option value="Laser">Laser</option>
</select>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Sejlnummer (eks: DEN 4825)</font><br>
<input type="text" name="Sejlnr" size="28" class="box" tabindex="2" value="<%=strSejlnr%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Skipperens fornavn</font><br>
<input type="text" name="Skipperfor" size="28" class="box" tabindex="3" value="<%=strSkipperfor%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Skipperens efternavn</font><br>
<input type="text" name="Skipperefter" size="28" class="box" tabindex="4" value="<%=strSkipperefter%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Gastens fornavn (hvis der er nogen)</font><br>
<input type="text" name="Gastfor" size="28" class="box" tabindex="5" value="<%=strGastfor%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Gastens efternavn (hvis der er nogen)</font><br>
<input type="text" name="Gastefter" size="28" class="box" tabindex="6" value="<%=strGastefter%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2"></font><br>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Hjemklub</font><br>
<input type="text" name="Klub" size="28" class="box" tabindex="7" value="<%=strKlub%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Vælg kreds</font><br>
<select name="Kreds" tabindex="8" value="<%=strKreds%>">
<option value="Nordøstjysk kreds">Nordøstjysk kreds</option>
<option value="Limfjordskredsen">Limfjordskredsen</option>
<option value="Østjyllandkredsen">Østjyllandkredsen</option>
<option value="Lillebæltkredsen">Lillebæltkredsen</option>
<option value="Lillebælt Sydkreds">Lillebælt Sydkreds</option>
<option value="Fynskredsen">Fynskredsen</option>
<option value="Sydstævnekredsen">Sydstævnekredsen</option>
<option value="Isefjordkredsen">Isefjordkredsen</option>
<option value="Sundkredsen">Sundkredsen</option>
<option value="Svanemøllekredse">Svanemøllekredse</option>
<option value="Østersøkredsen">Østersøkredsen</option>
<option value="Køge Bugt Kredsen">Køge Bugt Kredsen</option>
<option value="K.D.Y.">K.D.Y.</option>
</select>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2"><br><br>Børn.</font><br><br>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Aftensmad lørdag aften - Festmiddag (eksklusiv sejleren)</font><br>
<input type="text" name="Aftenlb" size="28" class="box" tabindex="10" value="<%=strAftenlb%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2"><br><br>Voksen.</font><br><br>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Aftensmad lørdag aften - Festmiddag (eksklusiv sejleren)</font><br>
<input type="text" name="Aftenlv" size="28" class="box" tabindex="13" value="<%=strAftenlv%>">
</td>
</tr>
<tr>
<td width="450" height="25"><font face="Verdana" size="2"><br><br>I tilfælde af aflysninger eller anden uforudsigelige komplikation skal vi have følgende information om dig, så vi kan kontakte dig.</font><br>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Dit fornavn:</font><br>
<input type="text" name="Fornavn" size="28" class="box" tabindex="15" value="<%=strFornavn%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Dit efternavn:</font><br>
<input type="text" name="Efternavn" size="28" class="box" tabindex="16" value="<%=strEfternavn%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Din email:</font><br>
<input type="text" name="Email" size="28" class="box" tabindex="17" value="<%=strEmail%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Dit telefonnummer:</font><br>
<input type="text" name="Tlf" size="28" class="box" tabindex="18" value="<%=strTlf%>">
</td>
</tr>
<tr>
<td width="100%" height="46"><br>
<input type="submit" value=" Tilmeld " name="Add" class="box" tabindex="19">
<input type="button" value=" Fortryd " name="Annuller" class="box" onClick="java script:location.href='tilmeldte.asp'" tabindex="20">
</td>
</tr>
</table>
</form>
</center>
</td></tr>
</table>
</center>
</body>
</html>
