Problemer med JMail
HejsaJeg bruger følgende kode til at sende en besked til mig selv, når en bruger bestiller via en hjemmeside:
<%
strFirma = Request.Form("c_name") & VbCrLf
strNavn = Request.Form("c_cont") & VbCrLf
strAdr = Request.form("c_adr") & VbCrLf
strZip = request.form("c_zip") & VbCrLf
strCity = request.form("c_city") & VbCrLf
strTlf1 = "Tlf 1: " & request.form("c_tlf1") & VbCrLf
strTlf2 = "Tlf 2: " & request.form("c_tlf2") & VbCrLf
strMail = "Email: " & Request.Form("c_mail") & VbCrLf
strCVR = "SE/CVR-nr.: " & request.form("c_cvr") & VbCrLf & VbCrLf
if request.form("add_radio") = "st_add" then
strAddType = "Standard annonce" & VbCrLf & VbCrLf
else
strAddType = "Mini-annonce" & VbCrLf & VbCrLf
end if
if request.form("atype") = 1 then
strAddAdd = "Super" & VbCrLf
else
if request.form("atype") = 2 then
strAddAdd = "Udvidet" & VbCrLf
else
if request.form("atype") = 5 then
strAddAdd = "Ingen" & VbCrLf
end if
end if
end if
if request.form("mini_site") = "on" then
strMiniSite = "Ja" & VbCrLf
else
strMiniSite = "Nej" & VbCrLf
end if
if request.form("banner_add") = 1 then
strBanner = "Ja - leverer selv" & VbCrLf
else
if request.form("banner_add") = 2 then
strBanner = "Ja - ønsker design" & VbCrLf
else
if request.form("banner_add") = 3 then
strBanner = "Nej tak" & VbCrLf
end if
end if
end if
strSubject = "Bestilling af annnonce på Start-firma.dk"
strMsg1 = "Der er d. "& FormatDateTime(Date(),2) &" sendt en bestilling på en annnonce via Start-firma.dk" & VbCrLf & VbCRLf
strMsg2 = "Kundedata:" & VbCrLf & VbCrLf
strMsg3 = "Følgende produkt er bestilt:" & VbCrLf & VbCrLf
strMsg4 = "Følgende tillægsprodukter er bestilt:" & VbCrLf & VbCrLf
strRecipient = "ml@eyesee.dk"
Set msg = Server.CreateObject("JMail.Message")
msg.Logging = True
msg.Silent = True
msg.From = strMail
msg.FromName = strFirma & " - " & strNavn
msg.AddRecipient strRecipient
msg.Subject = "Start-firma.dk - " & strSubject
msg.Body = strMsg1 & strMsg2 & strFirma & strNavn & strAdr & strZip & " " & strCity
msg.Body = msg.Body & strTlf1 & strTlf2 & strMail & strCVR & VbCrLf & VbCrLf
msg.Body = msg.Body & strMsg3 & strAddType & strMsg4 & "Placeringstilkøb: " & strAddAdd
msg.Body = msg.Body & "Mini-site: " & strMiniSite & "Banner-reklame: " & strBanner
If Not msg.Send("srvsmtp.struer.net") Then
%>
<script language="javascript">
document.location.href='support.asp';
alert("Der opstod en fejl under afsendelse af din bestilling!\nPrøv igen senere.")
</script>
<%
Else
%>
<script language="javascript">
document.location.href='support.asp';
alert("Din bestilling er sendt!")
</script>
<%
End if
Set JMail = Nothing
%>
Problemet er bare at den ikke sender mailen til mig og jeg har ikke haft problemer før.
Nogen der kan se en fejl i ovenstående der gør at jeg ryger ind i fejlen?
