<% Response.Write("") Dim adoCon, RS, strCon, strSql Set adoCon = Server.CreateObject("ADODB.Connection") set RS = Server.CreateObject("ADODB.Recordset") strCon = "DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath("sanf.mdb") if (request.querystring("page") = "acquisitions") then strSql= "SELECT * FROM tblSANF where title ='NEW ACQUISITIONS' AND Volum =" & request.querystring("pubno") else strSql= "SELECT * FROM tblSANF where volume = " & request.querystring("vol") end if 'strSql= "SELECT * FROM tblSANF where volume = " & request.querystring("vol") adoCon.open strCon, 3,3 RS.Open strSQL, strCon %>

">Home ">Objective ">Editorial ">Archive ">Contact .pdf">Download PDF

<% IF rs.eof or rs.bof then Response.write("The page cannot be found") Else Response.Write("" & rs("Title") & "
") IF rs("author") <> vbnullstring Then Response.Write("by " & rs("Author") & "

") End If Response.Write(rs("Body") & "

") End If set RS=nothing 'strCon.close %>