Microsoft VBScript compilation error '800a0401'
Expected end of statement
/forms/lgctest.asp, line 17
Expected end of statement
/forms/lgctest.asp, line 17
Code:
Dim name,municipal position,municipality,address,city,state,zip,email
here's my code
<%@LANGUAGE= "VBSCRIPT"%>
<%Option Explicit%>
<html>
<body>
<%
'NOTE: YOU MUST UPDATE THE FOLLOWING 3 VARIABLES
Dim strMailDomain, strMailUserName, strMailPassword
strMailDomain = "mail.southerntierwest.org"
strMailUserName = "sphearsdorf@southerntierwest.org"
strMailPassword = "phearsdorf"
' Get the form data from HTML form with 8 fields
Dim name,municipal position,municipality,address,city,state,zip,email
name= Request.Form("txt_name")
name= Request.Form("txt_municipal position")
name= Request.Form("txt_municipality")
name= Request.Form("txt_address")
name= Request.Form("txt_city")
name= Request.Form("txt_state")
name= Request.Form("txt_zip")
name= Request.Form("txt_email")
' Create the JMail message Object
Dim msg
set msg = Server.CreateOBject( "JMail.Message" )
' Enter the sender data
msg.From = senderEmail
msg.FromName = name
'Server Authentication
msg.MailServerUserName = strMailUserName
msg.MailServerPassWord = strMailPassword
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient "sphearsdorf@southerntierwest.org"
' The subject of the message
msg.Subject = subject
' And the body
msg.body = body
' Now send the message, using the indicated mailserver
if not msg.Send(strMailDomain) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Change this content to your own thank you message: Thank you for taking the time to contact us. We will review your request as soon as possible and reply accordingly"
end if
' That's it - you can add additional e-mail addresses as required.
%>
Comment