Trabalhando com arquivos CSV

Falae pessoal,Estou tendo problemas ao gerar um arquivo csv. É o seguinte, nao sei qual o motivo de nao posicionar corretamente os registros nas celulas no excel.Estou usando um script que baixei para implementar. Segue abaixo o script:<%@ Language=VBScript %><% Response.Buffer = trueDim sTableDim sFieldsDim sIdDim sCon sFields = "login,senha,status"sTable = "pesquisas_user"Set DB = Server.CreateObject("ADODB.Connection")Set RS = Server.CreateObject("ADODB.Recordset")%><!-- #INCLUDE FILE="../../Connections/conn.asp" --><%sCon = "Provider=...;SERVER=...;DSN=...;DATABASE=...;UID=...;PWD=...;"DB.Open sConsId = request("id")RS.Open "SELECT "& sFields &" FROM "& sTable &" WHERE id = "& sId,DBResponse.ContentType = "application/csv"Response.AddHeader "Content-Disposition", "filename=contas.csv;"for i = 0 to RS.Fields.Count-1 if i = (RS.Fields.Count - 1) then Response.Write Ucase(RS.Fields(i).Name) else Response.Write Ucase(RS.Fields(i).Name) & ";" end ifnextResponse.write vbNewLineResponse.write vbNewLinewhile 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.MoveNextwendResponse.write vbNewLineResponse.write vbNewLineSet RS = NothingSet DB = Nothing%>Entao, nesse modo, quando uso o WHERE na consulta, ele procede de um jeito, se eu tiro o WHERE, muda a distribuição dos dados tambem.Quanto mais registros, mais baguncado fica no final do arquivo os registros, tipo, comecar a pular linha a mais. E tambem, os dados nao ficam na celula a que deveria ficar, ficam somente em duas, mas sendo que passei 3 campos na consulta.. e o for vai de 0 a 2, e quando chega no ultimo campo, da um vbNewLine.Qual seria o problema, se o arquivo esta sendo gerado, mas nao esta correto?Atenciosamente,diego