
17/11/2004, 15:20
|
 | | | Fecha de Ingreso: junio-2002 Ubicación: Santiago - CL
Mensajes: 2.532
Antigüedad: 22 años, 10 meses Puntos: 125 | |
Código:
<%
' Se crean las variables a utilizar (PathXXX corresponde a la ruta
' del archivo de tipo XXX que utilizaremos).
t = trim(request.querystring("n_sol"))
doc = "solicitud"&t&".xls"
PathXLS = Server.MapPath(doc)
FinLinea = ""
'Creo los objetos que utilizaremos, sern de los tipos FSO, TextStream y Connection
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionTimeout = 15
oConn.CommandTimeout = 30
oConn.open "DSN=farmacia;UID=;PWD;"
Set rs = oConn.Execute("SELECT id_insumo, Nombre, solicitud, entregado, stock, tipo_i, costo FROM temp_solicitudes where n_solicitud = "&request.querystring("n_sol")&"")
dim rojo(7)
rojo(1) = "Codigo"
rojo(2) = "Nombre"
rojo(3) = "Solictiud"
rojo(4) = "Entregado"
rojo(5) = "Stock"
rojo(6) = "Tipo"
rojo(7) = "Costo"
for i = 1 to 7
fei = fei & rojo(i) & chr(9)
next
Arch_Excel.writeline fei
' Recorro todo el recordset recuperando sus valores y escribindolos en el archivo Excel
Do while Not rs.EOF
FinLinea = ""
For each x in rs.fields
FinLinea = FinLinea & x.value & chr(9)
Next
Arch_Excel.writeline FinLinea
rs.MoveNext
Loop
rs.MoveFirst
'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
Response.Write "<table border='1'>"
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(0).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(1).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(2).Name & "</th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(3).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(4).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(5).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(6).Name & "</font></th>" & vbCrLf
'Y por ltimo, el cuerpo de los datos
Do While Not rs.EOF
Response.Write "<tr>" & vbCrLf
Response.write "<td bgcolor='#ffffff'><font face='Verdana' size='1'>" & rs(0) & "</font></td>"
Response.write "<td bgcolor='#ffffff'><font face='Verdana' size='1'>" & rs(1) & "</font></td>"
Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(2) & "</font></td>"
Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(3) & "</font></td>"
Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(4) & "</font></td>"
Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(5) & "</font></td>"
Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(6) & "</font></td>"
Response.Write "</tr>" & vbCrLf
rs.MoveNext
Loop
Response.Write "</table>"
' Cierro y destruyo todos los objetos utilizados para liberar memoria del servidor
Arch_Excel.Close
Set Arch_Excel = Nothing
Set fso = Nothing
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
%>
ojala lo comprendan.. estudienlo...salu2 |