|
|
De vakman voor een vriendenprijs !
|
| <%=request.querystring("foutmelding")%> |
|
Dak & Klusbedrijf Pascal Brunenberg
<%=request.querystring("categorie")%> / <%
if request.querystring("gemeente")="Natuur" AND request.querystring("website")="bonaireeng" then response.write "Nature"
if request.querystring("gemeente")="Natuur" AND request.querystring("website")="bonaire" then response.write "Natuur"
if request.querystring("gemeente")="Sport" AND request.querystring("website")="bonaireeng" then response.write "Sports"
if request.querystring("gemeente")="Sport" AND request.querystring("website")="bonaire" then response.write "Sport"
if request.querystring("gemeente")="Evenementen" AND request.querystring("website")="bonaireeng" then response.write "Events"
if request.querystring("gemeente")="Evenementen" AND request.querystring("website")="bonaire" then response.write "Evenementen"
if request.querystring("gemeente")="Logies" AND request.querystring("website")="bonaireeng" then response.write "Accommodations"
if request.querystring("gemeente")="Logies" AND request.querystring("website")="bonaire" then response.write "Logies"
if request.querystring("gemeente")="Cafe restaurants" AND request.querystring("website")="bonaireeng" then response.write "Bars Restaurants"
if request.querystring("gemeente")="Cafe restaurants" AND request.querystring("website")="bonaire" then response.write "Cafe restaurants"
if request.querystring("gemeente")="Reisburo" AND request.querystring("website")="bonaireeng" then response.write "Travel agencies"
if request.querystring("gemeente")="Reisburo" AND request.querystring("website")="bonaire" then response.write "Reisburo"
if request.querystring("gemeente")="Overige" AND request.querystring("website")="bonaireeng" then response.write "Other"
if request.querystring("gemeente")="Overige" AND request.querystring("website")="bonaire" then response.write "Overige"
if request.querystring("gemeente")="Partners" AND request.querystring("website")="bonaireeng" then response.write "partners"
if request.querystring("gemeente")="Partners" AND request.querystring("website")="bonaire" then response.write "partners"
if request.querystring("gemeente")="Partners" AND request.querystring("website")="dakenklus" then response.write "partners"
%> |
|
|
<%if request.querystring("website")="dakenklus" THEN
response.write "| Jouw link hier dat kan voeg een link op jouw site naar deze site www.dak-dekker.com en dan kun je onder op deze pagina jouw link aan deze lijst toevoegen. Die na controle of deze past bij Dak & klusbedrijf Brunenberg geplaatst zal worden. We willen als retourdienst wel een retourlink op de door ons geplaatste site! Ben jij geen eigenaar van een site maar weet jij wel leuke sites die in deze lijst thuis horen meld die dan hieronder aan | "
Else
response.write "It is possible to get Your link at this site. At the bottom of this page you can add your link. After checking whether it fits www.visit-bonaire.eu it will be added to the list. We would appreciate it if you would place a return link on your site. If you do not own a site yourself but you know an interesting web site that is not yet listed you can also sign them below | "
end if
%>
<%'zoek de bijbehorende /td en haal daartussen weg wat nodig is ***gideon****%>
<%'********** LETTER TABEL **********
dim alfabet,alfabetp,x,y,letter
alfabet="ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
alfabetp=0%>
<%for x=1 to 3%>
<%for y=1 to 12
alfabetp=alfabetp+1
letter=mid(alfabet,alfabetp,1)%>
<%letterstr="| "&letter&" | "%>
<%
sql="SELECT * FROM linkspb WHERE alfabet='"&letter&"' AND categorie='"&request.querystring("categorie")&"' AND gemeente='"&request.querystring("gemeente")&"' AND code='ok'"
sql=sql+" order by datum desc, tijd desc"
objRec.CursorLocation = adUseClient
objRec.Open SQL, strCon, adOpenStatic, adLockReadOnly, adCmdText
Do while not objrec.eof%>
<%response.write letterstr
letterstr=""%>
| "><%=objrec.fields("titel")%> |
<%objrec.movenext
loop
objrec.close%>
<%next%>
|
<%next%>
<%' ********** DATABASE_CONNECTIE_EINDE **********
objcon.close
Set objRec = Nothing
Set objCon = Nothing%>
|
|
|
|
<%if request.querystring("website")="dakenklus" THEN
response.write "Een site toevoegen aan de pagina"
Else
response.write "Add a site to the link pages "
end if
%> <%=request.querystring("categorie")%> / <%=request.querystring("gemeente")%> |
|
