<%
hd = request.querystring("page")
if hd = "ENERGY" then
%>
<%
else
%>
<%
end if
Dim adoCon, RS, strCon, strSql, zita, pub, thestring
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
Response.write(rs("fullvolume"))
%>
<%
Response.Write("| ")
IF rs.eof or rs.bof then
Response.write("The page cannot be found")
Else
zita = rs("Title")
Response.Write("" & zita & " ")
IF rs("author") <> vbnullstring Then
Response.Write("by " & rs("Author") & " ")
End If
Response.Write("" & rs("Body") & " ")
Response.Write(" ")
End If
set RS=nothing
'strCon.close
if hd = "ENERGY" then
%>
<%
else
%>
<%
end if
%>
|