<% response.ContentType = "text/xml" set conn=Server.CreateObject("ADODB.Connection") conn.provider="Microsoft.Jet.OLEDB.4.0;" conn.open server.mappath("..\gas.mdb") sql="select link,title,description,updated from gas_prices" set rs=Conn.Execute(sql) rs.MoveFirst() response.write("") response.write("") response.write(" ") response.write(" ") response.write(" Local Gas Prices") response.write(" http://www.strawberryplains.net/gas/AllStations.asp") response.write(" ") response.write(" http://www.strawberryplains.net/gas/rssGasLogo.gif") response.write(" ") response.write(" http://www.strawberryplains.net/gas/AllStations.asp") response.write(" ") while (not rs.EOF) response.write("") response.write("" & rs("link") & "") response.write("") response.write("" & rs("description") & " last updated " & rs("updated") & "") response.write("") rs.MoveNext() wend rs.close() conn.close() response.write("") response.write("") %>