<% dim conn, strSQL, rsGallery, strMDBPath, intMasterID set conn=server.createobject("ADODB.Connection") set rsGallery=server.createobject("ADODB.Recordset") strMDBpath = Server.MapPath("..\private\thath.mdb") 'strMDBpath = Server.MapPath("db\thath.mdb") conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath %>
photo galleries
<% strSQL = "SELECT tblGallery.ID, tblGallery.Date, tblGallery.Title, tblGallery.Title2, tblGallery.GalleryPath, tblGallery.PicturePath, tblGallery.OrderId " strSQL = strSQL & "FROM tblGallery Order By OrderId desc " rsGallery.open strSQL,conn,1,2 Do while not rsGallery.eof intMasterID = rsGallery.fields("ID").value %>
>
<% = rsGallery.fields("Title").value %>
<% = rsGallery.fields("Date").value%>
/index.html')"><%= rsGallery.fields("Title2")%>
<% rsGallery.movenext loop %>
Nanaksar Thath Isher Darbar
Mander Street, Wolverhampton, England, WV3 0JZ
Tel: +441902 429379
<% rsGallery.close conn.close set rsGallery=nothing set conn = nothing %>