<%response.ContentType="text/XML"%> http://downtownla.com Special offers from downtown LA businesses <% Set rsSpecials = objSpecials.getDowntownSpecials() If Not rsSpecials.EOF Then Do While Not rsSpecials.EOF strFormattedDetails = Server.HTMLEncode(rsSpecials("Details")) strFormattedDetails = Replace(strFormattedDetails, vbCrLf & vbCrLf, "<BR><BR>") strFormattedDetails = Replace(strFormattedDetails, vbCrLf, "<BR>") %> <% If rsSpecials("OfferURL") <> "" Then %> <%=Server.HTMLEncode(rsSpecials("OfferURL"))%> <% End If %> http://downtownla.com/3_01_downtownSpecials.asp?offerID=<%=rsSpecials("DowntownSpecialID")%> <%=Server.HTMLEncode(rsSpecials("Location"))%><BR> <%=Server.HTMLEncode(rsSpecials("Expiration"))%><BR> <BR> <%=strFormattedDetails%> <% rsSpecials.MoveNext Loop End If %>