Validere Email adresse med ASP/VB script

Hej

jeg vil gerne have sat en funkton ind i min kode som kan validere email adressen som folk indtaster, og finde ud af om den er korrekt.

jeg har fundet følgede funktion:

<script language="VBScript" runat="Server">
Function validateEmail(strEmail)
    validateEmail = True
    If Len(strEmail) < 6 Then
        validateEmail = False
    End If
    If InStr(1, strEmail, "@", 1) < 2 Then
        validateEmail = False
    End If
    If InStr(1, strEmail, ".", 1) = 0 Then
        validateEmail = False
    End If
    pos = InStr(1, strEmail, "@", 1)
    If pos < 2 Then
        validateEmail = False
            Else

        pos = InStr(pos+1, strEmail, "@")
        If pos > 0 Then
            validateEmail = False
        End If
    End If
End Function
</script>

mit probelem er at jeg ikke er helt klar over hvordan jeg bruger den i forbindelse med min ASP kontakt side som har følgende kode der hvor felterne blvier valideret:

<%
if request.querystring("action") = "send" then

stremailError = ""
strnavnError = ""
stremneError = ""
strtekstError = ""
strError = ""
    stremail = Trim(Request.Form("email"))
    strnavn = Trim(Request.Form("navn"))
    stremne = Trim(Request.Form("emne"))
    strtekst = Trim(Request.Form("tekst"))
   
    If Len(strnavn) = 0 Then
        strnavnError = " Du skal skrive et navn!!"
        strError = strError & "1"    
    end if   
    If Len(stremail) = 0 Then
        stremailError = " Du skal skrive en email adresse!!"
        strError = strError & "1"
    end if   
    If Len(stremne) = 0 Then
        stremneError = " Du skal skrive et emne!!"
        strError = strError & "1"
    end if
    If Len(strtekst) = 0 Then
        strtekstError = " Du skal skrive en tekst!!"
        strError = strError & "1"
    End If

    If len(strError) = 0 Then

Set msg = Server.CreateOBject( "JMail.Message" )
msg.Silent = True
msg.From = request.form("email")  'Afsender E-mail
msg.FromName = request.form("navn")
msg.Charset = "iso-8859-1"

er der nogle der kan vise/forklare hvordan jeg sætter disse ting korrekt sammen.

Mvh
Andreas