Foros del Web » Programando para Internet » ASP Clásico »

Recorset con Campo variable , Ayuda.

Estas en el tema de Recorset con Campo variable , Ayuda. en el foro de ASP Clásico en Foros del Web. Buenas tardes, por aqui ando de nuevo con los follones de asp. Estoy utilizando el aspupload junto con el asp jpg para subir varios ficheros ...
  #1 (permalink)  
Antiguo 30/08/2008, 15:40
Avatar de tatoman  
Fecha de Ingreso: abril-2002
Ubicación: Madrid
Mensajes: 215
Antigüedad: 22 años, 2 meses
Puntos: 1
Recorset con Campo variable , Ayuda.

Buenas tardes, por aqui ando de nuevo con los follones de asp.

Estoy utilizando el aspupload junto con el asp jpg para subir varios ficheros a la vez al servidor y actualizar una bbdd que tiene algo asi:

rs(foto1), rs(foto2), rs(foto3).... en el mismo registro

Los ficheros los subo sin problemas, pero no se como moverme por los campos de la bbdd para actualizar cada campo en concreto.

La primera parte del codigo es un formulario de 4 campos (form.asp):

<form action="upload.asp" method="post" enctype="multipart/form-data" name="form1" id="form1">
Imagen Principal <input name="file1" type="file" id="file1" />
Imagen 2 <input name="file2" type="file" id="file2" />
Imagen 3 <input name="file3" type="file" id="file3" />
Imagen 4 <input name="file4" type="file" id="file4" />
<input type="submit" name="Submit" value="Subir las Imgenes" />
</form>

y el fichero upload.asp:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Path = "D:\XVRT\miservidor.com\html\imagenes_anunciantes\ " 'Ruta fisica del servidor

Count = Upload.Save(Path)

Dim Contador
Contador = 1
For Each File in Upload.Files
If File.ImageType <> "UNKNOWN" Then Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open( File.Path )
jpeg.Width = 400 'Ancho que quieras
jpeg.Height = 300 'Alto que quieras
SavePath = Path&Recordset1("Id")&"-"&Recordset1("Nombre")&"-"&Contador 'Puedes utilizar una variable
If UCase(Right(SavePath, 3)) <> "JPG" Then
SavePath = SavePath & ".jpg"
End If
jpeg.Save SavePath
Recordset1("Fotografia(Contador)").Update

Esta parte es la que no me punciona, ya que pretendo que salga algo asi con la variable contador
Recordset1("Fotografia1").Update y sume + 1 en el siguiente paso del next. Mencionar que la conexion contra la bbdd la hago sin problemas en la misma pagina y filtro perfectamente el registro en cuestion por su ID, pero no lo incluyo para no meter mas paja a este mensaje

Contador=Contador+1
Next
%>
No se si me podeis ayudar o hay un codigo mas facil, estoy seguro que si, pero he intentado buscar en la web del programa y no veo nada.

En definitiva pretendo subir 4 ficheros al sevidor y actualizar los 4 campos correspondientes del mismo registro de mi bbdd con sus respectivos nobres...
__________________
Elias Frances
Webmaster (ultimos proyectos) de:
www.internet20.es
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:45.