
14/10/2003, 02:17
|
| | Fecha de Ingreso: octubre-2003
Mensajes: 7
Antigüedad: 21 años, 7 meses Puntos: 0 | |
ayuda con este codigo en asp hola, necesito ayuda con esta conexion a una hoja excel en formato asp, este es el codigo,es k no me funciona ya k en pantalla solo me sale el titulo, ty nio ha ce una conecxion a aa hoja excel.
<%
Path=Server.MapPath("AreaVI.xls")
Set ConexionBD = Server.CreateObject("ADODB.Connection")
ConexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path
Set rsVac = Server.CreateObject("ADODB.Recordset")
rsVac.Open "Select * From Feriado order by Gerencia del area, nombre",ConexionBD,4,4
%>
<body>
<h2><b><center>Prueba</center></b></h2>
<hr>
<table border=1 align="center">
<%
Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(3).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(4).Name & "</th>" & vbCrLf
Do While Not rsVac.EOF
Response.Write "<tr>" & vbCrLf
Response.write "<td>" & rsVac(1) & "</td>"
Response.write "<td>" & rsVac(2) & "</td>"
Response.write "<td>" & rsVac(3) & "</td>"
Response.write "<td>" & rsVac(4) & "</td>"
Response.Write "</tr>" & vbCrLf
rsVac.MoveNext
Loop
Response.Write "</table>"
ConexionBD.Close
Set ConexionBD = Nothing
%>
si alguien sabe donde esta el error y me puede ayudar.
gracias |