File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/herplaatsing.asp
<%
Option Explicit
%>
<!-- #INCLUDE VIRTUAL="includes/inc_default.asp" -->
<%
If Request.QueryString("language")<> "" Then Session("language") = Request.QueryString("language")
Dim Rs, i, strSql, blnVolgordeFotoUpdate
blnVolgordeFotoUpdate = CheckFotoRandomizer
Call LogVisit(8,null,blnVolgordeFotoUpdate)
If Request.QueryString("language")<> "" Then
Session("language") = Request.QueryString("language")
End If
%>
<html>
<head>
<title>Herplaatsingen</title>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta name="description" content="Duitse doggen kennel van het Dennenbos, duitse dog herplaatsing." />
<link href="/menu_assets/styles.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" type="text/css" href="css/background.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"),"herplaatsing")
%>
<script language="JavaScript" src="includes/menu/mmenu.js" type="text/javascript"></script>
<%
If Session("language")="NLD" Then
%>
<h1 align="left">Herplaatsing</h1>
<%
Else
%>
<h1 align="left">Relocation</h1>
<%
End If
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)
If Rs.EOF Then
If Session("language")="NLD" Then
Response.Write("Op dit moment hebben we geen herplaatsingen.")
Else
Response.Write("At this moment we don't have redeployment dogs.")
End If
End If
While Not Rs.EOF
%>
<h2><%=StrToHtml(Rs("titel"))%></h2>
<%
If Session("language")="NLD" Then
Response.Write((Rs("tekst")))
Else
Response.Write((Rs("tekst_uk")))
End If
%>
<br><br>
<!--<div><img border="0" title="Duitse dog herplaatsing" src="Resize_Image.aspx?ImgWd=500&&CrpYN=Y&IptFl=fotos/herplaatsing/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>-->
<div><img width="500" border="0" title="Duitse dog herplaatsing" src="fotos/herplaatsing/<%=SQLToStr(Rs("bestandsnaam"))%>"/></div>
<hr>
<%
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
%>
</div>
</body>
</html>