File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/default.asp
<%
Option Explicit
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="https://www.w3.org/1999/xhtml" lang="nl" xml:lang="nl">
<!-- #INCLUDE VIRTUAL="includes/inc_default.asp" -->
<!-- #INCLUDE VIRTUAL="includes/inc_onderhoud.asp" -->
<%
Dim Rs, blnVolgordeFotoUpdate, strLanguage, intScreenWidth, timStart, intMS, strTimTotal
timStart = milliDif()
If Request.QueryString("language")<> "" Then
Session("language") = Request.QueryString("language")
End If
strLanguage = Session("language")
blnVolgordeFotoUpdate = CheckFotoRandomizer
'Call UpdateFotoRandomizer
%>
<head>
<%If strLanguage = "NLD" Then%>
<title>Duitse dog kennel van het Dennenbos</title>
<%ElseIf strLanguage = "DUI" Then%>
<title>Deutsche doggen van het Dennenbos</title>
<%Else%>
<title>Great danes van het Dennenbos</title>
<%End If%>
<link rel="shortcut icon" href="favicon.ico"/>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<%If strLanguage = "NLD" Then%>
<meta name="description" content="Ruim 50 jaar lang fokken wij duitse dog pups, ook wel deense dog genoemd. Al onze pups worden gechipt, ontwormd en ingeent." />
<%ElseIf strLanguage = "DUI" Then%>
<meta name="description" content="Deutsche doggen welpen van het Dennenbos, kauf bei uns ihre welp." />
<%Else%>
<meta name="description" content="Great danes van het Dennenbos, buy your puppy at our farm" />
<%End If%>
<meta name="keywords" content="duitse dog, deense dog, pup, pups, puppies, kennel, fokker, kopen, blauw, zwart, gevlekt,goedkoop, goedkope dog, great dane"/>
<!--<meta name="keywords" content="duitse dog, deense dog, duitse dog pups, duitse dog puppy, duitse dog puppies, duitse dog kennel, duitse dog kennels, blauwe duitse dog, duitse dog blauw, duitse dog harlekijn, duitse dog fokker, duitse dog fokkers, duitse dog kopen, de duitse dog, goedkope duitse dog, duitse dog gezocht, duitse dog aangeboden, gele duitse dog, duitse dog te koop, blauwe duitse dog pups, zwarte duitse dog pups, duitse dog teef, duitse dog zwart, duitse dog pups te koop, duitse dog pup te koop, duitse doggen, honden, rashond, rashonden, honden dog, hond dog, fokkers, fokker, puppie, deense dog kopen, deense doggen, duitse dog, deense dog te koop, duitse dog fokkers, duitse dog gezocht, duitse dog teef, duitse dog kopen, duitse dog herplaatsing, duitse dog pups te koop, duitse dog pup te koop, blauwe duitse dog, duitse dog zwart, zwarte duitse dog, duitse dog te koop, de duitse dog, duitse dog foto, duitse dog info, gele duitse dog, duitse dog harlekijn, duitse dog blauw, duitse dog grijstijger, opvoeding duitse dog, voeding duitse dog" />-->
<meta name="revisit-after" content="7 days" />
<meta name="rating" content="General" />
<meta name="robots" content="index, follow" />
<link rel="stylesheet" type="text/css" href="css/background.css" />
<link href="/menu_assets/styles.css" rel="stylesheet" type="text/css" />
</head>
<body>
<script type="text/javascript">
<!--
if (screen.width <= 1023) {
document.location = "/mobile?sw=" + screen.width;
}
//-->
</script>
<!-- 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 -->
<div class="content">
<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>
<%
Call WriteMainMenu(Session("language"),"kennel")
%>
<script type="text/javascript" src="./includes/menu/mmenu.js"></script>
<!-- Go to www.addthis.com/dashboard to customize your tools -->
<script type="text/javascript" src="//s7.addthis.com/js/300/addthis_widget.js#pubid=ra-548f031355298d50" async="async"></script>
<table>
<tr>
<td width="100%">
<%If strLanguage = "NLD" Then%>
<h1 align="left">Duitse Dog kennel van het Dennenbos</h1>
<%ElseIf strLanguage = "DUI" Then%>
<h1 align="left">Deutsche Doggen welpen von het Dennenbos</h1>
<%Else%>
<h1 align="left">Great Danes van het Dennenbos</h1>
<%End If%>
</td>
</tr>
</table>
<%
Set Rs = GetRs("SELECT * FROM DD_FOTOS WHERE ind_actief=1 AND type_id=6 ORDER BY volgorde")
%>
<table>
<tr>
<td>
<%If strLanguage = "NLD" Then%>
<h2>Onze Passie voor Duitse Doggen</h2>
Al meer dan 50 jaar fokken wij met veel plezier Duitse Doggen, ook wel bekend als <a title="deense dog" href="deense%20dog.asp">Deense Doggen</a>. 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.
<%Else%>
<h2>Great Dane</h2>
We have had the pleasure of breeding <b>Great Danes</b> for over 50 years now. We think they are fantastic animals with a great character.
The Great Dane is, despite his impressive size, very suitable as a housedog and is an ideal friend for children.
He is quite easy to control, given that the dog has been taught how to behave properly at a young age.
Furthermore, the Great Dane is happy to guard the members of the family and their possessions.
<%End If%>
</td>
</tr>
<tr height="5">
<td> </td>
</tr>
<tr>
<td>
<table>
<tr>
<td>
<%
If Not Rs.EOF Then
%>
<div><img border="0" title="Duitse dog" src="Resize_Image.aspx?ImgWd=500&CrpYN=Y&IptFl=/fotos/algemeen/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>
<%
'Response.Write("<img width=""400"" alt=""Duitse dog pup"" title=""Duitse dog pup"" src=""fotos/algemeen/" & Rs("bestandsnaam")& """/>")
Call UpdateFotoHit(Rs("id"))
Rs.MoveNext
End If
%>
</td>
<td valign="top">
<%If strLanguage = "NLD" Then%>
<h2>Ruimte op Onze Boerderij</h2>
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.
<br><br>
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.
<%Else%>
<h2>Farm</h2>
We live on a farm, so we have plenty of space for our dogs.
Besides their own quarters and playroom, they are being walked together in the pasture where they can play and run freely.
We consider it a challenge to find the right combination of parents to breed a beautiful puppy with a great character.
The happiness that our dogs bring to their new owners is always very rewarding for us.
<%End If%>
</td>
</tr>
</table>
</td>
</tr>
<tr height="5">
<td> </td>
</tr>
<tr>
<td>
<table>
<tr>
<td width="80%" valign="top">
<%If strLanguage = "NLD" Then%>
<h2>Sociale Pups</h2>
Onze <a title="pup" href="pups.asp">pups</a> 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.
<br><br>
Spelenderwijs leren we ze basisregels aan, wat hun verdere opvoeding vereenvoudigt en een sterke basis legt voor een sociale, zelfverzekerde hond.
<%ElseIf strLanguage = "DUI" Then%>
<h2>Deutsche Doggen Welpen</h2>
In jungen Jahren, sind der <a title="Deutsche Doggen Welp" href="pups.asp"> Welpen</a> in Kontakt mit t�glich zuhause
Praktiken, so dass sie sich daran gew�hnt, verschiedene Menschen und ihre Gewohnheiten.
Zwar trifft ihre Erkundungen im Hof sie mit der anderen vertraut sind
Bauernhof Einwohner. Dann beginnen wir spielerisch mit der Lehre der Regeln, die weiter
<b> Erh�hung der Welpe </b> einfacher. So ist es eine gute Basis f�r eine <b>Sozial Hund</b>.
<%Else%>
<h2>Puppy</h2>
Already at a young age our <b>pups</b> will experience the daily routine of a household, so they will get used to different people and their habits.
While exploring the vicinity of the farm, they are getting comfortable with the farm animals.
We teach them some basic rules in a playful manner, which will expedite the training for the new owner. This ensures a solid basis to have a sociable dog.
<%End If%>
</td>
<td width="20%" valign="top">
<%
If Not Rs.EOF Then
%>
<div><img border="0" title="Deense dog" src="Resize_Image.aspx?ImgWd=500&CrpYN=Y&IptFl=/fotos/algemeen/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>
<%
'Response.Write("<img width=""400"" title=""Duitse dog"" alt=""Duitse dog"" src=""fotos/algemeen/" & Rs("bestandsnaam")& """>")
Call UpdateFotoHit(Rs("id"))
Rs.MoveNext
End If
%>
</td>
</tr>
</table>
</td>
</tr>
<tr height="5">
<td> </td>
</tr>
<tr>
<td>
<table>
<tr>
<td width="20%" valign="top">
<%
If Not Rs.EOF Then
%>
<div><img border="0" title="Duitse dog puppy" src="Resize_Image.aspx?ImgWd=500&CrpYN=Y&IptFl=/fotos/algemeen/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>
<%
'Response.Write("<img width=""400"" title=""Duitse dog foto"" alt=""Duitse dog foto"" src=""fotos/algemeen/" & Rs("bestandsnaam")& """/>")
Call UpdateFotoHit(Rs("id"))
Rs.MoveNext
End If
%>
</td>
<td width="80%" valign="top">
<%If strLanguage = "NLD" Then%>
<h2>Gezonde Pups met Europees Paspoort</h2>
Wij fokken regelmatig nestjes uit zorgvuldig geselecteerde bloedlijnen, beschikbaar in diverse kleuren. Gezondheid, karakter en een goede bouw staan centraal.
<br><br>
Al onze pups zijn gechipt, ontwormd, gevaccineerd en worden geleverd met een Europees paspoort. Wij bieden gezonde, sociale Duitse Doggen voor een betaalbare prijs.
<%ElseIf strLanguage = "DUI" Then%>
<h2>Deutsche doggen farben</h2>
Wir verabredeten Welpen aus exzellenten Blutlinien in alle <b> Farben </b>. Wir lieben es,
wichtig, <b> Zucht </b> in einer guten Konstruktion und ausgezeichneten Charakter. Alle <a title="deutsche doggen welpen" href="pups.asp"> Welpen </a> haben offensichtlich einen Stammbaum und sind gechipt, entwurmt und geimpft. wir
bieten Ihnen eine gro�e Freund der Familie f�r ein <b> erschwinglichen Preis </b>.
<%Else%>
<h2>Colors</h2>
We have puppies from distinguished bloodlines in all registered colors. It is important to us to breed on great character and a solid strong build.
All puppies are chipped (identification) and registered; they are de-wormed and receive all necessary shots. We offer you a "great" friend at an affordable price.
<%End If%>
</td>
</tr>
</table>
</td>
</tr>
<tr height="5">
<td> </td>
</tr>
<tr>
<td>
<%If strLanguage = "NLD" Then%>
<h2>Bezoek Onze Kennel</h2>
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 <a title="route" href="route.asp">Maarheeze</a> te bezoeken en onze honden te ontmoeten. Bel ons of stuur een bericht om een kijkje te komen nemen!
<%ElseIf strLanguage = "DUI" Then%>
<h2>Deutsche doggen kaufen</h2>
Wenn Sie Interesse an einem <b> Deutsche Doggen Welpe </b> haben, rufen Sie uns an fur
Informationen oder um einen Termin zu kommen, werfen Sie einen Blick. unsere
Zwinger liegt in <a title="route" href="route.asp"> </a> Maarheeze (Nord brabant), in der N�he von Eindhoven.
<%Else%>
<h2>Contact</h2>
If you are interested in a Great Dane, don't hesitate to give us a call or send us an e-mail for information. It is also possible to make an appointment to visit us and have a look.
Our kennel is located in the village Maarheeze close to the city Eindhoven in the province North-Brabant in the Netherlands (Europe).
<%End If%>
</td>
</tr>
<tr height="5">
<td> </td>
</tr>
<tr>
<td>
<table>
<tr>
<td width="550" valign="top">
<h2>Duitse Dog Kennel van het Dennenbos</h2>
<i>Ton Rutten</i><br/>
<i>Ulkedonken 2</i><br/>
<i>6026 RP Maarheeze</i><br/>
<i>Netherlands</i><br/>
<i>+31 (0)6 2380 8376</i><br/>
<i><a href="mailto:ddoggen@gmail.com">ddoggen@gmail.com</a></i><br/>
</td>
<td>
<%
If Not Rs.EOF Then
%>
<div><img border="0" title="Deense dog" src="Resize_Image.aspx?ImgWd=500&CrpYN=Y&IptFl=/fotos/algemeen/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>
<%
'Response.Write("<img width=""400"" title=""Duitse dog fokker"" alt=""Duitse dog fokker"" src=""fotos/algemeen/" & Rs("bestandsnaam")& """/>")
Call UpdateFotoHit(Rs("id"))
Rs.MoveNext
End If
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
Rs.Close
Set Rs = Nothing
intScreenWidth = FormToInt(Request.Form("txtScreenwidth"))
Call LogVisit(1, intScreenWidth, blnVolgordeFotoUpdate)
intMS = milliDif() - timStart
strTimTotal = elapsedshort(intMS)
txtLog "HOMEPAGE EXECUTION TIME: " & strTimTotal
%>
</div>
</body>
</html>