File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/pups.asp
<%
Option Explicit
%>
<!-- #INCLUDE VIRTUAL="includes/inc_default.asp" -->
<%
If Request.QueryString("language")<> "" Then Session("language") = Request.QueryString("language")
Dim Rs, i, strSql, blnVolgordeFotoUpdate, strExtraNestTekst, blnAltijdTonen, strLanguage
strLanguage = Session("language")
blnVolgordeFotoUpdate = CheckFotoRandomizer
Call LogVisit(2,null,blnVolgordeFotoUpdate)
If Request.QueryString("language")<> "" Then
Session("language") = Request.QueryString("language")
End If
%>
<html>
<head>
<title>Op zoek naar een duitse dog pup, wij fokken duitse dog pups met stamboom.</title>
<meta name="keywords" content="duitse dog pup, deense dog pup, puppy, puppie, baby hond, nest"/>
<meta name="description" content="Bent u op zoek naar een duitse dog pup? Koop bij onze Duitse doggen kennel een duitse dog pup."/>
<link rel="canonical" href="http://www.duitsedog.tk/pups/" />
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="css/background.css">
<link href="/menu_assets/styles.css" rel="stylesheet" type="text/css">
<!-- #INCLUDE FILE="./includes/scripts/scroller.js" -->
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
try {
var pageTracker = _gat._getTracker("UA-1172494-1");
pageTracker._trackPageview();
} catch(err) {}</script>
</head>
<body>
<div class="content">
<%
Call WriteMainMenu(Session("language"),"pups")
%>
<script>
function MM_openWindow(theURL,winName,launchWin,features) { //v1.0
if (launchWin == ''){
window.open(theURL,winName,features);
}
else{
var controller = window.open(theURL,winName,features);
if (controller.opener == null){
controller.opener = self;
}
controller.opener.name = launchWin;
return controller;
}
}
</script>
<script language="JavaScript" src="./includes/menu/mmenu.js" type="text/javascript"></script>
<h1 align="left">Duitse dog pups</h1>
<%
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)
If Rs.EOF Or blnAltijdTonen Then
Response.Write(strToHTML(strExtraNestTekst))
Response.Write(" ")
End If
%>
<table width="100%" id="Table1" cellspacing="0" bgcolor="white" border="0">
<%
While Not Rs.EOF
%>
<tr>
<td width="15%"><b><%If Session("language")="NLD" Then%>Geboren<%Else%>Birthdate<%End If%></b></td>
<td width="85%"><%=Formatdateparam(Rs("dat_geboren"),"dd-mm-yyyy")%></td>
</tr>
<tr>
<td><b><%If Session("language")="NLD" Then%>Kleur<%Else%>Color<%End If%></b></td>
<td><%=SQLToStr(Rs("kleur"))%></td>
</tr>
<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>
<%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>
<td><b>
<%If Session("language")="NLD" Then%>
Omschrijving
<%Else%>
Description
<%End If%>
</b></td>
<td colspan="2">
<%
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"> </td>
</tr>
<tr>
<td valign="top" colspan="2">
<table>
<tr>
<td valign="top" rowspan="6" width="70%">
<%If Not IsNull(SQLToStr(Rs("bestandsnaam"))) Then %>
<img border="0" title="Duitse dog pup" src="Resize_Image.aspx?ImgWd=250&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam"))%>">
<!-- <img title="duitse dog pup" SRC="fotos/nest/<%=SQLToStr(Rs("bestandsnaam"))%>" WIDTH="33%" > -->
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam2"))) Then %>
<img border="0" title="Duitse dog puppy" src="Resize_Image.aspx?ImgWd=250&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam2"))%>">
<!-- <img title="duitse dog puppy" SRC="fotos/nest/<%=SQLToStr(Rs("bestandsnaam2"))%>" WIDTH="33%" > -->
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam3"))) Then %>
<img border="0" title="Duitse dog puppies" src="Resize_Image.aspx?ImgWd=250&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam3"))%>">
<!-- <img title="duitse dog puppies" SRC="fotos/nest/<%=SQLToStr(Rs("bestandsnaam3"))%>" WIDTH="33%" > -->
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam4"))) Then %>
<img border="0" title="Duitse dog puppies" src="Resize_Image.aspx?ImgWd=250&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam4"))%>">
<!-- <img title="duitse dog puppies" SRC="fotos/nest/<%=SQLToStr(Rs("bestandsnaam4"))%>" WIDTH="33%" > -->
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam5"))) Then %>
<img border="0" title="Duitse dog puppies" src="Resize_Image.aspx?ImgWd=250&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam5"))%>">
<!-- <img title="duitse dog puppies" SRC="fotos/nest/<%=SQLToStr(Rs("bestandsnaam5"))%>" WIDTH="33%" > -->
<%End If%>
<%If Not IsNull(SQLToStr(Rs("bestandsnaam6"))) Then %>
<img border="0" title="Duitse dog puppies" src="Resize_Image.aspx?ImgWd=250&CrpYN=Y&IptFl=/fotos/nest/<%=SQLToStr(Rs("bestandsnaam6"))%>">
<!-- <img title="duitse dog puppies" SRC="fotos/nest/<%=SQLToStr(Rs("bestandsnaam6"))%>" WIDTH="33%" > -->
<%End If%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<%
Call UpdateFotoHit(Rs("foto_id"))
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
%>
</table>
</div>
</body>
</html>