|
|
|
#1 |
|
Messages: n/a
Hébergeur: |
I get this error when trying to navigate to the page. I simply copied this from
another form that works. Line 77 is actually where the "if send button was clicked..." at the beginning of the code. The form code is attached. Microsoft VBScript compilation error '800a03ea' Syntax error /registration.asp, line 77 Else ^ <% '*** If the SendButton was clicked '*** and there is a message to send, '*** process the email and send it. Else '*** Create the message object. Set Message = Server.CreateObject("CDO.Message") '*** Validate Input nameanswer = Request.Form("name") If nameanswer = "" then nameanswer = "(No name given)" End If associationanswer = Request.Form("association") If associationanswer = "" then associationanswer = "(No association given)" End If phone1answer = Request.Form("phone1") If phone1answer = "" then phone1answer = "(No phone number given)" End If phone2answer = Request.Form("phone2") If phone2answer = "" then phone2answer = "(No phone number given)" End If addressanswer = Request.Form("address") If addressanswer = "" then addressanswer = "(No address given)" End If interestsanswer = Request.Form("interests") If interestsanswer = "" then interestsanswer = "(No interests given)" End If emailanswer = Request.Form("email") If emailanswer <> "" then toaddress = Request.Form("email") bccaddress = "andrew@wmsgroup.com" End If If emailanswer = "" then emailanswer = "(No email address given)" toaddress = "andrew@wmsgroup.com" bccaddress = "" End If timeofyearanswer = Request.Form("comments") If timeofyearanswer = "" then timeofyearanswer = "(No time of year given)" End If '*** Set the from, to, and '*** subject fields. Message.From = "andrew@wmsgroup.com" Message.To = toaddress Message.bcc = bccaddress & "," & "andrew@wmsgroup.com" Message.Subject = "CertainVictory.com Speaking Engagement Registration Request" Message.TextBody = vbcrlf & "Name: " & Now() & vbcrlf & vbcrlf & " Name: " & nameanswer & vbcrlf & vbcrlf & "Business, Association, School, Other: " & associationanswer & vbcrlf & vbcrlf & "Phone #1: " & phone1answer & vbcrlf & vbcrlf & " Phone #2:" & vbcrlf & phone2answer & vbcrlf & vbcrlf & "Address:" & vbcrlf & addressanswer & vbcrlf & vbcrlf & "Interests:" & vbcrlf & interestsanswer & vbcrlf & vbcrlf & "Email:" & vbcrlf & emailanswer & vbcrlf & vbcrlf & "Time of year interested in service:" & vbcrlf & timeofyearanswer '*** If there is an error, '*** continue with the script. On Error Resume Next '*** Send the email message. Message.Send '*** If sending the message caused '*** an error, then display the '*** message, else display a '*** success message (or redirect '*** to a different page). If Err.Number = 0 Then Response.Redirect("thankyou.html") Else Response.Write "Error: " & Err.Description End If '*** Clear out the message variable Set Message = Nothing '*** End of If for checking '*** SendButton and message '*** to send. End If %> |
|
|
|
#2 |
|
Messages: n/a
Hébergeur: |
> /registration.asp, line 77 What's on line 77? |
|
|
|
#3 |
|
Messages: n/a
Hébergeur: |
Would need to see the entire page, not a snippet. Can you save the save the asp page with a .txt extension and give us the url?
|
|
|
|
#4 |
|
Messages: n/a
Hébergeur: |
Code attached. Thanks.
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <!-- InstanceBegin template="/Templates/cvc.dwt" codeOutsideHTMLIsLocked="false" --> <head> <meta name="Description" content="Information on Robert J. Ott." /> <meta name="Keywords" content="blind martial artist, certain victory, pilsung, motivational speaking, seminars, demonstrations" /> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <meta name="Distribution" content="Global" /> <meta name="Author" content="Andrew DeSumma - andrew@wmsgroup.com" /> <meta name="Robots" content="index,follow" /> <!-- InstanceBeginEditable name="doctitle" --> <title>Certain Victory - A survivor's story of strength, courage and indomitable spirit</title> <!-- InstanceEndEditable --> <link href="images/cvstyles.css" rel="stylesheet" type="text/css" /> <!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable --> </head> <body> <!-- wrap starts here --> <div id="wrap"> <!--header --> <div id="header-photo"></div> <div id="nav"> <ul> <li><a href="seminars.html">Seminars, workshops and demonstrations </a></li> <li id="current"><a href="empowerment.html">motivational speaking </a></li> <li><a href="360/temple.htm">temple/Dojang </a></li> <li><a href="credentials.html">credentials</a></li> <li><a href="articles.html">articles</a></li> <li><a href="food_services.html">CV food services </a></li> <li><a href="index.html">Home </a></li> <li></li> </ul> <!-- navigation ends--> </div> <!-- content-wrap starts --> <!-- InstanceBeginEditable name="Content" --> <div id="content-wrap" class="two-col" > <div id="main"> <h1><a name="TemplateInfo" id="TemplateInfo"></a>Header</h1> <form action="<%=Request.ServerVariables("URL")%>" method="post" id="survey"> <p><strong>Name:</strong> <input name="name" type="text" id="name" size="45" maxlength="50" /> </p> <p><strong>Business, Association, School, other:</strong> <input name="association" type="text" id="association" size="45" maxlength="50" /> </p> <p><strong>Phone #1:</strong> <input name="phone1" type="text" id="phone1" size="20" maxlength="15" /> </p> <p><strong>Phone #2:</strong> <input name="phone2" type="text" id="phone2" size="20" maxlength="15" /> </p> <p><strong>Address:</strong> <input name="address" type="text" id="address" size="45" maxlength="50" /> </p> <p><strong>Briefly describe your interests:</strong> <label> <textarea name="interests" id="interests"></textarea> </label> </p> <p><strong>Email address:</strong> <input type="text" name="email" size="45" maxlength="50" /> </p> <p><strong>Time of year when interested in service :</strong> <input name="timeofyear" type="text" id="timeofyear" size="40" maxlength="45" /> <br /> <br /> <input type="submit" value="Send" name="SendButton" /> <input type="reset" value="Clear" name="ClearButton" class="form" /> </p> </form> <% '*** If the SendButton was clicked '*** and there is a message to send, '*** process the email and send it. Else '*** Create the message object. Set Message = Server.CreateObject("CDO.Message") '*** Validate Input nameanswer = Request.Form("name") If nameanswer = "" then nameanswer = "(No name given)" End If associationanswer = Request.Form("association") If associationanswer = "" then associationanswer = "(No association given)" End If phone1answer = Request.Form("phone1") If phone1answer = "" then phone1answer = "(No phone number given)" End If phone2answer = Request.Form("phone2") If phone2answer = "" then phone2answer = "(No phone number given)" End If addressanswer = Request.Form("address") If addressanswer = "" then addressanswer = "(No address given)" End If interestsanswer = Request.Form("interests") If interestsanswer = "" then interestsanswer = "(No interests given)" End If emailanswer = Request.Form("email") If emailanswer <> "" then toaddress = Request.Form("email") bccaddress = "andrew@wmsgroup.com" End If If emailanswer = "" then emailanswer = "(No email address given)" toaddress = "andrew@wmsgroup.com" bccaddress = "" End If timeofyearanswer = Request.Form("comments") If timeofyearanswer = "" then timeofyearanswer = "(No time of year given)" End If '*** Set the from, to, and '*** subject fields. Message.From = "andrew@wmsgroup.com" Message.To = toaddress Message.bcc = bccaddress & "," & "andrew@wmsgroup.com" Message.Subject = "CertainVictory.com Speaking Engagement Registration Request" Message.TextBody = vbcrlf & "Name: " & Now() & vbcrlf & vbcrlf & " Name: " & nameanswer & vbcrlf & vbcrlf & "Business, Association, School, Other: " & associationanswer & vbcrlf & vbcrlf & "Phone #1: " & phone1answer & vbcrlf & vbcrlf & " Phone #2:" & vbcrlf & phone2answer & vbcrlf & vbcrlf & "Address:" & vbcrlf & addressanswer & vbcrlf & vbcrlf & "Interests:" & vbcrlf & interestsanswer & vbcrlf & vbcrlf & "Email:" & vbcrlf & emailanswer & vbcrlf & vbcrlf & "Time of year interested in service:" & vbcrlf & timeofyearanswer '*** If there is an error, '*** continue with the script. On Error Resume Next '*** Send the email message. Message.Send '*** If sending the message caused '*** an error, then display the '*** message, else display a '*** success message (or redirect '*** to a different page). If Err.Number = 0 Then Response.Redirect("thankyou.html") Else Response.Write "Error: " & Err.Description End If '*** Clear out the message variable Set Message = Nothing '*** End of If for checking '*** SendButton and message '*** to send. End If %> </div> <div id="rightcolumn"> <h2>Latest News Articles </h2> <p><a href="Templates/Articles/CP_Mar_24_08.doc">The Courier Post</a><br /> <span class="style3"><a href="Downloads/TaeKwonDoTimes.pdf">Tae Kwon Do Times, 2006 Edition</a><strong><br /> </strong></span>This issue features a 7 page article with photos on Robert and Certain Victory!<br /> <span class="style2"><strong><br /> </strong>You may also purchase a full color printed copy of the magazine below.</span></p> <form target="paypal" action="https://www.paypal.com/cgi-bin/webscr" method="post"> <input type="image" src="https://www.paypal.com/en_US/i/btn/x-click-but22.gif" border="0" name="submit2" alt="Click here to purchase the magazine" /> <img alt="PayPal Button" border="0" src="https://www.paypal.com/en_US/i/scr/pixel.gif" width="1" height="1" /> <input type="hidden" name="shipping" value="2.07" /> <input type="hidden" name="shipping2" value="0.00" /> <input type="hidden" name="add" value="1" /> <input type="hidden" name="cmd" value="_cart" /> <input type="hidden" name="business" value="pilsung@comcast.net" /> <input type="hidden" name="item_name" value="Tae Kwon Do Times Magazine, 2006 Edition" /> <input type="hidden" name="item_number" value="2" /> <input type="hidden" name="amount" value="3.99" /> <input type="hidden" name="no_shipping" value="2" /> <input type="hidden" name="return" value="http://www.certainvictory.com/payment-confirm.htm" /> <input type="hidden" name="cancel_return" value="http://www.certainvictory.com/cancel-payment.htm" /> <input type="hidden" name="no_note" value="1" /> <input type="hidden" name="currency_code" value="USD" /> <input type="hidden" name="lc" value="US" /> <input type="hidden" name="bn" value="PP-ShopCartBF" /> </form> <h2><span class="style1">Other Links</span></h2> <p><a href="articles.html">Magazine & newspaper articles<br /> </a><font color="#333333"><a href="flowering_warrior.html">The poem of the “Flowering Warrior"<br /> </a></font><font color="#333333"><a href="special_thanks.html">Special thanks and appreciations<br /> </a></font><a href="KoreaAlbum/Korea/index.html">2006 trip to Korea photo gallery<br /> </a><a href="mailto:pilsung@comcast.net">Contact Robert</a></p> <h2><span class="style1">Video Library</span></h2> <p>Below you will find various videos of Robert on news programs, talk shows and training.</p> <p><a href="/Video/ActionNews.mov">Action News: Philadelphia, PA</a><br /> <a href="/Video/King5Clip.mov">Robert on King 5 News: Seattle, WA</a><br /> <a href="/Video/EveningMagClip.mov">Robert on Evening Magazine: Seattle, WA</a><br /> <a href="/Video/IdahoTVClip.mov">Robert on Idaho Television</a><br /> <a href="/Video/SeminarHighlights.mov">Seminar Highlights from Idaho</a><br /> <a href="/Video/Sparring.mov">Robert Sparring</a><br /> <a href="/Video/ElaineSmitha.mov">Robert on The Elaine Smitha Show</a></p> </div> <!-- content-wrap ends--> </div> <!-- InstanceEndEditable --> <!-- footer starts --> <div id="footer-wrap"> <div id="footer"> <p> © 2008 <strong>Flowering Warrior Enterprises </strong> | Design by: <a href="http://www.wmsgroup.com" target="_blank">The Williams Group</a> <a href="index.html">Home</a></p> </div> </div> <!-- footer end |
|
|
|
#5 |
|
Messages: n/a
Hébergeur: |
>Code attached. Thanks.
Well, the VBScript is starting out with an Else statement so of course there is an error. What happened to the If statement? |
|
|
|
#6 |
|
Messages: n/a
Hébergeur: |
thanks for explaining thecode in a clear manner
|
|
![]() |
| Outils de la discussion | |
|
|