<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "shopdb" Set Connection = conn sqlQuery = "SELECT * from transaction" Set rs = conn.Execute(sqlQuery) do while not rs.EOF invoice = rs("invoice") custFirstName = rs("custFirstName") custLastName = rs("custLastName") custAdd = rs("custAdd") custEmail = rs("custEmail") custCountry = rs("custCountry") custPostal = rs("custPostal") custContactNo = rs("custContactNo") tx = rs("tx") st = rs("st") custOrder = rs("custOrder") response.write(invoice & "," & custFirstName & "," & custEmail & "," & tx & "," & st & "," & custOrder ) rs.movenext loop %>