Problemer med nyhedsmail
Jeg har problemer med mit nyhedsmail script, det sender en mail og så går der ligesom en løkke i systemet, scriptet hænger og kommer ikke videre, eller rettere, efter en 2 - 3 minutter sendes måske en mail igen.Problemet er opstået efter at jeg er gået fra Accees til mysql
Jeg vil gi 200 point til den der kan få scriptet til at køre igen og samtidig optimere så meget som det er muligt
<%
connStr = "driver={MySQL ODBC 3.51 Driver};DATABASE=minedata;SERVER=123123;UID=sammeroot;PWD=98;OPTION=16834;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
if request("mode") = "send" or session("send") = true then
senddelay = 1 'sek mellem hver udsendelse
session("send") = true
if request("header") <> "" then
session("header") = request("header")
end if
if request("tekst") <> "" then
session("tekst") = request("tekst")
end if
'**********************************************
SQL = "select * FROM members ORDER BY id desc"
Set rs = conn.execute( SQL )
idtotal = rs("id")
response.write "<B>Udsendt: " & session("i") & "</B><BR>"
response.write "<B>SessionID: " & session("id") & "</B><BR>"
response.write "Send-delay = " & senddelay & " sek.<BR><BR>"
if session("id") = "" then
SQL = "select * FROM members ORDER BY id"
Set rs = conn.execute( SQL )
idmin = rs("id")
session("i") = 0
session("id") = idmin-2
end if
if session("id") => idtotal then
Response.Write "<B>Udsendelse er fuldført.</B><BR><BR>"
Response.Write session("resp")
else
SQL = "SELECT * from members WHERE id = " & session("id")
set send = conn.execute( SQL )
if send.eof then
session("id") = session("id") + 1
Response.Redirect("nyhedsbrev.asp")
else
strEmail = send("email")
if instr(1,session("strsofemails"),strEmail) then
session("id") = session("id") + 1
Response.Redirect("nyhedsbrev.asp")
else
session("resp") = strEmail & "<BR>" & session("resp")
Response.Write session("resp")
session("i") = session("i") + 1
session("id") = session("id") + 1
session("strsofemails") = session("strsofemails") & stremail & ","
'***************** UDSEND MAIL! *********************
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mitdomaine.dk"
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "info@mitdomaine.dk"
JMail.Subject = session("header")
JMail.AddRecipient strEmail
JMail.Body = session("tekst")
JMail.Priority = 3
JMail.Execute
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ UDSEND MAIL! ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Response.Write "<META http-equiv='refresh' content='" & senddelay & "; url=nyhedsbrev.asp'>"
end if
end if
end if
rs.Close
Conn.Close
Set Conn = Nothing
Set rs = Nothing
else %>
<CENTER>
<div align="left">
<TABLE BORDER="0" width="427">
<form action="nyhedsbrev.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
<TR>
<TD ALIGN="LEFT" width="490">
<b><font face="Verdana" size="2">Emne :</font></b>
<p style="margin-top: -2">
<INPUT NAME="header" SIZE="28" style="font-size: 10 pt">
</p>
</TD>
</TR>
<TR>
<TD ALIGN="LEFT" width="490">
<b><font face="Verdana" size="2">Tekst :</font></b>
<p style="margin-top: -2">
<TEXTAREA COLS="23" ROWS="5" NAME="tekst" style="font-size: 10 pt"></TEXTAREA>
</p>
</TD>
</TR>
<TR>
</CENTER>
<TD ALIGN="RIGHT" width="490">
<p align="left" style="margin-top: -15">
</p>
<p align="left" style="margin-top: -15">
<input type="submit" value="Send nyhedsbrevet" style="font-size: 10 pt">
</p>
<p align="left" style="margin-top: -15">
</p>
</TD>
</TR>
<CENTER>
</FORM>
</TABLE>
</div>
</CENTER>
<% end if %>
