<% dim adocon dim rsguestbook dim strsql set adocon = server.CreateObject("ADODB.Connection") set rsGuestBook = server.CreateObject("ADODB.RecordSet") 'adocon.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Siva\Devp\mact.mdb;Persist Security Info=False" fileLocation = Server.Mappath("mact.mdb") adocon.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& fileLocation & ";Persist Security Info=False" strsql = "select * from StayAwayCamp where Approval = 'Y'" rsGuestBook.open strsql,adocon sno = 0 if not rsGuestBook.eof then RecordDisplay = true else RecordDisplay = false end if %> Mary Anne Charity Trust <% else %> <% end if %>
<% if RecordDisplay = true then while not rsGuestBook.eof sno = sno+1 fname = rsGuestBook("fname") lname = rsGuestBook("lname") occupation = rsGuestBook("Occupation") country = rsGuestBook("Country") Comments = rsGuestBook("Comments") %> <% rsGuestBook.movenext wend %>
S.No FirstName LastName Country Occupation Comments
<%=sno%> <%=fname%> <%=lname%> <%=country%> <%=occupation%> <%=Comments%>
 
Copyright © 2011 .Mary Anne Charity Trust All Rights Reserved.