se puede automatizar esta currada??

[suntus]

<% if Rs("sotano")="1" then %><input name="sotano" type="checkbox" id="sotano" value="1" checked><%else%><input name="sotano" type="checkbox" id="sotano" value="1"><%end if%>

<% if Rs("portero")="1" then %><input name="portero" type="checkbox" id="portero" value="1" checked><%else%><input name="portero" type="checkbox" id="portero" value="1" ><%end if%>

y asi con 20 checked mas

¿podria automatizarse esto que estoy haciendo?

Gracias.

[AlZuwaga]

Iniciado por orharo2003

De que se puede se puede, dependerá de tus habilidades, dentro de un bucle que lo repita hasta el total de campos [20].

mas o menos asi:

for inicio=1 to 20

if (Rs("sotano")=1)then
%>

<input name="<%=Rs("sotano")%>" type="checkbox" id="<%=Rs("sotano")%>" value="1" checked>

<%else%>
<input name="<%=Rs("sotano")%>" type="checkbox" id="<%=Rs("sotano")%>" value="1">
<%end if%>

'mueves tu rs.
next


Saludos.

Pues no, orharo2003, porque de esa manera vas a generar 20 veces lo mismo para el checkbox correspondiente a Rs("sotano")... pero en el ejemplo que puso también está Rs("portero") y deben faltar 18 campos más que no son ni sotano ni portero

Como para hacerlo en menos líneas se me ocurre algo así:

Código:

<%
Campos = "sotano,portero,campo3,...,campo20"
arrCampos = Split(Campos, ",")

For i = 0 To UBound(arrCampos)
%>
<input name="<% = arrCampos(i) %>" type="checkbox" id="<% = arrCampos(i) %>" value="1"<% if CStr(Rs(arrCampos(i))) = "1" then Response.Write " CHECKED"%>>
<% Next %>

Bueno, esas líneas deberían generar tus 20 checkboxes y ponerlos como checked si el valor del campo es 1

[u_goldman]

Y bueno...es viernes, a lo mejor el buen orharo ya anda como sho

Saluuuuuuuuud!

[AlZuwaga]

Y ahora que lo leo mejor, creo que la única manera de hacerlo más chico es cambiar las 2 primeras líneas por:

Código:

arrCampos = Split(Campos, "sotano,portero,campo3,...,campo20")

EDIT: Saluuuuuuuuud!

[suntus]

gracias a todos por responder.

Al Zuwaga, eso mismo era lo q necesitaba

un saludo a todos,

[suntus]

con el codigo de al

<%
Campos = "sotano,portero,campo3,...,campo20"
arrCampos = Split(Campos, ",")

For i = 0 To UBound(arrCampos)
%>
<input name="<% = arrCampos(i) %>" type="checkbox" id="<% = arrCampos(i) %>" value="1"<% if CStr(Rs(arrCampos(i))) = "1" then Response.Write " CHECKED"%>>
<% Next %>

me da un problema

cuando hay un registro q no es 1 sino q esta vacio, me da este error
Error de Microsoft VBScript en tiempo de ejecución error '800a005e'

Uso no válido de Null: 'CStr'

que puede ser
gracias

[AlZuwaga]

probá de cambiar toda la parte del if por esto:


<% tmp = Rs(arrCampos(i)) : if tmp = 1 then Response.Write " CHECKED"%>

o por...

<% if Rs(arrCampos(i)) = 1 then Response.Write " CHECKED"%>


O... no sé... jugá un poco con el código a ver qué sale.
Saludos


PD: ¿Aquí no había más mensajes?