formmail.asp HELP!!!!!!!!!!

I need someone to PLEASE PLEASE help with formmail.asp

I am getting this error message despite the fact that this information IS there
Form could not be processed due to the following errors:

No form data submitted.
No referer.
Missing email recipient.

Here is the form FORM

I dont know if this section is right
referers = Array("www.quabbintimber.com","66.189.127.140")
mailComp = "ASPMail"
MIGHT BE WRONG... smtpServer = "mail.static.oxfr.ma.charter.com"
fromAddr = "jo@yourpagetoday.com"

Here is the whole asp Script....
<%@ LANGUAGE="VBScript" %>

<% '***************************************************************************
'* ASP FormMail *
'* *
'* Copyright 1999, 2000 by Mike Hall. *
'* Please see http://www.brainjar.com for documentation and terms of use. *
'***************************************************************************

'- Customization of these values is required, see documentation. -----------

referers = Array("www.quabbintimber.com","66.189.127.140")
mailComp = "ASPMail"
smtpServer = "mail.static.oxfr.ma.charter.com"
fromAddr = "jo@yourpagetoday.com"

'- End required customization section. -------------------------------------

Response.Buffer = true
errorMsgs = Array()

'Check for form data.

if Request.ServerVariables("Content_Length") = 0 then
call AddErrorMsg("No form data submitted.")
end if

'Check if referer is allowed.

validReferer = false
referer = GetHost(Request.ServerVariables("HTTP_REFERER"))
for each host in referers
if host = referer then
validReferer = true
end if
next
if not validReferer then
if referer = "" then
call AddErrorMsg("No referer.")
else
call AddErrorMsg("Invalid referer: '" & referer & "'.")
end if
end if

'Check for the recipients field.

if Request.Form("_recipients") = "" then
call AddErrorMsg("Missing email recipient.")
end if

'Check all recipient email addresses.

recipients = Split(Request.Form("_recipients"), ",")
for each name in recipients
name = Trim(name)
if not IsValidEmail(name) then
call AddErrorMsg("Invalid email address in recipient list: " & name & ".")
end if
next
recipients = Join(recipients, ",")

'Get replyTo email address from specified field if given and check it.

name = Trim(Request.Form("_replyToField"))
if name <> "" then
replyTo = Request.Form(name)
else
replyTo = Request.Form("_replyTo")
end if
if replyTo <> "" then
if not IsValidEmail(replyTo) then
call AddErrorMsg("Invalid email address in reply-to field: " & replyTo & ".")
end if
end if

'Get subject text.

subject = Request.Form("_subject")

'If required fields are specified, check for them.

if Request.Form("_requiredFields") <> "" then
required = Split(Request.Form("_requiredFields"), ",")
for each name in required
name = Trim(name)
if Left(name, 1) <> "_" and Request.Form(name) = "" then
call AddErrorMsg("Missing value for " & name)
end if
next
end if

'If a field order was given, use it. Otherwise use the order the fields were
'received in.

str = ""
if Request.Form("_fieldOrder") <> "" then
fieldOrder = Split(Request.Form("_fieldOrder"), ",")
for each name in fieldOrder
if str <> "" then
str = str & ","
end if
str = str & Trim(name)
next
fieldOrder = Split(str, ",")
else
fieldOrder = FormFieldList()
end if

'If there were no errors, build the email note and send it.

if UBound(errorMsgs) < 0 then

'Build table of form fields and values.

body = "<table border=0 cellpadding=2 cellspacing=0>" & vbCrLf
for each name in fieldOrder
body = body _
& "<tr valign=top>" _
& "<td><font face=""Arial,Helvetica"" size=2><b>" _
& name _
& ":&nbsp;</b></font></td>" _
& "<td><font face=""Arial,Helvetica"" size=2>" _
& Request.Form(name) _
& "</font></td>" _
& "</tr>" & vbCrLf
next
body = body & "</table>" & vbCrLf

'Add a table with any environmental variables.

