Create an Active Server Page that creates an XML document from the following database:

Question

Answer 1

```
1 <%
2 @Language = "VBScript"
3 Option Explicit
4
5 ' Exercise 27.15 solution
6
7 Dim objConn, objRS
8
9 Set objConn = Server.CreateObject( "ADODB.Connection" )
10 Call objConn.Open( "DSN=productDB;" )
11
12 Set objRS = Server.CreateObject( "ADODB.Recordset" )
13
14 Call objRS.Open( "SELECT * FROM products ORDER BY productName", objConn )
15 %>
16
17
18
19 <%
20 While Not objRS.EOF
21 %>
22
23 <% =objRS( "productID" ) %>
24 <% =objRS( "productName" ) %>
25
26 <%
27 objRS.MoveNext
28 Wend
29
30 Call objRS.Close
31 Call objConn.Close
32 Set objRS = Nothing
33 Set objConn = Nothing
34 %>
35
```