Passing a variable to the next page

I am unable to pass the variable "gsTotal" to my confirmation.asp page so that I can track the total amount of the conversion using Google's tool. Any help would be great on how to do this. It echos to the screen below using <%gsTotal%>, I just can't get it to pass so I can echo it on confirmation.asp and then insert into Goggle's tracking code.

I hope it is ok that I have pasted the entire page. Any help with this would be tremendously appreciated.

<%@ Language=VBScript %>

<%

'build the Payment Info cookie
if Request.Cookies("PaymentInfo")("CCType")= "" then
Response.Cookies("PaymentInfo")("CCMonth") =Request("CCMonth")
Response.Cookies("PaymentInfo")("CCYear") =Request("CCYear")
Response.Cookies("PaymentInfo")("CCHolderName") =Request("CCHolderName")
Response.Cookies("PaymentInfo")("CCNumber") =Request("CCNumber")

For Each cookie in Response.Cookies
Response.Cookies(cookie).Expires = #Jan 4, 2010#
Next

end if
Dim gsCartHTML
Dim gsSubTotal
Dim gsTax
Dim gsTotal

call Main()

Sub Main()

If Session("LoggedIn") Then

' If the user is not from VA, clear all sales tax
If UCase(Request.Form("hiddenShipState")) <> "VA" Then
ClearSalesTax Session.SessionID
End If

gsCartHTML = GetCartHTML(Session.SessionID)
End If

End Sub

Function GetCartHTML(SessionID)

On Error Resume Next

Dim outputHTML
Dim objCart
Dim adoRS
Dim WarrantyText
Dim WarrantyPrice
Dim PartPrice
Dim BasePrice
Dim aRetVals

Set objCart = Server.CreateObject("StoreObjects.CStoreOrders")

Set adoRS = objCart.GetCartParts(SessionID, aRetVals)

If Not IsEmpty(aRetVals) Then
ObjErrHandler aRetVals
Set objCart = Nothing
Set adoRS = Nothing
Exit Function
End If

If adoRS.EOF And adoRS.BOF Then
outputHTML = CartEmptyMessage
Else
Do Until adoRS.EOF
If adoRS("warranty") = 1 Then
WarrantyText = "Free 1yr Warranty"
WarrantyPrice = 0
Else
WarrantyText = "Warranty(<font color=""#FF0000"">" & FormatCurrency(adoRS("WarrantyPrice"),2) & "</font>)"
WarrantyPrice = adoRS("WarrantyPrice")
End If

PartPrice = adoRS("baseprice") + WarrantyPrice + adoRS("shipprice")' + adoRS("coreprice")

gsSubTotal = gsSubTotal + PartPrice

gsTax = gsTax + adoRS("Sales_Tax")

outputHTML = outputHTML & "<td valign=""top"" width=""1062""><font face=""Arial"" size=""1"">"
outputHTML = outputHTML & adoRS("year") & " " & adoRS("make") & " " & adoRS("model") & " " & adoRS("part_desc") & "</font></td>"
outputHTML = outputHTML & "<td valign=""top"" width=""57"" align=""right""></td>"
outputHTML = outputHTML & "</tr>"
outputHTML = outputHTML & "<tr>"
outputHTML = outputHTML & "<td valign=""top"" width=""1062"" bgcolor=""#E5E5E5"">"

'outputHTML = outputHTML & "+ Core(<font color=""#FF0000"">" & FormatCurrency(adoRS("coreprice"), 2) & "</font>) + " & WarrantyText & "</font></font></td>"
outputHTML = outputHTML & "<font face=""arial"" size=""1""><font face=""Arial"" size=""1"">Part Price(<font color=""#FF0000"">" & FormatCurrency(adoRS("baseprice"),2) & "</font>) + Shipping(<font color=""#FF0000"">" & FormatCurrency(adoRS("shipprice"), 2) & "</font>)"

outputHTML = outputHTML & "+ " & WarrantyText & "</font></font></td>"

outputHTML = outputHTML & "<td valign=""top"" width=""57"" bgcolor=""#E5E5E5"" align=""right"">"
outputHTML = outputHTML & "<font face=""Arial"" size=""1""><p align=""right""><font color=""#FF0000"">" & FormatCurrency(PartPrice, 2) & "</font></font></font></td>"
outputHTML = outputHTML & "</tr>"

adoRS.MoveNext
Loop
End If

gsTotal = gsSubTotal + gsTax

GetCartHTML = outputHTML

Set objCart = Nothing
Set adoRS = Nothing

If err.number > 0 Then
ShowASPErrMessage err.number,err.description,"GetCartHTML",err.source
End If

End Function

Sub ClearSalesTax(CartID)

On Error Resume Next

Dim objCart
Dim aRetVals

Set objCart = Server.CreateObject("StoreObjects.CStoreOrders")

objCart.ClearSalesTaxFromCart CartID, aRetVals

If Not IsEmpty(aRetVals) Then
ObjErrHandler aRetVals
Set objCart = Nothing
Exit Sub
End If

Set objCart = Nothing

If err.number > 0 Then
ShowASPErrMessage err.number,err.description,"GetCartHTML",err.source
End If

End Sub

Function CartEmptyMessage()

Dim outputHTML

