File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/mobile/default.asp
<%
Option Explicit
%>
<!-- #INCLUDE VIRTUAL="/includes/inc_default.asp" -->
<%
Dim Rs, RsAlgemeen, i, strSql, blnVolgordeFotoUpdate, strExtraNestTekst, blnAltijdTonen, strLanguage, intScreenWidth, timStart, intMS, strTimTotal
timStart = milliDif()
If Request.QueryString("reset")="1" Then TryRecoverDB("homepage")
If Request.QueryString("sw") <> "" Then
intScreenWidth = FormToInt(Request.QueryString("sw"))
Else
intScreenWidth = 1200
End If
Call LogVisit(9,intScreenWidth, false)
%>
<!DOCTYPE html>
<html>
<title>Duitse Dog kennel van het Dennenbos</title>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel="stylesheet" href="https://www.w3schools.com/w3css/4/w3.css">
<link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Verdana,Segoe UI,SegoeUI,"Helvetica Neue",Helvetica,Arial,sans-serif">
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
<style>
body,h1,h2 {font-family: Verdana,Segoe UI,SegoeUI,"Helvetica Neue",Helvetica,Arial,sans-serif}
img {margin-bottom: -7px}
.w3-row-padding img {margin-bottom: 12px}
h1 { color:dodgerblue; font-size: 22px; font-weight: bold;}
h2 { color:dodgerblue; font-size: 18px; font-weight: bold;}
h3 { font-size: 16px;}
h1,h2,div {
margin: 2px 10px 2px 10px;
}
a {color:dodgerblue; }
</style>
<body>
<!-- Google Tag Manager -->
<noscript><iframe src="//www.googletagmanager.com/ns.html?id=GTM-T988D4"
height="0" width="0" style="display:none;visibility:hidden"></iframe></noscript>
<script>(function(w,d,s,l,i){w[l]=w[l]||[];w[l].push({'gtm.start':
new Date().getTime(),event:'gtm.js'});var f=d.getElementsByTagName(s)[0],
j=d.createElement(s),dl=l!='dataLayer'?'&l='+l:'';j.async=true;j.src=
'//www.googletagmanager.com/gtm.js?id='+i+dl;f.parentNode.insertBefore(j,f);
})(window,document,'script','dataLayer','GTM-T988D4');</script>
<!-- End Google Tag Manager -->
<script type="text/javascript">
(function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
(i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
})(window,document,'script','https://www.google-analytics.com/analytics.js','ga');
ga('create', 'UA-1172494-1', 'auto');
ga('send', 'pageview');
</script>
<!-- Sidebar
<nav class="w3-sidebar w3-black w3-animate-top w3-xxlarge" style="display:none;padding-top:150px" id="mySidebar">
<a href="javascript:void(0)" onclick="w3_close()" class="w3-button w3-black w3-xxlarge w3-padding w3-display-topright" style="padding:6px 24px">
<i class="fa fa-remove"></i>
</a>
<div class="w3-bar-block w3-center">
<a href="#" class="w3-bar-item w3-button w3-text-grey w3-hover-black">About</a>
<a href="#" class="w3-bar-item w3-button w3-text-grey w3-hover-black">Photos</a>
<a href="#" class="w3-bar-item w3-button w3-text-grey w3-hover-black">Shop</a>
<a href="#" class="w3-bar-item w3-button w3-text-grey w3-hover-black">Contact</a>
</div>
</nav>
-->
<!-- !PAGE CONTENT! -->
<div class="w3-content" >
<%
Set RsAlgemeen = GetRs("SELECT * FROM DD_FOTOS WHERE ind_actief=1 AND type_id=6 ORDER BY volgorde")
%>
<!-- Header -->
<h1>Kennel van het Dennenbos</h1>
<br>
<h2>Onze Passie voor Duitse Doggen</h2>
<div>Al meer dan 50 jaar fokken wij met veel plezier Duitse Doggen, ook wel bekend als Deense Doggen. Deze majestueuze honden combineren een imposante verschijning met een zachtaardig, vriendelijk karakter. Ze zijn ideaal als gezinshond en een trouwe kameraad voor kinderen, mits ze vanaf jonge leeftijd goed worden opgevoed. Duitse Doggen zijn waakzaam en beschermen graag hun gezin en bezittingen.</div>
<br/>
<%
If Not RsAlgemeen.EOF Then
%>
<div align="center"><img border="0" title="Duitse dog pup" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>-->
<%
Call UpdateFotoHit(RsAlgemeen("id"))
RsAlgemeen.MoveNext
End If
%>
<br/>
<h2>Ruimte op Onze Boerderij</h2>
<div>Onze kennel, geregistreerd onder UBN-nummer UBN6525125, is gevestigd op een ruime boerderij in Maarheeze, Noord-Brabant, nabij Eindhoven. Onze doggen hebben volop ruimte om te spelen en te rennen in hun eigen verblijf en op de weide. We selecteren zorgvuldig de juiste ouderdieren om pups te fokken met een prachtige bouw en een uitstekend karakter. Het geluk dat onze honden brengen aan hun nieuwe eigenaren is onze grootste beloning.</div>
<br/>
<h2>Sociale Pups</h2>
<div>Onze pups groeien op in een huiselijke omgeving, waar ze al vroeg wennen aan verschillende mensen, geluiden en situaties. Op het erf maken ze kennis met andere dieren, wat hun socialisatie bevordert. Spelenderwijs leren we ze basisregels aan, wat hun verdere opvoeding vereenvoudigt en een sterke basis legt voor een sociale, zelfverzekerde hond.</div>
<br/>
<%
If Not RsAlgemeen.EOF Then
%>
<div align="center"><img border="0" title="Duitse dog pup" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>-->
<%
Call UpdateFotoHit(RsAlgemeen("id"))
RsAlgemeen.MoveNext
End If
%>
<br/><br/>
<h2>Gezonde Pups met EU Paspoort</h2>
<div>Wij fokken regelmatig nestjes uit zorgvuldig geselecteerde bloedlijnen, beschikbaar in diverse kleuren. Gezondheid, karakter en een goede bouw staan centraal. Al onze pups zijn gechipt, ontwormd, gevaccineerd en worden geleverd met een Europees paspoort. Wij bieden gezonde, sociale Duitse Doggen voor een betaalbare prijs.</div>
<br/>
<%
If Not RsAlgemeen.EOF Then
%>
<div align="center"><img border="0" title="Duitse dog pup" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>-->
<%
Call UpdateFotoHit(RsAlgemeen("id"))
RsAlgemeen.MoveNext
End If
%>
<br/><br/>
<h2>Bezoek Onze Kennel</h2>
<div>Overweegt u een Duitse Dog? Neem contact met ons op voor meer informatie of om een afspraak te maken. U bent van harte welkom om onze kennel in Maarheeze te bezoeken en onze honden te ontmoeten. Bel ons of stuur een bericht om een kijkje te komen nemen!</div>
<br/>
<%
If Not RsAlgemeen.EOF Then
%>
<div align="center"><img border="0" title="Duitse dog pup" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>-->
<%
Call UpdateFotoHit(RsAlgemeen("id"))
RsAlgemeen.MoveNext
End If
dim blnNest
On Error Resume Next
strSql = "SELECT pups_tekst, pups_tekst_uk, ind_pups_tekst_altijd_tonen FROM DD_INSTELLINGEN"
Set Rs = GetRs(strSql)
If Session("language")="NLD" Then
strExtraNestTekst = SqlToStr(Rs("pups_tekst"))
Else
strExtraNestTekst = SqlToStr(Rs("pups_tekst_uk"))
End If
blnAltijdTonen = SqlToBool(Rs("ind_pups_tekst_altijd_tonen"))
Rs.Close
strSQL = _
"SELECT DD_NESTEN.*, DD_FOTOS.bestandsnaam, " & _
"DD_FOTOS_1.bestandsnaam as bestandsnaam2, " & _
"DD_FOTOS_2.bestandsnaam as bestandsnaam3, " & _
"DD_FOTOS_3.bestandsnaam as bestandsnaam4, " & _
"DD_FOTOS_4.bestandsnaam as bestandsnaam5, " & _
"DD_FOTOS_5.bestandsnaam as bestandsnaam6 " & _
"FROM ((((((DD_NESTEN LEFT JOIN DD_FOTOS ON DD_NESTEN.foto_id = DD_FOTOS.id) " & _
"LEFT JOIN DD_FOTOS AS DD_FOTOS_1 ON DD_NESTEN.foto2_id = DD_FOTOS_1.id) " & _
"LEFT JOIN DD_FOTOS AS DD_FOTOS_2 ON DD_NESTEN.foto3_id = DD_FOTOS_2.id) " & _
"LEFT JOIN DD_FOTOS AS DD_FOTOS_3 ON DD_NESTEN.foto4_id = DD_FOTOS_3.id) " & _
"LEFT JOIN DD_FOTOS AS DD_FOTOS_4 ON DD_NESTEN.foto5_id = DD_FOTOS_4.id) " & _
"LEFT JOIN DD_FOTOS AS DD_FOTOS_5 ON DD_NESTEN.foto6_id = DD_FOTOS_5.id) " & _
"WHERE DD_NESTEN.ind_actief=1 " & _
"ORDER BY DD_NESTEN.dat_geboren"
'Response.Write(strSql)
Set Rs = GetRs(strSql)
blnNest = not Rs.EOF
If blnNest Then
Response.Write("<br/><br/>")
Response.Write("<h2 align=""left"">Pups te koop</h2>")
Response.Write("<div>")
Response.Write("<table width=""100%"" ID=""Table1"" border=""0"">")
End If
While Not Rs.EOF
%>
<tr>
<%If Session("language")="NLD" Then%>
<td width="10%"><b>Geboren</b></td>
<%Else%>
<td width="10%"><b>Birthdate</b></td>
<%End If%>
<td width="85%"><%=Formatdateparam(Rs("dat_geboren"),"dd-mm-yyyy")%></td>
</tr>
<tr>
<%If Session("language")="NLD" Then%>
<td><b>Kleur</b></td>
<%Else%>
<td><b>Color</b></td>
<%End If%>
<td><%=SQLToStr(Rs("kleur"))%></td>
</tr>
<%If Rs("moeder")<>"" Then %>
<tr>
<%If Session("language")="NLD" Then%>
<td><b>Moeder</b></td>
<%Else%>
<td><b>Mother</b></td>
<%End If%>
<td>
<%
If Not IsNull(SQLToInt(Rs("foto_id_moeder"))) Then
Response.Write("<a onclick=""MM_openWindow('foto_ouder.asp?id=" & SQLToInt(Rs("foto_id_moeder")) & "')"" href=""#"">" & SQLToStr(Rs("moeder")) & "</a>")
Else
If Session("language")="NLD" Then
Response.Write(SQLToStr(Rs("moeder")))
Else
Response.Write(SQLToStr(Rs("moeder")))
End If
End If
%>
</td>
</tr>
<%End If%>
<%If Rs("vader")<>"" Then %>
<tr>
<%If Session("language")="NLD" Then%>
<td><b>Vader</b></td>
<%Else%>
<td><b>Father</b></td>
<%End If%>
<td>
<%
If Not IsNull(SQLToInt(Rs("foto_id_vader"))) Then
Response.Write("<a onclick=""MM_openWindow('foto_ouder.asp?id=" & SQLToInt(Rs("foto_id_vader")) & "')"" href=""#"">" & SQLToStr(Rs("vader")) & "</a>")
Else
If Session("language")="NLD" Then
Response.Write(SQLToStr(Rs("vader")))
Else
Response.Write(SQLToStr(Rs("vader")))
End If
End If
%>
</td>
</tr>
<%End If%>
<tr>
<%If Session("language")="NLD" Then%>
<td><b>Reutjes</b></td>
<%Else%>
<td><b>Males</b></td>
<%End If%>
<td><%=SQLToStr(Rs("aant_reuen"))%></td>
</tr>
<tr>
<%If Session("language")="NLD" Then%>
<td><b>Teefjes</b></td>
<%Else%>
<td><b>Females</b></td>
<%End If%>
<td><%=SQLToStr(Rs("aant_teven"))%></td>
</tr>
<tr>
<%If Session("language")="NLD" Then%>
<td valign="top"><b>Prijs</b></td>
<%Else%>
<td valign="top"><b>Price</b></td>
<%End If%>
<td>
<%
If Not IsNull(SQLToStr(Rs("prijs"))) Then
Response.Write("€ " & SQLToStr(Rs("prijs")))
Else
Response.Write(strToHTML(Rs("prijs_oms")))
End If
%>
</td>
</tr>
<tr>
<td colspan="2">
<%If Not IsNull(SQLToStr(Rs("bestandsnaam"))) Then %>
<div align="left"><img border="0" title="Duitse dog pup" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/nest/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>-->
<br/><br/>
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam2"))) Then %>
<div align="left"><img border="0" title="Duitse dog puppy" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam2"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/nest/<%=SQLToStr(Rs("bestandsnaam2"))%>"/></div>-->
<br/><br/>
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam3"))) Then %>
<div align="left"><img border="0" title="Duitse dog puppies" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam3"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/nest/<%=SQLToStr(Rs("bestandsnaam3"))%>"/></div>-->
<br/><br/>
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam4"))) Then %>
<div align="left"><img border="0" title="Duitse dog puppies" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam4"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/nest/<%=SQLToStr(Rs("bestandsnaam4"))%>"/></div>-->
<br/><br/>
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam5"))) Then %>
<div align="left"><img border="0" title="Duitse dog puppies" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam5"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/nest/<%=SQLToStr(Rs("bestandsnaam5"))%>"/></div>-->
<br/><br/>
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam6"))) Then %>
<div align="left"><img border="0" title="Duitse dog puppies" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam6"))%>"/></div>
<!--<div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/nest/<%=SQLToStr(Rs("bestandsnaam6"))%>"/></div>-->
<br/><br/>
<%End If%>
</td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<%
Call UpdateFotoHit(Rs("foto_id"))
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
If blnNest Then
Response.write("</table>")
Response.write("</div>")
End If
%>
<%
dim blnHerplaatsting
strSQL = "SELECT DD_HERPLAATSINGEN.*, DD_FOTOS.bestandsnaam FROM DD_HERPLAATSINGEN LEFT JOIN DD_FOTOS ON DD_HERPLAATSINGEN.foto_id = DD_FOTOS.id WHERE (((DD_HERPLAATSINGEN.ind_actief)=1))"
On Error Resume Next
Set Rs = GetRs(strSql)
blnHerplaatsting = Not Rs.EOF
If blnHerplaatsting Then
'Response.Write("<h2 align=""left"">Herplaatsing</h2>")
End If
While Not Rs.EOF
Response.Write("<h2>" & Rs("titel") & "</h2>")
Response.Write("<div>")
If Session("language")="NLD" Then
Response.Write(Rs("tekst"))
Else
Response.Write(Rs("tekst_uk"))
End If
%>
<div align="center"><img border="0" title="Duitse dog herplaatsing" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/herplaatsing/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>
<hr>
<%
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
If blnHerplaatsting Then
Response.Write("</div><br/>")
End If
%>
<h2>Contact en route</h2>
<div>
<i>Ton Rutten</i><br/>
<i>Ulkedonken 2</i><br/>
<i>6026 RP Maarheeze</i><br/>
<i>Netherlands</i><br/>
<h3>Telefoon: <a href="tel:+31623808376">06-23808376</a> </h3>
<h3>Email: <a href="mailto:ddoggen@gmail.com">ddoggen@gmail.com</a></h3>
<h3>Whatsapp: <a href="https://api.whatsapp.com/send?phone=31623808376">+31623808376</a></h3>
<h3>Route: <a href="https://goo.gl/maps/31hUcVm3z58aCDxM9">Google Maps</a></h3>
</div>
<br/><br/>
<%
If Not RsAlgemeen.EOF Then
%>
<div align="center"><img border="0" title="Duitse dog pup" src="/Resize_Image.aspx?ImgWd=<%=0.9*intScreenWidth%>&CrpYN=Y&IptFl=/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>
<!-- <div align="center"><img border="0" title="Duitse dog pup" width="<%=0.9*intScreenWidth%>" src="/fotos/algemeen/<%=SQLToStr(RsAlgemeen("bestandsnaam"))%>"/></div>-->
<%
Call UpdateFotoHit(RsAlgemeen("id"))
RsAlgemeen.MoveNext
End If
RsAlgemeen.Close
Set RsAlgemeen = Nothing
intMS = milliDif() - timStart
strTimTotal = elapsedshort(intMS)
txtLog "MOBILE HOMEPAGE EXECUTION TIME: " & strTimTotal
%>
</div>
</body>
</html>