Acá les pongo el fuente. Haber si alguien con un poco más de experiencia que yo me puede decir cual es el error en el código.
Código ASP:
Ver original
dim conn, tmp, var, I, respuesta Set conn = Server.CreateObject("ADODB.Connection") Set var = server.CreateObject("ADODB.Recordset") conn.open "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=SoporteSP;Data Source=(local)" if request.form("Identificacion") = "SubRubroSeleccion" then dim MStream, Path, PathBajado, Descripcion, Codigo, img, imgArticulo, varArticulo Set img = server.CreateObject("ADODB.Recordset") Set MStream = Server.CreateObject("ADODB.Stream") MStream.Type = 1 MStream.Open tmp = "SELECT Id_Articulo, Descripcion, Codigo, Precio1 FROM Articulos WHERE Rubro =" & request.form("RubroElegido") & " AND Articulos.Subrubro =" & request.form("SubRubroElegido") & " ORDER BY Descripcion" var.open tmp, conn, 1, 1 tmp = "SELECT Imagenes.Id_Articulo, Imagenes.Imagen, Imagenes.Path FROM Imagenes INNER JOIN Articulos ON Imagenes.Id_Articulo = Articulos.Id_Articulo WHERE Rubro =" & request.form("RubroElegido") & " AND Articulos.Subrubro =" & request.form("SubRubroElegido") img.Open tmp, conn, 1, 1 respuesta = "{Formulario: 'SubRubroSeleccion', Precio: [" Descripcion = "Descripcion: [" Codigo = "Codigo: [" Path = "Path: [" For I = 1 To var.RecordCount - 1 respuesta = respuesta & "'" & "" & var("Precio1") & "', " Descripcion = Descripcion & "'" & "" & var("Descripcion") & "', " Codigo = Codigo & "'" & "" & var("Codigo") & "', " If Not img.EOF Then If img("Id_Articulo").Value = var("Id_Articulo").Value Then Path = Path & "'" & Session("Path") & "/" & "" & img("Path").Value & "', " PathBajado = Server.MapPath("." & Session("Path") & "/" & "" & img("path").Value) MStream.Write img("Imagen").value MStream.SaveToFile PathBajado, 2 img.movenext else Path = Path & "'./temp/ImagenNoDisponible.jpg', " end if var.movenext else Path = Path & "'./temp/ImagenNoDisponible.jpg', " end if next respuesta = respuesta & "'" & "" & var("Precio1") & "'], " Descripcion = Descripcion & "'" & "" & var("Descripcion") & "'], " Codigo = Codigo & "'" & "" & var("Codigo") & "'], " if Not img.eof then if img("Id_Articulo").Value = var("Id_Articulo").Value then Path = Path & "'" & Session("Path") & "/" & "" & img("Path").Value & "']}" PathBajado = Server.MapPath("." & Session("Path") & "/" & "" & img("Path").Value) MStream.Write img("Imagen").value MStream.SaveToFile PathBajado, 2 img.movenext else Path = Path & "'./temp/ImagenNoDisponible.jpg']}" end if else Path = Path & "'./temp/ImagenNoDisponible.jpg']}" end if respuesta = respuesta & Descripcion & Codigo & Path end if
Vale aclarar que este código crea una cadena con el formato JSON que posteriormente recibe un archivo JS.
Este código lo probé en VB6 y me funciono (cambiandole el código propiamente de ASP). Ya se que me dirán que VB6 y ASP3 no son los mismo, lo cual reconosco, pero son bastante parecidos.
Nada más que decir, simplemente un pedido de auxilio porque esto ya me tiene frustrado.
Desde ya muchas gracias.