Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/06/2010, 07:19
border
 
Fecha de Ingreso: junio-2010
Mensajes: 7
Antigüedad: 13 años, 11 meses
Puntos: 0
Exportando desde Asp a hoja de calculo de open office

Buenas!

Estoy haciendo uan exportacion desde una Asp a una hoja de calculo de formato .ods .Estoy exportandon una tablas y me resulta imposible que me apare3zcan los bordes en la hoja de calculo.Si alguien tiene alguna solución para esto lo agradeceria mucho!

Aqui abajo os dejo un ejemplo del codigo que quiero hacer.
Muchas gracias!

<%

Response.ContentType = "application/vnd.oasis.opendocument.spreadsheet"
Response.AddHeader "content-disposition", "attachment; filename=prueba_borde.ods "

cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\AJAX\bd1.mdb"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open cst

Set Rs = Server.CreateObject("ADODB.Recordset")

Set Rs = Server.CreateObject("ADODB.Recordset")

consulta = "SELECT * FROM x"
Rs.Open consulta, oConn
response.write "<table border=""3"">"
response.write "<tr>"
Response.write "<td bgcolor=""#CCCCCC"">A</td>"
Response.write "<td bgcolor=""#CCCCCC"">B</td>"
Response.write "<td bgcolor=""#CCCCCC"">C</td>"



While not Rs.EOF
response.write "<tr>"
Response.Write "<td><div align=""center"">"& Rs(0)& "</div></td>"
Response.Write "<td>"& Rs(1)& "</td>"
'Response.Write "<td>"& Rs(3)& "</td>"


Rs.MoveNext

wend
response.write"</table>"
Rs.Close
Set Rs = Nothing
oConn.Close
Set oConn = Nothing


%>