if Request.Form("_envars") <> "" then
body = body _
& "<p>" _
& "<table border=0 cellpadding=2 cellspacing=0>" & vbCrLf
envars = Split(Request.Form("_envars"), ",")
for each name in envars
name = Trim(name)
body = body _
& "<tr valign=top>" _
& "<td><font face=""Arial,Helvetica"" size=2><b>" _
& name _
& ":&nbsp;</b></font></td>" _
& "<td><font face=""Arial,Helvetica"" size=2>" _
& Request.ServerVariables(name) _
& "</font></td>" _
& "</tr>" & vbCrLf
next
body = body & "</table>" & vbCrLf
end if

'Send it.

str = SendMail()
if str <> "" then
AddErrorMsg(str)
end if

'Redirect if a URL was given.

if Request.Form("_redirect") <> "" then
Response.Redirect(Request.Form("_redirect"))
end if

end if %>

<html>
<head>
<title>Form Mail</title>
</head>
<body bgcolor="#ffffff">
<font face="Arial,Helvetica" size=2>

<center>
<% if UBound(errorMsgs) >= 0 then %>
<table border=0><tr><td><font color="#cc0000" face="Arial,Helvetica" size=2><b>
Form could not be processed due to the following errors:
<p>
<ul>
<% for each msg in errorMsgs %>
<li><% = msg %>
<% next %>
</td></tr></table>
<% else %>
<table bgcolor="#000000" border=0 cellpadding=1 cellspacing=0 width=450><tr><td>
<table border=0 cellpadding=4 cellspacing=1 width="100%">
<tr bgcolor="#006c71" valign=bottom>
<th colspan=2><font color="#FFFFFF" size=2 face="Arial,Helvetica">
Thank you, the following information has been sent:
</font></th>
</tr>
<% for each name in fieldOrder %>
<tr bgcolor="#ffffff" valign=top>
<td><font face="Arial,Helvetica" size=2><b><% = name %>&nbsp;</b></font></td>
<td><font face="Arial,Helvetica" size=2><% = Request.Form(name) %>&nbsp;</font></td>
</tr>
<% next %>
</table>
</td></tr></table>
<% end if %>
<p>
<a href="<% = Request.ServerVariables("HTTP_REFERER") %>">Return</a>
</center>

</font>
</body>
</html>

<% '---------------------------------------------------------------------------
' Subroutines and functions.
'---------------------------------------------------------------------------

sub AddErrorMsg(msg)

dim n

'Add an error message to the list.

n = UBound(errorMsgs)
Redim Preserve errorMsgs(n + 1)
errorMsgs(n + 1) = msg

end sub

function GetHost(url)

Dim i, s

GetHost = ""

'Strip down to host or IP address and port number, if any.

if Left(url, 7) = "http://" then
s = Mid(url, 8)
elseif Left(url, 8) = "https://" then
s = Mid(url, 9)
end if
i = InStr(s, "/")
if i > 1 then
s = Mid(s, 1, i - 1)
end if

getHost = s

end function

function IsValidEmail(email)

dim names, name, i, c

'Check for valid syntax in an email address.

IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if

end function

function FormFieldList()

dim str, i, name

'Build an array of form field names ordered as they were received.

str = ""
for i = 1 to Request.Form.Count
for each name in Request.Form
if Left(name, 1) <> "_" and Request.Form(name) is Request.Form(i) then
if str <> "" then
str = str & ","
end if
str = str & name
exit for
end if
next
next
FormFieldList = Split(str, ",")

end function

function SendMail()

dim mailObj
dim addrList

'Send email based on mail component. Uses global variables for parameters
'because there are so many.

SendMail = ""

'Send email (CDONTS version), doesn't support reply to address and has
'no error checking.

if mailComp = "CDONTS" then
set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.From = fromAddr
mailObj.To = recipients
mailObj.Subject = subject
mailObj.Body = body
mailObj.Send
end if

'Send email (JMail version).

if mailComp = "JMail" then
set mailObj = Server.CreateObject("JMail.SMTPMail")
mailObj.Silent = true
mailObj.ServerAddress = smtpServer
mailObj.Sender = fromAddr
mailObj.ReplyTo = replyTo
mailObj.Subject = subject
addrList = Split(recipients, ",")
for each addr in addrList
mailObj.AddRecipient Trim(addr)
next
mailObj.ContentType = "text/html"
mailObj.Body = body
if not mailObj.Execute then
SendMail = "Email send failed: " & mailObj.ErrorMessage & "."
end if
end if

