<%@LANGUAGE="VBSCRIPT"%> <% Dim rsLogin__strCustomerID rsLogin__strCustomerID = Session("MM_Username") if (Request.Form("tfCustomerID") <> "") then rsLogin__strCustomerID = Request.Form("tfCustomerID") %> <% Dim rsLogin__strPassword rsLogin__strPassword = Session("MM_Password") if (Request.Form("tfPassword") <> "") then rsLogin__strPassword = Request.Form("tfPassword") %> <% set rsLogin = Server.CreateObject("ADODB.Recordset") rsLogin.ActiveConnection = MM_VNewConn_STRING rsLogin.Source = "SELECT * FROM tbCustomers WHERE CustomerID='" + Replace(rsLogin__strCustomerID, "'", "''") + "' AND Password='" + Replace(rsLogin__strPassword, "'", "''") + "'" rsLogin.CursorType = 0 rsLogin.CursorLocation = 2 rsLogin.LockType = 3 rsLogin.Open() rsLogin_numRows = 0 %> Shopping & Gifts

Quickly Find Hard To Find Supplies For Your Particular Office Machines!
Brand:
Model #:
MfgPart#:
SearchBy;
Brand, Model # or Part #
Easy To Order!

Search By Machine:
Payment
Shopping & Gifts

  Please select a sub category:

Back to the link directory home page


These web site links are listed as a convenience to our visitors. If you use these links, we take no responsibility and give no guarantees, warranties or representations, implied or otherwise, for the content or accuracy of these third-party sites.
<% rsLogin.Close() %>