<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit

Dim strSQL, rsDVDall, conDVD

Init

rsDVDall.MoveFirst

Response.write("<?xml version='1.0' encoding='utf-8'?>") %><collection><% While not rsDVDall.eof %><dvd><dvdid><%= rsDVDall("dvdid") %></dvdid><title><![CDATA[<%= rsDVDall("title") %>]]></title><picture><%= rsDVDall("picture") %></picture><about><![CDATA[<%= rsDVDall("about") %>]]></about><runningtime><%= rsDVDall("runningtime") %></runningtime><regiocode><%= rsDVDall("regiocode") %></regiocode><genre><%= rsDVDall("genre") %></genre><language><%= rsDVDall("language") %></language><subtitling><%= rsDVDall("subtitling") %></subtitling><videoaspectratio><%= rsDVDall("videoaspectratio") %></videoaspectratio><audio><%= rsDVDall("audio") %></audio><disctype><%= rsDVDall("disctype") %></disctype><features><![CDATA[<%= rsDVDall("features") %>]]></features><lonername><%= rsDVDall("lonername") %></lonername></dvd><% rsDVDall.MoveNext %><% Wend %></collection>

<% Close

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

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

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