'Send email (ASPMail version).

if mailComp = "ASPMail" then
set mailObj = Server.CreateObject("SMTPsvg.Mailer")
mailObj.FromAddress = fromAddr
mailObj.RemoteHost = smtpServer
mailObj.ReplyTo = replyTo
for each addr in Split(recipients, ",")
mailObj.AddRecipient "", Trim(addr)
next
mailObj.Subject = subject
mailObj.ContentType = "text/html"
mailObj.BodyText = body
if not mailObj.SendMail then
SendMail = "Email send failed: " & mailObj.Response & "."
end if
end if

end function %>

 

I'm looking at the code now.. it's a mess.. so give me a few to figure it out. Off the cuff, it looks like the problem is in the beginning, but I would suggest something simpler.. I maybe able to whip up something for you. Please be patient.

 

ok, that form mail script you got from brainjar.com is bad.. just bad.
Send me your whole form page and requirements including what mail component you're host is using and required fields and I'll help you out. I can see that script causing you more headache's in the future so I'd rather you had something more straight forward and clean.

Side note:
The images on that site are huge in file size. You should seriously consider reducing the size. The one on the main page is 105k alone. A dial-up user will not wait for that pic to download. I urge you to review the sizes at your earliest convenience.

 

Thanks for the heads up on the images, greatly appreciated I will look into that.
As for the "mail component you're host is using" I am not sure on that one but I have all of the ftp info and the server is bcpros.com
Does that help???

The Form page is as follows;
The page is called test.asp

<html>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<style type="text/css">
<!--
.style12 {font-size: 10pt; font-weight: normal; font-style: normal; padding: 5px; line-height: 155%; font-family: Verdana;}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<link href="/stylesheet.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a:link {
text-decoration: underline;
}
a:visited {
text-decoration: underline;
color: #071E47;
}
a:hover {
text-decoration: underline;
color: #071E47;
}
a:active {
text-decoration: underline;
color: #071E47;
}
-->
</style><head>
<title>Quabbin Timber Inc. Home</title>

<script language="JavaScript">
<!--



function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}
}
//-->
</script>
</head>

