% Set conn = Server.createObject("ADODB.Connection") conn.Open MM_connect sql = "select * from config Where ID=1" Set rs = conn.Execute(sql) On error Resume Next orderbyweb = rs("orderbyweb") orderbyemail = rs("orderbyemail") emaildetail = rs("emaildetail") orderbytel = rs("orderbytel") teldetail = rs("teldetail") faxdetail = rs("faxdetail") orderbymail = rs("orderbymail") maildetail = rs("maildetail") paybycard = rs("paybycard") paybycash = rs("paybycash") cashdetail = rs("cashdetail") paybycheck = rs("paybycheck") checkdetail = rs("checkdetail") paybyticket = rs("paybyticket") ticketdetail = rs("ticketdetail") paybytransfer = rs("paybytransfer") transferdetail = rs("transferdetail") recievedetail = rs("recievedetail") rs.Close set rs =nothing %>