%
set con = Server.CreateObject("ADODB.Connection")
con.Open strConn
%>
<%=pTitle%>
<%
Pageid=request("ID")
select case PageID
case ""
LUPage=08
case 65
LUPage=34
case 66
LUPage=35
case 63
LUPage=25
case 64
LUPage=26
case else
LUPage=Pageid
end select
sqlstr="select * from Documents where DocumentID="&LUPage
ParentID=8
set rs1=con.execute(sqlstr)
if rs1.eof then
pTitle = " "
pKeywords = " "
pDescription = " "
pContent = "No Content Defined for this Web Page"
else
pTitle = rs1("PageName")
pKeywords = rs1("Keywords")
pDescription = rs1("Description")
pContent = rs1("Content")
end if
%>
Amateur Catalog - PDF
Our Amateur Catalog is available here for download as an Adobe Acrobat
.pdf file (2.1 MB) - new catalog posted 7/2005
The PDF(s) above require Adobe Acrobat Reader for proper viewing. If you do
not have Acrobat Reader, or would like to upgrade to the newest version,
please click here.
Having trouble viewing the PDFs on this page? If yes
click here.