"RENEGANDO", "RE CALIENTE", "PARA EL CULO", etc. son algunas de las palabras que acompañan mi respuesta a la pregunta diaria "como andas?" desde hace ya tres dias consecutivos sincesantes!
El tema es que (generalmente programo en vbscript, no le hago al javascript), que firefox no me reconoce el codigo vbscript del lado cliente. Conclusión, utilizar javascript, no? (esto lo lei en algun lado me parece).
Al no estar muy ducho en el tema, se me complicó un poquito. Básicamente lo que necesito es ver si alguien me puede dar una mano en "traducir" este código vbscript a javascript.
No voy a saber agradecer tal contribución, un "muchas gracias" y "te amo hasta la muerte" espero satisfaga al colaborador!
Código:
Hasta luego! function validar_clave() dim clave1, clave2 clave1 = trim(document.getElementById("claveuno").value) clave2 = trim(document.getElementById("clavedos").value) dim er, temp temp = false if len(clave1) > 3 and len(clave1) < 21 then set er = New RegExp er.Pattern = "^[a-z0-9]+$" er.IgnoreCase = True temp = er.Test(clave1) if temp = true and clave1 <> clave2 then temp = false alert("Las claves ingresadas no son iguales!") elseif temp = false then alert("Las claves ingresadas no son correctas o tienen espacios en blanco!") elseif temp = true then document.getElementById("md5clave").value = MD5(clave1) document.getElementById("claveuno").value = "" document.getElementById("clavedos").value = "" end if set er = nothing else alert("Las claves ingresadas no son correctas o estan en blanco!") end if validar_clave = temp end function function validar() valido = false if validar_mail then if validar_clave then valido = true else alert("El email ingresado no es valido o esta en blanco!") end if validar = valido end function function validar_mail() Dim bValido, Mail bValido = True Mail = trim(document.getElementById("correo").value) If Len(Mail) < 5 Then bValido = False Else If InStr(1, Mail, "@") = 0 Then bValido = False Else If InStr(1, Mail, ".") = 0 Then bValido = False Else If InStr(InStr(1, Mail, "@"), Mail, ".") < InStr(1, Mail, "@") Then bValido = False End If End If End If End If validar_mail = bValido end function