%@ Language=VBScript %> <% 'if Session("UID") = "" then ' response.redirect("LoginPage.asp") 'end if %> <% set conn=server.createobject("ADODB.Connection") Dim strDBVirtualPath, strDBLocation, strConnect strDBVirtualPath = "\fpdb\Stbsn.mdb" 'strDBVirtualPath = "\fpdb\" & Session("DBname") strDBLocation = Server.MapPath(strDBVirtualPath) strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBLocation Conn.Open strConnect dim sql sql ="Select * from reservation;" 'response.write sql set rs =Conn.execute (sql) %>
|
|
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() For more information Call us Today 248-875-1144
|
|
![]() |
||
![]() | ||||