File: D:/HostingSpaces/TWijnstra/wijnstra.com/dvd/Imode/alldvd.asp
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit
Dim strSQL, rsDVDall, conDVD, i
Init
rsDVDall.MoveFirst
i = 0
While not rsDVDall.eof
i = i + 1
rsDVDall.MoveNext
Wend
rsDVDall.MoveFirst %>
<html>
<head>
<title>(#<%= i %>) Alle dvd's</title>
</head>
<body bgcolor="#FEC43D" TEXT="#000000" LINK="#000086">
<dir>
<% While not rsDVDall.eof %>
<li><a href="details.asp?dvdid=<%= rsDVDall("dvdid") %>"><%= rsDVDall("title") %></a> <%= CheckOnDTS(rsDVDall("audio")) %>
<% If not(rsDVDall("lonername") = "nietuitgeleend") Then %>
uitgeleend aan: <%= rsDVDall("lonername") %>
<% End If %>
<% rsDVDall.MoveNext
Wend %>
</dir>
</body></html>
<% Close
Sub Init() %>
<!-- #include file="http://www.wijnstra.com/dvd/includeCon.asp" -->
<% strSQL = "SELECT dvdid, title, audio, lonername FROM tbl_dvd ORDER BY title ASC"
Set rsDVDall = conDVD.Execute(strSQL)
strSQL = ""
End Sub
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 %>