<%@LANGUAGE=VBSCRIPT%>
<%
set conn = server.createobject("adodb.connection")
conn.open "TRADE"
set rsThisPage = conn.execute("select TITLE,DESCRIPTION,KEYWORDS from META where isUN = 1 and URL = '" & request.servervariables("URL") & "'")
IF NOT rsThisPage.EOF THEN
Title = rsThisPage("Title")
Description = rsThisPage("Description")
Keywords = rsThisPage("Keywords")
END IF
Style = "UN"
Priviledge = "OPEN"
set rsThisPage = Nothing
isDeleted = 0
IF NOT request.querystring("AID") = "" THEN
thisQRY = "AID"
set rsArt = conn.execute("select * from ARTICLES where AID = " & request.querystring("AID"))
IF NOT rsArt.EOF THEN
set rsWEBUSER = conn.execute("Select UID,NAME from WEBUSER where UID = " & rsArt("UID"))
Title = rsArt("Title")
ELSE
isDeleted = 1
END IF
ELSEIF NOT request.querystring("BID") = "" THEN
thisQRY = "BID"
set rsArt = conn.execute("select * from BOOKS where BID = " & request.querystring("BID"))
set rsWEBUSER = conn.execute("Select UID,NAME from WEBUSER where UID = 0")
IF NOT rsArt.EOF THEN
Title = rsArt("Name")
ELSE
isDeleted = 1
END IF
END IF
%>
Unsustainable.org | Eamonn Fingleton's website on trade.
<%IF NOT rsArt.EOF THEN response.write Title%>
<%IF NOT rsArt.EOF THEN
IF not rsWEBUSER.EOF THEN response.write "by " & rsWEBUSER("Name") & "
"
END IF
IF thisQry = "AID" THEN response.write FormatDateTime(rsArt("HarvestDate"),1) & "
"
set fso = server.createobject("scripting.filesystemobject")
IF thisQRY = "AID" then
thisURL = "c:\docs\ame\data\AID"&request.querystring("AID")&".txt"
ELSEIF thisQRY = "BID" then
thisURL = "c:\docs\ame\data\BID"&request.querystring("BID")&".txt"
END IF
IF fso.FileExists(thisURL) THEN
set objTStream = fso.OpenTextFile(thisURL)
response.write objTStream.ReadAll
ELSE
response.write "Sorry, the requested article has been moved or deleted.
If this problem persists, please contact the webmaster.
"
END IF
response.write "
"
IF NOT rsArt.EOF THEN
IF NOT rsWEBUSER.EOF THEN
thisURL = "c:\docs\ame\data\BIO_UID"&rsWEBUSER("UID")&".txt"
IF fso.FileExists(thisURL) THEN
set objTStream = fso.OpenTextFile(thisURL)
response.write objTStream.ReadAll
response.write "
"
END IF
END IF
END IF
%>
-- view this article at http://www.unsustainable.org/view_art.asp?<%=thisQRY & "=" & request.querystring("BID") & request.querystring("AID")%> --