<body text="#666600">
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="751" colspan="2"><div align="center" class="bottombar"><a href="/welcome.htm">HOME</a>&nbsp; |&nbsp; <a href="/dimensionalProducts.htm">DIMENSIONAL PRODUCTS</a>&nbsp; |&nbsp; <a href="/logHomeMaterials.htm">LOG HOME MATERIALS</a>&nbsp; |&nbsp; <a href="hardwoodLumber.htm">HARDWOOD LUMBER</a>&nbsp; | <a href="softwoodLumber.htm"></a> <a href="contact.htm"></a>&nbsp; <a href="softwoodLumber.htm">SOFTWOOD LUMBER</a> | <a href="softwoodLumber.htm"></a> <a href="contact.htm"></a> <a href="conservation.htm">CONSERVATION</a> <br>
<a href="contact.htm"></a>&nbsp;&nbsp; <a href="stairTreads.htm">STAIR TREADS</a>&nbsp; |&nbsp; &nbsp;<a href="widePineFlooring.htm">WIDE PINE FLOORING</a>&nbsp; |&nbsp; <a href="requestQuote.htm">REQUEST A QUOTE</a>&nbsp; |&nbsp; <a href="staff.htm">MEET OUR STAFF</a> &nbsp; | <a href="/associations.htm">INDUSTRY SUPPORT</a> |&nbsp;<a href="contact.htm">CONTACT US</a> </div></td>
</tr>
<tr valign="top">
<td colspan="2" align="left" valign="bottom"><div align="center">
<p class="paraheader"><img src="/images/pg_quoteBar.jpg" width="707" height="44"><br>
</p>
</div></td>
</tr>
<tr valign="top">
<td colspan="2" align="left" valign="top"> <div align="left">
<form action="/formmail.asp" method="post">
<input name="_recipients" type="hidden" value="jo@yourpagetoday.com" />
<input type="hidden" name="redirect" value="/thanks.htm"/>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr valign="bottom">
<th width="29%" scope="col"><div align="right" class="text">Subject:</div></th>
<th colspan="2" scope="col"><div align="left"><span class="text">
<input name="subject" type="text" id="subject" size="30">
</span></div></th>
</tr>
<tr valign="bottom">
<th scope="col"><div align="right"><span class="text">Full Name: </span></div></th>
<th colspan="2" scope="col"><div align="left"><span class="text">
<input name="name" type="text" id="name" size="30">
</span></div></th>
</tr>
<tr valign="bottom">
<th scope="col"><div align="right"><span class="text">Company Name: </span></div></th>
<th colspan="2" scope="col"><div align="left"><span class="text">
<input name="company" type="text" id="company" size="30">
</span></div></th>
</tr>
<tr valign="bottom">
<th valign="top" scope="col"><div align="right"><span class="text">Address: </span></div></th>
<th colspan="2" scope="col"><div align="left"><span class="text">
<input name="address" type="text" id="address" size="30">
</span></div></th>
</tr>
<tr valign="bottom">
<th valign="top" scope="col"><div align="right"><span class="text">City: </span></div></th>
<td width="62%" colspan="2" valign="bottom" scope="col"><div align="left"><span class="text">
<input name="city" type="text" id="city" size="30">
</span><span class="text"><br>
</span><span class="text"> </span></div></td>
</tr>
<tr valign="bottom">
<th valign="top" scope="col"><div align="right"><span class="text">State: </span></div></th>
<td width="62%" colspan="2" valign="bottom" scope="col"><div align="left"><span class="text">
<select name=state>
<option value=""
selected>State</option>
<option
value=AL>Alabama</option>
<option
value=AK>Alaska</option>
<option
value=AZ>Arizona</option>
<option
value=AR>Arkansas</option>
<option
value=CA>California</option>
<option
value=CO>Colorado</option>
<option
value=CT>Connecticut</option>
<option
value=DE>Delaware</option>
<option
value=DC>Dist. of Columbia</option>
<option
value=FL>Florida</option>
<option
value=GA>Georgia</option>
<option
value=HI>Hawaii</option>
<option
value=ID>Idaho</option>
<option
value=IL>Illinois</option>
<option
value=IN>Indiana</option>
<option
value=IA>Iowa</option>
<option
value=KS>Kansas</option>
<option
value=KY>Kentucky</option>
<option
value=LA>Louisiana</option>
<option
value=ME>Maine</option>
<option
value=MD>Maryland</option>
<option
value=MA>Massachusetts</option>
<option
value=MI>Michigan</option>
<option
value=MN>Minnesota</option>
<option
value=MS>Mississippi</option>
<option
value=MO>Missouri</option>
<option
value=MT>Montana</option>
<option
value=NE>Nebraska</option>
<option
value=NV>Nevada</option>
<option value=NH>New Hampshire</option>
<option value=NJ>New Jersey</option>
<option value=NM>New Mexico</option>
<option value=NY>New York</option>
<option value=NC>North Carolina</option>
<option value=ND>North Dakota</option>
<option value=OH>Ohio</option>
<option value=OK>Oklahoma</option>
<option
value=OR>Oregon</option>
<option
value=PA>Pennsylvania</option>
<option
value=RI>Rhode Island</option>
<option
value=SC>South Carolina</option>
<option
value=SD>South Dakota</option>
<option
value=TN>Tennessee</option>
<option
value=TX>Texas</option>
<option
value=UT>Utah</option>
<option
value=VT>Vermont</option>
<option
value=VA>Virginia</option>
<option
value=WA>Washington</option>
<option
value=WV>West Virginia</option>
<option
value=WI>Wisconsin</option>
<option
value=WY>Wyoming</option>
<option
value="">---Canadian Provinces ---
<option
value=AB>Alberta</option>
<option
value=BC>British Columbia</option>
<option
value=MB>Manitoba</option>
<option value=NB>New Brunswick</option>
<option
value=NF>Newfoundland</option>
<option
value=NT>Northwest Territories</option>
<option
value=NS>Nova Scotia</option>
<option
value=ON>Ontario</option>
<option
value=PE>Prince Edward Island</option>
<option
value=QC>Quebec</option>
<option
value=SK>Sasketchewan</option>
<option
value=YT>Yukon</option>
<option
value="">---Select N/A if not Canada or USA---
<option value=N/A>N/A</option>
</select>
</span></div></td>
</tr>
<tr valign="bottom">
<th valign="top" scope="col"><div align="right"><span class="text">Zip: </span></div></th>
<td colspan="2" valign="bottom" scope="col"><div align="left"><span class="text">
<input name="zip" type="text" id="zip" size="7" maxlength="12">
</span><span class="text"> </span></div></td>
</tr>
<tr>
<th align="left" valign="top" scope="col"><div align="left">
<p align="right" class="text">Type your message here: </p>
<p>&nbsp;</p>
</div></th>
<th colspan="2" align="left" valign="bottom" scope="col"><p class="text">
<textarea name="Message" cols="50" rows="4" id="Message"></textarea>
</p></th>
</tr>
<tr>
<td rowspan="3" align="left" valign="top" class="text" scope="col"><div align="right">Send my Quote Via:<br>
<label>
<input name="emailMe" type="checkbox" id="emailMe" value="emailMe">
Email
<input name="phoneMe" type="checkbox" id="phoneMe" value="phoneMe">
</label>
<label> Phone</label>
<input name="faxMe" type="checkbox" id="faxMe" value="faxMe">
<label> Fax</label>
</div></td>
<td align="left" valign="bottom" class="text" scope="col">Email: </td>
<td align="left" valign="bottom" class="text" scope="col"><input name="email" type="text" id="email"></td>
</tr>
<tr>
<td align="left" valign="bottom" class="text" scope="col">Phone: </td>
<td align="left" valign="bottom" class="text" scope="col"><input name="phone" type="text" id="phone"></td>
</tr>
<tr>
<td align="left" valign="bottom" class="text" scope="col">Fax:</td>
<td align="left" valign="bottom" class="text" scope="col"><input name="fax" type="text" id="fax"></td>
</tr>
<tr>
<td colspan="3" align="left" valign="top" class="text" scope="col"><div align="center">
<input type="submit" name="Submit" value="Submit Request">
</div></td>
</tr>
</table>
</form>
</div> </td>
</tr>
<tr>
<td colspan="2"><div align="center" class="bottombar"><a href="/welcome.htm">HOME</a>&nbsp; |&nbsp; <a href="/dimensionalProducts.htm">DIMENSIONAL PRODUCTS</a>&nbsp; |&nbsp; <a href="/logHomeMaterials.htm">LOG HOME MATERIALS</a>&nbsp; |&nbsp; <a href="hardwoodLumber.htm">HARDWOOD LUMBER</a>&nbsp; | <a href="softwoodLumber.htm"></a> <a href="contact.htm"></a>&nbsp; <a href="softwoodLumber.htm">SOFTWOOD LUMBER</a> | <a href="softwoodLumber.htm"></a> <a href="contact.htm"></a> <a href="conservation.htm">CONSERVATION</a> <br>
<a href="contact.htm"></a>&nbsp;&nbsp; <a href="stairTreads.htm">STAIR TREADS</a>&nbsp; |&nbsp; &nbsp;<a href="widePineFlooring.htm">WIDE PINE FLOORING</a>&nbsp; |&nbsp; <a href="requestQuote.htm">REQUEST A QUOTE</a>&nbsp; |&nbsp; <a href="staff.htm">MEET OUR STAFF</a> &nbsp; | <a href="/associations.htm">INDUSTRY SUPPORT</a> |&nbsp;<a href="contact.htm">CONTACT US</a> </div></td>
</tr>
<tr>
<td colspan="2" class="bottombarwhite"><table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="328" scope="row"><div align="left"><img src="/images/QTCircleLOGOGreenSMALL.gif" width="19" height="19" align="middle"><span class="footer">&copy; Quabbin Timber, Inc. All Rights Reserved </span></div></td>
<td width="422" scope="row"><div align="center"><a href="/QuabbinTimberBrochure.pdf" target="_blank">CLICK HERE TO VIEW, PRINT OR SAVE OUR BROCHURE</a></div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>

 

