<%
dim rflag
strSQL = "select Content, url, extra, coding, expire from qryDiaryElements where PageID=" & intPID
with objRs
.open strSQL, Application("ConnString")
response.write("Forthcoming concerts")
'parse and format the content
do until .eof
strContent = .fields("Content")
if .fields("expire") < date() and rflag = 0 then 'write recent concerts header
response.write("Recent Concerts")
rflag = 1
end if
if not(isnull(.fields("url"))) then strURL = .fields("url")
if not(isnull(.fields("extra"))) then strExtra = .fields("extra")
strCoding = .fields("coding")
if request.querystring("debug") = 1 then
response.write "Content: " & strContent & " "
response.write "Coding: " & strCoding & " "
response.write "URL: " & strURL & " "
response.write "Extra: " & strExtra & " "
end if
if not(isnull(strContent)) then
html = replace(strCoding,"^content^",strContent)
html = replace(html,"^url^",strURL)
html = replace(html,"^extra^",strExtra)
response.write html
end if
.movenext
loop
.close
end with
%>
|
