File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/fotos.asp
<%
Option Explicit
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<!-- #INCLUDE VIRTUAL="includes/inc_default.asp" -->
<%
Dim Rs, i, strSql, strKleur
Call LogVisit(11,null,false)
If Request.QueryString("language")<> "" Then
Session("language") = Request.QueryString("language")
End If
%>
<html>
<head>
<title>Foto's duitse dog</title>
<meta name="description" content="Foto's van duitse doggen, foto's van deense doggen">
<link rel="canonical" href="https://www.duitsedog.tk/fotos.asp">
<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"), "fotos")
%>
<script language="JavaScript" src="./includes/menu/mmenu.js" type="text/javascript"></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>
<%If Session("language")="NLD" Then%>
<h1>Duitse Dog Foto's</h1>
<div>Iedere dag wordt hier een selectie van de door ons gemaakte foto's weergegeven, kom morgen weer terug om meer foto's te bekijken</div>
<%Else%>
<h1>Pictures Great Dane</h1>
<div>Every day a selection of our pictures will be shown on this page, come back tomorrow for more pictures.</div>
<%End If%>
<p> </p>
<table align="center">
<tr>
<%
i=0
strSql = "SELECT TOP 10 * FROM (SELECT * FROM DD_FOTOS WHERE ind_actief=1 AND type_id in (2,5,4) ORDER BY VOLGORDE)"
Set Rs = GetRs(strSql)
While Not Rs.EOF
i=i+1
If Rs("type_id") = 2 Then
strKleur = "Blauw"
ElseIf Rs("type_id") = 4 Then
strKleur = "Zwart"
ElseIf Rs("type_id") = 5 Then
strKleur = "Gevlekt"
End If
%>
<td>
<div align="center"><%=strKleur%> </div>
<div align="center"><img border="0" title="Deense dog <%=strKleur%>" src="Resize_Image.aspx?ImgWd=500&CrpYN=Y&IptFl=/fotos/<%=strKleur%>/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>
<!--<div><img border="0" title="Duitse dog <%=strKleur%>" width="500" src="/fotos/<%=strKleur%>/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>-->
</td>
<%
If i mod 2 = 0 Then
Response.Write("</tr><tr><td> </td></tr><tr>")
End If
Call UpdateFotoHit(Rs("id"))
'If i>=c_intAantFotosPerPagina Then
' Rs.MoveLast
'Else
Rs.MoveNext
'End If
Wend
Rs.Close
Set Rs = Nothing
%>
</tr>
</table>
</div>
</body>
</html>