| |
|
|
|
|
We invite you to share inspiring and touching stories
on relationships that you have come across or experienced
yourself on this blog
|
|
<%
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 =5"
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 =5 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
%>
|
|
|
|
|
| |
|