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"Elseif fotos = 2 Then
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") = ""
rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"Elseif fotos = 3 Then
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") = ""
rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"Elseif fotos = 4 Then
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") = ""
rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"Elseif fotos = 5 Then
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") = ""
rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"Elseif fotos = 6 Then
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") = ""
rs.Fields("fotoP1") = "r" & ref & "f1P.jpg"End If
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"
rs.Update