outputHTML = outputHTML & "<td valign=""top"" width=""1062""><font face=""Arial"" size=""2"">"
outputHTML = outputHTML & "<b>Your Cart Is Empty Or Your Session May Have Timmed Out.</b></font></td>"
outputHTML = outputHTML & "<td valign=""top"" width=""57"" align=""right""></td>"
outputHTML = outputHTML & "</tr>"

CartEmptyMessage = outputHTML

End Function
%>
<html>

<head>
<title>Check Out</title>
<link REL="STYLESHEET" TYPE="text/css" HREF="global.css">

</head>

<table border="0" width="500" cellspacing="1" cellpadding="0">
<tr>
<td width="598"><map name="FPMap0">
<area href="default.asp" shape="rect" coords="162, 0, 189, 25">
<area href="javascript:window.history.back(1);window.history.back(1);window.history.back(1)" shape="rect" coords="240, 0, 266, 26">
<area href="shopping_cart.asp" shape="rect" coords="318, 0, 344, 26"></map><img BORDER="0" src="Images/top_step4.gif" WIDTH="440" HEIGHT="46" usemap="#FPMap0"></td>
</tr>
<tr>
<td width="598" height="10"></td>
</tr>
<tr>
<td width="598"><p align="center"><img src="../images/red_bar.gif" width="434" height="9"></td>
</tr>
</table>
<form method="POST" action="confirmation.asp" name="frmMain">
<input type="hidden" name="hiddenCCNumber" size="25" value="<%=Request.Form("CCNumber")%>"><input type="hidden" name="hiddenCCHolderName" size="25" value="<%=Request.Form("CCHolderName")%>"><input type="hidden" name="hiddenCCValidTo" size="7" value="<%=Request.Form("CCMonth") & "/" & Request.Form("CCYear")%>"><input type="hidden" name="hiddenCCType" size="20" value="<%=Request.Form("CCType")%>"><input type="hidden" name="hiddenShipZip" size="28" value="<%=Request.Form("hiddenShipZip")%>"><input type="hidden" name="hiddenShipState" size="28" value="<%=Request.Form("hiddenShipState")%>"><input type="hidden" name="hiddenShipCity" size="28" value="<%=Request.Form("hiddenShipCity")%>"><input type="hidden" name="hiddenShipAddress2" size="28" value="<%=Request.Form("hiddenShipAddress2")%>"><input type="hidden" name="hiddenShipAddress" size="28" value="<%=Request.Form("hiddenShipAddress")%>"><input type="hidden" name="hiddenContact" size="28" value="<%=Request.Form("hiddenContact")%>"><input type="hidden" name="hiddenEmail" size="28" value="<%=Request.Form("hiddenEmail")%>"><input type="hidden" name="hiddenPhone" size="28" value="<%=Request.Form("hiddenPhone")%>"><input type="hidden" name="hiddenZip" size="28" value="<%=Request.Form("hiddenZip")%>"><input type="hidden" name="hiddenState" size="28" value="<%=Request.Form("hiddenState")%>"><input type="hidden" name="hiddenCity" size="28" value="<%=Request.Form("hiddenCity")%>"><input type="hidden" name="hiddenAddress2" size="28" value="<%=Request.Form("hiddenAddress2")%>"><input type="hidden" name="hiddenAddress" size="28" value="<%=Request.Form("hiddenAddress")%>"><input type="hidden" name="hiddenCompany" size="28" value="<%=Request.Form("hiddenCompany")%>"><input type="hidden" name="hiddenLastName" size="28" value="<%=Request.Form("hiddenLastName")%>"><input type="hidden" name="hiddenFirstName" size="28" value="<%=Request.Form("hiddenFirstName")%>"><input type="hidden" name="hiddenUserID" size="28" value="<%=Request.Form("hiddenUserID")%>">
<table border="1" width="500" cellspacing="0" cellpadding="0" bordercolor="#808080" bordercolorlight="#808080" bordercolordark="#808080">
<tr>
<td width="100%"><table border="0" width="504" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#C0C0C0" width="1064"><b><font size="1" face="Arial">Parts</font></b></td>
<td bgcolor="#C0C0C0" width="55"><b><font size="1" face="Arial">Price</font></b></td>
</tr>
<%=gsCartHTML%>
<tr>
<td width="411" align="right"><p align="right"><font face="Arial" size="1"><b>Subtotal:</b></font></td>
<td width="87" align="right"><font color="#FF0000"><font size="1" face="Arial"><%=FormatCurrency(gsSubTotal,2)%></a></font></td>
</tr>
<tr>
<td width="411" align="right"><font face="Arial" size="1"><b>VA Sales Tax:</b></font></td>
<td width="87" align="right"><font color="#FF0000"><font size="1" face="Arial"><%=FormatCurrency(gsTax,2)%></a></font></td>
</tr>
<tr>
<td width="411" align="right"><font face="Arial" size="1"><b>Total:</b></font></td>
<td width="87" align="right"><font color="#FF0000"><font size="1" face="Arial"><%=FormatCurrency(gsTotal,2)%></a></font></td>
</tr>

</table>

Passing a variable to the next page

using a form

Bishop

Bishop

defanjos

Bishop

Join The Conversation

Moderators and Top Contributors

Hot Threads This Week