Mail script virker ikke som om det kører
er der nogen som kan se hvad der er galt med det:<%@LANGUAGE="VBSCRIPT"%>
<%Server.Scripttimeout=3600%>
<!--#include file="../Connections/gutternes.asp" -->
<%
Dim rsMail__MMColParam
rsMail__MMColParam = "1"
If (Request.QueryString("IDthread") <> "") Then
rsMail__MMColParam = Request.QueryString("IDthread")
End If
%>
<%
Dim rsMail
Dim rsMail_numRows
Set rsMail = Server.CreateObject("ADODB.Recordset")
rsMail.ActiveConnection = MM_gutternes_STRING
rsMail.Source = "SELECT * FROM thread, users WHERE IDthread = " + Replace(rsMail__MMColParam, "'", "''") + " AND Mail = 'Y' AND userID=IDuser ORDER BY IDuser ASC"
rsMail.CursorType = 0
rsMail.CursorLocation = 2
rsMail.LockType = 1
rsMail.Open()
rsMail_numRows = 0
%>
<%
'Så bliver loopet sådan
if (rsMail.BOF or rsMail.EOF) then
' Response.Write ("Slut")
scriptdone = "ja"
else
on error resume next
Do While Not rsMail.EOF
strEmail = (rsMail.Fields.Item("Email_work").Value)
strNavn = (rsMail.Fields.Item("Name").Value)
strHead = (rsMail.Fields.Item("Headline").Value)
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.gutternes.dk"
JMail.Sender = "admin@gutternes.dk"
JMail.SenderName = "Gutternes"
JMail.ContentType = "text/html"
JMail.Subject = "There is a new post in "
JMail.AddRecipientBCC strEmail
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Body = "<font size='2' face='Verdana'>" &_
"Hi " &_
(rsMail.Fields.Item("Name").Value) &_
"<br>" &_
"<br>" &_
"There has been made a new post for " &_
(rsMail.Fields.Item("Headline").Value) &_
" at " &_
(rsMail.Fields.Item("CreateDate").Value) &_
", " &_
(rsMail.Fields.Item("CreateTime").Value) &_
"<br>" &_
"<br>" &_
"Visit the site to check it out" &_
"<br>" &_
"<a href=http://www.gutternes.dk><strong>www.gutternes.dk</strong></a>" &_
"</font>"
JMail.Body = JMail.Body
JMail.Execute
Set JMail = Nothing
rsMail.Movenext
Loop
scriptdone = "nej"
End if
%>
<html>
<head>
<title>script</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
</body>
</html>
<%
rsMail.Close()
Set rsMail = Nothing
%>
<%
if scriptdone <> "ja" then
Response.Write("dope")
'Response.Redirect("http://www.gutternes.dk/forum_specific.asp?IDthread=" & (rsMail.Fields.Item("IDthread").Value))
end if
%>
