I need help with this code to a submit Dreamweaver form

valmae

New Member

Join Date: Nov 2008
Posts: 1

I need help with this code to a submit Dreamweaver form

Nov 10 '08, 08:53 PM

Please help anyone! I am getting this error after the submit button is clicked to this form which was designed in Dreamweaver in ASP.

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/Prepare/Earthquake_Awar eness_Week_07/Earthquake_dril l.asp, line 37

wareness Week Response Form</u></h1><h2>Superint endents Name: </h2>" & request.form("S uperintendents Name") _

The code for the Dreamweaver page is below: It all started when I tried to change the email address in the current form to the new email address which was changed a few months ago.

I did not design this page and I cannot figure it out...we have a question and answer with the schools on Wednesday...

Can anyone help..thanks... .

Code:

<%@ Language="VBScript" %>

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

<HTML>
	<HEAD>

		<TITLE>
			Email Test
		</TITLE>

		<%
			If request.form("address") <> "" Then

				Dim SCEMDSendMail
				Dim SCEMDConfig
				Dim SCEMDFields
				Dim SCEMDMailMssg
				
				Set SCEMDSendMail = Server.CreateObject("CDO.Message")
				Set SCEMDConfig = CreateObject("CDO.Configuration")
				Set SCEMDFields = SCEMDConfig.Fields
				
				
				'This section provides the configuration information for the remote SMTP server.
				
				SCEMDSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
				SCEMDSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="emdexch.emd.sc.gov"
				SCEMDSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
				SCEMDSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
				SCEMDSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
				
				SCEMDSendMail.Configuration.Fields.Update
				
				'This section provides the HTML configuration of the form information
				
				wareness Week Response Form</u></h1><h2>Superintendents Name: </h2>" & request.form("Superintendents Name") _ 
				& "<h2>School District: </h2>" & request.form("School District") & "<h2>Name of School: </h2>" _
				& request.form("Name of School") & "<h2>Name of Principal: </h2>" & request.form("Name of Principal") _
				& "<h2>School Address: </h2>" & request.form("School Address") & "<h2>School Enrollment:</h2>" _
				& request.form("School Enrollment") & "<h2>Classroom earthquake drills reached: </h2>" _
				& request.form("Number of Students") & " students<br>" & request.form("Number of Faculty") _
				& " faculty<br>" & request.form("Number of Staff") & " staff<br>" _
				& request.form("Number of Administrators") & " administrators<h2>Did your school conduct an evacuation " _
				& "drill following the earthquake drill?</h2>" & request.form("Evacuation Drill") & "<h2>Hazard Reduction Activities: " _
				& "</h2><br><strong>a) Wall Mountings secured: </strong>" & request.form("Wall Mountings Secured?") & "<br><strong>b) " _
				& "TV Monitor secured: </strong>" & request.form("TV Monitor") & "<br><strong>c) Heavy objects removed from above: " _
				& "</strong>" & request.form("Heavy Objects removed?") & "</h3><h2>Comments:</h2> " & request.form("Comments") _
				& "<h2>Email address: </h2>" & request.form("address") & "</body></html>"
				
				SCEMDSendMail.To = "webmaster@emd.sc.gov"SCEMDMailMssg =  "<html><head><title>Earthquake Drill Form Response</title></head><body><h1><u>Earthquake " _
				& "A@emd.sc.gov
				SCEMDSendMail.Subject = "Earthquake Drill Response"
				SCEMDSendMail.From = "webmaster@emd.sc.gov"
				SCEMDSendMail.HTMLBody = SCEMDMailMssg

				SCEMDSendMail.Send

				Set SCEMDSendMail = Nothing
			

				Call Response.Redirect("Thanks.html")
				
			Else
			
				Call Response.Redirect("NoThanks.html")
			
			End If
	
		%>

	</HEAD>

	<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#FF0000" VLINK="#800000" ALINK="#FF00FF" BACKGROUND="?">
	
	&nbsp;
	
	</BODY>
</HTML>

Last edited by DrBunchman; Nov 11 '08, 08:50 AM. Reason: Added [Code] Tags - Please use the '#' button

Tags: None

DrBunchman

Recognized Expert Contributor

Join Date: Jan 2008

Posts: 979
#2

Nov 11 '08, 08:57 AM

Hi valmae,

Welcome to Bytes.com! I hope you find the site useful.

Please don't forget to wrap your code in CODE tags - it makes your posts much easier to read - and please read the Posting Guidelines if you have not done so already.

It looks to me like you have somehow deleted some of the code as Line 37 appears to have had the beginning of it cut off - is this the case?

I would expect it to begin with something like:

Code:

SCEMDMailMssg = "Something Something Awareness Week Response Form</u></h1><h2>Superintendents Name: </h2>" & request.form("Superintendents Name") _

Have you got a back up of the version of this page before you made the changes?

Dr B
Comment