Jag är alldeles ny på det här med ASP och håller på att slitat mitt hår.
Jag ska nämligen kolla att ett inmatningsfält är en rimlig
E-mail adress dvs innehåller ett @.....
Jag ahar lyckats kolla att övriga fält är ifyllda men vet inte riktigt hur jag ska verifiera att @ finns.

Ärdet någon som har något bra tips på var jag kan hitta denna info eller har nåt bra tips....

Hjälp!

<code>
If InStr(adressen, "@") = 0 Then
'@ saknas
End If
</code>

/Johan

Function IsValidEmail(Email)
ValidFlag = False
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
atCount = 0
SpecialFlag = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = "@" Then atCount = atCount + 1
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next
If (atCount = 1) And (SpecialFlag = False) Then
BadFlag = False
tAry1 = Split(Email, "@")
UserName = tAry1(0)
DomainName = tAry1(1)
If (UserName = "") Or (DomainName = "") Then BadFlag = True
If Mid(DomainName, 1, 1) = "." then BadFlag = True
If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
ValidFlag = True
End If
End If
If BadFlag = True Then ValidFlag = False
if(Email="") then ValidFlag=True
IsValidEmail = ValidFlag
End Function

Bra att du har kommit till insikt om denna sida....


Kör hårt

/Tyronne

Tack för all hjälp så hä långt...

Hej!

Jag skulle ha tagit hj&#228;lp av regex:

&lt;code&gt;
Function ChkEmail(strEmail)
Set objRE = new RegExp
objRE.Pattern = &quot;^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$&quot;
objRE.IgnoreCase = True
If objRE.Test(strEmail) Then ChkEmail = True Else ChkEmail = False
Set objRE = Nothing
End Function

If ChkEmail(&quot;tom@firstdev.com&quot;) Then
Response.Write &quot;Du har fyllt i den korrekt!&quot;
Else
Response.Write &quot;Du m&#229;ste fylla i epostadressen korrekt!&quot;
End If

&lt;/code&gt;

Lycka till och lev v&#228;l,
Tom S.

&#196;r det inte s&#229;dant h&#228;r man kan l&#228;gga till p&#229; tips och trix?