Formattazione che non va ocn Excel

[nilats]

Salve a tutto il forum!
il mio problema è che non sono convinto della formattazione della pagina excel che mi creo con uno script, in quanto mi cambia l'impostrazione della pagina, mi sposta gli elementi e poi non ci sono le celle.
come risolvere il problema?
grazie

[willybit]

dovresti postare un po' di codice... se salvi html di una tabella in un file con estensione xls, per far vedere le celle basta dare border=1

[nilats]

scusa la lentezza della risp. ma torno ora dal lavoro
ecco lo script che mi riporta in .xls una tabella da pagina html (i cui dati sono presi da un DB Access)

          <% 
if Request.Form("excel") = "EXCEL" then 
nomefile=request.form("name") 
' estraggo i dati 
Set rs = OBJdbConnection.Execute("SELECT * FROM fatture where idfattura like '"&idfattura&"'") 
for i = 0 to rs.Fields.Count-1 
risultato = risultato & rs.Fields(i).Name & "</td><td>" 
next 
risultato = risultato & "</td></tr><tr><td>" 
risultato = risultato & rs.GetString(,,"</td><td>","</td></tr><tr><td>", "-") 

' chiusura 
rs.Close 
set rs = Nothing 
OBJdbConnection.Close 
set OBJdbConnection = Nothing 

' modifico header per forzare l'apertura in Excel 
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename="& nomefile & ".xsl" 

' scrivo a video 
'Response.Write ("<table><tr><td>" & risultato & "</td></tr></table>") 

end if 
%>

[willybit]

prova così

if Request.Form("excel") = "EXCEL" then 
nomefile=request.form("name") 
' estraggo i dati 
Set rs = OBJdbConnection.Execute("SELECT * FROM fatture where idfattura like '"&idfattura&"'") 

strTab = "<table border=1><tr>"
for each field in rs.Fields
	strTab=strTab & "<td>" & field.name & "</td>"
next
strTab=strTab & "</tr>" & vbCrLf & "<tr><td>"

righe = rs.GetString(,,"</td><td>","</td></tr>" & vbCrLf & "<tr><td>", "NULL")
righe = Left(righe,Len(righe)-8)

strTab=strTab & righe & "</table>"

' chiusura 
rs.Close 
set rs = Nothing 
OBJdbConnection.Close 
set OBJdbConnection = Nothing 

' modifico header per forzare l'apertura in Excel 
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename="& nomefile & ".xsl" 

' scrivo a video 
'Response.Write ("<table><tr><td>" & risultato & "</td></tr></table>") 

end if

[nilats]

no, putroppo non va
gli elementi della pagina si spostano e il carattere dell'euro viene visualizzato come un quadretto

[nilats]

x il quadretto e le righe ho risolto
ma non riesco a capire come mai mi sposta un elemnto della pagina
(si tratta diunlayer che mi mette a inizio pagina)

[willybit]

un layer? :master:
evidentemente manca del codice pekké non capisco

[nilats]

willy scusa se non t rispondo
ma sto poco bene e vado a letto
a domani,,se sopravvivo