Hola a todos!
"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:
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
Hasta luego!