Men jeg er ikke sikker! Prøv at løgge en ErrorHandling for Jmail ind:
<%
Const smsserver=\"sms.mobilix.dk\"
Const smtpserver=\"mail.netsite.dk\"
Const navn=\"
www.Xeno.DK\"Const email=\"Sms@Xeno.DK\"
action=LCase(Trim(Request(\"action\")))
besked=Trim(LCase(Request(\"besked\")))
tnummer=Trim(LCase(Request(\"nummer\")))
tnummer=Replace(tnummer, \"DitNavn\", \"Tlf.\")
tnummer=Replace(tnummer, \"DitNavn\", \"Tlf.\")
nummer=\"\"
for i=1 to len(tnummer)
ch=Trim(mid(tnummer,i,1))
if isNumeric(ch) then nummer=nummer&ch
next
if (action=\"\") then
call WriteForm(\"\")
elseif (action=\"send\") then
if not (len(nummer)=8) then
call WriteForm(\"Du skal indtaste et navn eller tlf. nummer\")
elseif (besked=\"\") then
call WriteForm(\"Beskeden er for kort\")
else
Set myConn = Server.CreateObject(\"ADODB.Connection\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"din_database.mdb\")
myConn.Open strDSN, adOpenKeyset, adLockOptimistic
strSQL = \"SELECT * FROM tabelnavn\"
Set rs = myConn.Execute(strSQL)
Do While NOT rs.OEF
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.RemoteHost = smtpserver
JMAIL.FromName = navn
Jmail.FromAddress = email
Jmail.Subject = besked
JMail.BodyText = \"\"
JMail.AddRecipient nummer&\"@\"&smsserver, nummer&\"@\"&smsserver
if JMail.SendMail then
response.write \"<HTML><BODY><center>Beskederne blev sendt uden problemer</BODY></HTML>\"
else
Response.Write \"<FONT COLOR=red>Fejl i : \" & nummer & \"</FONT><br>\" & vbCrLf
\'Og evt. denne her:
\'Men den laver nogle utrolig lange log\'s. HUSK. Der kommer en log for hvert tlf nummer!
\'Response.Write \"LOG: <pre>\" & JMail.Log & \"</pre>\" & vbCrLf
end if
Else
Response.Write \"<html><body>Emailen er sendt!</body></html>\"
End If
Loop
rs.Close
Set rs = Nothing
else
call WriteForm(\"F E J L\")
end if
Set JMail = Nothing
end if
else
response.redirect \"jmail_sms.asp\"
end if
Sub WriteForm(ByVal ErrorStr)
response.write \"<HTML><BODY>\"
response.write \"<FORM ACTION=\"\"jmail_sms.asp\"\">\"
if not (ErrorStr=\"\") then
response.write \"<FONT COLOR=#FF0000 SIZE=7><B><BLINK>\"
response.write ErrorStr
response.write \"</BLINK></B></FONT>\"
end if
response.write \"<INPUT TYPE=HIDDEN NAME=\"\"action\"\" VALUE=\"\"send\"\">\"
response.write \"Besked: <INPUT TYPE=TEXT NAME=\"\"besked\"\" VALUE=\"\"\"&Server.HtmlEncode(besked)&\"\"\" SIZE=30 MAXLENGTH=50>\"
response.write \"Tlf-nummer: <INPUT TYPE=TEXT NAME=\"\"nummer\"\" VALUE=\"\"\"&nummer&\"\"\" SIZE=20 MAXLENGTH=30>\"
response.write \"<INPUT TYPE=SUBMIT VALUE=\"\"Send SMS\"\">\"
response.write \"</FORM>\"
response.write \"</BODY></HTML>\"
End Sub
%>
Ny bruger
Nybegynder
Opret
Preview
