<% set conn=server.createobject("adodb.Connection") Constring = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database\dist.mdb") conn.Open constring SQL = "select * from usdist " Set Rec = conn.execute(SQL) %> <% Response.contentType="text/xml"%><%While(NOT Rec.EOF) %> " Long="<%=Rec("Long")%>" state="<%=Rec("State")%>" city="<%=Rec("City")%>" street="<%=Rec("Address")%>" zip="<%=Rec("Zip")%>" phone="<%=Rec("Phone")%>" web="<%=Rec("Web")%>"><%=Rec("name")%> <% Rec.MoveNext Wend %><% Rec.Close Set Rec=nothing %>