Hi I've had a asp contact email form on my website which I host running for a while. Suddenly today I started to get a:
Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/contact.asp, line 397
Nothing has changed on this form since day one and I can't seem to figure out where the Expected 'End' statement should be. Please keep in mind I am not a seasoned web programer and had a little help designing the form from a friend who isn't available to help me with this issue due to his military service.
Can someone help me?
website:
http://www.lcsunshine.com/contact.asp
Source below:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%>
<%
Dim site
Dim site_numRows
Set site = Server.CreateObject("ADODB.Recordset")
site.ActiveConnection = MM_myrealty_STRING
site.Source = "SELECT * FROM site_per"
site.CursorType = 0
site.CursorLocation = 2
site.LockType = 1
site.Open()
site_numRows = 0
%>
<%
Dim address
Dim address_numRows
Set address = Server.CreateObject("ADODB.Recordset")
address.ActiveConnection = MM_myrealty_STRING
address.Source = "SELECT * FROM site_per"
address.CursorType = 0
address.CursorLocation = 2
address.LockType = 1
address.Open()
address_numRows = 0
%>
<%
function WA_Universal_Email_1_SendMail(RecipientEmail)
dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject
MailAttachments = ""
MailBCC = ""
MailCC = ""
MailTo = ""
MailBodyFormat = ""
MailBody = ""
MailImportance = ""
MailFrom = "" & cStr(request.form("email")) & ""
MailSubject = "Website Contact Form"
'Global Variables
gAddBCC = ""
gAddCC = ""
gAddRecipient = ""
gBodyFormat = ""
gSetImportance = ""
set WA_MailObject = WAUE_Definition()
if (RecipientEmail <> "") then
set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail)
MailTo = gAddRecipient
gAddRecipient = ""
else
'To Entries
end if
'Attachment Entries
'BCC Entries
MailBCC = gAddBCC
'CC Entries
MailCC = gAddCC
'Body Format
set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0)
MailBodyFormat = gBodyFormat
'Set Importance
set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1")
MailImportance = gSetImportance
'Start Mail Body
MailBody = MailBody + "" + VbCrLf
MailBody = MailBody + "<table width=" & Chr(34) & "100%" & Chr(34) & " border=" & Chr(34) & "0" & Chr(34) & " cellpadding=" & Chr(34) & "0" & Chr(34) & " cellspacing=" & Chr(34) & "0" & Chr(34) & ">" + VbCrLf
MailBody = MailBody + " <tr bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & "> " + VbCrLf
MailBody = MailBody + " <td colspan=" & Chr(34) & "2" & Chr(34) & " class=" & Chr(34) & "searchherader" & Chr(34) & "> </td>" + VbCrLf
MailBody = MailBody + " </tr>" + VbCrLf
MailBody = MailBody + " <tr bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & "> " + VbCrLf
MailBody = MailBody + " <td width=" & Chr(34) & "50%" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "><div align=" & Chr(34) & "right" & Chr(34) & "><strong>Name:</strong></div></td>" + VbCrLf
MailBody = MailBody + " <td width=" & Chr(34) & "50%" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "> " & cStr( Request.Form("name") ) & " </td>" + VbCrLf
MailBody = MailBody + " </tr>" + VbCrLf
MailBody = MailBody + " <tr> " + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "><div align=" & Chr(34) & "right" & Chr(34) & "><strong>Email " + VbCrLf
MailBody = MailBody + " Address:</strong></div></td>" + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "> " & cStr( Request.Form("email") ) & " </td>" + VbCrLf
MailBody = MailBody + " </tr>" + VbCrLf
MailBody = MailBody + " <tr> " + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "><div align=" & Chr(34) & "right" & Chr(34) & "><strong>Phone " + VbCrLf
MailBody = MailBody + " number:</strong></div></td>" + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "> " & cStr( Request.Form("phone") ) & "</td>" + VbCrLf
MailBody = MailBody + " </tr>" + VbCrLf
MailBody = MailBody + " <tr> " + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "><div align=" & Chr(34) & "right" & Chr(34) & "><strong>Subject:</strong></div></td>" + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "> " & cStr( Request.Form("Subject") ) & "</td>" + VbCrLf
MailBody = MailBody + " </tr>" + VbCrLf
MailBody = MailBody + " <tr> " + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "><div align=" & Chr(34) & "right" & Chr(34) & "><strong>Comment:</strong></div></td>" + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "> " & cStr( Request.Form("comment") ) & "</td>" + VbCrLf
MailBody = MailBody + " </tr>" + VbCrLf
MailBody = MailBody + " <tr>" + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "> </td>" + VbCrLf
MailBody = MailBody + " <td bgcolor=" & Chr(34) & "#FFFFFF" & Chr(34) & " class=" & Chr(34) & "text" & Chr(34) & "> </td>" + VbCrLf
MailBody = MailBody + " </tr>" + VbCrLf
MailBody = MailBody + "</table>" + VbCrLf
MailBody = MailBody + "</body>" + VbCrLf
MailBody = MailBody + "</html>" + VbCrLf
MailBody = MailBody + ""'EndlineNoBreak
'End Mail Body
set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBC C,MailCC,MailTo,MailImportance,MailFrom,MailSubjec t,MailBody)
set WA_MailObject = nothing
end function
%>
<%
if ((Request.ServerVariables("Request_Method")="POST" ) AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER" )), Request.ServerVariables("SERVER_NAME")&Request.Ser verVariables("URL"))<>0)) then
'WA Universal Email object="CDONTS NewMail"
'Send Loop Once Per Entry
WA_Universal_Email_1_SendMail("" & cStr((site.Fields.Item("Site_email").Value)) & "")
'Send Mail All Entries
if ("contactus.asp?send=yes"<>"") then
Response.Redirect("contactus.asp?send=yes")
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<meta http-equiv="Content-Language" content="en-us">
<SCRIPT language=JavaScript>
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
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[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</SCRIPT>
<SCRIPT language=JavaScript>
var msg="Copyright © 2006 L&C Sunshine Enterprises";
function disableIE() {if (document.all) {alert(msg);return false;}
}
function disableNS(e) {
if (document.layers||(document.getElementById&&!docum ent.all)) {
if (e.which==2||e.which==3) {alert(msg);return false;}
}
}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);document.o nmousedown=disableNS;
} else {
document.onmouseup=disableNS;document.oncontextmen u=disableIE;
}
document.oncontextmenu=new Function("alert(msg);return false")
</SCRIPT>
<LINK href="index.files/styles-3.css" rel=stylesheet type=text/css
tppabs="styles-3.css">
<HTML>
<HEAD>
<TITLE>L&C Sunshine Enterprises</TITLE>
<META NAME="Keywords" CONTENT="Windows Server 2003, Network Administration, IP Telephony Phone Systems, Microsoft Windows Networks, Helpdesk Managment, Outsourced IT Services">
<META NAME="Description" CONTENT="We are the leading provider for outsourced IT services in the New York CIty Area. Windows Network Environment Management, IP Telephony Phone Systems.">
<META NAME="Author" CONTENT="
[email protected]">
</HEAD>
<center>
<BODY bgColor=#ffffff leftMargin=0
onload="MM_preloadImages('images/btn_company_over.gif','images/btn_services_over.gif','images/btn_products_over.gif','images/btn_careers_over.gif','images/btn_news_over.gif','images/btn_contact_over.gif')"
text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<p align="center">
<script type="text/javascript"><!--
google_ad_client = "pub-9621441084477058";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
google_ad_channel ="";
google_color_border = "000066";
google_color_link = "000066";
google_color_bg = "FF9900";
google_color_text = "FFFFFF";
google_color_url = "008000";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.
js">
</script>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="943" height="1">
<TBODY>
<TR>
<TD width=753 rowspan="2" height="1">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=754>
<TBODY>
<TR>
<TD>
<IMG src="index.files/top_01-2.gif"
tppabs="index.files/top_01.gif" align="center" width="754" height="74"><BR><MAP
name=Map>
<area href="index.htm" shape="rect" coords="714, 3, 746, 14">
</MAP><IMG
border=0 src="index.files/top_02-2.gif" useMap=#Map
tppabs="index.files/top_02.gif" width="754" height="24"></TD></TR>
<TR>
<TD>
<IMG src="index.files/top_03-2.gif"
tppabs="index.files/top_03.gif" width="229" height="20"><a onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image4','','index.files/btn_company_over.gif',1)" href="company.htm"><IMG
border=0 name=Image4 src="index.files/btn_company-1.gif"
tppabs="index.files/btn_company.gif" width="72" height="20"></a><a onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image5','','index.files/btn_services_over.gif',1)" href="services.htm"><IMG
border=0 name=Image5 src="index.files/btn_services-2.gif"
tppabs="index.files/btn_services.gif" width="71" height="20"></a><a onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image6','','index.files/btn_products_over.gif',1)" href="products.htm"><IMG
border=0 name=Image6 src="index.files/btn_products-2.gif"
tppabs="index.files/btn_products.gif" width="80" height="20"></a><a onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image7','','index.files/btn_careers_over.gif',1)" href="careers.htm"><IMG
border=0 name=Image7 src="index.files/btn_careers-2.gif"
tppabs="index.files/btn_careers.gif" width="66" height="20"></a><a onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image8','','index.files/btn_news_over.gif',1)" href="news.htm"><IMG
border=0 name=Image8 src="index.files/btn_news-2.gif"
tppabs="index.files/btn_news.gif" width="51" height="20"></a><a onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image9','','index.files/btn_contact_over.gif',1)" href="http://contact.lcsunshineenterprises.com"><IMG
border=0 name=Image9 src="index.files/btn_contact-2.gif"
tppabs="index.files/btn_contact.gif" width="92" height="20"></a><IMG src="index.files/top_04.gif"
tppabs="index.files/top_04.gif" width="93" height="20"></TD></TR>
<TR>
<TD>
<IMG src="index.files/top_05.gif"
tppabs="index.files/top_05.gif" width="754" height="24"></TD></TR>
<TR>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=754>
<TBODY>
<TR>
<TD bgColor=#000066 vAlign=top width=139><IMG height=392
src="index.files/image_main.gif" width=139
tppabs="index.files/image_main.gif"></TD>
<TD vAlign=top width=597><IMG height=44
src="index.files/page_header.gif" width=597
tppabs="index.files/page_header.gif"><BR>
<TABLE border=0 cellPadding=0 cellSpacing=10 width=597 height="294">
<TBODY name=main>
<TR>
<TD vAlign=top height="284">
<table width="570" border="0" cellpadding="5" cellspacing="0" id="featuedbx" height="484">
<tr>
<td height="474" width="307"><b>
Please fill
in the entire form below in order
for your information request to be
processed in a timely manor.</b><form action="" method="post" name="contact" id="contact" onSubmit="MM_validateForm('name','','R','comment', '','R');return document.MM_returnValue">
<p align="left"><span id="boldertext">
[u]Name:</u> </span><br>
<input name="name" type="text" class="myform" id="name" size="20">
</p>
<p align="left">[u]<span id="boldertext">Email Address:</span></u><br>
<input name="email" type="text" class="myform" id="email" size="20">
</p>
<p align="left">[u]<span id="boldertext">
Phone Number:</span></u><br>
<input name="phone" type="text" class="myform" id="phone" size="20">
<br>
</p>
<p align="left">[u]<span id="boldertext">Subject:</span></u><br>
<input name="subject" type="text" class="myform" id="subject" size="20">
<br>
</p>
<p align="left">[u]Request:</u><br>
<textarea name="comment" cols="35" rows="7" class="myform" id="comment"></textarea>
<br>
</p>
<p align="center">
<input name="Submit" type="submit" id="formfields" value="Contact Us">
</p>
</form></td>
<td width="243" valign="top" height="474">
<p></p>
<p> <p>
<span id="boldertext">Phone
Number:</span> <%=(site.Fields.Item("Site_phone").Value)%><br>
<span id="boldertext">Email
Address: </span><a href="mailto:<%=(address.Fields.Item("Site_email") .Value)%>"><%=(address.Fields.Item("Site_email").V alue)%></a>
<p>
<p>
<% If request.QueryString("send")="yes" Then %><b>Request
submitted.</b><p>
One of
our sales and support reps
will contact you
as soon as possible<p>
Usually
within 24 hours.<p>
Thank
you<p>
L&C
Sunshine Enterprises</td>
</tr>
</table></TD></TR></TBODY></TABLE></TD>
<TD background=index.files/bg_right.gif vAlign=top
tppabs="index.files/bg_right.gif" width="18"><IMG
height=49 src="index.files/right_01-2.gif" width=18
tppabs="index.files/right_01.gif"></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width="188">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="101%">
<TBODY>
<TR>
<TD background=index.files/bg_top.gif width="100%"
tppabs="index.files/bg_top.gif"><IMG
height=186 src="index.files/bg_top.gif" width=12
tppabs="index.files/bg_top.gif"></TD></TR></TBODY></TABLE></TD></TR>
<tr>
<TD vAlign=top width="188">
<center><script src="http://securityresponse.symantec.com/avcenter/
js/vir.
js"></script>
<script src="http://securityresponse.symantec.com/avcenter/
js/tools.
js"></script>
<script src="http://securityresponse.symantec.com/avcenter/
js/advis.
js"></script>
<script src="http://securityresponse.symantec.com/avcenter/
js/vir_display.
js"></script>
<script>
var symBORDcolor = '000066';
var symTshow = '0';
var symLINKcolor = 'ff9900';
var symRmax = '3';
var symAmax = '3';
var symLmax = '3';
symDisplay();
</script></center>
</TD>
</tr>
</TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="945">
<TBODY>
<TR>
<TD background=index.files/bg_bottom.gif height=16
tppabs="index.files/bg_bottom.gif" width="945"><IMG
height=16 src="index.files/bottom_01-2.gif" width=754
tppabs="index.files/bottom_01.gif"></TD></TR>
<TR>
<TD width="945">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="945">
<TBODY>
<TR>
<TD width=81><IMG height=62 src="index.files/logo_bottom.gif"
width=81
tppabs="index.files/logo_bottom.gif"></TD>
<TD width="864">
<p align="center"><B><a href="index.htm">Home</a> | <a href="company.htm">Company</a> | <a href="services.htm">Services</a> | <a href="products.htm">Products</a> | <a href="careers.htm">Careers</a> | <a href="news.htm">News</a> | <a href="contact.asp">Contact
Us</a></B><BR><BR>Copyright © 2006 L&C
Sunshine Enterprises LLC. All rights reserved.
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><MAP
name=Map>
<area href="index.htm" shape="rect" coords="714, 3, 746, 14">
</MAP></BODY></center></HTML>
<%
site.Close()
Set site = Nothing
%><%
address.Close()
Set address = Nothing
%>
Microsoft VBScript compilation error '800a03f6'
