Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Onclick
 Foro Bloqueado  Tema Bloqueado


Autor Temas
ccarvajal
Starting Member

Costa Rica
23 Posts
Mensajes - 10 Dec 2002 :  23:45:50  Ver Perfil  Enviar Email
Tengo la siguiiente duda estoy utilizando un boton para hacer llamado a una funcion
<input name="cmdSubmit" type="image" src="../cover/submit_botton.gif" onClick="VBScript:validar()">

y la funcion se encargara de realizar una validaciones del formulario el problema esta en que me valida el campo pero me vuelve a cargar la pagina
function validar()
Dim info
Dim str

If document.rem.txtautho.value <> "" then
If IsNumeric(document.rem.txtautho.value) = False then
msgbox "The authorization must be I number"
document.rem.txtautho.onfocus
return
End if
Else
window.document.rem.action="../include/reportsgeneral.asp"
window.document.rem.submit()
End if


End function

y la idea seria que me devolviera a la pagina para corregir los datos espero alguien me pueda ayudar

Gracias
Cristian

buho_nero
Moderator

España
1316 Posts
Posted - 11 Dec 2002 :  10:46:47  Ver perfil  Enviar e-mail
Tienes un error de sintáxis en la sentencia IF, la forma correcta es:

if (condición) then
...
else
...
end if

Te sobra un "end if" justo antes del "else".
Un detalle, realmente no debería ser una función sino un procedimiento, ya que no devuelve ningún valor.

Sub validar()
Dim info
Dim str

If document.rem.txtautho.value <> "" then
If IsNumeric(document.rem.txtautho.value) = False then
msgbox "The authorization must be I number"
document.rem.txtautho.onfocus
Else
window.document.rem.action="../include/reportsgeneral.asp"
window.document.rem.submit()
End if
End sub


Inicio Pagina

dos
Moderator

España
1575 Posts
Posted - 11 Dec 2002 :  17:29:20  Ver perfil  Enviar e-mail
buho_nero, no tiene error donde dijistes, fijate que tiene dos condicionales, dentro del primero abre el segundo que hace x cosas y si el primer condicional no se ejecuta se ejecuta su else. Tiene bien la sintaxis al menos a primer vistazo.

Aunque yo lo habria puesto de esta forma.

sub validar()
Dim info
Dim str

If document.rem.txtautho.value <> "" then
If IsNumeric(document.rem.txtautho.value) = False then
msgbox "The authorization must be I number"
document.rem.txtautho.onfocus
Else
window.document.rem.action="../include/reportsgeneral.asp"
window.document.rem.submit()
End if
End If

End sub

De tdoas formas te digo lo que siempre digo cuando se usa vbscript en lado cliente, ten cuidado porque esto solo se ejecutara en los IExplorer, en Netscape y compañia no se ejecutará.


Saludos.

Para cuando los foros de XML????Inicio Pagina

buho_nero
Moderator

España
1316 Posts
Posted - 11 Dec 2002 :  19:25:09  Ver perfil  Enviar e-mail
¡Desde luego! Hoy me tenía que haber quedado en cama.

Inicio Pagina

a
Starting Member


27 Posts
Posted - 24 May 2006 :  10:34:58  Ver perfil  Enviar e-mail
quote:

Tengo la siguiiente duda estoy utilizando un boton para hacer llamado a una funcion
<input name="cmdSubmit" type="image" src="../cover/submit_botton.gif" onClick="VBScript:validar()">

y la funcion se encargara de realizar una validaciones del formulario el problema esta en que me valida el campo pero me vuelve a cargar la pagina
function validar()
Dim info
Dim str

If document.rem.txtautho.value <> "" then
If IsNumeric(document.rem.txtautho.value) = False then
msgbox "The authorization must be I number"
document.rem.txtautho.onfocus
return
End if
Else
window.document.rem.action="../include/reportsgeneral.asp"
window.document.rem.submit()
End if


End function

y la idea seria que me devolviera a la pagina para corregir los datos espero alguien me pueda ayudar

Gracias
Cristian



Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar