%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim path_on_server path_on_server = Request.ServerVariables("PATH_TRANSLATED") path_on_server = Left(path_on_server, Len(path_on_server) - 9) path_on_server = path_on_server + "\depts\tech\dbs\deerfield.mdb" Dim page_recordset, select_statement Dim pdf_or_doc pdf_or_doc = 0 Set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open path_on_server Set page_recordset = Server.CreateObject("ADODB.Recordset") select_statement = "SELECT * FROM scroller WHERE statusID = 1 ORDER BY id DESC" page_recordset.Open select_statement, conn %>
|
|