File: D:/HostingSpaces/TWijnstra/wijnstra.com/dvd/details.asp
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit
Dim strSQL, rsDVDdetails, conDVD
Init %>
<html>
<head><title>Tjerk zijn DVD's (en van Hanneke)</title>
<link href="css/dvd.css" rel="STYLESHEET" type="text/css">
</head>
<body>
<table align="center" class="fullarea"><tr><td>
<!-- #include file="menu.asp" -->
<% If Request("what") = "dontknow" Then %>
<h1>Deze wil je zien;-)</h1>
<% Else %>
<h1>De details</h1>
<% End If %>
<table class="tbl" align="center" cellpadding="0" cellspacing="0" border="0">
<% While not rsDVDdetails.eof %>
<tr>
<td colspan="2" valign="top" align="right" class="donkerblauw"><IMG SRC="images/blank.gif" height="10" width="10" border="0" alt=""></td>
<td colspan="2" valign="top" class="donkerblauw"><% If not rsDVDdetails("lonername") = "nietuitgeleend" Then %>
<span class="clsLonedText"><STRONG><%= rsDVDdetails("title") %></STRONG><br>
Uitgeleend aan: <%= rsDVDdetails("lonername") %></span>
<% Else %>
<STRONG><%= rsDVDdetails("title") %></STRONG>
<% End If %></td>
</tr>
<tr>
<td valign="top" align="center" rowspan="21">
<% If not rsDVDdetails("picture") = "" Then %>
<img src="images/front/<%= rsDVDdetails("picture") %>">
<% End If
If not rsDVDdetails("dvdzoneID") = "10101" Then %>
<br><a href="http://www.dvdzone2.com/affiliate.asp?aid=649&redirect=http%3A%2F%2Fwww%2Edvdzone2%2Ecom%2Fdvd%2Fdetail%2Easp%3Fid%3D<%= rsDVDdetails("dvdzoneID") %>" target="_new">Voeg deze toe aan jouw collectie</a>
<% Else %>
<br><a href="http://www.dvdzone2.com/affiliate.asp?aid=649" target="_new">Koop hier dvd's</a>
<% End If %><br> <br>of<br> <br><a href="http://www.videoland.nl" target="_blank">huur hem bij<br><img SRC="images/videoland.gif" border="0" alt="Videoland" WIDTH="165" HEIGHT="54"></a>
</td>
<TD VALIGN="TOP" align="right" class="blauw"><p><STRONG>Omschrijving</STRONG></p></TD>
<TD VALIGN="TOP" class="geel"><p><%= rsDVDdetails("about") %></p></TD>
<td valign="top" align="center" rowspan="21"><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>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Speelduur</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p>ca. <%= rsDVDdetails("runningtime") %> minuten</p></TD>
</tr>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Regio code</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p><%= CheckOnRegioCode(rsDVDdetails("regiocode")) %></p></TD>
</tr>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Genre</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p><%= rsDVDdetails("genre") %></p></TD>
</tr>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Taal</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p><%= rsDVDdetails("language") %></p></TD>
</tr>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Ondertiteling</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p><%= rsDVDdetails("subtitling") %></p></TD>
</tr>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Video aspect ratio</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p><%= rsDVDdetails("videoaspectratio") %></p></TD>
</tr>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Audio</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p><%= CheckOnDTS(rsDVDdetails("audio")) %></p></TD>
</tr>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Disctype</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p><%= rsDVDdetails("disctype") %></p></TD>
</tr>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Extra features</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p><%= rsDVDdetails("features") %></p></TD>
</tr>
<tr>
<td VALIGN="TOP" align="right" class="blauw"><p><STRONG>Eigenaar</STRONG></p></td>
<TD VALIGN="TOP" class="geel"><p><%= rsDVDdetails("ownername") %></p></TD>
</tr><% rsDVDdetails.MoveNext
Wend %>
</table>
</td></tr></table></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")), "0")>0 Then
Response.write "<IMG SRC=images/regio_0.gif ALT=0>"
End If
If Instr(UCase(rsDVDdetails("regiocode")), "1")>0 Then
Response.write "<IMG SRC=images/regio_1.gif ALT=1>"
End If
If Instr(UCase(rsDVDdetails("regiocode")), "2")>0 Then
Response.write "<IMG SRC=images/regio_2.gif ALT=2>"
End If
If Instr(UCase(rsDVDdetails("regiocode")), "3")>0 Then
Response.write "<IMG SRC=images/regio_3.gif ALT=3>"
End If
If Instr(UCase(rsDVDdetails("regiocode")), "4")>0 Then
Response.write "<IMG SRC=images/regio_4.gif ALT=4>"
End If
If Instr(UCase(rsDVDdetails("regiocode")), "5")>0 Then
Response.write "<IMG SRC=images/regio_5.gif ALT=5>"
End If
If Instr(UCase(rsDVDdetails("regiocode")), "6")>0 Then
Response.write "<IMG SRC=images/regio_6.gif ALT=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 %>