<% hd = request.querystring("page") if hd = "ENERGY" then %> <% else %> <% end if 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") 'strSql= "SELECT * FROM tblSANF where volum = " & request.querystring("pubno") if (request.querystring("pubno") <> "") then strSql= "SELECT * FROM tblSANF where col ='" & request.querystring("page") & "' AND Volum ='" & request.querystring("pubno") & "'" else strSql= "SELECT * FROM tblSANF where col ='" & request.querystring("page") & "'" end if 'strSql= "SELECT * FROM tblSANF where COL = " & request.querystring("vol") adoCon.open strCon, 3,3 RS.Open strSql, strCon %>

<% Response.Write("

") IF rs.eof or rs.bof then Response.write("There are no articles under this section") Else while not rs.eof Response.Write("" & rs("Title") & "") 'IF rs("author") <> vbnullstring Then ' Response.Write("by " & rs("Author") & "") 'End If abstract = rs("Abstract") asa = rs("body") if (abstract = "a") then a = Split(asa,"

") Response.Write("" & a(0) & "

") else 'abstract = Replace(abstract,""," ") Response.Write("" & abstract & "

") end if rs.movenext Wend End If set RS=nothing 'strCon.close if hd = "ENERGY" then %> <% else %> <% end if %>