| |
| |
Articles |
| #
Tips for Comp. Maintaince |
|
The
one exception to this rule is when your computer
locks up and your hard drive is not running
......
more |
|
|
Consider
the internet Tsunami of new companies (Source:
Frank Quattrone, Credit Suisse / First Boston;
Values are........
more |
|
| #
How the virus is generated and how to be safe
from it ? |
| |
|
|
| |
|
| |
|
|
|
|
|
| |
|
|
<% dim con, rs
set con=server.CreateObject("Adodb.Connection")
set rs=server.CreateObject("Adodb.Recordset")
set rs1=server.CreateObject("Adodb.Recordset")
strDSNPath ="PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};pwd=password; DBQ=" & Server.MapPath("../../../db/broker.mdb")
con.open strDSNPath
sql="select * from Category order by CatName desc"
set rs=con.execute(sql)
dim Cateid1,Cateid2
%>
<% do while not rs.eof %>
| <%= rs(1) %>
<% Cateid1=rs(0) %>
<% if not rs.eof then
rs.movenext
end if %>
|
<% if not rs.eof then %>
<%
Cateid2=rs(0) %>
<%= rs(1)%>
|
<% end if %>
<% sql="select * from Subject where cateid=" & Cateid1& ""
set rs1=con.execute(sql) %>
<% i=1
do while not rs1.eof
if i<3 then
%>
| <%= rs1(2) %> |
<% end if
rs1.movenext
i=i+1
loop %>
|
<%
if not Cateid2="" then
sql="select * from Subject where cateid=" & Cateid2 & ""%>
<% set rs1=con.execute(sql)
i=1
do while not rs1.eof
if i<3 then %>
| <%= rs1(2) %> |
<% end if
i=i+1
rs1.movenext
loop
end if
Cateid2=""
%>
|
<%
if not rs.eof then
rs.movenext
end if
loop
rs.close
con.close
set rs=nothing
set con=nothing %>
|
|
