Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Set Connection=Server.CreateObject("ADODB.Connection")
dbPath=Server.MapPath("yourdatabase.mdb")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbPath
Const adOpenStatic = 3
Const adUseClient = 3
Const adLockPessimistic = 2
set rs=server.CreateObject("ADODB.Recordset")
sub ExecuteSQL(byval cmd)
if rs.State=1 then rs.Close
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockPessimistic
rs.Source = cmd
rs.ActiveConnection = Connection 'The record set needs to know what connection to use.
rs.Open
end sub
querry="select * from table name"
ExecuteSQL(querry)
if rs.RecordCount=0 then
'there is no records
end if