<%
dim oConn
dim oRs
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}"
oConn.ConnectionString = oConn.ConnectionString & ";DBQ=" & server.MapPath("Db/hum.mdb")
oConn.mode = 3
oConn.Open
fam_tracc= "SELECT count(*) FROM hum_blog where cat_num =4"
set fam_traRScc =oConn.Execute(fam_tracc)
dim cc
cc=0
if fam_traRScc(0) <= 0 then
Response.Write "No comments added...
"
else
fam_tra= "SELECT * FROM hum_blog where cat_num =4 order by storedate"
set fam_traRS =oConn.Execute(fam_tra)
while not fam_traRS.eof
cc = cc + 1
Response.Write "" & left(fam_traRS("blog"),200) & " " %>
More..
<% Response.write "
"%>