Mærkeligt problem med mailscript.
Jeg har et mærkeligt problem med et mailscript.Det vil gerne sende til nogle addr. men ikke til andre.
hvis jeg sender til webmaster@brinck.dk eller sales@brinck.dk går det fint
men alle andre, så får jeg fejlen:
503 must have sender and recipient first
<html>
<head>
<title>Brinck Elektronik & Handel ApS</title>
<link rel="stylesheet" type="text/css" href="../style/styleindex.css">
<SCRIPT LANGUAGE=JAVASCRIPT>
function gyldigEmail(email) {
ugyldigeTegn = " /:,;"
// Må ikke være tom
if (email == "") {
return false
}
// Indeholder den ugyldige tegn?
for (i=0; i<ugyldigeTegn.length; i++) {
fejlTegn = ugyldigeTegn.charAt(i)
if (email.indexOf(fejlTegn,0) > -1) {
return false
}
}
// Der skal være et @-tegn
paaPos = email.indexOf("@",1)
if (paaPos == -1) {
return false
}
// Og kun et @-tegn
if (email.indexOf("@",paaPos+1) != -1) {
return false
}
punktumPos = email.indexOf(".",paaPos)
// og mindst et punktum efter @-tegnet
if (punktumPos == -1) {
return false
}
// der skal være mindst 2 tegn efter punktummet
if (punktumPos+3 > email.length) {
return false
}
return true
}
function afsendelse(form) {
// Kontroller om e-mail-adressen er gyldig
if (!gyldigEmail(form.ad.value)) {
alert("Ugyldig e-mail-adresse")
form.ad.focus()
form.ad.select()
return false
}
else {
return true
}
}
</SCRIPT>
</head>
<BODY>
<%
'// checker om sendmail er = moding - hvis den er udføres mail-scriptet
if Request.Querystring("sendmail") = "moding" then
'// Kalder objektet ASPmail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = "Brinck Elektronik & Handel ApS"
Mailer.FromAddress= "sales@brinck.dk"
Mailer.RemoteHost = "mail.brinck.dk"
Mailer.AddRecipient "" & Request.Form("friend") & "", "" & Request.Form("ad") & ""
Mailer.Subject = "" & Request.Form("navn") & " anbefaler dig at besøge www.brinck.dk"
Mailer.BodyText = "" & vbCrLf & ""
Mailer.BodyText = "" & Request.Form("navn") & " anbefaler dig at besøge www.brinck.dk - da" & Request.Form("navn") & " tror at det er en side der vil interessere dig!"
'// Hvis scriptet udføres fejlfrit, responses succesbesked
If Mailer.SendMail Then
'Response.Write "Din anbefaling er sendt til: " & Request.Form("ad") & ""
Response.Redirect("tipok.asp?mode=ok")
'// Hvis ikke returneres fejlmeddelelse
Else
Response.Redirect("tipok.asp?mode=fejl&besk=" & Mailer.Response & "")
End If
'// Lukker mail-objektet
Set Mailer = Nothing
else
%>
<FORM onSubmit="return afsendelse(this)" METHOD="POST" action="tip.asp?sendmail=moding">
<table width="223" border="1" cellpadding="3" cellspacing="0">
<tr>
<td width="213"> <div align="center">Anbefal www.brinck.dk </div></td>
</tr>
<tr>
<td> <div align="center">
<input TYPE="TEXT" onFocus="this.form.ad.select()" value="Modtagerens e-mail?"
NAME="ad" SIZE="17">
</div></td>
</tr>
<tr>
<td> <div align="center">
<input TYPE="TEXT" onFocus="this.form.navn.select()" value="Afsenderens navn?"
NAME="navn" SIZE="17">
</div></td>
</tr>
<tr>
<td> <div align="center">
<input type="submit" value="Send">
</div></td>
</tr>
</table>
</form>
<% end if%>
</body>
</html>
