%@LANGUAGE="VBSCRIPT"%> <% Dim rsGeovision Dim rsGeovision_numRows Set rsGeovision = Server.CreateObject("ADODB.Recordset") rsGeovision.ActiveConnection = MM_digicam_STRING rsGeovision.Source = "SELECT * FROM DVR_Cards WHERE Brand_Name='Geovision' ORDER BY Price" rsGeovision.CursorType = 2 rsGeovision.CursorLocation = 3 rsGeovision.LockType = 1 rsGeovision.Open() rsGeovision_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsGeovision_numRows = rsGeovision_numRows + Repeat1__numRows %> <% ' WA eCart AddToCart if (cStr(Request.Form("WA_eCart1_1_ATC")) <> "" OR cStr(Request.Form("WA_eCart1_1_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("WA_eCart1_1_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "WA_eCart/WA_ViewCar_VB.asp" ATC_RedirectIfIn = "" ATC_RSPos = rsGeovision.AbsolutePosition rsGeovision.MoveFirst() DO while (NOT rsGeovision.EOF) if (cStr(rsGeovision.Fields("ID").value) = cStr(ATC_itemID)) then ATC_itemName = "" & cStr((rsGeovision.Fields.Item("Name").Value)) & ""' column binding ATC_itemDescription = "" & cStr((rsGeovision.Fields.Item("Description").Value)) & ""' column binding ATC_itemWeight = cDbl("" & cStr((rsGeovision.Fields.Item("Weight").Value)) & "")' column binding ATC_itemQuantity = "" & cStr(Request.Form("WA_eCart1_1_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("" & cStr((rsGeovision.Fields.Item("Price").Value)) & "")' column binding Exit DO end if rsGeovision.MoveNext() Loop rsGeovision.AbsolutePosition = ATC_RSPos if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set WA_eCart1 = WA_eCart1_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND WA_eCart1_redirStr = "") then WA_eCart1_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart Redirect if (WA_eCart1_redirStr <> "") then Response.Redirect(WA_eCart1_redirStr) end if %>