HTTP 500 Error

ScottTN · Dec 9, 2002

When trying to use to code below, I recieve a 500 error. The error occurs on the objMail.Send line.

Any ideas?

intIndex = instr(txtEMail,"@&quot

if intIndex then
if instr(intIndex + 1,txtEMail,".&quot

then
strMsg = "Dear " & txtFName & " " & txtLName & "," & vbcrlf
strMsg = strMsg + "Your lead has been submitted to RHGS."
strMsg = strMsg + " If you have requested to be contacted, someone will be in touch with you shortly."
strMsg = strMsg + " Please look over the following list for errors. If you did make an error, please resubmit the request form and type update in the comments field."
strMsg = strMsg + vbcrlf & vbcrlf + "Submission Results:" & vbcrlf & vbcrlf
strMsg = strMsg + "First Name:" & " " & txtFName & vbcrlf
strMsg = strMsg + "Last Name:" & " " & txtLName & vbcrlf
strMsg = strMsg + "Company:" & " " & txtCName & vbcrlf
strMsg = strMsg + "Email Address:" & " " & txtEmail & vbcrlf & vbcrlf
strMsg = strMsg + "Phone:" & " " & txtPhone & vbcrlf & vbcrlf
strMsg = strMsg + "Fax:" & " " & txtFax & vbcrlf & vbcrlf
strMsg = strMsg + "Address:" & " " & txtAddress & vbcrlf & vbcrlf
strMsg = strMsg + "City:" & " " & txtCity & vbcrlf & vbcrlf
strMsg = strMsg + "Zip Code:" & " " & txtZipCode & vbcrlf & vbcrlf
strMsg = strMsg + "Comments:" & " " & txtComments & vbcrlf & vbcrlf
strMsg = strMsg + "Submitter Name:" & " " & txtSName & vbcrlf & vbcrlf
strMsg = strMsg + "Submitter Location:" & " " & txtSLocation & vbcrlf & vbcrlf
strMsg = strMsg + "Submitter Phone:" & " " & txtSPhone & vbcrlf & vbcrlf
' strMsg = strMsg + "Contact Requested:" & " " & txtContact & vbcrlf & vbcrlf

end if

strMsg = strMsg & vbcrlf & vbcrlf
strMsg = strMsg & "Sincerely," & vbcrlf
strMsg = strMsg & "Rural Health Group Services" & vbcrlf

set objMail = CreateObject("CDONTS.Newmail&quot

objMail.From = "address@domain.com"
objMail.To = txtEMail
objMail.Subject = "RHGS Lead from the Web"
objMail.Body = strMsg
objMail.Send
set objMail = nothing
set strMsg = nothing

end if

Tarwn · Dec 9, 2002

Well, first,
this line:

Code:

if intIndex then

is dangerous. the function InStr returns the index in the string where your second string starts, not a boolean value.
Same with your second if statement.

Third, if you are not using javascript for your language, than you need to replace all of those + signs with &'s, as the & is the concatenation charactr for vbScript, not the +.

If you are using javascript, than you need to check your methods your calling, to my knowledge InStr doesn't exist for javascript.

-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---

http://www.tuxedo.org/~esr/faqs/smart-questions.html

ScottTN · Dec 9, 2002

Here is the full code maybe this will help. The email server is an exchange server setup to allow internal relays.

<%@ Language=VBScript %>
<%


' Get the Contact information used more than once

txtFName = Request.Form("fname&quot

txtLName = Request.Form("lname&quot

txtCName = Request.Form("cname&quot

txtEmployees = Request.Form("employees&quot

txtEmail = Request.Form("email&quot

txtPhone = Request.Form("phone&quot

txtFax = Request.Form("fax&quot

txtAddress = Request.Form("address&quot

txtCity = Request.Form("city&quot

txtZipCode = Request.Form("zipcode&quot

txtComments = Request.Form("comments&quot

txtSName = Request.Form("sname&quot

txtSLocation = Request.Form("slocation&quot

txtSPhone = Request.Form("sphone&quot

' txtContact = Request.Form("contact&quot

' ***********************************
' Now email the user a acknowledgment
' ***********************************

intIndex = instr(txtEMail,"@&quot

if intIndex then
if instr(intIndex + 1,txtEMail,".&quot

then
strMsg = "Dear " & txtFName & " " & txtLName & "," & vbcrlf
strMsg = strMsg + "Your lead has been submitted to RHGS."
strMsg = strMsg + " If you have requested to be contacted, someone will be in touch with you shortly."
strMsg = strMsg + " Please look over the following list for errors. If you did make an error, please resubmit the request form and type update in the comments field."
strMsg = strMsg + vbcrlf & vbcrlf + "Submission Results:" & vbcrlf & vbcrlf
strMsg = strMsg + "First Name:" & " " & txtFName & vbcrlf
strMsg = strMsg + "Last Name:" & " " & txtLName & vbcrlf
strMsg = strMsg + "Company:" & " " & txtCName & vbcrlf
strMsg = strMsg + "Email Address:" & " " & txtEmail & vbcrlf & vbcrlf
strMsg = strMsg + "Phone:" & " " & txtPhone & vbcrlf & vbcrlf
strMsg = strMsg + "Fax:" & " " & txtFax & vbcrlf & vbcrlf
strMsg = strMsg + "Address:" & " " & txtAddress & vbcrlf & vbcrlf
strMsg = strMsg + "City:" & " " & txtCity & vbcrlf & vbcrlf
strMsg = strMsg + "Zip Code:" & " " & txtZipCode & vbcrlf & vbcrlf
strMsg = strMsg + "Comments:" & " " & txtComments & vbcrlf & vbcrlf
strMsg = strMsg + "Submitter Name:" & " " & txtSName & vbcrlf & vbcrlf
strMsg = strMsg + "Submitter Location:" & " " & txtSLocation & vbcrlf & vbcrlf
strMsg = strMsg + "Submitter Phone:" & " " & txtSPhone & vbcrlf & vbcrlf
' strMsg = strMsg + "Contact Requested:" & " " & txtContact & vbcrlf & vbcrlf

end if

strMsg = strMsg & vbcrlf & vbcrlf
strMsg = strMsg & "Sincerely," & vbcrlf
strMsg = strMsg & "Rural Health Group Services" & vbcrlf

set objMail = CreateObject("CDONTS.Newmail&quot

objMail.From = "address"
objMail.To = txtEMail
objMail.Subject = "RHGS Lead from the Web"
objMail.Body = strMsg
objMail.Send
set objMail = nothing
set strMsg = nothing

end if

' *************************
' Finally email info
' *************************

' Generate message

strMsg1 = strMsg1 + "PLEASE DO NOT REPLY TO THIS EMAIL! THIS IS NOT AN ACTUAL EMAIL USER!" & vbcrlf & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "The following information was entered from the TRH Internal Website:" & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "First Name:" & " " & txtFName & vbcrlf
strMsg1 = strMsg1 + "Last Name:" & " " & txtLName & vbcrlf
strMsg1 = strMsg1 + "Company:" & " " & txtCName & vbcrlf
strMsg1 = strMsg1 + "Email Address:" & " " & txtEmail & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "Phone:" & " " & txtPhone & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "Fax:" & " " & txtFax & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "Address:" & " " & txtAddress & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "City:" & " " & txtCity & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "Zip Code:" & " " & txtZipCode & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "Comments:" & " " & txtComments & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "Submitter Name:" & " " & txtSName & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "Submitter Location:" & " " & txtSLocation & vbcrlf & vbcrlf
strMsg1 = strMsg1 + "Submitter Phone:" & " " & txtSPhone & vbcrlf & vbcrlf
' strMsg1 = strMsg1 + "Contact Requested:" & " " & txtContact & vbcrlf & vbcrlf

' Now mail it

set objMail1 = CreateObject("CDONTS.Newmail&quot

objMail1.From = "address"
objMail1.To = "address"
objMail1.Subject = "RHGS Lead from the Web"
objMail1.Body = strMsg1
objMail1.Send
set objMail1 = nothing
set strMsg1 = nothing

' ************************************
' Now write out an acknowledgment page
' ************************************

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "

http://www.w3.org/TR/REC-html40/loose.dtd">

<html>
<head>
<title>Success</title>

</head>

<body BGCOLOR="WHITE">
<div align="left">

<table>
<tr>
<td WIDTH="500" VALIGN="top"><table WIDTH="616" BORDER="0" style="WIDTH: 616px; HEIGHT: 102px">
<tr>
<td HEIGHT="65"><p align="left"><font size="2" color="Black" face="tahoma,arial,helvetica"><font face="Arial">Your group lead has been submitted.<br>
If you requested contact, someone will contact you shortly. <BR> An email confirmation has also been sent to the address that you provided.<br>
<br>
Sincerely,</font> <br>
<font face="Arial" size="2" color="#252525"><em>Rural Health Group Services</em></font></font></td>

<tr align="left" valighn="center"><td><img alt="Tennessee Rural Health" SRC="

http://exchange.trh.com/secure/support/images/trhlogo.jpg"

WIDTH="150" HEIGHT="75"><BR>
</tr>
</table>
</td>
<td WIDTH="5" BGCOLOR="White"></td>
</tr>
</table>
<form>
<input type="button" value="Close Window" onClick="window.close()">
</form>
</div>
</body>
</html>

Tarwn · Dec 9, 2002

Ok, 1) for your two if statements add a > 0 after them to make sure the position is inside the string (0 means not found)
2) Replace your +'s with &'s
3) test it before reposting

-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---

http://www.tuxedo.org/~esr/faqs/smart-questions.html

mwa · Dec 9, 2002

tarwn is right about the "if intIndex then" part...

try this instead:
if intIndex > 0 then

also, your include file should be on the outside of the asp tags:

<%

instead of:
<%


Hope that helps...
mwa

ScottTN · Dec 9, 2002

Made the changes and tested. Still same error. Aldo below code is used to post to prior code. Thanks for the help.

<html>
<head>
<title>Submit RHGS Group Lead</title>
</head>

<body background="

http://rh.tfic.com/images/newpst10.jpg"

link="#CC0000" vlink="#000000" alink="#000000">

<form METHOD="POST" action="emailleadinfo.asp" name="form1" >

<div align="left">
<table border="0" width="487" height="393" cellspacing="1">
<tr>
<td width="477" height="27" colspan="2">
<p align="center">Enter Lead Information Below:</td>
</tr>
<tr>
<td width="155" height="34" align="left">First Name</td>
<td width="322" height="31">
<input type="text" name="fname" size="20"></td>
</tr>
<tr>
<td width="155" height="33" align="left">Last Name</td>
<td width="322" height="30">
<input type="text" name="lname" size="20"></td>
</tr>
<tr>
<td width="155" height="37" align="left">Company</td>
<td width="322" height="33">
<input type="text" name="cname" size="20"></td>
</tr>
<tr>
<td width="155" height="32" align="left">Number of Employees</td>
<td width="322" height="38">
<input type="text" name="employees" size="20"></td>
</tr>
<tr>
<td width="155" height="25" align="left">Phone</td>
<td width="322" height="26">
<input type="text" name="phone" size="20"></td>
</tr>
<tr>
<td width="155" height="18" align="left">Fax</td>
<td width="322" height="24">
<input type="text" name="fax" size="20"></td>
</tr>
<tr>
<td width="155" height="5" align="left">Address</td>
<td width="322" height="24">
<input type="text" name="address" size="20"></td>
</tr>
<tr>
<td width="155" height="5" align="left">City</td>
<td width="322" height="24">
<input type="text" name="city" size="20"></td>
</tr>
<tr>
<td width="155" height="5" align="left">Zip Code</td>
<td width="322" height="24">
<input type="text" name="zipcode" size="20"></td>
</tr>
<tr>
<td width="155" height="15" align="left">Comments</td>
<td width="322" height="15">
<textarea rows="2" name="comments" cols="37"></textarea></td>
</tr>
<tr>
<td width="477" height="5" colspan="2"></td>
</tr>
<tr>
<td width="487" height="28" colspan="2">
<p align="center">Enter Submitter Information Below:</td>
</tr>
<tr>
<td width="156" height="21">Name</td>
<td width="321" height="21">
<input type="text" name="sname" size="20"></td>
</tr>
<tr>
<td width="155" height="30" align="left">Email Address</td>
<td width="322" height="33">
<input type="text" name="email" size="20"></td>
</tr>
<tr>
<td width="156" height="21">Location</td>
<td width="321" height="21">
<input type="text" name="slocation" size="20"></td>
</tr>
<tr>
<td width="156" height="21">Phone</td>
<td width="321" height="21">
<input type="text" name="sphone" size="20"></td>
</tr>

<tr>
<td width="477" height="21" colspan="2">
<p align="center"><input type="submit" value="Submit" name="submit"><input type="reset" value="Clear" name="Clear"></td>
</tr>
</table>
</div>

</form>

</body>

</html>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

HTTP 500 Error

ScottTN

IS-IT--Management

Tarwn

Programmer

ScottTN

IS-IT--Management

Tarwn

Programmer

mwa

Programmer

ScottTN

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor