<% 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 %>

 

<% 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.movenext loop %>
photo galleries

> <% = rsGallery.fields("Title").value %>
<% = rsGallery.fields("Date").value%>

/index.html')"><%= rsGallery.fields("Title2")%>


 
 
 
 


Nanaksar Thath Isher Darbar
Mander Street, Wolverhampton, England, WV3 0JZ Tel: +441902 429379

 
<% rsGallery.close conn.close set rsGallery=nothing set conn = nothing %>