massmail form doesnt work anymore

gbas · Jun 16, 2007

A client of mine use a massemail form from his website, everything was working fine since the past 2 years, with no code change or anything, suddenly it doesnt work.

I dont receive any error, I dont receive any email, i try with only with email same thing... When I click on Send im going back to the same page "email.asp"...

Do you guys have any suggestions or idea? See my code below... Please help this is very important...

email.asp
<%@ Language=VBScript %>
<%Option Explicit%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Emaiil form</title>

<%
'check login
if Session("login") <> "true-enough" then
response.redirect("../index.asp")
end if

'connect to customer db
dim objcon
Set objcon = Server.CreateObject("ADODB.Connection")
'connection string and open
objcon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= e:\web\customfuner\htdocs\_database\kahuna_CFP_Cust.mdb")
'create drop down of customers
dim sql,record
sql = "select * from Customer where CFPEmailList= TRUE Order BY LastName"
set record = objcon.execute(sql)

dim sent
sent = request.querystring("message")

%>
</head>

<%
if sent <> "" then
response.write "<P><font color=#ffffff><center>Your Message has been sent</center></font></P>"
end if
%>

<form method="POST" action="email.asp">
<p align="center">
&nbsp;</p>
<div align="center">
<center>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#990000" width="446" id="AutoNumber1" bgcolor="#FFFFFF">
<tr>
<td width="677" colspan="2" align="center">
<p align="left">
<font color="#330000">Email Form</font></b></td>
</tr>
<tr>
<td width="145"><font size="2">Email From</font></td>
<td width="532">
<input type="text" name="mailfrom" size="35" value="testemail@customfuneralproducts.com" style="font-family: Arial; font-size: 10pt; border-style: double; border-width: 3"></td>
</tr>
<tr>
<td width="145" valign="bottom"><font size="2">Email to</font></td>
<td width="532">
<select size="5" name="mailone" style="font-family: Arial; font-size: 10pt; border-style: double; border-width: 3">
<option value="">Email only one Customer</option>
<%

do until record.eof
%>
<option value="<%=record("Email")%>"><%response.write record("LastName") & ", " & record("FirstName")%></option>
<%
record.movenext
loop

%>
</select> <font size="2">or</font>
<input type="radio" value="all" name="mailall" style="border-style: double; border-width: 3"><font size="2">all</font></td>
</tr>
<tr>
<td width="145"><font size="2">Subject</font></td>
<td width="532">
<input type="text" name="mailsubject" size="35" style="font-family: Arial; font-size: 10pt; border-style: double; border-width: 3"></td>
</tr>
<tr>
<td width="145" valign="top"><font size="2">Attach File</font></td>
<td width="532">

<INPUT TYPE=FILE SIZE=28 NAME="one_attach" style="font-size: 10pt; font-family: Arial; border-style: double; border-width: 3"><font size="2" face="Verdana">&nbsp;



</font>
</td>
</tr>
<tr>
<td width="145" valign="top"><font size="2">Message</font></td>
<td width="532">
<textarea rows="9" name="mailbody" cols="64" style="font-family: Arial; font-size: 10pt; border-style: double; border-width: 3"></textarea></td>
</tr>
<tr>
<td width="145">&nbsp;</td>
<td width="532">&nbsp;</td>
</tr>
<tr>
<td width="145">&nbsp;</td>
<td width="532"><input type="submit" value="Send Email" ></td>
</tr>
<tr><td colspan = "2">
<p align="center">&nbsp;<a href="cfp_home.asp">Back to Main Page</a></td></tr>
</table>
</center>
</div>
<p align="center">&nbsp;</p>
</form>
<p align="center">&nbsp;</p>
</body>
</html>

Post Edited (gbas) : 6/16/2007 4:49:56 PM GMT
Click to expand...

Bruce · Jun 16, 2007

I don't see anything in your code that does the email sending.

Is there another file?

To isolate the problem, I suggest you create a simple test page on the server that sends an email to you to make sure the problem is not with the SMTP. See http://kb.discountasp.net/article.aspx?id=10359

Bruce

DiscountASP.NET
www.DiscountASP.NET

gbas · Jun 17, 2007

I did try your suggestion from http://kb.discountasp.net/article.aspx?id=10359 and it work fine.

I am really new with ASP, i normally code PHP. Its a new client for me who want me to updates his website and fix this massemail problem... I really dont know if I miss any file, this was the only file from the server... :

See the attachment "massemail.jpg" to see my form.

I also have this file btw...

emailall.asp

<%@ Language=VBScript %>
<%Option Explicit%>
<%
'check login
if Session("login") <> "true-enough" then
'response.redirect("../index.asp")
end if

dim mailfrom,mailone,mailall,mailsubject,mailbody
'Dimension variables
'Dim objCDOSYSCon,objCDOSYSMail

'Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Out going SMTP server
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.customfuneralproducts.com"

'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 300

'objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
'Set objCDOSYSMail.Configuration = objCDOSYSCon
dim strhost
dim Mail
strHost = "smtp.customfuneralproducts.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
'connect to customer db
dim dbcon
Set dbcon = Server.CreateObject("ADODB.Connection")
'connection string and open
dbcon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= e:\web\customfuner\htdocs\_database\kahuna_CFP_Cust.mdb")

'create drop down of customers
dim sql,record
sql = "select * from Customer where CFPEmailList = TRUE"
set record = dbcon.execute(sql)

Mail.From = "test@customfuneralproducts.com" ' From address
Mail.AddReplyTo "test@customfuneralproducts.com"
Mail.Username ="test@customfuneralproducts.com"
Mail.Password = "test"
'objCDOSYSMail.Subject = Session("emailsubject")
'objCDOSYSMail.HTMLBody = Session("emailbody")
Mail.Subject = Session("emailsubject")
' message body
Mail.Body = Session("emailbody")

dim FileName,FS
FileName = Session("Filename")
Set FS = CreateObject("Scripting.FileSystemObject")

if Session("attach") <> TRUE then
'attach it To the NewMail object
Mail.AddAttachment FileName

end if
do record.eof
mail.AddBcc = record("email")
ON ERROR RESUME NEXT
record.movenext
loop
Mail.Send

if Session("attach") <> TRUE then
'delete it from the server
FS.DeleteFile FileName, False
end if

'Close the server mail object
'Set objCDOSYSMail = Nothing
'Set objCDOSYSCon = Nothing
Set FS = Nothing

response.redirect("email.asp?message=sent")

%></CODE>
Click to expand...

Bruce · Jun 17, 2007

Change all reference to "mail.customfuneralproducts.com" to "localhost"

This may or may not fix the problem.

Bruce

DiscountASP.NET
www.DiscountASP.NET

gbas · Jun 17, 2007

Already did that, it wont work..any suggestion please

Bruce · Jun 18, 2007

Your email.asp page seems to have a form action pointing to itself but there's no code in your email.asp page that sends email. THis should have never worked.

Did you change the form action?

Bruce

DiscountASP.NET
www.DiscountASP.NET

Log in or Sign up

massmail form doesnt work anymore

gbas

Bruce DiscountASP.NET Staff

gbas

Attached Files:

massemail.JPG

Bruce DiscountASP.NET Staff

gbas

Bruce DiscountASP.NET Staff

Share This Page

Log in or Sign up

massmail form doesnt work anymore

gbas

Bruce DiscountASP.NET Staff

gbas

Attached Files:

massemail.JPG

Bruce DiscountASP.NET Staff

gbas

Bruce DiscountASP.NET Staff

Share This Page

Useful Searches