PHWinfo banniere

Titres
PORTAIL ANNUAIRE ARTICLES COMPARATEUR HÉBERGEURS DEVIS FORUMS RÉDUCTEUR D'URL
Précédent   PHWinfo > Autres forums > Forum Graphisme & Infographie > macromedia.dreamweaver > ASP Error
S'inscrire FAQ Membres Recherche Messages du jour Marquer les forums comme lus
ASP Error

Réponse
 
LinkBack Outils de la discussion
Vieux 10/06/2008, 20h31   #1
OlDirty
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut ASP Error

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
%>

  Réponse avec citation
Vieux 10/06/2008, 20h32   #2
darrel
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Re: ASP Error


> /registration.asp, line 77



What's on line 77?


  Réponse avec citation
Vieux 10/06/2008, 20h45   #3
bregent
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Re: ASP Error

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?
  Réponse avec citation
Vieux 10/06/2008, 21h24   #4
OlDirty
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Re: ASP Error

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>&nbsp;
<input name="name" type="text" id="name" size="45" maxlength="50" />
</p>
<p><strong>Business, Association, School, other:</strong>&nbsp;
<input name="association" type="text" id="association" size="45"
maxlength="50" />
</p>
<p><strong>Phone #1:</strong>&nbsp;
<input name="phone1" type="text" id="phone1" size="20"
maxlength="15" />
</p>
<p><strong>Phone #2:</strong>&nbsp;
<input name="phone2" type="text" id="phone2" size="20"
maxlength="15" />
</p>
<p><strong>Address:</strong>&nbsp;
<input name="address" type="text" id="address" size="45"
maxlength="50" />
</p>
<p><strong>Briefly describe your interests:</strong>&nbsp;
<label>
<textarea name="interests" id="interests"></textarea>
</label>
</p>
<p><strong>Email address:</strong>&nbsp;
<input type="text" name="email" size="45" maxlength="50" />
</p>
<p><strong>Time of year when interested in service :</strong>&nbsp;
<input name="timeofyear" type="text" id="timeofyear" size="40"
maxlength="45" />
<br />
<br />
<input type="submit" value="Send" name="SendButton" />
&nbsp;
<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 &amp; newspaper articles<br />
</a><font color="#333333"><a href="flowering_warrior.html">The poem
of the “Flowering Warrior&quot;<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> &copy; 2008 <strong>Flowering Warrior Enterprises </strong> |
Design by: <a href="http://www.wmsgroup.com" target="_blank">The
Williams Group</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a
href="index.html">Home</a></p>
</div>
</div>
<!-- footer end
  Réponse avec citation
Vieux 10/06/2008, 23h15   #5
bregent
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Re: ASP Error

>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?
  Réponse avec citation
Vieux 20/06/2008, 18h55   #6
DizzDizzy
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Re: ASP Error

thanks for explaining thecode in a clear manner
  Réponse avec citation
Réponse


Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +1. Il est actuellement 19h43.


Édité par : vBulletin® version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.2.0 RC5 Tous droits réservés.
Version française #16 par l'association vBulletin francophone
PHWinfo est un site Éducation Sans Frontières ©2000-2008
Ad Management by RedTyger
©Tous droits réservés par les parties respectives
Page generated in 0,17637 seconds with 14 queries