<% Call checkAdmin accessdb = "\./db/fishermens.mdb" set objConn = server.CreateObject("ADODB.Connection") objConn.Open = "Data Source=" & Server.Mappath(accessdb) & ";Provider=Microsoft.Jet.OLEDB.4.0;" fn = "FishermensPier_Contacts.xls" 'fn = "admin-excel.xls" 'Response.Buffer = TRUE Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition","attachment;filename=" & fn sql = "SELECT * FROM tblRegister" set rs = objConn.Execute(sql) %> <% while not rs.eof %> <% rs.movenext wend %>

NAME	EMAIL	NUMBER	POSTCODE
<%=rs("name")%>	<%=rs("email")%>	<%=rs("phone")%>	<%=rs("postcode")%>	<%=rs("dtstamp")%>