<%@ Language=VBScript %> <% Dim DB Dim strSQL set DB= Server.CreateObject("ADODB.Connection") DB.Provider = "sqloledb" DB.Open "driver={SQLServer};server=bd1.gizer.net;Database=qn309;uid=TEKI_Edex;pwd=3487.D-s" Dim sTable Dim sDSN Dim sFields Set RS = Server.CreateObject("ADODB.Recordset") RS.Open "select * from ZerbikasaysDonostia2011" ,DB Response.ContentType = "application/csv" Response.AddHeader "Content-Disposition", "filename=mydata.csv;" ' lets print the fields on top for i = 0 to RS.Fields.Count-1 if i = (RS.Fields.Count - 1) then Response.Write lcase(RS.Fields(i).Name) else Response.Write lcase(RS.Fields(i).Name) & ";" end if next Response.write vbNewLine Response.write vbNewLine while not RS.EOF for u=0 to RS.Fields.Count - 1 if u = (RS.Fields.Count - 1) then Response.Write RS.Fields(u).Value else Response.Write RS.Fields(u).Value & ";" end if next response.write vbNewLine rs.MoveNext wend Response.write vbNewLine Response.write vbNewLine Set RS = Nothing Set DB = Nothing %>