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