% 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 %>
|
||||||||||||
Copyright © 2011 .Mary Anne Charity Trust All Rights Reserved. |