no, the ftp stuff doesn't help. Contact the host in which the site resides and ask them what ASP mail components that have available. This will determine what code I write.

I tried to hit bcpros.com but it was a bad url.

 

OK I will get back to you...thank you!

 

Is that the only info we need from them??
thanks

 

from them, yes.. from you, I need you tell me what form fields are required on that form.

 

Required.....Name, Message and what method to contact them.
Please.
Thanks

 

I am awaiting a response to
"what ASP mail components that they have available"
The response will be filtered through 2 other parties...may take time on that one. Truly appreciate your help on this!!!!!!!

 

you're welcome.

If I may be so bold as to suggest that you pick up an ASP book so you don't run into situations like this where you're pulling your hair out and have to rely on someone else to code it. A nice book is Beginning Active Server Pages 3.0 by Wrox Press.

 

Thanks for the suggested reading, I WILL definitely pick that up.

 

Hey Kodo, just wanted to let ya know that I am still here, another call has gone out for that answer, and again I appreciate your assistance on this.

 

you're welcome.

did you pick up that book yet?

 

I Ordered that Book from Amazon.com

I received a reply about your question......here it is

"Just talked to BC Pros. The suggestions they have are to use our MS Exchange server or to use a thing called Jmail. Said the Jmail we can download off the net, its free, and that seems to work."

