<%
Set cnHol = Server.CreateObject("ADODB.Connection")
' Build ADO connection string.
cnStHol = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("database/cfsri2.mdb")
cnHol.Open cnStHol,"",""
sql = "SELECT * " & _
"FROM HomeItems ORDER BY itemPageRank ; "
Set rsitems = Server.CreateObject("ADODB.Recordset")
rsitems.Open sql, cnHol, adOpenStatic, adLockReadOnly
If rsitems.EOF Then
Response.Write "
Welcome to Children's Friend and Service! We hope you enjoy our website.
"
Else
Do While NOT rsitems.EOF
if rsitems("itemLink") <> "" then
linktothis = rsitems("itemLink")
else
linktothis = "#"
end if
Response.Write "" & rsitems("itemTitle") & "
" & vbCrLf &_
rsitems("itemText") & " "
rsitems.MoveNext
Loop
End If
rsitems.Close
Set rsitems = Nothing
cnHol.Close
Set cnHol = Nothing
%>
For more information on upcoming events, please visit our events page.
|