Ciao a tutti,
ho un problema mica da poco:
da 1 pagina asp io genero un export .txt che deve rispettare delle regole di compilazione nel tracciato. il mio problema è che non riconosce l'accapo.
Avevo inserito seguendo indicazioni dei forum questo carattere VbCrLf, che però mi è stato detto di eliminare.
Se non lo metto il txt va a capo solo al termine dei max caratteri del txt non rispettando i record di Access
Se c'è qualche anima pia allego il codice:
<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("db/pippo.mdb")
'assegna il nome al file Excel che si desidera generare
Dim filename
filename = "pippo"
'abilita la bufferizzazione
Response.Buffer = true
'definisce il tipo di documento
Response.ContentType = "application/vnd.txt"
Response.AddHeader "content-disposition", "inline; filename=" &filename& ".dat"
Dim SQL
SQL="SELECT * FROM scontrini ORDER BY data desc"
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs=Conn.Execute(SQL)
Do while NOT RS.EOF
response.write(replace(rs("data"),"/","-"))
response.write ";"
response.write(replace(rs("ora"),".",":"))
response.write ";00000;000;00000;"
response.write(rs("ean"))
response.write ";00 "
response.write ";000"
response.write(rs("importo"))
response.write "00;0000000"
response.write(rs("codice_pippo"))
response.write ";00000000;"
response.write(rs("stato"))
response.write "; ; "
response.write VbCrLf
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
'invia l'output HTML bufferizzato
Response.Flush
Response.End
%>
Rispondi quotando
