<%
'This file is part of ProductCart, an ecommerce application developed and sold by Early Impact LLC. ProductCart, its source code, the ProductCart name and logo are property of Early Impact, LLC. Copyright 2001-2003. All rights reserved. You are not allowed to use, alter, distribute and/or resell any parts of ProductCart's source code without the written consent of Early Impact. To contact Early Impact, please visit www.earlyimpact.com.
%>
<% response.Buffer=true %>
<%
on error resume next
'*******************************
' Page Name
'*******************************
Dim pcStrPageName
pcStrPageName = "search.asp"
%>
<%
Dim query, conntemp, rs, rstemp
call openDb()
%>
<%
'// Initialize the Prototype.js files
Dim pcv_strPrototype
Response.Write(pcf_InitializePrototype())
%>
<%IF scStoreUseToolTip=1 THEN%>
<%'**** Check MAC IE Browser ******************
UserBrowser=Request.ServerVariables("HTTP_USER_AGENT")
MACIEBrowser=0
OperaBrowser=0
if UserBrowser<>"" then
if instr(ucase(UserBrowser),"MAC")>0 AND instr(ucase(UserBrowser),"MSIE")>0 then
MACIEBrowser=1
end if
if instr(ucase(UserBrowser),"OPERA")>0 then
OperaBrowser=1
end if
end if
'**** End of Check MAC IE Browser ******************%>
<%IF MACIEBrowser=1 OR OperaBrowser=1 OR UserBrowser="" THEN%>
<%session("store_useAjax")="1"
ELSE%>
<%session("store_useAjax")=""%>
<%END IF%>
<%END IF 'End of AJAX turns on%>