<%@ LANGUAGE = "VBScript"%>
<%Response.ContentType="text/xml"%><?xml version="1.0"?>
<%
if Request.QueryString("WhereClause") = "" then
    WhereClause = ""
else
    WhereClause = Request.QueryString("WhereClause")
end if

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Exhibits.mdb"))
set PieceRS = Conn.Execute("SELECT * FROM Pieces " & WhereClause)

Response.Write("<Exhibit")
if WhereClause <> "" then Response.Write(" select=" & chr(34) & WhereClause & chr(34))
Response.Write(">")
do until PieceRS.EOF 
    Response.Write(VbCrLf & "<Piece id='" & PieceRS("PieceID") & "'>")
    Response.Write(VbCrLf & "    <Artist>" & PieceRS("Artist") & "</Artist>")
    Response.Write(VbCrLf & "    <Date>" & PieceRS("Date") & "</Date>")
    Response.Write(VbCrLf & "    <Graphic>" & PieceRS("PieceID") & ".gif" & "</Graphic>")
    Response.Write(VbCrLf & "    <Title>" & PieceRS("Title") & "</Title>")
    Response.Write(VbCrLf & "    <Media>" & PieceRS("Media") & "</Media>")
    Response.Write(VbCrLf & "    <Description>" & PieceRS("Description") & "</Description>")
    Response.Write(VbCrLf & "</Piece>")
    PieceRS.MoveNext
loop

Conn.Close
Response.Write(VbCrLf & "</Exhibit>")
%>