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

```
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
```

Computer Science & Information Technology

You might also like to view...

The ________ element allows you to add a short description about a table

A) B) C) D) </p> </div> <div class="d-flex justify-content-between align-items-center"> <div class="btn-group"> <a href="https://qoschin.com/qa/SQC7Ja6PSZ8O" class="btn btn-sm btn-dark px-3">View</a> </div> <span class="badge bg-secondary">Computer Science & Information Technology</span> </div> </div> </div> </div> <div class="col"> <div class="card shadow-sm"> <div class="card-body"> <div class="card-area mb-2"> <p class="card-text">Computer-based social engineering uses software to retrieve information</p> <p class="card-text">Indicate whether the statement is true or false.</p> </div> <div class="d-flex justify-content-between align-items-center"> <div class="btn-group"> <a href="https://qoschin.com/qa/vqg2bKcHHTgt" class="btn btn-sm btn-dark px-3">View</a> </div> <span class="badge bg-secondary">Computer Science & Information Technology</span> </div> </div> </div> </div> </div> </div> </div> </main> <footer class="text-body-secondary py-4"> <div class="container"> <p class="mb-1 text-center">Qoschin: Your Gateway to Quick, Reliable Answers.</p> </div> </footer> <script src="https://qoschin.com/assets/js/bootstrap.bundle.min.js"></script> </body> </html>