<%
on error resume next
if session("auth") = 1 then
p=1
msg="You are logged in.Log out."
end if
Set diskflik = Server.CreateObject("ADODB.Connection")
diskflik.ConnectionTimeout = Session("diskflik_ConnectionTimeout")
diskflik.CommandTimeout = Session("diskflik_CommandTimeout")
diskflik.Open "DSN=ha2z;UID=sa;PWD=2vays585;DATABASE=ha2z;APP=ASP script", Session("diskflik_RuntimeUserName"), Session("diskflik_RuntimePassword")
cat=request("cat")
if cat="" then cat=0
set cats=diskflik.execute("select id, category from categories where subcatof=0 order by category")
set scats=diskflik.execute("select id, category from categories where subcatof="& cat &" order by category")
set scatscount=diskflik.execute("select count(id) as counta from categories where subcatof="& cat &"")
scntmid=scatscount("counta")/2
if cat <> 0 then
set cd=diskflik.execute("select id, category, catdesc,header from categories where id="& cat &"")
category=cd("category")
catdesc=cd("catdesc")
end if
%>
<%
if pagename="cat" then
%>
Everything Tools
<%elseif pagename="item" then%>
Everything Tools - <%=result("name")%>
<%else%>
Welcome to Everything Tools
<%end if%>
<%
vl="#046C72"
if pagename="" then
vl="#565656"
end if
%>
Home
<%
on error resume next
if session("auth") = 1 then
p=1
msg="You are logged in.Log out."
end if
Set diskflik = Server.CreateObject("ADODB.Connection")
diskflik.ConnectionTimeout = Session("diskflik_ConnectionTimeout")
diskflik.CommandTimeout = Session("diskflik_CommandTimeout")
diskflik.Open "DSN=ha2z;UID=sa;PWD=2vays585;DATABASE=ha2z;APP=ASP script", Session("diskflik_RuntimeUserName"), Session("diskflik_RuntimePassword")
cat=request("cat")
if cat="" then cat=0
set cats=diskflik.execute("select id, category from categories where subcatof=0 order by category")
set scats=diskflik.execute("select id, category from categories where subcatof="& cat &" order by category")
set scatscount=diskflik.execute("select count(id) as counta from categories where subcatof="& cat &"")
scntmid=scatscount("counta")/2
if cat <> 0 then
set cd=diskflik.execute("select id, category, catdesc,header from categories where id="& cat &"")
category=cd("category")
catdesc=cd("catdesc")
end if
%>
<%
if pagename="cat" then
%>
Everything Tools - <%=cd("category")%>
<%elseif pagename="item" then%>
Everything Tools - <%=result("name")%>
<%else%>
Welcome to Everything Tools
<%end if%>
<%
vl="#046C72"
if pagename="" then
vl="#565656"
end if
%>
Build
a Profitable Internet Business In
Less Than One Hour...Guaranteed!
Become an EVERYTHINGTOOLS.COM Affiliate, Reseller or local "Brick and Mortal"
Distributor NOW!
Appliance Parts
Browse
articles and tool guides.
