Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/06/2005, 03:49
Avatar de mrgubu
mrgubu
 
Fecha de Ingreso: febrero-2002
Ubicación: Granada
Mensajes: 431
Antigüedad: 23 años, 1 mes
Puntos: 2
Busco una función o bucle para ahorrar codigo

Hola ¿Puede ayudarme alguien a automatizar con un For ...next a algo así este código?

Simplemente estoy automatizando la escritura del nombre de una serie de fotos para un registro de una BD.


'Bucle para insertar automáticamente el nombre de las fotos

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

If fotos = 1 Then
rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"
rs.Fields("fotoG1") = "r" & ref & "f1G.jpg"
rs.Fields("fotoP2") = ""
rs.Fields("fotoG2") = ""
rs.Fields("fotoP3") = ""
rs.Fields("fotoG3") = ""
rs.Fields("fotoP4") = ""
rs.Fields("fotoG4") = ""
rs.Fields("fotoP5") = ""
rs.Fields("fotoG5") = ""
rs.Fields("fotoP6") = ""
rs.Fields("fotoG6") = ""
Elseif fotos = 2 Then
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"
rs.Fields("fotoP3") = ""
rs.Fields("fotoG3") = ""
rs.Fields("fotoP4") = ""
rs.Fields("fotoG4") = ""
rs.Fields("fotoP5") = ""
rs.Fields("fotoG5") = ""
rs.Fields("fotoP6") = ""
rs.Fields("fotoG6") = ""
Elseif fotos = 3 Then
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"
rs.Fields("fotoP3") = "r" & ref & "f3P.jpg"
rs.Fields("fotoG3") = "r" & ref & "f3G.jpg"
rs.Fields("fotoP4") = ""
rs.Fields("fotoG4") = ""
rs.Fields("fotoP5") = ""
rs.Fields("fotoG5") = ""
rs.Fields("fotoP6") = ""
rs.Fields("fotoG6") = ""
Elseif fotos = 4 Then
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"
rs.Fields("fotoP3") = "r" & ref & "f3P.jpg"
rs.Fields("fotoG3") = "r" & ref & "f3G.jpg"
rs.Fields("fotoP4") = "r" & ref & "f4P.jpg"
rs.Fields("fotoG4") = "r" & ref & "f4G.jpg"
rs.Fields("fotoP5") = ""
rs.Fields("fotoG5") = ""
rs.Fields("fotoP6") = ""
rs.Fields("fotoG6") = ""
Elseif fotos = 5 Then
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"
rs.Fields("fotoP3") = "r" & ref & "f3P.jpg"
rs.Fields("fotoG3") = "r" & ref & "f3G.jpg"
rs.Fields("fotoP4") = "r" & ref & "f4P.jpg"
rs.Fields("fotoG4") = "r" & ref & "f4G.jpg"
rs.Fields("fotoP5") = "r" & ref & "f5P.jpg"
rs.Fields("fotoG5") = "r" & ref & "f5G.jpg"
rs.Fields("fotoP6") = ""
rs.Fields("fotoG6") = ""
Elseif fotos = 6 Then
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"
rs.Fields("fotoP3") = "r" & ref & "f3P.jpg"
rs.Fields("fotoG3") = "r" & ref & "f3G.jpg"
rs.Fields("fotoP4") = "r" & ref & "f4P.jpg"
rs.Fields("fotoG4") = "r" & ref & "f4G.jpg"
rs.Fields("fotoP5") = "r" & ref & "f5P.jpg"
rs.Fields("fotoG5") = "r" & ref & "f5P.jpg"
rs.Fields("fotoP6") = "r" & ref & "f6P.jpg"
rs.Fields("fotoG6") = "r" & ref & "f6G.jpg"
End If

rs.Update