tjek felt

http://www.eksperten.dk/spm/268635

mugs-> I dt link blev alle forslag afvist :-)

Well I havent checked this, I'll leave that up to you

' Function IsEmailValid(strEmail)
' Action: checks if an email is correct.
' Parameter: strEmail - the Email address
' Returned value: on success it returns True, else False.
Function IsEmailValid(strEmail)
 
    Dim strArray
    Dim strItem
    Dim i
    Dim c
    Dim blnIsItValid
 
    ' assume the email address is correct 
    blnIsItValid = True
   
    ' split the email address in two parts: name@domain.ext
    strArray = Split(strEmail, "@")
 
    ' if there are more or less than two parts 
    If UBound(strArray) <> 1 Then
        blnIsItValid = False
        IsEmailValid = blnIsItValid
        Exit Function
    End If
 
    ' check each part
    For Each strItem In strArray
        ' no part can be void
        If Len(strItem) <= 0 Then
            blnIsItValid = False
            IsEmailValid = blnIsItValid
            Exit Function
        End If
       
        ' check each character of the part
        ' only following "abcdefghijklmnopqrstuvwxyz_-."
        ' characters and the ten digits are allowed
        For i = 1 To Len(strItem)
              c = LCase(Mid(strItem, i, 1))
              ' if there is an illegal character in the part
              If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then
                  blnIsItValid = False
                  IsEmailValid = blnIsItValid
                  Exit Function
              End If
        Next
 
      ' the first and the last character in the part cannot be . (dot)
        If Left(strItem, 1) = "." Or Right(strItem, 1) = "." Then
          blnIsItValid = False
          IsEmailValid = blnIsItValid
          Exit Function
        End If
    Next
 
    ' the second part (domain.ext) must contain a . (dot)
    If InStr(strArray(1), ".") <= 0 Then
        blnIsItValid = False
        IsEmailValid = blnIsItValid
        Exit Function
    End If
 
    ' check the length oh the extension 
    i = Len(strArray(1)) - InStrRev(strArray(1), ".")
    ' the length of the extension can be only 2, 3, or 4
    ' to cover the new "info" extension
    If i <> 2 And i <> 3 And i <> 4 Then
        blnIsItValid = False
        IsEmailValid = blnIsItValid
        Exit Function
    End If

    ' after . (dot) cannot follow a . (dot)
    If InStr(strEmail, "..") > 0 Then
        blnIsItValid = False
        IsEmailValid = blnIsItValid
        Exit Function
    End If
 
    ' finally it's OK 
    IsEmailValid = blnIsItValid
   
End Function

and there are other solutions out there too :o)

http://www.developerfusion.com/show/3350/

og?

how about responding to this question!

come on, if you dont pull your finger out then admin is comming after you !

time is almost up here!

anmeldt!

Email sent to oomalkeoo.

/Nikolaj /co-admin

Tak :o)

kunne ikke få det til at virke, så

fik det aldrig til at virke, så droppede det, brugte et par timer på det

You could have asked Terry about your problems instead - I'm sure he would gladly help.

oomalkeoo>I dont accept that you have rejected this answer as I happen to know that it DOES work!

http://www.eksperten.dk/spm/268635

nikolajdu>whats your opinion here?

Also, if oomalkeoo cantget it working then it must mean he still needs help, so why has he closed and taken the points himself? Looks strange to me!

terry - This is one of the dillemas one can get from eksperten.dk. On one side one cannot expect that everyone can understand the nature of a answer even if it surely works.

On the other side there nothing in the rules that forces the users to give away his/hers points. As the rules are now we can only stop this kind of abuse if it is continously - There it go under the rule that say "one may not abuse the pointsystem of eksperten".

In other words, if the user often closes questions to his own favour - Then I can act - I cannot now even though I personally sees this as a hopeless example in how not to use eksperten".

A little adwise for the future will be : make a good question and PARTICIPATE - If you do not nobody can help you.

Yes I understand the problems with the system and that some users WILL take advantage of these flaws.

But one thing for sure, oomalkeoo isnt going to get help from me again, and I will do as much as possible to influence others in this category to do the same :o)

Thanks for your assistance nikolajdu!