Thanks

 

Is that information something that you can still work with with the formmail.asp?????

 

of course it had to be the only component that I've never used..lol.
umm. are you or your company hosting mail or is BC Pro's hosting the mail.

I'll have to look up jmail on my lunch hour and see if I can whip something up. I may have a pre-fab form lying around that I built a few months back that I can just tie the mail function to.

 

Bc Pros is the mail host, I think that they said MSexchange server. I need tto learn more about this, I was working with Jmail as well on this one and it seems that the only component that I am not sure of is what to type here:...
JMail.ServerAddress = "mail.aspwebpro.com"

But then again I could have gotten it ALL wrong LOL
For the time being I have all of the test forms going to my email jo@yourpagetoday.com

Here is the jmail test that I was working on, it didnt work though there is something wrong.....http://www.quabbintimber.com/testjmail.asp
The jmail.jsp is as follows....
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>

<form name="YourFormName" method="Post" action="jmail.asp">
<table>
<tr><td>Email: </td>
<td><input type="text" name="Email" size="50"></td></tr>
<tr><td>First Name: </td>
<td><input type="text" name="FirstName" size="50"></td></tr>
<tr><td>Last Name: </td>
<td><input type="text" name="LastName" size="50"></td></tr>
<tr><td>Subject: </td>
<td><input type="text" name="Subject" size="50"></td></tr>
<tr><td>Comments: </td>
<td><textarea name="Comments"></textarea></td>
</table>
<input type="submit" name="Submit" value="Submit Form">
</form>

</body>
</html>


Thank you once again, and Perhaps I should PAY you for your help?

 

JMail.ServerAddress = "mail.aspwebpro.com"

this line is just saying "HEY! PROGRAMMER!!! which mail server do you want me to talk with to send this email out?"

so, you put in the mail server name that bcpro uses. I would say something like
mail.quabbintimber.com is probably what it will take.

I can't really help you out any further unless you show me your asp code.
Lets work with your jmail test page.

No need to pay me, just a thank you is enough.

 

asp code.....


<%
DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mailer
strEmail = Request.Form("Email")
strFirstName = Request.Form("FirstName")
strLastName = Request.Form("LastName")
strSubject = Request.Form("Subject")
strComments = Request.Form("Comments")

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.aspwebpro.com"
JMail.AddRecipient "jo@yourpagetoday.com"
JMail.Sender = strEmail
JMail.Subject = strSubject
JMail.Body = strComments
JMail.Execute
Set JMail= Nothing

