File: D:/HostingSpaces/TWijnstra/wijnstra.com/dvd/print.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 border=0 ID="Table1">
<% While not rsDVDall.eof
'Response.Write(rsDVDall("title"))
'Response.Write "<br>"
If Instr(UCase(rsDVDall("genre")), UCase(Request("genre")))>0 Then %>
<% If not(rsDVDall("lonername") = "nietuitgeleend") Then %>
<tr>
<td align=right><%= rsDVDall("lonername") %></td>
<td><INPUT type="checkbox" ID="Checkbox1" NAME="Checkbox1" checked><%= rsDVDall("title") %></td>
</tr>
<% Else %>
<tr>
<td align=right></td>
<td><INPUT type="checkbox" ID="Checkbox1" NAME="Checkbox1"><%= rsDVDall("title") %></td>
</tr>
<% End If %>
<% End If
rsDVDall.MoveNext
Wend %></table>
</body></html>
<% Close
Sub Init() %>
<!-- #include file="includeCon.asp" -->
<% 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"
Set rsDVDall = conDVD.Execute(strSQL)
strSQL = ""
End Sub
Sub Close
rsDVDall.Close
Set rsDVDall = Nothing
conDVD.Close
Set conDVD = Nothing
End Sub %>