tengo un pequeño problema:
tengo el siguiente codigo
Código:
' Se crean las variables a utilizar (PathXXX corresponde a la ruta
' del archivo de tipo XXX que utilizaremos).
PathMDB = Server.MapPath("Ejercicio3.mdb")
PathXLS = Server.MapPath("Ejercicio3.xls")
FinLinea = ""
' Creo los objetos que utilizaremos, serán 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")
' Abro la conexión, ejecuto la consulta y guardo los resultados en el recordset creado
oConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathMDB
Set rs = oConn.Execute("SELECT Oficina, Nombre, Total FROM Feriado")
' Recorro todo el recordset recuperando sus valores y escribiéndolos 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>" & rs.Fields.Item(0).Name & "</th>" & vbCrLf
Response.Write "<th>" & rs.Fields.Item(1).Name & "</th>" & vbCrLf
Response.Write "<th>" & rs.Fields.Item(2).Name & "</th>" & vbCrLf
'Y por último, el cuerpo de los datos
Do While Not rs.EOF
Response.Write "<tr>" & vbCrLf
Response.write "<td>" & rs(0) & "</td>"
Response.write "<td>" & rs(1) & "</td>"
Response.write "<td>" & rs(2) & "</td>"
Response.Write "</tr>" & vbCrLf
rs.MoveNext
Loop
Megustaria que en esta parte
PathXLS = Server.MapPath("Ejercicio3.xls")
el nombre "Ejercicio3" fuera dinamico o lo pueda remplazar por el que yo quiera.
Como lo ago????