|
             
|
<%
dim con,rs,i,j
dim MC
MC=""
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/cscfrs-si-data.mdb")
set con=server.createobject("ADODB.Connection")
con.open strConnect
set rs=server.createobject("ADODB.Recordset")
rs.CursorLocation=3 'clientside
rs.CursorType=3 'staticrecordset
rs.PageSize=5
rs.open "select * from album where Sno>0 order by MainCaption,UploadDate Desc",con
if rs.EOF then
%>
<%end if%>
|
|
Home | History | Ministries | Directory | News | Moreau | Obituary | Contact | PS |
