<% option explicit Response.Buffer = True %> <% '@BEGINVERSIONINFO '@APPVERSION: 50.4014.0.2 '@FILENAME: default.asp ' '@DESCRIPTION: Search Page '@STARTCOPYRIGHT 'The contents of this file is protected under the United States 'copyright laws and is confidential and proprietary to 'LaGarde, Incorporated. Its use or disclosure in whole or in part without the 'expressed written permission of LaGarde, Incorporated is expressly prohibited. ' '(c) Copyright 2000, 2001 by LaGarde, Incorporated. All rights reserved. '@ENDCOPYRIGHT '@ENDVERSIONINFO On Error Resume Next dim rsAdmin, sStoreName,sSSLpath,sDomain,sSql 'Response.Write Session("CurrencyISO") %> WEBZAPPER LLC WHOLESALE DISTRIBUTIORS ULTRASONIC CLEANERS ART EASELS LED FLASHLIGHTS <% set rsAdmin = server.CreateObject("adodb.recordset") sSQL = "Select adminSSLPath, adminDomainName,adminStoreName from sfAdmin" rsAdmin.Open sSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText sSSLpath = trim(rsadmin.Fields("adminSSLPath")) sDomain =trim(rsadmin.Fields("adminDomainName")) sStoreName = rsadmin.Fields("adminStoreName") closeObj(rsAdmin) %>

  Phone 720.851.7477 Fax 720.225.9056





      USERNAME     PASSWORD      

Copyright 1997-2005  WebZapper LLC. All rights reserved

<% closeObj(cnn) %>