Use of a Form in a Select Case scenario

JonB · October 19th, 2004, 01:37 AM

I'm trying to use a Select Case scenario to change the text displayed on a subsequent page depending upon a user's choice from a series of 3 radio buttons. One of the options (C) involves using passing some data to PayPal for payment by credit card.

If I remove the "<form action="https://www.paypal.com/..." section from the case, it works fine. It doesn't like it if I leave it in and keeps giving me the message

Microsoft VBScript compilation error '800a0400'

Expected statement

/events/eventsubmitA.asp, line 108

<form action="https://www.paypal.com/

The framework of the code is below. What am I not doing right?

<%
Select Case (varType)
    Case "A"
    Response.Write"<p>Blah Blah Blah</p>"

    Case "B"
    Response.Write"More Blah"

    Case "C"
    Response.Write"Oh no, not more Blah"
<form action="https://www.paypal.com/cgi-bin/webscr" method="post">
         <input type="hidden" name="cmd" value="_xclick">
          <input type="hidden" name="business" value="[email protected]">
          <input type="hidden" name="item_name" value="<%=Request("Field")%>">
          <input type="hidden" name="amount" value="<%=strTotal%>">
      <p>
      <input type="image" src="https://www.paypal.com/en_US/i/btn/x-click-butcc.gif" border="0" name="submit" alt="Make payments with PayPal - it's fast, free and secure!">
      </p>
    </form>
%>

happygv · October 19th, 2004, 12:20 PM

Can you post the code from /events/eventsubmitA.asp, line 108. Also it would be better if you could post the entire select case contruct. Also confirm if you have closed the SELECT CASE construct properly.

Cheers!

_________________________
- Vijay G
Strive for Perfection

JonB · October 19th, 2004, 12:55 PM

Here's the code as it stands at the moment. IT says there is something wron on Line 81 - where the <form action="https://www.paypal.com/cgi-bin/webscr" method="post"> line is.

<% @LANGUAGE="VBScript" %>
<% Option Explicit %>

<%
    'Declare variables
    Dim strSpots
    Dim strCost
    Dim strTotal
    Dim SQL
    Dim varPaymentType

    strSpots = Request.Form("Tickets")
    strCost = Request.Form("Ecost")
    varPaymentType = Request.Form("PaymentType")

    'Multiply number of tickets by cost per ticket
    strTotal = strSpots * strCost

    'Open database connection
    Call OpenDB()

    'Build SQL Statement
    SQL = "INSERT INTO Eventreg (EventID, FirstName, LastName, Email, Address1, Address2, City, State, Zip, Phone, ENumber, PaymentType) VALUES ("
    SQL = SQL & Request.Form("EventID") & ", '"
    SQL = SQL & Request.Form("FirstName") & "', '"
    SQL = SQL & Request.Form("LastName") & "', '"
    SQL = SQL & Request.Form("Email") & "', '"
    SQL = SQL & Request.Form("Street1") & "', '"
    SQL = SQL & Request.Form("Street2") & "', '"
    SQL = SQL & Request.Form("City") & "', '"
    SQL = SQL & Request.Form("State") & "', '"
    SQL = SQL & Request.Form("Zip") & "', '"
    SQL = SQL & Request.Form("Phone") & "', '"
    SQL = SQL & Request.Form("Tickets") & "', '"
    SQL = SQL & Request.Form("PaymentType") & "')"

    'Execute SQL Statement to enter record into the database
    Set RS = dbConn.Execute(SQL)

%>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Event Submit</title>
<link rel="stylesheet" type="text/css" href="main.css">
</head>

<body class="body" link="#FFFFFF" vlink="#FFFFFF" style="color: #FFFFFF" bgcolor="#000080">

<h3>Event Registration Submission</h3>

<p><b>Thank you <%=Request("FirstName") & " " & Request("LastName")%> for
registering for the following event:</b></p>

<p><b><%=Request("EName")%></b></p>

<p><b>The total cost for your tickets is $<%=strTotal%>.</b></p

<%

Select Case (varPaymentType)

    Case "Check"
    Response.Write"<p>You have chosen to pay by check.</p>"

    Case "Cash"
    Response.Write"You have chosen to pay by cash. <br>"

    Case "PayPal"
    Response.Write"You have chosen to pay by credit card. Please click on the link below to pay securely via PayPal."

    <form action="https://www.paypal.com/cgi-bin/webscr" method="post">
         <input type="hidden" name="cmd" value="_xclick">
          <input type="hidden" name="business" value="[email protected]">
          <input type="hidden" name="item_name" value="<%=Request("EName")%>">
          <input type="hidden" name="amount" value="<%=strTotal%>">
      <p>
      <input type="image" src="https://www.paypal.com/en_US/i/btn/x-click-butcc.gif" border="0" name="submit" alt="Make payments with PayPal - it's fast, free and secure!">
      </p>
    </form>

End Select
%>

<p>If you have any questions, please contact us.</p>

</body>

</html>
<%
    'Close and destroy connections
    Set RS = Nothing
    Call CloseDB()
%>

happygv · October 19th, 2004, 01:34 PM

That is becasue you haven't closed the ASP tag inbetween within the third case before usage of <FORM> tags... Which is HTML code and that shouldn't be used within ASP tags.

Code:

    Case "PayPal"
    Response.Write"You have chosen to pay by credit card. Please click on the link below to pay securely via PayPal."
%>

    <form action="https://www.paypal.com/cgi-bin/webscr" method="post">
         <input type="hidden" name="cmd" value="_xclick">
          <input type="hidden" name="business" value="[email protected]">
          <input type="hidden" name="item_name" value="<%=Request("EName")%>">
          <input type="hidden" name="amount" value="<%=strTotal%>">
      <p>
      <input type="image" src="https://www.paypal.com/en_US/i/btn/x-click-butcc.gif" border="0" name="submit" alt="Make payments 

with PayPal - it's fast, free and secure!">
      </p>
    </form>
<%
End Select

Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

JonB · October 19th, 2004, 02:54 PM

Vijay, that's the issue though. I want to be able to use the form as part of the third case. If they check the radio button to say they want to pay by credit card, I need the PayPal button to appear. If they are payingby cash or check they don't need to see the PayPal button.

happygv · October 19th, 2004, 03:09 PM

So do you still have problem with the CASE statements? It works fine for me here. Also just noticed that you haven't closed the PARA TAG properly in the following code. That may be causing irregularities in your code.

Code:

<p><b>The total cost for your tickets is $<%=strTotal%>.</b></p>

Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

JonB · October 19th, 2004, 04:38 PM

I guess my question is: Can you have the <form... > inside the Select Case statement? If I move it outside the Select Case statement all works fine. But them I have the form active even when they have chosen "cash" or "check" (the other cases).

happygv · October 19th, 2004, 05:01 PM

Yes, you can have the form within the case statements, so that only the form that corresponds to the case that is true is visible.

Cheers!

_________________________
- Vijay G
Strive for Perfection

JonB · October 19th, 2004, 07:16 PM

Yahoo! Could you please give me an idea on the syntax as I suspect that is my issue>

Cheers,

Jon

happygv · October 20th, 2004, 08:58 AM

Hi Jon,

May be I lost focus on this. Can you explain what you are looking for. As I see it working fine with the usage of FORM within the SELECT CASE construct. I see relevant behaviour based on the option selected. I see the PAYPAL image only when the Option selected is "PayPal".

Could you explain what the issue you are facing, so as to help you better.

Cheers!

_________________________
- Vijay G
Strive for Perfection