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

Siguiendo el consejo de rrufo esta puede ser una alternativa.

Código:
fotos = Request.Form("fotos") 'Puede ser de 1 a 6
ref = Request.Form("ref") 'Número de referencia. (Numero Entero)

select case fotos
case 1:
rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"
rs.Fields("fotoG1") = "r" & ref & "f1G.jpg"
for i=2 to 6
      rs.Fields("fotoP"&i) = ""
      rs.Fields("fotoG"&i) = ""
next

case 2:
rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"
rs.Fields("fotoG1") = "r" & ref & "f1G.jpg"
rs.Fields("fotoP2") = "r" & ref & "f2P.jpg"
rs.Fields("fotoG2") = "r" & ref & "f2G.jpg"
for i=3 to 6
      rs.Fields("fotoP"&i) = ""
      rs.Fields("fotoG"&i) = ""
next

case 3:
for i=1 to 3
rs.Fields("fotoP"&i) = "r" & ref & "f"&i&"P.jpg"
rs.Fields("fotoG"&i) = "r" & ref & "f"&i&"G.jpg" 
next
for i=4 to 6
      rs.Fields("fotoP"&i) = ""
      rs.Fields("fotoG"&i) = ""
next

case 4 :
for i=1 to 4
      rs.Fields("fotoP"&i) = "r" & ref & "f"&i&"P.jpg"
      rs.Fields("fotoG"&i) = "r" & ref & "f"&i&"G.jpg" 
next
rs.Fields("fotoP5") = ""
rs.Fields("fotoG5") = ""
rs.Fields("fotoP6") = ""
rs.Fields("fotoG6") = ""

case 5:
for i=1 to 5
      rs.Fields("fotoP"&i) = "r" & ref & "f"&i&"P.jpg"
      rs.Fields("fotoG"&i) = "r" & ref & "f"&i&"G.jpg" 
next
rs.Fields("fotoP6") = ""
rs.Fields("fotoG6") = ""

case 6:
for i=1 to 6
      rs.Fields("fotoP"&i) = "r" & ref & "f"&i&"P.jpg"
      rs.Fields("fotoG"&i) = "r" & ref & "f"&i&"G.jpg" 
next
End select

rs.Update
Introduje el for en las lineas donde habia mayor cantidad de operaciones y en las sencillas, deje el codigo original.

También cambie la sentencia If por un Select case.

Espero te sirva.