<% response.ContentType="text/xml" response.Write("") & vbCrLf set oConn = server.createobject("adodb.connection") oConn.open strConn sql = "SELECT * " sql = sql & " FROM Retailers " sql = sql & " ORDER BY State,City; " set rs = oConn.execute(sql) response.write ("") & vbCrLf Do While Not(rs.eof) state = rs.fields("State") name = rs.fields("CompanyName") city = rs.fields("City") lat = rs.fields("Lat") lat = CStr(CDbl(lat)) lon = rs.fields("Lon") lon = CStr(CDbl(lon)) zip = rs.fields("PostalCode") response.write("") & vbCrLf rs.movenext Loop response.write("" ) & vbCrLf Function Scrubber(strValue) Scrubber = Replace(strValue,"&","And") End Function %>