IF NOT JMail.Execute THEN
Response.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & "<BR>" & vbcrlf )
Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & "<BR>" & vbcrlf )
Response.Write( "LOG: <pre>" & JMail.Log & "</pre>" & vbcrlf )
ELSE
Response.Write "<blockquote>Your :<b>" & strSubject & "</b> Newsletter has been successfully sent to <b>" & intSubscribers & "</b> subscribers.</blockquote>"
END IF
%>

 

changed this...
JMail.ServerAddress = "mail.quabbintimber.com"

Still does not work

Thank You

 

Everything looks fine here.
The email server is the only thing left to figure out. Contact support to find out what the quabbin timber mail server is that you need to connect to.

 

Should there be an = sign in this ...JMail.AddRecipient "jo@yourpagetoday.com"
Like the others????

Example JMail.AddRecipient= "jo@yourpagetoday.com"

Just wondering
Thanks

 

addrecpient is the only one that doesn't use that as far as I can tell.

http://www.webwizguide.info/asp/tutorials/email_using_jmail_tutorial.asp

 

Got that info! Finally LOL

For outside mail: removed for security reasons

Inside: removed for security reasons

 

ahh.. well, does it work now ?

 

still wont work, I just dont know what I am doing wrong.

 

I have 2 different forms going that I am testing, one is as listed below, and the other is...http://www.quabbintimber.com/default.asp With .asp script as follows;
<html>

<head>
<title>test</title>
</head>
<body>
<p align="center"><font face="Arial, geneva" size="5"> Email Form</font></p>
<%
Name = Request.Form("name")
SenderEmail = Request.Form("email")
Subject = "Regarding " & Request.Form("subject")
Recipient = Request.Form("recipient")
Body = Request.Form("body")

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

' Below you should enter your own SMTP-server
JMail.ServerAddress = "mail.quabbintimber.com"

JMail.Sender = Senderemail
JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Logging = True
JMail.Execute

%>
<center>
<font face="Arial, geneva" size="3"> Your email has been sent to <%= Recipient %><br>
</font>
</center>
</body>
</html>

Neither will work for some reason.

 

wasn't this for mail clients?
"mail.quabbintimber.com"
use the other one with the .local at the end.

 

None of them work, I am running out of ideas, I am going to test this script on another server and see what happens.

 

ARG!! My server is Linux based wont rin .asp script DOH!! Ok I think im gonna take a break on this, and call them again.

 

Jodi, Jodi.. I wish I had known this before hand, I could have saved you a lot of trouble.
If you want to run ASP, you need windows. If you want to stay with the linux then you'll need to do this in PHP which I can't help you with but goldfish can.

 

Oh No no Dear, their server is Windows based, but the scripts wont work, So, I was going to test the same scripts on my server, but mine is Linux. I think we are going to go back to tying the pearl script again, aI will have them set the permissions for the CGI bin folder, I would but I dont have access with the master passwords. I think that will probably solve it. Because the pearl script works on my server, and they said that they are pearl redy, so that should be the remedy.

Thanks Kodo U'v been great!

 

this is what I get when I tried the default.asp

Server.CreateObject Failed

which means that JMAIL doesn't exist on their server.
Ask them if they allow use with the CDO mail component which is native to windows.

 

Hey Kodo, This is the response I got from them on that one

This server is ours, right in the office. If we need to load JMail on to it, tell what I need to do. (If its not on there already)

 

This is what I sent him in response;
Unfortunately that is not my field of expertise, Web Design is, I understand the scripts, the error messages, and how to make the scripts work, however I am not a server technician, (that's a whole other field) I can certainly do some research but that will take time and I would have to charge my regular hourly fee, I would not recommend relying on me for "Server" expert advice. This would be the point at which I would recommend that it should be in the hands of your server tech support, considering you were told that your server was script ready, but it appears that we have exhausted all options that we know if and have discovered that it is not.

SO, I am leaving this up his tech support.

 

hey Jodi.. try this one..

http://www.4guysfromrolla.com/webtech/112298-1.shtml

 

I understand how this works but how does it take the results from the form????

 

for instance

objCDO.To = "mitchell@4guysfromrolla.com"
objCDO.From = "gates@microsoft.com"


would be something like

objCDO.To = request.form("emailto")
objCDO.From = request.form("emailedfrom")