File: D:/HostingSpaces/TWijnstra/wijnstra.com/dvd/index.asp
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit
Dim strSQL, rsDVDall, conDVD, i, j, lonednr
Init
rsDVDall.MoveFirst %>
<html>
<head><title>Tjerk zijn DVD's (en van Hanneke)</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
<META NAME="KEYWORDS" CONTENT="dvd, films, dvd on i-mode, dvd on flash, dvdlinks">
<META NAME="DESCRIPTION" CONTENT="Dvd collectie van Tjerk Wijnstra">
<META NAME="AUTHOR" CONTENT="Tjerk Wijnstra">
<META NAME="COPYRIGHT" CONTENT="Wijnstra, Tjerk © 2002">
<META NAME="ROBOTS" CONTENT="ALL, FOLLOW">
<META NAME="REVISIT" content="2 days">
<META NAME="Rating" CONTENT="General">
<META NAME="Distribution" CONTENT="Global">
<link href="css/dvd.css" rel="STYLESHEET" type="text/css">
</head>
<body>
<table align="center" class="fullarea" border=0><tr><td colspan="2">
<!-- #include file="menu.asp" -->
</td></tr>
<tr><td valign="top" colspan="2">
<h1><% i = 0
j = 0
While not rsDVDall.eof
If Instr(UCase(rsDVDall("genre")), UCase(Request("genre")))>0 Then
i = i + 1
End If
If Instr(rsDVDall("lonername"), "nietuitgeleend") Then
j = j + 1
End If
rsDVDall.MoveNext
Wend
rsDVDall.MoveFirst
If Request("genre") = "" Then
Response.write "Alle dvd's"
Else
Response.Write(request("genre"))
End If
If not i = j Then
lonednr = i - j %>
(#<%= i %>, waarvan <%= lonednr %> uitgeleend)
<% Else %>
(#<%= i %>)
<% End If %>
</h1></td></tr>
<tr><td valign="top">
<table class="tbl" align="center" cellpadding="0" cellspacing="0" border="0">
<tr>
<td class="donkerblauw"><strong><a href="index.asp?sort=tit&genre=<%= Request("genre") %>">Titel</a><% If Request("sort") = "tit" or Request("sort") = "" Then %><span class="attention"> *</span><% End If %></strong></td>
<td class="donkerblauw"><strong><a href="index.asp?sort=run&genre=<%= Request("genre") %>">Speelduur</a><% If Request("sort") = "run" Then %><span class="attention"> *</span><% End If %></strong></td>
<td class="donkerblauw"><strong><a href="index.asp?sort=reg&genre=<%= Request("genre") %>">Regio<br>code</a><% If Request("sort") = "reg" Then %><span class="attention"> *</span><% End If %></strong></td>
<td class="donkerblauw"><strong><a href="index.asp?sort=gen&genre=<%= Request("genre") %>">Genre</a><% If Request("sort") = "gen" Then %><span class="attention"> *</span><% End If %></strong></td>
<td class="donkerblauw"><strong>NL sub</strong></td>
</tr>
<% While not rsDVDall.eof
'Response.Write(rsDVDall("title"))
'Response.Write "<br>"
If Instr(UCase(rsDVDall("genre")), UCase(Request("genre")))>0 Then %>
<tr>
<td VALIGN="middle" class="blauw"><p><% If not(rsDVDall("lonername") = "nietuitgeleend") Then %>
<img src="images/loned.gif" id="loned" border="0" alt="aan: <%= rsDVDall("lonername") %>" WIDTH="51" HEIGHT="13">
<% End If %>
<strong><a href="details.asp?sort=<%= Request("sort") %>&dvdid=<%= rsDVDall("dvdid") %>"><%= rsDVDall("title") %></a></strong> <%= CheckOnDTS(rsDVDall("audio")) %></p></td>
<td VALIGN="middle" class="geel" nowrap><p>ca. <%= rsDVDall("runningtime") %> min.</p></td>
<td VALIGN="middle" class="geel"><p><%= rsDVDall("regiocode") %></p></td>
<td VALIGN="middle" class="geel"><p><%= rsDVDall("genre") %></p></td>
<td VALIGN="middle" class="geel"><p><%= CheckOnNL(rsDVDall("subtitling")) %></p></td>
</tr>
<% End If
rsDVDall.MoveNext
Wend %>
</table><br>
<span class="attention"> *</span> = gesorteerd op
</td>
<td valign="top"><script type="text/javascript"><!--
google_ad_client = "pub-5641441112192224";
google_ad_width = 160;
google_ad_height = 600;
google_ad_format = "160x600_as";
google_ad_type = "text_image";
google_ad_channel ="";
google_color_border = "000086";
google_color_bg = "F9F3D3";
google_color_link = "FF9933";
google_color_url = "000086";
google_color_text = "CFCFCF";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td></tr></table></body></html>
<% Close
Sub Init() %>
<!-- #include file="includeCon.asp" -->
<% If Request("sort") = "run" Then
strSQL = "SELECT dvdid, title, regiocode, runningtime, subtitling, audio, genre, lonername FROM tbl_dvd WHERE Instr(UCase(genre), UCase('" & Request("genre") & "'))>0 ORDER BY runningtime ASC"
ElseIf Request("sort") = "reg" Then
strSQL = "SELECT dvdid, title, regiocode, runningtime, subtitling, audio, genre, lonername FROM tbl_dvd WHERE Instr(UCase(genre), UCase('" & Request("genre") & "'))>0 ORDER BY regiocode ASC"
ElseIf Request("sort") = "gen" Then
strSQL = "SELECT dvdid, title, regiocode, runningtime, subtitling, audio, genre, lonername FROM tbl_dvd WHERE Instr(UCase(genre), UCase('" & Request("genre") & "'))>0 ORDER BY genre ASC"
ElseIf Request("sort") = "eig" Then
strSQL = "SELECT dvdid, title, regiocode, runningtime, subtitling, audio, genre, lonername FROM tbl_dvd WHERE Instr(UCase(genre), UCase('" & Request("genre") & "'))>0 ORDER BY ownername ASC, title ASC"
Elseif Request("sort") = "" OR Request("sort") = "tit" Then
strSQL = "SELECT dvdid, title, regiocode, runningtime, subtitling, audio, genre, lonername FROM tbl_dvd WHERE Instr(UCase(genre), UCase('" & Request("genre") & "'))>0 ORDER BY title ASC"
End If
Set rsDVDall = conDVD.Execute(strSQL)
strSQL = ""
End Sub
Function CheckOnNL(ByVal sTekst)
If Instr(UCase(rsDVDall("subtitling")), "NEDERLANDS")>0 Then
Response.write "<IMG SRC=images/checkyes.gif>"
Else
Response.Write "<IMG SRC=images/checkno.gif>"
End If
End Function
Function CheckOnDTS(ByVal sTekst)
If Instr(UCase(rsDVDall("audio")), "DTS")>0 Then
Response.write "<IMG SRC=images/dts.gif align=middle>"
End If
End Function
Sub Close
rsDVDall.Close
Set rsDVDall = Nothing
conDVD.Close
Set conDVD = Nothing
End Sub %>