HjÆlp?!? :)

Jeg går ud fra, at jmail er installeret på serveren ;-)

Kan vi evt. få en smule mere kode at se?

Uden din Jmail kode kommer vi ikke ret langt...(du prøver vel ikke at execute samme sætning flere gange ?)

<% If Request(\"mode\") = \"\" then %>


<%
Server.ScriptTimeout=10000
%>
<% Sub TLdelaySec(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub %>
<%
Session(\"recipient\") = Request.form(\"recipient\")

Name = Request.Form(\"name\")
Subject = Request.Form(\"subject\")
recipient = Session(\"recipient\")
Body = Request.Form(\"body\")



Set JMail = Server.CreateObject(\"JMail.SMTPMail\")

JMail.ServerAddress = \"mail.stivert.dk\"

JMail.Sendername = Subject
JMail.Sender = Name & \"@spam.dk\"
JMail.Subject = Body

JMail.AddRecipient recipient & \"@sms.mobilix.dk\"

JMail.Body = \"\"

JMail.Priority = 3

Sub TLdelaySec(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub

for i = 0 to 8000
JMail.Execute
Response.Write \"SMS \" & i  & \" er blevet sendt til dit offer \" & Recipient & \"...<br>\"

TLdelaySec(1)

next


%>


<% end if %>

Så vidt jeg ved kan du ikke bruge samme JMail object flere gange (dvs. første SMS bliver sendt, men resten laver fejl)

Og selvom jeg er modstander af det du har gang i, vil jeg tro at løsningen er at lægge:
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.stivert.dk\"
JMail.Sendername = Subject
JMail.Sender = Name & \"@spam.dk\"
JMail.Subject = Body
JMail.AddRecipient recipient & \"@sms.mobilix.dk\"
JMail.Body = \"\"
JMail.Priority = 3
JMail.Execute
Response.Write \"SMS \" & i  & \" er blevet sendt til dit offer \" & Recipient & \"...<br>\"
OG Set JMail = Nothing
ind i dit loop...