<%@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 %> Customer Support
Digicam Surveillance CCTV Security Systems

Home Page
CCTV Surveillance Equipment Packages
CCTV Security Cameras
Digital Video Recorders
CCTV DVR Video Capture Cards
CCTV Security Monitors
CCTV Camera Lenses
Multiplexers, Quads, and Switchers
CCTV Surveillance Equipment Accessories
P.O.S. Accessories

Contacts

SUPPORT

OUR POLICY

 

Get Adobe Reader
  <% While ((Repeat1__numRows <> 0) AND (NOT rsGeovision.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsGeovision.MoveNext() Wend %>

Sales and
cutomer support:

866-249-8323
504-273-0194
support@digicamsurveillance.com

 

© Digicam Surveillance, LLC 2004 - 2008
<% rsGeovision.Close() Set rsGeovision = Nothing %>