HEX

File: D:/HostingSpaces/TWijnstra/wijnstra.com/dvd/Imode/details.asp
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit

Dim strSQL, rsDVDdetails, conDVD

Init %>

<html>
<head><title>De details van:</title>
</head>
<body bgcolor="#FEC43D" TEXT="#000000" LINK="#000086">

<h2><% While not rsDVDdetails.eof %>
	<font color="#000086"><%= rsDVDdetails("title") %></font></h2>
	<% If not(rsDVDdetails("lonername") = "nietuitgeleend") Then %>
			<br>Uitgeleend aan: <%= rsDVDdetails("lonername") %>
	<% End If %>

<p><STRONG>Omschrijving:</STRONG><br>
<%= rsDVDdetails("about") %></p>

<p><STRONG>Speelduur:</STRONG><br>
ca. <%= rsDVDdetails("runningtime") %> minuten</p>

<p><STRONG>Regio code:</STRONG><br>
<%= CheckOnRegioCode(rsDVDdetails("regiocode")) %></p>

<p><STRONG>Genre:</STRONG><br>
<%= rsDVDdetails("genre") %></p>

<p><STRONG>Taal:</STRONG><br>
<%= rsDVDdetails("language") %></p>

<p><STRONG>Ondertiteling:</STRONG><br>
<%= rsDVDdetails("subtitling") %></p>

<p><STRONG>Video aspect ratio:</STRONG><br>
<%= rsDVDdetails("videoaspectratio") %></p>

<p><STRONG>Audio:</STRONG><br>
<%= CheckOnDTS(rsDVDdetails("audio")) %></p>

<p><STRONG>Disctype:</STRONG><br>
<%= rsDVDdetails("disctype") %></p>

<p><STRONG>Extra features:</STRONG><br>
<%= rsDVDdetails("features") %></p>

<% rsDVDdetails.MoveNext
Wend %>

</body></html>

<%	Close

Sub Init %>
<!-- #include file="includeCon.asp" -->

<%	strSQL = "SELECT * FROM tbl_dvd WHERE dvdid = " & Request("dvdid")
	
 	Set rsDVDdetails = conDVD.Execute(strSQL)
 	strSQL = ""
End Sub

Function CheckOnRegioCode(ByVal sTekst)
	If Instr(UCase(rsDVDdetails("regiocode")), "1")>0 Then
		Response.write "1"
	End If
	If Instr(UCase(rsDVDdetails("regiocode")), "2")>0 Then
		Response.write "<IMG SRC=../images/regio2.gif ALT=2>"
	End If
	If Instr(UCase(rsDVDdetails("regiocode")), "3")>0 Then
		Response.write "3"
	End If
	If Instr(UCase(rsDVDdetails("regiocode")), "4")>0 Then
		Response.write "4"
	End If
	If Instr(UCase(rsDVDdetails("regiocode")), "5")>0 Then
		Response.write "5"
	End If
	If Instr(UCase(rsDVDdetails("regiocode")), "6")>0 Then
		Response.write "6"
	End If
End Function

Function CheckOnDTS(ByVal sTekst)
	If Instr(UCase(rsDVDDetails("audio")), "DTS")>0 Then
		Response.write "<IMG SRC=../images/dts.gif>"
	Else
		Response.Write rsDVDdetails("audio")
	End If
End Function


Sub Close
	rsDVDdetails.Close
	Set rsDVDdetails = Nothing
	
	conDVD.Close
	Set	conDVD = Nothing
End Sub %>