imjusthere
asked on
Ecart with dynamic quantity drop down menu.
I'm using ECart and I'm trying to make the quantity into a dynamic drop down menu which only displays the available quantities for that product. What I currently have displays every quantity in every menu in my looper.
I have two tables in my DB (Access), Proofs and Prices which are related by their Proof ID. I also have two recordsets, Recordset1 (runs Proof table in my looper) and Recordset2 (displays prices). I don't understand how to set up the Recordset2 so that it only displays the quantities available for that product. There are multiple quantities and prices for each product. I hope this makes sense.
Here's my mess:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../WA_eCart/WA_eCart _Definitio n_VB.asp" -->
<!--#include file="../WA_eCart/eCart1_V B.asp" -->
<!--#include file="../Connections/DSNLE SS.asp" -->
<!--#include file="../includes/tNG/tNG. inc.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("kt_Associate") <> "") Then
Recordset1__MMColParam = Session("kt_Associate")
End If
%>
<%
Dim Recordset1__sort1
Recordset1__sort1 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort1 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort2
Recordset1__sort2 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort2 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort3
Recordset1__sort3 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort3 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort4
Recordset1__sort4 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort4 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort5
Recordset1__sort5 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort5 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConne ction = MM_DSNLESS_STRING
Recordset1_cmd.CommandText = "SELECT * FROM proofs WHERE proof_client = ? AND (proof_formNumber LIKE ? OR proof_date LIKE ? OR proof_desc LIKE ? OR proof_keywords LIKE ? OR proof_tab LIKE ?) ORDER BY proof_date DESC"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters. Append Recordset1_cmd.CreateParam eter("para m1", 200, 1, 255, Recordset1__MMColParam) ' adVarChar
Recordset1_cmd.Parameters. Append Recordset1_cmd.CreateParam eter("para m2", 200, 1, 255, "%" + Recordset1__sort1 + "%") ' adVarChar
Recordset1_cmd.Parameters. Append Recordset1_cmd.CreateParam eter("para m3", 200, 1, 255, "%" + Recordset1__sort2 + "%") ' adVarChar
Recordset1_cmd.Parameters. Append Recordset1_cmd.CreateParam eter("para m4", 200, 1, 255, "%" + Recordset1__sort3 + "%") ' adVarChar
Recordset1_cmd.Parameters. Append Recordset1_cmd.CreateParam eter("para m5", 200, 1, 255, "%" + Recordset1__sort4 + "%") ' adVarChar
Recordset1_cmd.Parameters. Append Recordset1_cmd.CreateParam eter("para m6", 200, 1, 255, "%" + Recordset1__sort5 + "%") ' adVarChar
Recordset1_cmd.ActiveConne ction.Curs orLocation = 3
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim RecordsetUsr__MMColParam
RecordsetUsr__MMColParam = "1"
If (Session("kt_login_id") <> "") Then
RecordsetUsr__MMColParam = Session("kt_login_id")
End If
%>
<%
Dim RecordsetUsr
Dim RecordsetUsr_cmd
Dim RecordsetUsr_numRows
Set RecordsetUsr_cmd = Server.CreateObject ("ADODB.Command")
RecordsetUsr_cmd.ActiveCon nection = MM_DSNLESS_STRING
RecordsetUsr_cmd.CommandTe xt = "SELECT Usr_Shopping_Cart, Usr_Invoiced FROM Usr_Usr WHERE ID = ?"
RecordsetUsr_cmd.Prepared = true
RecordsetUsr_cmd.Parameter s.Append RecordsetUsr_cmd.CreatePar ameter("pa ram1", 5, 1, -1, RecordsetUsr__MMColParam) ' adDouble
Set RecordsetUsr = RecordsetUsr_cmd.Execute
RecordsetUsr_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConne ction = MM_DSNLESS_STRING
Recordset2_cmd.CommandText = "SELECT * FROM price"
Recordset2_cmd.Prepared = true
Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>
<%
Dim Repeat_Recordset1__numRows HL
Dim Repeat_Recordset1__indexHL
Repeat_Recordset1__numRows HL = -1
Repeat_Recordset1__indexHL = 0
Recordset1_numRows = Recordset1_numRows + Repeat_Recordset1__numRows HL
%>
<%
' WA eCart AddToCart
if (cStr(Request.Form("eCart1 _1_ATC")) <> "" OR cStr(Request.Form("eCart1_ 1_ATC.x")) <> "") then
ATC_itemID = cStr(Request.Form("eCart1_ 1_ID_Add") )
ATC_AddIfIn = 0
ATC_RedirectAfter = "cart.asp"
ATC_RedirectIfIn = ""
ATC_RSPos = Recordset1.AbsolutePositio n
Recordset1.MoveFirst()
DO while (NOT Recordset1.EOF)
if (cStr(Recordset1.Fields("p roof_ID"). value) = cStr(ATC_itemID)) then
ATC_itemName = "" & cStr((Recordset1.Fields.It em("proof_ client").V alue)) & ""' column binding
ATC_itemDescription = "" & cStr((Recordset1.Fields.It em("proof_ desc").Val ue)) & ""' column binding
ATC_itemWeight = cDbl("0")' column binding
ATC_itemQuantity = "" & cStr(Request.Form("eCart1_ 1_Quantity _Add")) & ""' column binding
ATC_itemPrice = cDbl("" & cStr((Recordset1.Fields.It em("proof_ price").Va lue)) & "")' column binding
ATC_itembreak1 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ break1").V alue)) & "")' column binding
ATC_itembreak2 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ break2").V alue)) & "")' column binding
ATC_itembreak3 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ break3").V alue)) & "")' column binding
ATC_itembreak4 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ break4").V alue)) & "")' column binding
ATC_itembreak5 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ break5").V alue)) & "")' column binding
ATC_itemsavings1 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ Savings1") .Value)) & "")' column binding
ATC_itemsavings2 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ Savings2") .Value)) & "")' column binding
ATC_itemsavings3 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ Savings3") .Value)) & "")' column binding
ATC_itemsavings4 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ Savings4") .Value)) & "")' column binding
ATC_itemsavings5 = cDbl("" & cStr((Recordset1.Fields.It em("proof_ Savings5") .Value)) & "")' column binding
Exit DO
end if
Recordset1.MoveNext()
Loop
Recordset1.AbsolutePositio n = ATC_RSPos
if (IsNumeric(ATC_itemQuantit y) AND ATC_itemQuantity <> 0) then
set eCart1 = eCart1_AddToCart(ATC_AddIf In, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice, ATC_itembreak1, ATC_itembreak2, ATC_itembreak3, ATC_itembreak4, ATC_itembreak5, ATC_itemsavings1, ATC_itemsavings2, ATC_itemsavings3, ATC_itemsavings4, ATC_itemsavings5)
if (ATC_RedirectAfter <> "" AND eCart1_redirStr = "") then
eCart1_redirStr = ATC_RedirectAfter
end if
Session("WAEC_ContinueRedi rect") = cStr(Request.ServerVariabl es("Script _Name")) & "?" & cStr(Request.QueryString() )
end if
end if
%>
<%
' WA eCart Redirect
if (eCart1_redirStr <> "") then
Response.Redirect(eCart1_r edirStr)
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Databar Inc. - Client Library</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script id="PLHFOScript" language="JavaScript" src="../Pluginlab/Scripts/ PLHFO.js"> /* PLHFOMenu script */</script>
<style type="text/css">
<!--
.style1 {font-family: Verdana, Arial, Helvetica, sans-serif}
-->
</style>
<script src="../includes/cssmenus2 /js/cssmen us.js" type="text/javascript"></s cript>
<script src="../includes/cssmenus2 /js/cssmen us.js" type="text/javascript"></s cript>
<meta name="keywords" content="design databar logo brochures corporate identity forms powerpoint presentations fonts designers designer custom newsletters flash animations animation edgewood washington">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(p arseInt(ap pVersion)= =4)) {
document.MM_pgW=innerWidth ; document.MM_pgH=innerHeigh t; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_p gW || innerHeight!=document.MM_p gH) location.reload();
}
MM_reloadPage(true);
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x= a[i])&&x.o Src;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_pre loadImages .arguments ; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&p arent.fram es.length) {
d=parent.frames[n.substrin g(p+1)].do cument; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length; i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d. layers.len gth;i++) x=MM_findObj(n,d.layers[i] .document) ;
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arg uments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+= 3)
if ((x=MM_findObj(a[i]))!=nul l){documen t.MM_sr[j+ +]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<script src="../includes/cssmenus2 /js/cssmen us.js" type="text/javascript"></s cript>
<script src="../includes/cssmenus2 /js/animat ion.js" type="text/javascript"></s cript>
<link href="../includes/cssmenus 2/skins/aq ua_blue/ho rizontal.c ss" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style2 {font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif;}
-->
</style>
<script src="../Scripts/AC_RunActi veContent. js" type="text/javascript"></s cript>
</head>
<body onLoad="PLHFO_onload();MM_ preloadIma ges('../im ages/email artdeptdow n.jpg','.. /images/em ailassocia tedown.jpg ')">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="10" cellpadding="10">
<tr>
<td valign="top"><h3><span class="style1">Welcome <%= Session("kt_login_user") %> </span> <a href="loginupdate.asp" onMouseOut="MM_swapImgRest ore()" onMouseOver="MM_swapImage( 'Image85', '','../ima ges/change accountdow n.jpg',1)" ><br>
<br>
</a><a href="loginupdate5.asp" onMouseOut="MM_swapImgRest ore()" onMouseOver="MM_swapImage( 'Image7',' ','../imag es/changea ccountdown .jpg',1)"> <img src="../images/changeaccou ntup.jpg" alt="change login info" name="Image7" width="130" height="26" border="0"></a><a href="loginupdate.asp" onMouseOut="MM_swapImgRest ore()" onMouseOver="MM_swapImage( 'Image85', '','../ima ges/change accountdow n.jpg',1)" ></a></h3>
<form name="form1" method="post" action="">
<label>Keywords
<input name="keywords" type="text" id="keywords">
</label>
<label>
<input type="submit" name="Submit" value="Search">
</label>
<br>
</form>
<table width="300" border="1">
<tr>
<%
' Horizontal Looper version 3
While ((Repeat_Recordset1__numRo wsHL <> 0) AND (NOT Recordset1.EOF))
%>
<td valign="baseline"><p><a href="<%=tNG_downloadDynam icFile(".. /", "../proofs/", "{Recordset1.proof_fileNam e}")%>"><i mg src="<%=tNG_showDynamicIma ge("../", "../thumbnails/", "{Recordset1.proof_thumb}" )%>" /></a><br>
Date: <%=(Recordset1.Fields.Item ("proof_da te").Value )%><br>
Desc.: <%=(Recordset1.Fields.Item ("proof_de sc").Value )%><br>
Form #: <%=(Recordset1.Fields.Item ("proof_fo rmNumber") .Value)%>< br>
Keywords: <%=(Recordset1.Fields.Item ("proof_ke ywords").V alue)%><br >
<a href="emailassociate3.asp? IDNumber=< %=(Records et1.Fields .Item("pro of_ID").Va lue)%>&ass oc=<%=(Rec ordset1.Fi elds.Item( "proof_ass ociate").V alue)%>" onMouseOut="MM_swapImgRest ore()" onMouseOver="MM_swapImage( 'Image75', '','../ima ges/emaila ssociatedo wn.jpg',1) "><img src="../images/emailassoci ateaboutjo bup.jpg" alt="email associate about this job" width="190" height="26" border="0" align="absbottom"></a><a href="emailassociate2.asp? IDNumber=< %=(Records et1.Fields .Item("pro of_ID").Va lue)%>&ass oc=<%=(Rec ordset1.Fi elds.Item( "proof_ass ociate").V alue)%>" onMouseOut="MM_swapImgRest ore()" onMouseOver="MM_swapImage( 'Image7',' ','../imag es/emailas sociatedow n.jpg',1)" ></a><br>
<a href="emailartdept2.asp?ID Number=<%= (Recordset 1.Fields.I tem("proof _ID").Valu e)%>" onMouseOut="MM_swapImgRest ore()" onMouseOver="MM_swapImage( 'Image8',' ','../imag es/emailar tdeptdown. jpg',1)">< img src="../images/emailartdep tup.jpg" alt="email art dept " name="Image8" width="190" height="26" border="0"></a> <a href="reorder.asp?IDNumber =<%=(Recor dset1.Fiel ds.Item("p roof_ID"). Value)%>&a ssoc=<%=(R ecordset1. Fields.Ite m("proof_a ssociate") .Value)%>" >
<%
' Show IF Conditional region1
If (RecordsetUsr.Fields.Item( "Usr_Invoi ced").Valu e) = 1 Then
%>
<img src="../images/ReorderButt on.jpg" width="190" height="26" border="0">
<%
End If
' End Conditional region1
%>
</a><br>
<%
' Show IF Conditional region2
If (Recordset1.Fields.Item("p roof_shopp ing_cart") .Value) = 1 Then
%>
<form name="eCart1_1_ATC_<%=Reco rdset1.Fie lds("proof _ID").valu e%>" method="POST" action="<%=cStr(Request.Se rverVariab les("SCRIP T_NAME"))% ><%=WA_eCa rt_IIf((Re quest.Serv erVariable s("QUERY_S TRING") <> ""), "?" & Request.ServerVariables("Q UERY_STRIN G"), "")%>">
<input type="hidden" name="eCart1_1_ID_Add" value="<%=Recordset1.Field s("proof_I D").value% >" >
<select name="eCart1_1_Quantity_Ad d">
<option value="1" selected>1</option>
<%
While (NOT Recordset2.EOF)
%>
<option value="<%=(Recordset2.Fiel ds.Item("p rice_quant ity").Valu e)%>"><%=( Recordset2 .Fields.It em("price_ quantity") .Value)%>< /option>
<%
Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
Recordset2.MoveFirst
Else
Recordset2.Requery
End If
%>
</select>
<input type="submit" value="Add to Cart" name="eCart1_1_ATC">
</form>
<%
End If
' End Conditional region2
%></td>
<%
'Horizontal Looper version 3
Repeat_Recordset1__indexHL =Repeat_Re cordset1__ indexHL+1
Repeat_Recordset1__numRows HL=Repeat_ Recordset1 __numRowsH L-1
Recordset1.MoveNext()
if len(nested_Recordset1)<=0 then
nested_Recordset1 = 1
end if
if ((Repeat_Recordset1__numRo wsHL <> 0) AND (NOT Recordset1.EOF) AND (nested_Recordset1 mod 4 = 0)) then
Response.Write "</tr><tr>"
end if
nested_Recordset1 = nested_Recordset1 + 1
'end horizontal looper version 3
Wend
%>
</tr>
</table>
<br> </td>
</tr>
</table></td>
</tr>
</table>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
RecordsetUsr.Close()
Set RecordsetUsr = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
Thank you,
Chris
I have two tables in my DB (Access), Proofs and Prices which are related by their Proof ID. I also have two recordsets, Recordset1 (runs Proof table in my looper) and Recordset2 (displays prices). I don't understand how to set up the Recordset2 so that it only displays the quantities available for that product. There are multiple quantities and prices for each product. I hope this makes sense.
Here's my mess:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../WA_eCart/WA_eCart
<!--#include file="../WA_eCart/eCart1_V
<!--#include file="../Connections/DSNLE
<!--#include file="../includes/tNG/tNG.
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("kt_Associate") <> "") Then
Recordset1__MMColParam = Session("kt_Associate")
End If
%>
<%
Dim Recordset1__sort1
Recordset1__sort1 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort1 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort2
Recordset1__sort2 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort2 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort3
Recordset1__sort3 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort3 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort4
Recordset1__sort4 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort4 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort5
Recordset1__sort5 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort5 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConne
Recordset1_cmd.CommandText
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.ActiveConne
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim RecordsetUsr__MMColParam
RecordsetUsr__MMColParam = "1"
If (Session("kt_login_id") <> "") Then
RecordsetUsr__MMColParam = Session("kt_login_id")
End If
%>
<%
Dim RecordsetUsr
Dim RecordsetUsr_cmd
Dim RecordsetUsr_numRows
Set RecordsetUsr_cmd = Server.CreateObject ("ADODB.Command")
RecordsetUsr_cmd.ActiveCon
RecordsetUsr_cmd.CommandTe
RecordsetUsr_cmd.Prepared = true
RecordsetUsr_cmd.Parameter
Set RecordsetUsr = RecordsetUsr_cmd.Execute
RecordsetUsr_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConne
Recordset2_cmd.CommandText
Recordset2_cmd.Prepared = true
Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>
<%
Dim Repeat_Recordset1__numRows
Dim Repeat_Recordset1__indexHL
Repeat_Recordset1__numRows
Repeat_Recordset1__indexHL
Recordset1_numRows = Recordset1_numRows + Repeat_Recordset1__numRows
%>
<%
' WA eCart AddToCart
if (cStr(Request.Form("eCart1
ATC_itemID = cStr(Request.Form("eCart1_
ATC_AddIfIn = 0
ATC_RedirectAfter = "cart.asp"
ATC_RedirectIfIn = ""
ATC_RSPos = Recordset1.AbsolutePositio
Recordset1.MoveFirst()
DO while (NOT Recordset1.EOF)
if (cStr(Recordset1.Fields("p
ATC_itemName = "" & cStr((Recordset1.Fields.It
ATC_itemDescription = "" & cStr((Recordset1.Fields.It
ATC_itemWeight = cDbl("0")' column binding
ATC_itemQuantity = "" & cStr(Request.Form("eCart1_
ATC_itemPrice = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak1 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak2 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak3 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak4 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak5 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings1 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings2 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings3 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings4 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings5 = cDbl("" & cStr((Recordset1.Fields.It
Exit DO
end if
Recordset1.MoveNext()
Loop
Recordset1.AbsolutePositio
if (IsNumeric(ATC_itemQuantit
set eCart1 = eCart1_AddToCart(ATC_AddIf
if (ATC_RedirectAfter <> "" AND eCart1_redirStr = "") then
eCart1_redirStr = ATC_RedirectAfter
end if
Session("WAEC_ContinueRedi
end if
end if
%>
<%
' WA eCart Redirect
if (eCart1_redirStr <> "") then
Response.Redirect(eCart1_r
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Databar Inc. - Client Library</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script id="PLHFOScript" language="JavaScript" src="../Pluginlab/Scripts/
<style type="text/css">
<!--
.style1 {font-family: Verdana, Arial, Helvetica, sans-serif}
-->
</style>
<script src="../includes/cssmenus2
<script src="../includes/cssmenus2
<meta name="keywords" content="design databar logo brochures corporate identity forms powerpoint presentations fonts designers designer custom newsletters flash animations animation edgewood washington">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(p
document.MM_pgW=innerWidth
else if (innerWidth!=document.MM_p
}
MM_reloadPage(true);
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_pre
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&p
d=parent.frames[n.substrin
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;
for(i=0;!x&&d.layers&&i<d.
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arg
if ((x=MM_findObj(a[i]))!=nul
}
//-->
</script>
<script src="../includes/cssmenus2
<script src="../includes/cssmenus2
<link href="../includes/cssmenus
<style type="text/css">
<!--
.style2 {font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif;}
-->
</style>
<script src="../Scripts/AC_RunActi
</head>
<body onLoad="PLHFO_onload();MM_
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="10" cellpadding="10">
<tr>
<td valign="top"><h3><span class="style1">Welcome <%= Session("kt_login_user") %> </span> <a href="loginupdate.asp" onMouseOut="MM_swapImgRest
<br>
</a><a href="loginupdate5.asp" onMouseOut="MM_swapImgRest
<form name="form1" method="post" action="">
<label>Keywords
<input name="keywords" type="text" id="keywords">
</label>
<label>
<input type="submit" name="Submit" value="Search">
</label>
<br>
</form>
<table width="300" border="1">
<tr>
<%
' Horizontal Looper version 3
While ((Repeat_Recordset1__numRo
%>
<td valign="baseline"><p><a href="<%=tNG_downloadDynam
Date: <%=(Recordset1.Fields.Item
Desc.: <%=(Recordset1.Fields.Item
Form #: <%=(Recordset1.Fields.Item
Keywords: <%=(Recordset1.Fields.Item
<a href="emailassociate3.asp?
<a href="emailartdept2.asp?ID
<%
' Show IF Conditional region1
If (RecordsetUsr.Fields.Item(
%>
<img src="../images/ReorderButt
<%
End If
' End Conditional region1
%>
</a><br>
<%
' Show IF Conditional region2
If (Recordset1.Fields.Item("p
%>
<form name="eCart1_1_ATC_<%=Reco
<input type="hidden" name="eCart1_1_ID_Add" value="<%=Recordset1.Field
<select name="eCart1_1_Quantity_Ad
<option value="1" selected>1</option>
<%
While (NOT Recordset2.EOF)
%>
<option value="<%=(Recordset2.Fiel
<%
Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
Recordset2.MoveFirst
Else
Recordset2.Requery
End If
%>
</select>
<input type="submit" value="Add to Cart" name="eCart1_1_ATC">
</form>
<%
End If
' End Conditional region2
%></td>
<%
'Horizontal Looper version 3
Repeat_Recordset1__indexHL
Repeat_Recordset1__numRows
Recordset1.MoveNext()
if len(nested_Recordset1)<=0 then
nested_Recordset1 = 1
end if
if ((Repeat_Recordset1__numRo
Response.Write "</tr><tr>"
end if
nested_Recordset1 = nested_Recordset1 + 1
'end horizontal looper version 3
Wend
%>
</tr>
</table>
<br> </td>
</tr>
</table></td>
</tr>
</table>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
RecordsetUsr.Close()
Set RecordsetUsr = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
Thank you,
Chris
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Also, if I pasted your If statement into my (Recordset2_cmd.CommandTex
My code:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../WA_eCart/WA_eCart
<!--#include file="../WA_eCart/eCart1_V
<!--#include file="../includes/cssmenus
<!--#include file="../Connections/DSNLE
<!--#include file="../includes/tNG/tNG.
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("kt_Associate") <> "") Then
Recordset1__MMColParam = Session("kt_Associate")
End If
%>
<%
Dim Recordset1__sort1
Recordset1__sort1 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort1 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort2
Recordset1__sort2 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort2 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort3
Recordset1__sort3 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort3 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort4
Recordset1__sort4 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort4 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1__sort5
Recordset1__sort5 = "%"
If (Request.Form("keywords") <> "") Then
Recordset1__sort5 = Request.Form("keywords")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConne
Recordset1_cmd.CommandText
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.Parameters.
Recordset1_cmd.ActiveConne
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim rsCSSMenu1
Dim rsCSSMenu1_numRows
Set rsCSSMenu1 = Server.CreateObject("ADODB
rsCSSMenu1.ActiveConnectio
rsCSSMenu1.Source = "SELECT * FROM menu WHERE visible_mnu = 1 ORDER BY order_mnu ASC"
rsCSSMenu1.CursorType = 3
rsCSSMenu1.CursorLocation = 2
rsCSSMenu1.LockType = 1
rsCSSMenu1.Open()
rsCSSMenu1_numRows = 0
%>
<%
Dim RecordsetUsr__MMColParam
RecordsetUsr__MMColParam = "1"
If (Session("kt_login_id") <> "") Then
RecordsetUsr__MMColParam = Session("kt_login_id")
End If
%>
<%
Dim RecordsetUsr
Dim RecordsetUsr_cmd
Dim RecordsetUsr_numRows
Set RecordsetUsr_cmd = Server.CreateObject ("ADODB.Command")
RecordsetUsr_cmd.ActiveCon
RecordsetUsr_cmd.CommandTe
RecordsetUsr_cmd.Prepared = true
RecordsetUsr_cmd.Parameter
Set RecordsetUsr = RecordsetUsr_cmd.Execute
RecordsetUsr_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Session("ProofID") <> "") Then
Recordset2__MMColParam = Session("ProofID")
End If
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConne
Recordset2_cmd.CommandText
Recordset2_cmd.Prepared = true
Recordset2_cmd.Parameters.
Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>
<%
'Begin DynCSSMenu1
Set DynCSSMenu1 = new MX_Menu2
DynCSSMenu1.Init "DynCSSMenu1"
DynCSSMenu1.setQuery rsCSSMenu1
DynCSSMenu1.setPK "ID_mnu"
DynCSSMenu1.setFK "idmnu_mnu"
DynCSSMenu1.setNameField "label_mnu"
DynCSSMenu1.setTitleField "tooltip_mnu"
'URL parameters
DynCSSMenu1.setLinkField "urllink_mnu"
DynCSSMenu1.setTargetField
'Layout
DynCSSMenu1.highlightCurre
DynCSSMenu1.setLevel -1
DynCSSMenu1.setLayout "horizontal"
DynCSSMenu1.setSkin "colortest2"
DynCSSMenu1.setShowTimeout
DynCSSMenu1.setHideTimeout
DynCSSMenu1.setExitTimeout
DynCSSMenu1.setSubMenuOffs
DynCSSMenu1.setAnimation "slide"
DynCSSMenu1.setImgReplace false
'End DynCSSMenu1
%>
<%
Dim Repeat_Recordset1__numRows
Dim Repeat_Recordset1__indexHL
Repeat_Recordset1__numRows
Repeat_Recordset1__indexHL
Recordset1_numRows = Recordset1_numRows + Repeat_Recordset1__numRows
%>
<%
' WA eCart AddToCart
if (cStr(Request.Form("eCart1
ATC_itemID = cStr(Request.Form("eCart1_
ATC_AddIfIn = 0
ATC_RedirectAfter = "cart.asp"
ATC_RedirectIfIn = ""
ATC_RSPos = Recordset1.AbsolutePositio
Recordset1.MoveFirst()
DO while (NOT Recordset1.EOF)
if (cStr(Recordset1.Fields("p
ATC_itemName = "" & cStr((Recordset1.Fields.It
ATC_itemDescription = "" & cStr((Recordset1.Fields.It
ATC_itemWeight = cDbl("0")' column binding
ATC_itemQuantity = "" & cStr(Request.Form("eCart1_
ATC_itemPrice = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak1 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak2 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak3 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak4 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itembreak5 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings1 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings2 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings3 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings4 = cDbl("" & cStr((Recordset1.Fields.It
ATC_itemsavings5 = cDbl("" & cStr((Recordset1.Fields.It
Exit DO
end if
Recordset1.MoveNext()
Loop
Recordset1.AbsolutePositio
if (IsNumeric(ATC_itemQuantit
set eCart1 = eCart1_AddToCart(ATC_AddIf
if (ATC_RedirectAfter <> "" AND eCart1_redirStr = "") then
eCart1_redirStr = ATC_RedirectAfter
end if
Session("WAEC_ContinueRedi
end if
end if
%>
<%
' WA eCart Redirect
if (eCart1_redirStr <> "") then
Response.Redirect(eCart1_r
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Databar Inc. - Client Library</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script id="PLHFOScript" language="JavaScript" src="../Pluginlab/Scripts/
<style type="text/css">
<!--
.style1 {font-family: Verdana, Arial, Helvetica, sans-serif}
-->
</style>
<script src="../includes/cssmenus2
<script src="../includes/cssmenus2
<link href="../includes/cssmenus
<script src="../includes/cssmenus2
<meta name="keywords" content="design databar logo brochures corporate identity forms powerpoint presentations fonts designers designer custom newsletters flash animations animation edgewood washington">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(p
document.MM_pgW=innerWidth
else if (innerWidth!=document.MM_p
}
MM_reloadPage(true);
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_pre
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&p
d=parent.frames[n.substrin
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;
for(i=0;!x&&d.layers&&i<d.
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arg
if ((x=MM_findObj(a[i]))!=nul
}
//-->
</script>
<script src="../includes/cssmenus2
<script src="../includes/cssmenus2
<link href="../includes/cssmenus
<style type="text/css">
<!--
.style2 {font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif;}
-->
</style>
<script src="../Scripts/AC_RunActi
</head>
<body onLoad="PLHFO_onload();MM_
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" background="../images/spac
<tr>
<td width="1020" height="141" valign="top" background="../images/main
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0','width','159','height','64','src','../headers/Header3','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','../headers/Header3' ); //end AC code
</script><noscript><object
<param name="movie" value="../headers/Header3.
<param name="quality" value="high">
<embed src="../headers/Header3.sw
</object></noscript></td>
<td align="right" valign="bottom" nowrap class="style2"><%= FormatDateTime(Date, 1)%></td>
</tr>
</table></td>
</tr>
<tr>
<td width="100%" height="19" align="left" background="../menubar.jpg
<tr>
<td width="100%" align="right"><%
'Dynamic CSS Menu
Response.write (DynCSSMenu1.render)
%></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="10" cellpadding="10">
<tr>
<td valign="top"><div id="cssMenu2" class="horizontal">
<ul class="aqua_blue">
<li> <a href="client2.asp" title="All Records">All Records</a> </li>
<li> <a href="clientbc2.asp" title="Business Cards">Business
Cards</a> </li>
<li> <a href="clientchecks2.asp" title="Checks">Checks</a> </li>
<li> <a href="clientenvelopes2.asp
<li> <a href="clientforms2.asp" title="Forms">Forms</a> </li>
<li> <a href="clientlabels2.asp" title="Labels">Labels</a> </li>
<li> <a href="clientlogos2.asp" title="Logos">Logos</a> </li>
<li> <a href="clientpromo2.asp" title="Promo. Items">Promo.
Items</a> </li>
<li> <a href="clientnewsletters2.a
<li> <a href="clientstationary2.as
<li> <a href="clientwearables2.asp
</ul>
<br />
<script type="text/javascript">
<!--
var obj_cssMenu2 = new CSSMenu("cssMenu2");
obj_cssMenu2.setTimeouts(4
obj_cssMenu2.setSubMenuOff
obj_cssMenu2.setHighliteCu
obj_cssMenu2.setAnimation(
obj_cssMenu2.show();
//-->
</script>
</div>
<h3><span class="style1">Welcome <%= Session("kt_login_user") %> </span> <a href="loginupdate.asp" onMouseOut="MM_swapImgRest
<br>
</a><a href="loginupdate5.asp" onMouseOut="MM_swapImgRest
<form name="form1" method="post" action="">
<label>Keywords
<input name="keywords" type="text" id="keywords">
</label>
<label>
<input type="submit" name="Submit" value="Search">
</label>
<br>
</form>
<table width="300" border="1">
<tr>
<%
' Horizontal Looper version 3
While ((Repeat_Recordset1__numRo
%>
<%Session("ProofID") = (Recordset1.Fields.Item("p
<td valign="baseline"><p><a href="<%=tNG_downloadDynam
Date: <%=(Recordset1.Fields.Item
Desc.: <%=(Recordset1.Fields.Item
Form #: <%=(Recordset1.Fields.Item
Keywords: <%=(Recordset1.Fields.Item
<a href="emailassociate3.asp?
<a href="emailartdept2.asp?ID
<%
' Show IF Conditional region1
If (RecordsetUsr.Fields.Item(
%>
<img src="../images/ReorderButt
<%
End If
' End Conditional region1
%>
</a><%=(Recordset1.Fields.
<%
' Show IF Conditional region2
If (Recordset1.Fields.Item("p
%>
<form name="eCart1_1_ATC_<%=Reco
<input type="hidden" name="eCart1_1_ID_Add" value="<%=Recordset1.Field
<select name="eCart1_1_Quantity_Ad
<%
While (NOT Recordset2.EOF)
%><option value="<%=(Recordset2.Fiel
<%
Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
Recordset2.MoveFirst
Else
Recordset2.Requery
End If
%>
</select>
<input type="submit" value="Add to Cart" name="eCart1_1_ATC">
</form>
<%
End If
' End Conditional region2
%></td>
<%
'Horizontal Looper version 3
Repeat_Recordset1__indexHL
Repeat_Recordset1__numRows
Recordset1.MoveNext()
if len(nested_Recordset1)<=0 then
nested_Recordset1 = 1
end if
if ((Repeat_Recordset1__numRo
Response.Write "</tr><tr>"
end if
nested_Recordset1 = nested_Recordset1 + 1
'end horizontal looper version 3
Wend
%>
</tr>
</table>
<br> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><font size="2" face="Arial, Helvetica, sans-serif"><br>
</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash"><img src="../images/flashlogo.j
here to download Flash</a><br>
<br>
<a href="http://adobeacrobat-8.com/index.asp?PID=02ea59e6-b795-4459-9c62-e26a4f2db084"><img src="../images/acrobatlogo
here to download Acrobat Reader 8</a></font></td>
<td align="right" valign="bottom"><font size="2" face="Arial, Helvetica, sans-serif"><a href="../loginsecure.asp" onMouseOut="MM_swapImgRest
<img src="../images/libraryup.j
<br>
</a><a href="filetransferclient.a
</a><br>
<a href="login.asp"><img src="../images/copyright.g
</tr>
</table>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
rsCSSMenu1.Close()
Set rsCSSMenu1 = Nothing
%>
<%
RecordsetUsr.Close()
Set RecordsetUsr = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>