| |
|
|
 |
Laughter is the best medicine...
Want to make others smile, grin or laugh? Post your jokes
and one-liners on family & relationships and brighten
someone's day.
|
|
<%
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 =3"
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 =3 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 " "%>
<%
fam_traRS.MoveNext
wend
end if
%>
|
|
|
| |
|
|