Declarar Else -> "No hacer nada"

[vega22]

Una pregunta bien tonta. Tengo una condicional dentro de un While y quiero que el While haga una cosa (en mi caso enviar correos a una lista) en una condición y ninguna en el resto de casos. Estoy usando para engañarlo un response.write, de este modo:

Código:

Do While Not rs.EOF
destino=rs("correo")
if destino<>(variable declarada) then

<enviamos correo>

else 
response.write("ok")
end if
rs.MoveNext
Loop

Funciona no bien, sino perfecto, pero me parece que debe haber un modo más elegante y oficial de engañar al else.
¿Quizás debería usar un Select Case, del estilo:

Do While Not rs.EOF
Select Case destino
Case destino<>(variable declarada):
<enviamos el correo>
rs.MoveNext
Loop

¿Puede ser o es una burrez más?


Gracias de antemano.

[Muzztein]

Do While Not rs.EOF
destino=rs("correo")
if destino<>(variable declarada) then

<enviamos correo>

end if
rs.MoveNext
Loop

[vega22]

Bueno...Me tocó a mí hoy ser el gilipollas del foro.
Yo juraría que por supuesto quitar el else fue lo primero que probé, pero quizás me coincidió con algún otro fallo en el envío cdosys y supuse que había sido eso lo que andaba mal, por tener una comparativa negativa que siempre me ha resultado pésimo en los IF.
Gracias Muzz por echar un cable incluso a los más tontos.

No conforme aún, voy a intentar hacer aún más el ridículo:
Estuve tratando de (antes de resolver con el IF) enviar los correos con la inclusión en el .TO del cdosys de un array bien formateado. Para ello empecé usando getarrow(rs), aplicado a un SELECT de sólo el campo "correos" y luego pude sacar los valores a través de un FOR EACH, pero no logré encontrar el modo de colocarlos en una string con la ";" separándolos, tal y como pide el cdosys para enviar en estilo CC.
Por curiosidad, ¿cómo se haría esto? ¿Cómo se le dice al FOR EACH que saque todos los valores en la forma var=correo1;correo2;....;correoN?

[AlZuwaga]

Lo que logro entender de tu último comentario es que tenés un array formado así:
MiArray = array("correo1,correo2,....,correoN")

y lo querés dejar como:
var=correo1;correo2;....;correoN

Entonces podrías hacer un join:
MiArray = array("correo1,correo2,....,correoN")
var= join(MiArray, ";")

[vega22]

¿vos decís que con GetRows(rs) obtengo ya directamente un array unidimensional y no una matriz, aunque sea de un sólo campo? Yo tenía entendido que GetRows es siempre multidimensional (mejor dicho, matricial), y que para convertir sus datos en una string había que irlos sacando con un FOR.
Yo llegué a escribir esto, por probar:

arraycorreo=getrows(rs)
For I=0 to Ubound (arraycorreo,1)
response.write(arraycorreo(I,0)&";")
next

Pero como ni siquiera era un response.write lo que quería (y pocas veces se me ocurre otra cosa) lo abandoné ahí.

[Shiryu_Libra]

el mejor ejemplo de Getrows

te servira igual??

[vega22]

Iniciado por Shiryu_Libra

el mejor ejemplo de Getrows

te servira igual??

Perdona Shiryu, no he vuelto a entrar en el foro hasta hoy, he estado terminado de renovar la web. Gracias por el aporte.
Esa es precisamente una de mis páginas de referencia. El problema es que ahí queda claro como usar el getrows(), y hasta ahí yo llego, pero donde me atasco es en cómo recoger los datos, ya que yo no quiero escribir una tabla ni escribir nada sino obtener una variable que sea un array unidimensional separado por ";".

De todos modos el envío de correos a través del While está funcionando tan redondo que no merece la pena calentarnos más la cabeza con esto, de momento.

[Adler]

Hola

Este no es un arreglo tal y como lo quieres, pero espero que te sirva

Código asp:

valores = rs.getrows()
 
dim arr()
for i = 0 to UBound(valores)
arr(i) = valores(i)
next
 

Suerte

[vega22]

Pues sí, esa va a ser exactamente la manera, Adler, de solventar este tema.
Algo así entonces:

arraycorreo=getrows(rs)
dim arr()
For I=0 to Ubound (arraycorreo,1)
arr(I)=(arraycorreo(I,0)&";")
next

No creo que se me hubiera ocurrido nunca algo tan elegante, consecuente y simple. "Si quieres obtener como variable un array, declara un array como variable".
No tengo tiempo ahora de ponerme a enviar correos para probar la fórmula, pero tiene toda la pinta de que esto es lo que debe ser.
Muchas gracias


EDITO:
Bueno, con una corrección:

arraycorreo=getrows(rs)
dim arr()
For I=0 to Ubound (arraycorreo,2)
arr(I)=(arraycorreo(0,I)&";")
next