% Response.Expires=-1000 Response.Buffer=True Query = "SELECT * FROM company WHERE town=" & Request("town") Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open "BCMCforum" ' this is the name of DSN name Set RStown = Server.CreateObject("ADODB.recordset") RStown.Open Query,DataConn,1,2 Set RStown=Nothing Set DataConn=Nothing %>