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.