<%@ 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><regiocode><%= rsDVDall("regiocode") %></regiocode><runningtime><%= rsDVDall("runningtime") %></runningtime><subtitling><%= rsDVDall("subtitling") %></subtitling><audio><%= rsDVDall("audio") %></audio><genre><%= rsDVDall("genre") %></genre><lonername><%= rsDVDall("lonername") %></lonername></dvd><% rsDVDall.MoveNext %><% Wend %></collection>
<% Close

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

<%	strSQL = "SELECT dvdid, title, regiocode, runningtime, subtitling, audio, genre, lonername FROM tbl_dvd 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 %>