 |
 |
|
 |
Brantley Builders
Email
Model Home,
Office and
Design Center
|
|
|
| 160 Old Chimney Rock Rd. Hendersonville, NC 28792
|
<%language="VBScript"
'####################################################################
'# If you want to show only one category, insert the #
'# desired category number below instead of 0 #
'####################################################################
catnum=0
'####################################################################
'# If you want the date of articles to be shown as headers then #
'# leave dateheader below equal to yes. If you want the date #
'# displayed alongside the article title then change the yes to no. #
'# Try both ways and see which you prefer. You can also set the #
'# textsize to your preferred size. #
'####################################################################
dateheader="no"
textsize="2"
'####################################################################
%>
<%language="VBScript"
'VERSION 5.0
Response.Buffer = True
Set news = Server.CreateObject("ADODB.Connection")
'##############################################################
'# Edit the connection string below so that the path is #
'# correct for wherever you want to store your news database, #
'# you can therefore store it wherever you want #
'# and rename it also #
'# eg you may change it to something like: #
'# dbq=E:\wwwroot\mysitename\db\renamed.mdb #
'# #
'# If you don't know how to work out the database path, then #
'# upload the file databasepath.asp into the directory you #
'# want to store your news database in and type in the name #
'# that you are going to call your news directory #
'##############################################################
news.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\brantleybuilders\database\homepage\homepage.mdb"
'##############################################################
If Err.Number <> 0 Then
response.write "Couldn't open DB"
response.end
End If
sqlstr1 = "SELECT * FROM config"
Set rsnews = news.Execute(sqlstr1)
If Err.Number <> 0 Then
response.write "Couldn't exec SQL query"
response.end
End If
reginfo = rsnews.fields("reg")
If reginfo <> "5" then response.redirect "upgrade.asp?err=not5"
headercolour = rsnews.fields("headercolour")
headertext = rsnews.fields("headertext")
home="http://www.christianwebdesign.us/"
twidth = rsnews.fields("twidth") & "%"
cats = rsnews.fields("cats")
showcat = rsnews.fields("showcat")
test="media/admin/"
search = rsnews.fields("search")
sitepath = rsnews.fields("sitepath")
fontface = rsnews.fields("fontface")
sitename = rsnews.fields("sitename")
admin=home & test
textcolour = rsnews.fields("textcolour")
linkcolour = rsnews.fields("linkcolour")
visitedlink = rsnews.fields("visitedlink")
activelink = rsnews.fields("activelink")
backgroundcolour = rsnews.fields("backgroundcolour")
backdropimage = rsnews.fields("backdropimage")
logoimage = rsnews.fields("logoimage")
numitems = rsnews.fields("numitems")
author = rsnews.fields("author")
email = rsnews.fields("email")
suggest = rsnews.fields("suggest")
sendemail = rsnews.fields("sendemail")
archive = rsnews.fields("archive")
stats = rsnews.fields("stats")
component=rsnews.fields("component")
ablength=rsnews.fields("ablength")
relnews=rsnews.fields("relnews")
rellinks=rsnews.fields("rellinks")
otherposts=rsnews.fields("otherposts")
discuss=rsnews.fields("discuss")
source=rsnews.fields("source")
wysiwyg=rsnews.fields("wysiwyg")
emailsug=rsnews.fields("emailsug")
adminemail=rsnews.fields("adminemail")
moderate=rsnews.fields("moderate")
rsnews.close
set rsnews = nothing
Function to_html(s_string)
to_html = Replace(s_string, vbcrlf, "
")
to_html = Replace(to_html, """", """)
End Function
%>
<%
Sub splitlinks()
If rsnews.fields("rellinks")<>"" then
%>
Related links:
<%
linksplit=split(rsnews.fields("rellinks"), "|")
For i=0 to ubound(linksplit)
response.write edit_hrefs(linksplit(i)) & "
"
Next
End if
End Sub
Sub articledetails()
If author="Yes" then
If rsnews.fields("name")<>"" then
If (email="Yes") and (rsnews.fields("email")<>"") then
%>
by "> <%=rsnews.fields("name")%>
<%
Elseif (email="Yes") and (rsnews.fields("email")="") then
%>
by <%=rsnews.fields("name")%>
<%
End if
If sbreak<>1 then
response.write "
"
Else
response.write " "
End if
End if
End if
If source="Yes" then
If rsnews.fields("source")<>"" then
response.write "Source: " & edit_hrefs(rsnews.fields("source")) & "
"
End if
End if
End Sub
Sub newsrelate()
If rsnews.fields("relnews")<>"" then
%>
Related items:
<%
splitnews=split(rsnews.fields("relnews"), ", ")
For i=0 to ubound(splitnews)
sqlstrrel="SELECT title from news where id=" & splitnews(i)
set rsrel=news.execute(sqlstrrel)
%>
<%=rsrel.fields("title")%>
<%
rsrel.close
set rsrel=nothing
Next
End if
End sub
Sub authorother()
sqlstrauth="Select TOP 3 * from news where name='" & rsnews.fields("name") & "' ORDER by date desc, time desc"
set rsauth=news.execute(sqlstrauth)
if rsauth.eof then
Else
doauth=1
rsauth.movefirst
Do while not rsnews.eof
If datediff("d",date,rsauth.fields("date")) > 0 then
rsauth.movenext
Elseif rsnews.fields("id")=rsauth.fields("id") then
rsauth.movenext
Else
If doauth=1 then
%>
Other items by this author:
<%End if
doauth=0%>
">
<%=rsauth.fields("title")%>
<%
rsauth.movenext
End if
Loop
End if
rsauth.close
set rsauth=nothing
End sub
Sub imagecodeform()
splitxtra=split(rsnews.fields("xtra2"),"|")
If rsnews.fields("caption")<>"" then
imcaption=" alt='" & rsnews.fields("caption") & "' "
Else
imcaption=""
End if
If (imhwyes=1) AND (iwidth<>0) AND (iheight<>0) then
imhw=" width=" & iwidth & " height=" & iheight & " "
Else
imhw=""
End if
imagecode = "![](" & sitepath & "images/" & rsnews.fields("xtra1") & ") "
imcaption=""
End sub
Sub numcomments()
approve=1
set rscount = Server.CreateObject("ADODB.Recordset")
If moderate="Yes" then
sqlcount = "SELECT * FROM discuss WHERE (approve=" & approve & ") AND (newsid=" & rsnews.fields("id") & ")"
Else
sqlcount = "SELECT * FROM discuss WHERE (newsid=" & rsnews.fields("id") & ")"
End if
rscount.open sqlcount,news,1,1
if not rscount.eof then
numdiscuss = rscount.recordcount
If numdiscuss=1 then
numdiscuss="Read comment (" & numdiscuss & ")"
Else
numdiscuss="Read comments (" & numdiscuss & ")"
End if
Else
numdiscuss = "No comments as yet"
End if
POPUPCOM = "HTTP://" & request.servervariables("SERVER_NAME") & sitepath & "addcomment.asp?artid=" & rsnews.fields("id")
%>
<%
rscount.close
set rscount=nothing
End sub
Sub readcomm()
If (session("security")="mid") or (Session("security")="admin") then
If session(sitepath)=sitename then
delcom=1
End if
End if
%>
|
Users' comments on this item:
|
<%
approve=1
If moderate="Yes" then
sqldiss="SELECT * FROM discuss WHERE (approve=" & approve & ") AND (newsid=" & rsnews.fields("id") & ") ORDER by date desc, time desc"
Else
sqldiss="SELECT * FROM discuss WHERE (newsid=" & rsnews.fields("id") & ") ORDER by date desc, time desc"
End if
set rsdiss=news.execute(sqldiss)
rsdiss.movefirst
While not rsdiss.eof
If rsdiss.fields("email")="" then
disname=rsdiss.fields("name")
Else
disname="" & rsdiss.fields("name") & ""
ENd if
If delcom=1 then
dellink="DELETE COMMENT"
Else
dellink=""
End if
%>
|
<%=rsdiss.fields("title")%> by <%=disname%> (Added: <%=rsdiss.fields("date")%> at <%=rsdiss.fields("time")%>) <%=dellink%>
|
|
<%=rsdiss.fields("comment")%>
|
<%
rsdiss.movenext
wend
POPUPCOM = "HTTP://" & request.servervariables("SERVER_NAME") & sitepath & "addcomment.asp?artid=" & rsnews.fields("id")
%>
|
|
Add comment
|
<%
rsdiss.close
set rsdiss=nothing
End sub
%>
<%
If request.querystring("mtemp")="" then
msel = month(now)
ysel = year(now)
Else
msel = request.querystring("mtemp")
ysel = year(now)
End if
If catnum=0 then
catsel=" "
catimage=""
Else
sqlstrcat = "SELECT * FROM CATS WHERE id=" & catnum
Set rscats = news.Execute(sqlstrcat)
If rscats.fields("catimage")<>"" then
catimage=" "
Else
catimage=""
End if
rscats.close
set rscats=nothing
catsel=" WHERE cat=" & catnum & " "
End if
select case archive
case "Simple"
sqlstr = "SELECT * FROM news" & catsel & "ORDER BY date DESC, time DESC"
case "None"
sqlstr = "SELECT * FROM news" & catsel & "ORDER BY date DESC, time DESC"
case "Monthly"
If catnum<>0 then
catsel = " AND (cat=" & catnum & ") "
End if
sqlstr = "SELECT * FROM news WHERE (month([date]) = '" & msel & "') AND (year([date]) = '" & ysel & "')" & catsel & "ORDER BY date DESC, time DESC"
end select
sIncURL = Request.ServerVariables("SCRIPT_NAME")
sInc1 = sIncURL
sInc2 = ""
If Request.ServerVariables("QUERY_STRING") <> "" Then
sInc2 = Request.ServerVariables("QUERY_STRING")
sIncURL = sIncURL & "?" & Request.ServerVariables("QUERY_STRING")
End If
%>
<%
select case request.querystring("dismode")
case ""
errmsg = "
There are no news items at present, please check back again soon.
"
%>
<%
sqlstr1 = "SELECT * FROM news"
Set rsnews1 = news.Execute(sqlstr1)
rsnews1.movefirst
While not rsnews1.eof
expidate = rsnews1.fields("date1")
testdate = datediff("d", now , expidate)
If testdate < "1" then
sqlstr2 = "Delete from news where id=" & rsnews1.fields("id")
Set rsnews2 = news.Execute(sqlstr2)
End if
rsnews1.movenext
wend
rsnews1.close
set rsnews1 = nothing
%>
|
<%
If sInc2 = "" then
formpage = sInc1 & "?dismode=search"
Else
If request.form("cat")="" then
formpage=replace(formpage, "cat=" & request.querystring("cat"), "")
formpage=formpage & "&cat=" & request.querystring("cat")
End if
If instr(sincURL,"dismode=search")=0 then
formpage = sincURL & "&dismode=search"
formpage = replace(formpage, "&dismode=article","")
formpage = replace(formpage, "&dismode=sarc","")
formpage = replace(formpage, "&dismode=marc","")
formpage = replace(formpage, "?dismode=article&","?")
formpage = replace(formpage, "?dismode=sarc&","?")
formpage = replace(formpage, "?dismode=marc&","?")
Else
pagesplit = split(sIncURL,"dismode=search",2)
formpage=pagesplit(0) & "dismode=search"
End if
If request.form("cat")<>"" then
cat11 = request.form("cat")
If instr(formpage,"cat=" & request.form("cat"))=0 then
rep1 = "cat=" & request.querystring("cat")
rep2 = "cat=" & request.form("cat")
formpage = replace(formpage, rep1, rep2)
End if
End if
End if
formpage = replace(formpage, "artid", "foobar")
formpage = replace(formpage, "comm", "foobar")
If Search="Yes" then
If cats = "No" then
%>
<%
Else
%>
<%
End if
End if
%>
|
<%If suggest="yes" then
POPUPURL = "HTTP://" & request.servervariables("SERVER_NAME") & sitepath & "suggest.asp"
%>
|
Click here to suggest an item
|
<%End if%>
<%
If sInc2 = "" then
If msel=1 then
mincURL = sinc1 & "?mtemp=12"
Else
mincURL = sinc1 & "?mtemp=" & msel-1
End if
artlink = sInc1 & "?dismode=article"
sarclink = sInc1 & "?cat=" & catnum & "&dismode=sarc"
marclink = sInc1 & "?cat=" & catnum & "&dismode=marc"
Else
If msel=1 then
mincURL = sincURL & "&mtemp=12"
Else
mincURL = sincURL & "&mtemp=" & msel-1
End if
artlink = sincURL & "&dismode=article"
sarclink = sIncURL & "&cat=" & catnum & "&dismode=sarc"
marclink = sIncURL & "&cat=" & catnum & "&dismode=marc"
End if
%>
<%If catimage<>"" then%>
<%=CATIMAGE%>
<%END IF%>
<%language="VBScript"
response.write ""
Set rsnews = news.Execute(sqlstr)
If Err.Number <> 0 Then
response.write "Couldn't exec SQL query"
response.end
End If
If rsnews.EOF Then
If archive="Monthly" then
response.redirect mincURL
response.end
End if
response.write errmsg
response.end
End If
rsnews.moveFirst
Do While numitems > 0
imagecode=""
s_message=rsnews.fields("news")
If rsnews.fields("xtra1")<>"" then Call imagecodeform()
s_message = replace(s_message,"img src=","img src=" & sitepath)
s_message3=s_message
If rsnews.fields("urls") = "1" THEN
s_message2=to_html(s_message)
s_message3 = edit_hrefs(s_message2)
End if
currdate = FormatDateTime(rsnews.fields("date"), 1)
allstates=split(rsnews.fields("date"),"/")
on error resume next
test = weekday(currdate)
if err.number <> 0 then
currdate2 = currdate
Else
currdate2 = weekdayname(weekday(rsnews.fields("date"))) & ", " & currdate
err.number=0
End if
If datediff("d",date,rsnews.fields("date")) > 0 then
rsnews.moveNext
If rsnews.eof then exit do
Else
numitems = numitems - 1
if dateheader="yes" then
if db <> currdate2 then
%>
|
<%response.write currdate2%>
|
<%
db = currdate2
end if
datedisplay=""
Else
datedisplay = "(" & rsnews.fields("date") & ")"
End if
ysel = year(rsnews.fields("date"))
%>
|
<%=rsnews.fields("title")%>
<%
'This calls the author's name, email address and article source if applicable
Call articledetails()
%>
<%=imagecode%><%=s_message3%>
|
<%
imagecode=""
%>
<%
rsnews.moveNext
If rsnews.eof then exit do
End if
If numitems = 0 then exit do
LOOP
%>
|
<%if archive <> "None" then%>
|
<%If archive="Simple" then%>
Archived articles
<%Elseif archive="Monthly" then
If instr(marclink,"cat=" & catnum & "&cat=" & catnum)<>0 then marclink = replace(marclink, "cat=" & catnum & "&cat=" & catnum, "cat=" & catnum)
%>
<%=ysel%>">Last month's archived articles
<%End if%>
|
<%End if%>
<%
rsnews.close
set rsnews=nothing
case "sarc"
%>
<%
pagesplit = split(sIncURL,"dismode=sarc",2)
pagelink=pagesplit(0) & "dismode=sarc"
If instr(pagelink,"&cat=" & request.querystring("cat"))<>0 then pagelink = replace(pagelink, "&cat=" & request.querystring("cat"), "")
If instr(pagelink,"&apage=" & request.querystring("apage"))<>0 then pagelink = replace(pagelink, "&apage=" & request.querystring("apage"), "")
If instr(pagelink,"?cat=" & request.querystring("cat") & "&")<>0 then pagelink = replace(pagelink, "?cat=" & request.querystring("cat") & "&", "?")
If instr(pagelink,"?apage=" & request.querystring("apage") & "&")<>0 then pagelink = replace(pagelink, "?apage=" & request.querystring("apage") & "&", "?")
cat11=request.querystring("cat")
If cat11="" then cat11=0
If cat11=0 then
catsel=" "
Else
catsel=" WHERE cat=" & cat11 & " "
End if
sqlstr = "SELECT * FROM news" & catsel & "ORDER BY date DESC, time DESC"
If cat11 > 0 then
'sqlstr = "SELECT * FROM news WHERE (Name like '%%" & search1 & "%%' OR Title like '%%" & search1 & "%%' OR news like '%%" & 'search1 & "%%') AND (cat=" & cat11 & ") ORDER BY Date DESC, Title, News"
Sqlstr1 = "Select * from cats where id=" & cat11
Set rsnews1 = news.Execute(sqlstr1)
cattitle=rsnews1.fields("catname")
If rsnews1.fields("catimage") <> "" then logoimage = sitepath & "images/" & rsnews1.fields("catimage")
rsnews1.close
set rsnews1 = nothing
end if
Set rsnews = news.Execute(sqlstr)
If Err.Number <> 0 Then
response.write "Couldn't exec SQL query"
response.end
End If
%>
|
<%
If sInc2 = "" then
formpage = sInc1 & "?dismode=search"
Else
If request.form("cat")="" then
formpage=replace(formpage, "cat=" & request.querystring("cat"), "")
formpage=formpage & "&cat=" & request.querystring("cat")
End if
If instr(sincURL,"dismode=search")=0 then
formpage = sincURL & "&dismode=search"
formpage = replace(formpage, "&dismode=article","")
formpage = replace(formpage, "&dismode=sarc","")
formpage = replace(formpage, "&dismode=marc","")
formpage = replace(formpage, "?dismode=article&","?")
formpage = replace(formpage, "?dismode=sarc&","?")
formpage = replace(formpage, "?dismode=marc&","?")
Else
pagesplit = split(sIncURL,"dismode=search",2)
formpage=pagesplit(0) & "dismode=search"
End if
If request.form("cat")<>"" then
cat11 = request.form("cat")
If instr(formpage,"cat=" & request.form("cat"))=0 then
rep1 = "cat=" & request.querystring("cat")
rep2 = "cat=" & request.form("cat")
formpage = replace(formpage, rep1, rep2)
End if
End if
End if
formpage = replace(formpage, "artid", "foobar")
formpage = replace(formpage, "comm", "foobar")
If Search="Yes" then
If cats = "No" then
%>
<%
Else
%>
<%
End if
End if
%>
|
<%If suggest="yes" then
POPUPURL = "HTTP://" & request.servervariables("SERVER_NAME") & sitepath & "suggest.asp"
%>
|
Click here to suggest an item
|
<%End if%>
<%
recordnumber=0
If not rsnews.eof then
rsnews.movefirst
While Not rsnews.EOF
currdate = FormatDateTime(rsnews.fields("date"), 1)
on error resume next
test = weekday(currdate)
if err.number <> 0 then
currdate2 = currdate
Else
currdate2 = weekdayname(weekday(rsnews.fields("date"))) & ", " & currdate
err.number=0
End if
If datediff("d",date,rsnews.fields("date")) > 0 then
rsnews.moveNext
Else
recordnumber = recordnumber + 1
rsnews.movenext
End if
wend
rsnews.movefirst
End if
If recordnumber > numitems then
recordnumber = recordnumber - numitems
Else
recordnumber = 0
End if
If Request.QueryString("aPage") = "" Then
aPage = 1
Else
aPage = Request.QueryString("aPage")
End If
%>
There are <%=recordnumber%> articles in the archive.
<%
If recordnumber > 0 then
%>
Page <%=apage%> of <%
If (recordnumber mod 10 > 0) and (recordnumber mod 10 > 5) then
pagetot= Cint(recordnumber/10)
Elseif (recordnumber mod 10 > 0) and (recordnumber mod 10 < 6) then
pagetot= (Cint(recordnumber/10)+1)
Elseif recordnumber mod 10 = 0 then
pagetot=recordnumber/10
End if
response.write pagetot & "."
End if
If apage-pagetot=0 then pageend=1
%>
<%
If rsnews.eof or rsnews.bof then
%>
Sorry, there are no articles in the archive at present.
<< Back
|
<%
Else
If sInc2 = "" then
artlink = sInc1
Else
artlink = sincURL
End if
artlink2 = replace(sincURL, "sarc", "article")
If recordnumber>0 then
toskip = numitems + ((apage*10)-10)
todo = 10
rsnews.moveFirst
do until toskip=0
If datediff("d",date,rsnews.fields("date")) > 0 then
rsnews.moveNext
Else
toskip = toskip-1
rsnews.movenext
End if
Loop
Do until todo=0
If rsnews.eof then
pageend=1
exit do
End if
'START ABSTRACT GENERATION CODE
s_message=rsnews.fields("news")
If left(s_message, 4)="",2)
firstbit = left(tease(1),ablength)
Else
firstbit = left(s_message,ablength)
End if
s_message = firstbit & "..."
'END ABSTRACT GENERATION CODE
s_message3=s_message
s_message3=replace(s_message, "", "")
s_message3=replace(s_message3, " ", "")
s_message3=replace(s_message3, "
", "")
s_message3=replace(s_message3, "
", "")
If rsnews.fields("urls") = "1" THEN
s_message3 = edit_hrefs(s_message3)
End if
currdate = FormatDateTime(rsnews.fields("date"), 1)
on error resume next
test = weekday(currdate)
if err.number <> 0 then
currdate2 = currdate
Else
currdate2 = weekdayname(weekday(rsnews.fields("date"))) & ", " & currdate
err.number=0
End if
If datediff("d",date,rsnews.fields("date")) > 0 then
rsnews.moveNext
Else
todo = todo-1
%>
">
<%=rsnews.fields("title")%>
(<%=rsnews.fields("date")%>
<%
If rsnews.fields("name")<>"" then response.write " - by " & rsnews.fields("name")
%>)
<%=s_message3%>
|
<%
rsnews.movenext
End if
Loop
%>
<%
If (apage=1) AND (pageend = 1) then
response.write "End of Results"
Elseif (apage=1) AND (pageend <> 1) then
%>
Next >>
<%
Elseif (apage <> 1) AND (pageend = 1) then
pageto= apage-1
%>
<< Prev
<%
Elseif (apage <> 1) AND (pageend <> 1) then
pageback=apage-1
pageto=apage+1
%>
<< Prev | Next >>
<%
End if
%>
<%Else%>
Sorry, there are no articles in the archive at present.
<< Back
<%
End if
End if
rsnews.close
set rsnews = nothing
%>
<%
case "marc"
%>
<%
msel=request.querystring("msel")
ysel=right(msel, "4")
msel=replace(msel, ysel, "")
If left(msel,"1")="b" then
goingback=1
msel=replace(msel,"b", "")
End if
psel=0
If left(msel,"1")="m" then
msel=replace(msel,"m", "")
psel=1
Else
psel=0
If (msel=1) and (goingback<>1) then ysel = ysel+1
End if
If (msel=12) and (goingback=1) then ysel = ysel-1
pagesplit = split(sIncURL,"dismode=marc",2)
pagelink=pagesplit(0) & "dismode=marc"
pagelink2 = replace(pagelink, "&dismode=marc", "")
pagelink3= replace(pagelink, "&msel=" & request.querystring("msel"), "")
cat11=request.querystring("cat")
If cat11="" then cat11=0
If cat11=0 then
catsel=" "
Else
catsel = " AND (cat=" & catnum & ") "
End if
sqlstr = "SELECT * FROM news WHERE (month([date]) = '" & msel & "') AND (year([date]) = '" & ysel & "')" & catsel & "ORDER BY date DESC, time DESC"
If cat11 > 0 then
'sqlstr = "SELECT * FROM news WHERE (Name like '%%" & search1 & "%%' OR Title like '%%" & search1 & "%%' OR news like '%%" & 'search1 & "%%') AND (cat=" & cat11 & ") ORDER BY Date DESC, Title, News"
Sqlstr1 = "Select * from cats where id=" & cat11
Set rsnews1 = news.Execute(sqlstr1)
cattitle=rsnews1.fields("catname")
If rsnews1.fields("catimage") <> "" then logoimage = sitepath & "images/" & rsnews1.fields("catimage")
rsnews1.close
set rsnews1 = nothing
end if
Set rsnews = news.Execute(sqlstr)
If Err.Number <> 0 Then
response.write "Couldn't exec SQL query"
response.end
End If
%>
|
<%
If sInc2 = "" then
formpage = sInc1 & "?dismode=search"
Else
If request.form("cat")="" then
formpage=replace(formpage, "cat=" & request.querystring("cat"), "")
formpage=formpage & "&cat=" & request.querystring("cat")
End if
If instr(sincURL,"dismode=search")=0 then
formpage = sincURL & "&dismode=search"
formpage = replace(formpage, "&dismode=article","")
formpage = replace(formpage, "&dismode=sarc","")
formpage = replace(formpage, "&dismode=marc","")
formpage = replace(formpage, "?dismode=article&","?")
formpage = replace(formpage, "?dismode=sarc&","?")
formpage = replace(formpage, "?dismode=marc&","?")
Else
pagesplit = split(sIncURL,"dismode=search",2)
formpage=pagesplit(0) & "dismode=search"
End if
If request.form("cat")<>"" then
cat11 = request.form("cat")
If instr(formpage,"cat=" & request.form("cat"))=0 then
rep1 = "cat=" & request.querystring("cat")
rep2 = "cat=" & request.form("cat")
formpage = replace(formpage, rep1, rep2)
End if
End if
End if
formpage = replace(formpage, "artid", "foobar")
formpage = replace(formpage, "comm", "foobar")
If Search="Yes" then
If cats = "No" then
%>
<%
Else
%>
<%
End if
End if
%>
|
<%If suggest="yes" then
POPUPURL = "HTTP://" & request.servervariables("SERVER_NAME") & sitepath & "suggest.asp"
%>
|
Click here to suggest an item
|
<%End if%>
Archived articles from <%=monthname(msel) & " "%><%=ysel%>.
<%
If rsnews.eof or rsnews.bof then
%>
Sorry, there are no articles in the archive for this month.
<%
Else
If sInc2 = "" then
artlink = sInc1
Else
artlink = sincURL
End if
artlink2 = replace(sincURL, "marc", "article")
rsnews.moveFirst
While not rsnews.eof
'START ABSTRACT GENERATION CODE
s_message=rsnews.fields("news")
If left(s_message, 4)="",2)
firstbit = left(tease(1),ablength)
Else
firstbit = left(s_message,ablength)
End if
s_message = firstbit & "..."
'END ABSTRACT GENERATION CODE
s_message3=s_message
s_message3=replace(s_message, "", "")
s_message3=replace(s_message3, " ", "")
s_message3=replace(s_message3, "
", "")
s_message3=replace(s_message3, "
", "")
If rsnews.fields("urls") = "1" THEN
s_message3 = edit_hrefs(s_message3)
End if
currdate = FormatDateTime(rsnews.fields("date"), 1)
on error resume next
test = weekday(currdate)
if err.number <> 0 then
currdate2 = currdate
Else
currdate2 = weekdayname(weekday(rsnews.fields("date"))) & ", " & currdate
err.number=0
End if
%>
">
<%=rsnews.fields("title")%>
(<%=rsnews.fields("date")%>
<%
If rsnews.fields("name")<>"" then response.write " - by " & rsnews.fields("name")
%>)
<%=s_message3%>
|
<%
rsnews.movenext
wend
End if
%>
<< This month's articles |
<%if psel<>1 then%>
Forward a month |
<%End if%>
Back another month >>
|
<%
rsnews.close
set rsnews = nothing
%>
<%
case "search"
%>
<%
pagesplit = split(sIncURL,"dismode=search",2)
pagelink=pagesplit(0) & "dismode=search"
If instr(pagelink,"&cat=" & request.querystring("cat"))<>0 then pagelink = replace(pagelink, "&cat=" & request.querystring("cat"), "")
If instr(pagelink,"&page=" & request.querystring("page"))<>0 then pagelink = replace(pagelink, "&page=" & request.querystring("page"), "")
If instr(pagelink,"?cat=" & request.querystring("cat") & "&")<>0 then pagelink = replace(pagelink, "?cat=" & request.querystring("cat") & "&", "?")
If instr(pagelink,"?page=" & request.querystring("page") & "&")<>0 then pagelink = replace(pagelink, "?page=" & request.querystring("page") & "&", "?")
If request.querystring("search")="" then
search1=request.form("search")
Else
search1=request.querystring("search")
End if
If request.querystring("cat")="" then
cat11=request.form("cat")
Else
cat11=request.querystring("cat")
End if
If cat11="" then cat11=0
sqlstr = "SELECT * FROM news WHERE Name like '%%" & search1 & "%%' OR Title like '%%" & search1 & "%%' OR news like '%%" & search1 & "%%' ORDER BY Date DESC, Title"
If cat11 > 0 then
sqlstr = "SELECT * FROM news WHERE (Name like '%%" & search1 & "%%' OR Title like '%%" & search1 & "%%' OR news like '%%" & search1 & "%%') AND (cat=" & cat11 & ") ORDER BY Date DESC, Title, News"
Sqlstr1 = "Select * from cats where id=" & cat11
Set rsnews1 = news.Execute(sqlstr1)
If Err.Number <> 0 Then
response.write "Couldn't exec SQL query"
response.end
End If
cattitle=rsnews1.fields("catname")
If rsnews1.fields("catimage") <> "" then logoimage = "images/" & rsnews1.fields("catimage")
rsnews1.close
set rsnews1 = nothing
end if
Set rsnews = news.Execute(sqlstr)
If Err.Number <> 0 Then
response.write "Couldn't exec SQL query"
response.end
End If
%>
|
<%
If sInc2 = "" then
formpage = sInc1 & "?dismode=search"
Else
If request.form("cat")="" then
formpage=replace(formpage, "cat=" & request.querystring("cat"), "")
formpage=formpage & "&cat=" & request.querystring("cat")
End if
If instr(sincURL,"dismode=search")=0 then
formpage = sincURL & "&dismode=search"
formpage = replace(formpage, "&dismode=article","")
formpage = replace(formpage, "&dismode=sarc","")
formpage = replace(formpage, "&dismode=marc","")
formpage = replace(formpage, "?dismode=article&","?")
formpage = replace(formpage, "?dismode=sarc&","?")
formpage = replace(formpage, "?dismode=marc&","?")
Else
pagesplit = split(sIncURL,"dismode=search",2)
formpage=pagesplit(0) & "dismode=search"
End if
If request.form("cat")<>"" then
cat11 = request.form("cat")
If instr(formpage,"cat=" & request.form("cat"))=0 then
rep1 = "cat=" & request.querystring("cat")
rep2 = "cat=" & request.form("cat")
formpage = replace(formpage, rep1, rep2)
End if
End if
End if
formpage = replace(formpage, "artid", "foobar")
formpage = replace(formpage, "comm", "foobar")
If Search="Yes" then
If cats = "No" then
%>
<%
Else
%>
<%
End if
End if
%>
|
<%If suggest="yes" then
POPUPURL = "HTTP://" & request.servervariables("SERVER_NAME") & sitepath & "suggest.asp"
%>
|
Click here to suggest an item
|
<%End if%>
<%
recordnumber=0
If not rsnews.eof then
rsnews.movefirst
While Not rsnews.EOF
currdate = FormatDateTime(rsnews.fields("date"), 1)
on error resume next
test = weekday(currdate)
if err.number <> 0 then
currdate2 = currdate
Else
currdate2 = weekdayname(weekday(rsnews.fields("date"))) & ", " & currdate
err.number=0
End if
If datediff("d",date,rsnews.fields("date")) > 0 then
rsnews.moveNext
Else
recordnumber = recordnumber + 1
rsnews.movenext
End if
wend
rsnews.movefirst
End if
If Request.QueryString("Page") = "" Then
Page = 1
Else
Page = Request.QueryString("Page")
End If
%>
Your search found <%=recordnumber%> matches.
<%
If recordnumber > 0 then
%>
Page <%=page%> of <%
If (recordnumber mod 10 > 0) and (recordnumber mod 10 > 5) then
pagetot= Cint(recordnumber/10)
Elseif (recordnumber mod 10 > 0) and (recordnumber mod 10 < 6) then
pagetot= (Cint(recordnumber/10)+1)
Elseif recordnumber mod 10 = 0 then
pagetot=recordnumber/10
End if
response.write pagetot & "."
if page-pagetot=0 then pageend=1
End if
%>
<%
If rsnews.eof or rsnews.bof then
%>
Sorry, no results were found for your search, please try again.
|
<%
Else
If sInc2 = "" then
artlink = sInc1
Else
artlink = sincURL
End if
artlink2 = replace(sincURL, "search", "article")
toskip = (page*10)-10
todo = 10
rsnews.moveFirst
do until toskip=0
If datediff("d",date,rsnews.fields("date")) > 0 then
rsnews.moveNext
Else
toskip = toskip-1
rsnews.movenext
End if
Loop
Do until todo=0
If rsnews.eof then
pageend=1
exit do
End if
'START ABSTRACT GENERATION CODE
s_message=rsnews.fields("news")
If left(s_message, 4)="",2)
firstbit = left(tease(1),ablength)
Else
firstbit = left(s_message,ablength)
End if
s_message = firstbit & "..."
'END ABSTRACT GENERATION CODE
s_message3=s_message
s_message3=replace(s_message, "", "")
s_message3=replace(s_message3, " ", "")
s_message3=replace(s_message3, "
", "")
s_message3=replace(s_message3, "
", "")
If rsnews.fields("urls") = "1" THEN
s_message3 = edit_hrefs(s_message3)
End if
currdate = FormatDateTime(rsnews.fields("date"), 1)
on error resume next
test = weekday(currdate)
if err.number <> 0 then
currdate2 = currdate
Else
currdate2 = weekdayname(weekday(rsnews.fields("date"))) & ", " & currdate
err.number=0
End if
If datediff("d",date,rsnews.fields("date")) > 0 then
rsnews.moveNext
Else
todo = todo-1
%>
">
<%=rsnews.fields("title")%>
(<%=rsnews.fields("date")%>
<%
If rsnews.fields("name")<>"" then response.write " - by " & rsnews.fields("name")
%>)
<%=s_message3%>
|
<%
rsnews.movenext
End if
Loop
%> |
<%
If (page=1) AND (pageend = 1) then
response.write "End of Results"
Elseif (page=1) AND (pageend <> 1) then
%>
Next >>
<%
Elseif (page <> 1) AND (pageend = 1) then
pageto= page-1
%>
<< Prev
<%
Elseif (page <> 1) AND (pageend <> 1) then
pageback=page-1
pageto=page+1
%>
<< Prev | Next >>
<%
End if
%>
<%
End if
rsnews.close
set rsnews = nothing
%>
<%
case "article"
%>
<%
artlink = replace(sincURL, "artid", "foobar")
artid = request.querystring("artid")
sqlstr = "SELECT * FROM news WHERE id=" & artid
Set rsnews = news.Execute(sqlstr)
If rsnews.eof or rsnews.bof then
errlink = split(artlink, "?")
response.redirect errlink(0)
response.end
End if
currdate = FormatDateTime(rsnews.fields("date"), 1)
on error resume next
test = weekday(currdate)
if err.number <> 0 then
currdate2 = currdate
Else
currdate2 = weekdayname(weekday(rsnews.fields("date"))) & ", " & currdate
err.number=0
End if
imagecode=""
s_message=rsnews.fields("news")
If rsnews.fields("xtra1")<>"" then Call imagecodeform()
s_message = replace(s_message,"img src=","img src=" & sitepath)
s_message3=s_message
If rsnews.fields("urls") = "1" THEN
s_message2=to_html(s_message)
s_message3 = edit_hrefs(s_message2)
End if
%>
<%
If sInc2 = "" then
formpage = sInc1 & "?dismode=search"
Else
If request.form("cat")="" then
formpage=replace(formpage, "cat=" & request.querystring("cat"), "")
formpage=formpage & "&cat=" & request.querystring("cat")
End if
If instr(sincURL,"dismode=search")=0 then
formpage = sincURL & "&dismode=search"
formpage = replace(formpage, "&dismode=article","")
formpage = replace(formpage, "&dismode=sarc","")
formpage = replace(formpage, "&dismode=marc","")
formpage = replace(formpage, "?dismode=article&","?")
formpage = replace(formpage, "?dismode=sarc&","?")
formpage = replace(formpage, "?dismode=marc&","?")
Else
pagesplit = split(sIncURL,"dismode=search",2)
formpage=pagesplit(0) & "dismode=search"
End if
If request.form("cat")<>"" then
cat11 = request.form("cat")
If instr(formpage,"cat=" & request.form("cat"))=0 then
rep1 = "cat=" & request.querystring("cat")
rep2 = "cat=" & request.form("cat")
formpage = replace(formpage, rep1, rep2)
End if
End if
End if
formpage = replace(formpage, "artid", "foobar")
formpage = replace(formpage, "comm", "foobar")
If Search="Yes" then
If cats = "No" then
%>
<%
Else
%>
<%
End if
End if
%>
<%If suggest="yes" then
POPUPURL = "HTTP://" & request.servervariables("SERVER_NAME") & sitepath & "suggest.asp"
%>
Click here to suggest an item
<%End if%>
<%
If dateheader="yes" then
datedisplay=""
%>
|
<%response.write currdate2%>
|
<%
Else
datedisplay = "(" & rsnews.fields("date") & ")"
End if
%>
|
<%=rsnews.fields("title")%> <%=datedisplay%>
<%
'This calls the author's name, email address and article source if applicable
Call articledetails()
%>
<%=imagecode%><%=s_message3%>
<%
'This calls related links, related news and other posts by this author if applicable
If rellinks="Yes" then Call splitlinks()
If relnews="Yes" then Call newsrelate()
If otherposts="Yes" then Call authorother()
%>
<< Back
<%If sendemail="yes" then
POPUPURL = "HTTP://" & request.servervariables("SERVER_NAME") & sitepath & "sendemail.asp?artid=" & rsnews.fields("id")
%>
Email to friend |
<%End if%>
<%=sitepath%>print.asp?artid=<%=rsnews.fields("id")%>')">Printable version
<%
If (discuss="Yes") and (request.querystring("comm")<>1) then Call numcomments()
imagecode=""
If rsnews.fields("read")="" then
READSTAT=1
Else
READSTAT=rsnews.fields("read")+1
End if
sqlstat = "UPDATE news SET [read]='" & READSTAT & "' WHERE id=" & rsnews.fields("id")
Set rsstats = news.Execute(sqlstat)
rsstats.close
set rsstats=nothing
If (stats="yes") AND (READSTAT<>"") then
%>
Article read: <%=READSTAT %> <%
If READSTAT=1 then
response.write " time"
Else
response.write " times"
End if
%>.
<%end if%>
|
<%
if request.querystring("comm")=1 then
Call readcomm()
End if
%>
<%
rsnews.close
set rsnews = nothing
%>
<%
end select
news.close
set news = nothing
err.number=0
%>
|
|
