Promo Code

[captain15]

I am trying to add a promo code to our website. What it is supposed to do is during checkout when a client enters the promo code it will reduce the cost of their order by 5%. Can anyone help me. Everything I have tried so far has failed.

Thank you,


Dave

[sqlconfused]

<%

' all checkout code and such would be here
' assume final cost is in a variable named "total"

' for testing purposes the line below will be 45 dollars
total = 45

' retrieve form value if discount code submitted
code = "bacon"
formval = request.form("discount")

' is the discount code equal to code (bacon) then apply discount
if (formval = code) and (session("discount") = "") then
total = total - (total *.05)
session("discount") = total
end if

' is discount already applied then adjust total
if session("discount") <> "" then total = session("discount")
%>

Your order is ready for checkout. The total is $<%=total%>.

If you have a discount code, please enter it below.
<form action="try.asp" method="post">
Code: <input name="discount">
<input type="submit" value="Apply">
</form>


A session is used because if the person were to reenter the promo code the price would go down 5% every attempt. If the session holds a value, that value is the price already reduced by 5%.

[sqlconfused]

change "try.asp" to whatever filename you're using....

[captain15]

Okay sqlconfused;

I put in the information you gave me and my program now looks like this:

Dim Promo as String
Promo = "BNOV21"
formval = request.form("discount")

lblTotal.Text = GetItemTotal()
If (formval = Promo) and (session("discount") = "" Then
GetItemTotal() = GetItemTotal() - (GetItemTotal() * .05)
session("discount") = GetItemTotal()
end if
lblTotal0.Text = RetailShip
lblTotal1.Text = RetailShip + GetItemTotal()
Itemlbl.Text = RetailShip


If session("discount") <> then GetItemTotal() = session("discount")

If objDT.Rows.Count = 0 Then

lblTotal0.Text = "0.00"
lblTotal1.Text = "0.00"

End If

<form action="try.asp" method="post"></form>
Save an Additional 5% with A
Promo Code:</td>
<td style="height: 49px;">
<input type="submit" value="Apply"></form></td>

Now my error code is the following:

Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30451: Name 'formval' is not declared.

Source Error:



Line 408im Promo as String
Line 409:Promo = "BNOV21"
Line 410:formval = request.form("discount")
Line 411:
Line 412: lblTotal.Text = GetItemTotal()


Source File: E:\Queen Bee\Store\ShoppingCart.aspx Line: 410

What did I do wrong?

Thanks,


Dave

[sqlconfused]

You are programming in asp.net and posting for help in the ASP forum not the ASP.Net forum.

I don't program in asp.net but I'm going to suggest declaring the variable in the dim statement

Dim Promo as String, formval

[sqlconfused]

Also change it around so that the discounted price is added to shipping, not the full price.

If session("discount") <> then GetItemTotal() = session("discount")

lblTotal0.Text = RetailShip
lblTotal1.Text = RetailShip + GetItemTotal()
Itemlbl.Text = RetailShip

[captain15]

Thanks, I will move this to the asp.net forum.

[sqlconfused]

Let me know if the code works, I think it should.

[captain15]

Unfortunately I still get an error:

This is the error I get:

Server Error in '/' Application.
--------------------------------------------------------------------------------

Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30068: Expression is a value and therefore cannot be the target of an assignment.

Source Error:



Line 412: lblTotal.Text = GetItemTotal()
Line 413: If (formval = Promo) and (session("discount") = "") Then
Line 414: GetItemTotal() = GetItemTotal() - (GetItemTotal() * .05)
Line 415: session("discount") = GetItemTotal()
Line 416: end if

But at least it has changed the problem a little. Here is what my program looks like now when I get the error:

Dim Promo as String, formval
Promo = "BNOV21"
formval = request.form("discount")

lblTotal.Text = GetItemTotal()
If (formval = Promo) and (session("discount") = "") Then
GetItemTotal() = GetItemTotal() - (GetItemTotal() * .05)
session("discount") = GetItemTotal()
end if
lblTotal0.Text = RetailShip
lblTotal1.Text = RetailShip + GetItemTotal()
Itemlbl.Text = RetailShip


If session("discount") <> then GetItemTotal() = session("discount")

If objDT.Rows.Count = 0 Then

lblTotal0.Text = "0.00"
lblTotal1.Text = "0.00"

Thanks,


Dave

[sqlconfused]

This has me stumped, I'm not an ASP.Net programmer.

One obvious bug:

If session("discount") <> "" then GetItemTotal() = session("discount")

[captain15]

I see it but what should that value be?

[sqlconfused]

If session("discount") <> "" then GetItemTotal() = session("discount")

The value is blank, if the session for the discount contains a value other than blank then that discount is applied to the GetItemTotal. So if they've entered a discount code, the session contains the 5% reduced price.

In hindsight, it appears that your GetItemTotal may be an actual function rather than a variable (hence the brackets). This maybe the cause of your error. In any event you should put the session code in the routine that calculates the price.

[captain15]

sqlconfused;

I am hoping you can help me out a little more. I know you do not program .Net but no one on the .Net side is helping, they have not responded to my post at all, and you have. Here is my code:

Dim Promo as String, formval
Promo = "BNOV21"
formval = request.form("discount")

lblTotal.Text = GetItemTotal()
If (formval = Promo) and (session("discount") = "") Then
lblTotal.Text = GetItemTotal() - (GetItemTotal() * .05)
session("discount") = GetItemTotal()
end if
lblTotal0.Text = RetailShip
lblTotal1.Text = RetailShip + GetItemTotal()
Itemlbl.Text = RetailShip


If session("discount") <> "" then
lblTotal.Text = session("discount")
End If

If objDT.Rows.Count = 0 Then

lblTotal0.Text = "0.00"
lblTotal1.Text = "0.00"
End If

It seems to pass compilation. But my input is still not working right. Here is what I have:

Enter Promo Code for an additional 5% off</td>
<td>
<input name="Promo" type="text" /></td>
<td class="auto-style1">
<input name="Promo" type="submit" value="submit" /></td>

When I click submit nothing is being submitted. What can I do?

Thanks,


Dave