RE: [webauthor] Tolong konversi ke Javascript

[Hadi, Sofyan (IDN)]

Kalau cuma ngetes keberadaan karakter @ sih pake aja fungsi


Function val_email(v_email)
{
   if (v_email.indexOf("@") > 0)
        {
             return true
        }
   else
        {
            return false
        }
}


Sofyan Hadi

        -----Original Message-----
        From:   Budi Sutarno [SMTP:[EMAIL PROTECTED]]
        Sent:   Wednesday, October 11, 2000 8:08 AM
        To:     [EMAIL PROTECTED]
        Subject:        [webauthor] Tolong konversi ke Javascript

        Hai milisers,
        Bantuin konversi ke Javascript, dong :

        Function IsValidEmail(ByVal sString)
           Dim sEmail, nIndex, nDotIndex
           IsValidEmail = False

           sString = Trim(sString)

           nIndex = InStr(1, sString, "@")
           If nIndex < 2 Then
              Exit Function
           End If

           nDotIndex = InStrRev(sString, ".")
           If nDotIndex < nIndex + 1 Then
              Exit Function
           End If

           If InStr(nIndex + 1, sString, "@") > nIndex Then
              Exit Function
           End If

           If nDotIndex > Len(sString) - 2 Then
              Exit Function
           End If

           IsValidEmail = True
        End Function

        Salam,
        Budi




        ### FREE DOMAIN [.COM|.NET|.ORG *] >> http://www.indoglobal.com <<
###
        Berhenti langganan kirim email ke
[EMAIL PROTECTED]
        Arsip di http://www.mail-archive.com/webauthor@indoglobal.com/


### FREE DOMAIN [.COM|.NET|.ORG *] >> http://www.indoglobal.com << ###
Berhenti langganan kirim email ke [EMAIL PROTECTED]
Arsip di http://www.mail-archive.com/webauthor@indoglobal.com/