Ver Mensaje Individual
  #10 (permalink)  
Antiguo 21/06/2005, 07:40
Avatar de Pachangero
Pachangero
 
Fecha de Ingreso: marzo-2005
Mensajes: 102
Antigüedad: 20 años
Puntos: 0
Saludos

Esta puede ser otra manera, mirala, no la he probado puede servir, revisa y corrige si es necesario.

Código:
Function llenado2(foto1,foto2)
    for i=foto1 to foto2
        rs.Fields("fotoP"&i) = ""
        rs.Fields("fotoG"&i) = ""
    next
End Function

If fotos = 1 Then

rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"
rs.Fields("fotoG1") = "r" & ref & "f1G.jpg"
envia_foto1=2
envia_foto2=6
	operacion = llenado2(envia_foto1,envia_foto2)
end if
La idea es que puedes utilizar una función para ahorrarte mas lineas, unicamente seria cosa de ver como adaptarla.

Suerte