| ")
Dim adoCon, RS, strCon, strSql, pubno, a, asa, abstract, currentvol
currentvol = "v8n4"
pubno = request.querystring("pubno")
if (pubno = "") then
strSql= "SELECT * FROM port where volum ='" & currentvol & "' order by volume"
else
strSql= "SELECT * FROM port where volum ='" & pubno & "' order by volume"
end if
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")
adoCon.open strCon, 3,3
RS.Open strSQL, strCon
While Not RS.EOF
Response.Write("" & rs("Title") & " ") 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 set RS=nothing 'strCon.close %> |