ASP Example Source Code

The source code for banddispxml.asp:

<?xml version="1.0" ?>

<%
     function fix_str(str)
       temp = str
       loc = 1
       do while loc < len(temp)
         if mid(temp,loc,1) = "," then
           temp = left(temp,loc-1) & "/" & mid(temp,loc + 1)
         else
           if mid(temp,loc,1) = "&" then
             temp = left(temp,loc-1) & "&" & mid(temp,loc + 1)
             loc = loc + 3
           end if
         end if
         loc = loc + 1
       loop
       fix_str = temp
     end function

     Set objConnect = CreateObject("ADODB.Connection")
     objConnect.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; data source=D:\Inetpub\hardts.net\data\website.mdb"
     objConnect.Open
     command = "SELECT LPG.PerformDate, LPG.Performers, LPGInfo.Description, LPGInfo.Website, LPG.Submit FROM LPG LEFT JOIN LPGINFO ON "
     command = command & "LPG.Performers=LPGInfo.Performers "
     command = command & "WHERE PerformDate >= #" & Date & "# "
     command = command & "ORDER BY PerformDate, LPG.Submit DESC"

     set objRecords = objConnect.Execute( command )
     Response.Write "<BANDDATA>" & chr(13) & chr(10)
     limit = Request("limit")
     if limit = 0 then
       limit = 1000
     end if
     do while true
       if (objRecords.EOF or limit = 0) then exit do
       if prev_date <> objRecords.Fields("PerformDate") then
         Response.Write " <BANDDATE>" & chr(13) & chr(10)
         Response.Write " <PERFORMDATE>" & objRecords.Fields("PerformDate") & "</PERFORMDATE>" & chr(13) & chr(10)
         Response.Write " <PERFORMERS>" & fix_str(objRecords.Fields("Performers")) & "</PERFORMERS>" & chr(13) & chr(10)
         describer = objRecords.Fields("Description")
         if len(describer) then
           Response.Write " <DESCRIPTION>" & fix_str(describer) & "</DESCRIPTION>" & chr(13) & chr(10)
         else
           Response.Write " <DESCRIPTION>.</DESCRIPTION>"
         end if
         web_site = objRecords.Fields("Website")
         if len(web_site) then
           Response.Write " <WEBSITE>" & web_site & "</WEBSITE>" & chr(13) & chr(10)
         else
           Response.Write " <WEBSITE>.</WEBSITE>"
         end if
         Response.Write " </BANDDATE>" & chr(13) & chr(10)
         prev_date = objRecords.Fields("PERFORMDATE")
         limit = limit - 1
       end if
       objRecords.MoveNext
     loop
     Response.Write "</BANDDATA>" & chr(13) & chr(10)
     objConnect.Close
  %>