Resources Archive: USInnovation.org

[an error occurred while processing this directive]

[an error occurred while processing this directive]

Obama Transition	Resources Archive	Search

[an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive]

Resources

<% Dim RSpdf Dim MyConnpdf Set MyConnpdf = Server.CreateObject("ADODB.Connection") Set RSpdf = Server.CreateObject("ADODB.Recordset") MdbFilePath = Server.MapPath("/access_db/resources.mdb") MyConnpdf.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" SQL_query = "SELECT * FROM Pdf WHERE TYPE_RES = 'res' ORDER BY PDF_ID DESC" RSpdf.Open SQL_query, MyConnpdf %>

"><%=RSpdf("PDF_TITLE")%>

<% Dim RSpage Dim MyConnpage Set MyConnpage = Server.CreateObject("ADODB.Connection") Set RSpage = Server.CreateObject("ADODB.Recordset") MdbFilePath = Server.MapPath("/access_db/resources.mdb") MyConnpage.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" SQL_query = "SELECT * FROM WebPage ORDER BY TITLE ASC" RSpage.Open SQL_query, MyConnpage %>

"><%=RSpage("TITLE")%>

<% RSpage.close() Set RSpage = Nothing %>

Publications

<% Dim RSpub Dim MyConnpub Set MyConnpub = Server.CreateObject("ADODB.Connection") Set RSpub = Server.CreateObject("ADODB.Recordset") MdbFilePath = Server.MapPath("/access_db/resources.mdb") MyConnpub.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" SQL_query = "SELECT * FROM Pdf WHERE TYPE_RES = 'pub' ORDER BY PDF_ID DESC" RSpub.Open SQL_query, MyConnpdf %>

"><%=RSpub("PDF_TITLE")%>

[an error occurred while processing this directive]