<% @LANGUAGE = VBScript %> <% dim backgroundcol rst.open "tblSiteData", strConnect, ado_Openkeyset, ado_LockOptimistic rst2.open "tblSiteSetup", strConnect, ado_Openkeyset, ado_LockOptimistic %> The Petersfield Bookshop Website. 16A Chapel Street, Petersfield, Hampshire, England.

The Petersfield Bookshop
16A Chapel Street, Petersfield, Hampshire, GU32 3DS
Telephone: +44 (0)1730 263438 email:sales@petersfieldbookshop.com

Home Page

Visit or Contact Us

Books Bought And Sold

Other Products And Services

Sample Catalogue And Offers

<%if rst("Error")=false and not(rst.eof) and (rst("Header")<>"" or rst("BodyP1")<>"" or rst("BodyP2")<>"" or rst("BodyP3")<>"" or rst("BodyP4")<>"" or rst("BodyP5")<>"" or rst("TableH1")<>"" or rst("TableH2")<>"" or rst("TableH3")<>"" or rst("TableH4")<>"" or rst("FooterP1")<>"" or rst("FooterP2")<>"" or rst("FooterP3")<>"" or rst("FooterP4")<>"") then%> <%rst.close rst2.close Set rst=Nothing Set rst2=Nothing Set rst3=Nothing else rst.close rst2.close Set rst=Nothing Set rst2=Nothing%> <%end if%>
<%if rst("Header")<>"" then strSQL = "SELECT * FROM tblColours WHERE tblColours.ColID ='" & rst2("HeaderFontCol") & "'" rst3.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic%>
">
" face="<%=rst2("HeaderFontType")%>" size="<%=rst2("HeaderFontSize")%>"><<%=rst2("HeaderFontStyle")%>><%=rst("Header")%>>


<%rst3.close end if%> <%strSQL = "SELECT * FROM tblColours WHERE tblColours.ColID ='" & rst2("BodyFontColB1") & "'" rst3.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic for lines=1 to 5 if rst("BodyP"+cstr(lines))<>"" then%>
">
" face="<%=rst2("BodyFontTypeB1")%>" size="<%=rst2("BodyFontSizeB1")%>"><<%=rst2("BodyFontStyleB1")%>><%=rst("BodyP"+cstr(lines))%>>
<%end if next%>
<% if rst("TableH1")<>"" then%> <%end if if rst("TableH2")<>"" then%> <%end if if rst("TableH3")<>"" then%> <%end if if rst("TableH4")<>"" then%> <%end if%> <%strSQL="Select * From tblColumnsData Order By Column1" rst4.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic if not(rst4.eof) then rst4.movefirst do until rst4.eof%> <%if rst("TableH1")<>"" then%> <%end if if rst("TableH2")<>"" then%> <%end if if rst("TableH3")<>"" then%> <%end if if rst("TableH4")<>"" then%> <%end if%> <%rst4.movenext loop end if rst3.close rst4.close%>
" face="<%=rst2("BodyFontTypeB1")%>" size="<%=rst2("BodyFontSizeB1")%>"><%=rst("TableH2")%> " face="<%=rst2("BodyFontTypeB1")%>" size="<%=rst2("BodyFontSizeB1")%>"><%=rst("TableH3")%> " face="<%=rst2("BodyFontTypeB1")%>" size="<%=rst2("BodyFontSizeB1")%>"><%=rst("TableH4")%> 
" face="<%=rst2("BodyFontTypeB1")%>" size="<%=rst2("BodyFontSizeB1")%>"><%=rst4("Column2")%> " face="<%=rst2("BodyFontTypeB1")%>" size="<%=rst2("BodyFontSizeB1")%>"><%=rst4("Column3")%> " face="<%=rst2("BodyFontTypeB1")%>" size="<%=rst2("BodyFontSizeB1")%>"><%if rst4("Column4")<>0 then%>£<%=mid(formatcurrency(rst4("Column4")), 2,10)%><%end if%> 


<%strSQL = "SELECT * FROM tblColours WHERE tblColours.ColID ='" & rst2("FooterFontCol") & "'" rst3.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic for lines=1 to 4 if rst("FooterP"+cstr(lines))<>"" then%>

">
" face="<%=rst2("FooterFontType")%>" size="<%=rst2("FooterFontSize")%>"><<%=rst2("FooterFontStyle")%>><%=rst("FooterP"+cstr(lines))%>>
<%end if next rst3.close%>

Date Last Modified <%=rst("DateModified")%>  Copyright © cisweb 2001

Connect Internet's
Active Web-Site

Presently awaiting information...



Back to Top
 
Copyright © cisweb 2001


Trade Associations and Links

Antiquarian Booksellers Association

International League of Antiquarian Booksellers

Provincial Booksellers Fairs Association

Booksellers Association

Fine Art Trade Guild