
19/07/2002, 17:26
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Tú buscame y me encontraras
Mensajes: 413
Antigüedad: 23 años, 4 meses Puntos: 0 | |
Re: Msgbox Hola.
Hay una forma de hacerlo,
mete lo siguiente en el HEAD
----------------------
<script LANGUAGE="VBScript">
SUB ventana()
Dim Mensaje,Botones,Titulo,Respuesta,tu_respuestaMensa je="¿Desea continuar?"
Botones=vbYesNo+vbQuestion+vbDefaultButton2
Titulo= "<%=(Recordset1.Fields.Item("lo_que_s ea").Value)%>"
Respuesta=MsgBox(Mensaje,Botones,Titulo)
End SUB
</script>
-----------------------
Como puedes ver puedes meter un Recordset para definir el titulo,mensaje o Botones.
Para hacer la llamada solo tienes que incluir el codigo siguiente dentro del body
-------------------------
<script LANGUAGE="VBScript">
If Respuesta <> vbYes Then tu_respuesta="20"
ventana
DOCUMENT.WRITE "tu_respuesta"&tu_respuesta
</script>
-------------------------
He incluido lo del DOCUMENT.WRITE para que veas como funciona, pero se puede modificar a tu gusto.
Saludos ;)
Hay tanto que aprender y tan poco tiempo |