<% response.ContentType="text/xml" response.Write("") 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 ("") Do While Not(rs.eof) state = rs.fields("State") If (state = "AK") Then name = rs.fields("CompanyName") city = rs.fields("City") lat = rs.fields("Lat") lat = CStr(CDbl(lat)) lon = rs.fields("Lon") lon = CStr(CDbl(lon)) response.write("") ElseIf (state ="HI") Then response.write("") Else response.write("") End If rs.movenext Loop response.write("" ) Function Scrubber(strValue) Scrubber = Replace(strValue,"&","And") End Function %>