Ver Mensaje Individual
  #2 (permalink)  
Antiguo 20/05/2005, 10:25
Avatar de ludovico2000
ludovico2000
 
Fecha de Ingreso: noviembre-2003
Ubicación: Bizkaia
Mensajes: 1.315
Antigüedad: 21 años, 2 meses
Puntos: 2
Voy a intentarlo:

function validar_clave() {
clave1 = trim(document.getElementById("claveuno").value)
clave2 = trim(document.getElementById("clavedos").value)
temp = false
if len(clave1) > 3 and len(clave1) < 21 then
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!")
else temp = false then
alert("Las claves ingresadas no son correctas o tienen espacios en blanco!")
else temp = true then
document.getElementById("md5clave").value = MD5(clave1)
document.getElementById("claveuno").value = ""
document.getElementById("clavedos").value = ""
end if
er = nothing
else
alert("Las claves ingresadas no son correctas o estan en blanco!")
end if
validar_clave = temp
}

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
}

function validar_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
}

Yo no sé mucho, y seguramente no esté bien, pero así a lo mejor tentamos a alguien que sepa más a corregirme