Etiket arşivi: e-mail

Abuk Sabuk Mailleri Göndermeden Evvel Lütfen Okuyun

(Alıntıdır.)

Yeter. Bu kadar saf olmayın artık. Bu kadar dikkatsiz davranarak milletin ekmeğine yağ sürmeyin artık. Saflığın boyutu ileri derecelerde…

Neden mi bahsediyorum? Tabii ki güzel memleketimin internet kullanıcılarından.

Sevgili Arkadaşlarım.

1. Bir yere üye olduğunuz için Abuk Sabuk Mailleri Göndermeden Evvel Lütfen Okuyun yazısına devam et

ASP Formlarda E-Posta Adresi Kontrolü

ASP’de hazırladığımız formlarda e-posta adreslerinin düzgün girilip girilmediğini kontrol etmek için aşağıdaki kodu kullanabiliriz.


Fonksiyon :

0 and i first = Left(email, i – 1)
last = Mid(email, i+1, Len(email))
Else
MailKontrol = false
exit Function
End If
i = 0
Do Until i = Len(first)
i = i + 1
char = Mid(first, i, 1)
` If char is not in [.z-aA-Z0-9]
If Asc(char) 46 and Asc(char) 95 and (Asc(46) 57) and _
(Asc(char) 90) and (Asc(char) 122) Then
MailKontrol = false
exit Function
End If
Loop
i = 0
nokta = false
Do Until i = Len(last)
i = i + 1
char = Mid(last, i, 1)
` If char is not in [.z-aA-Z0-9]
If Asc(char) 46 and (Asc(46) 57) and _
(Asc(char) 90) and (Asc(char) 122) Then
MailKontrol = false
exit Function
End If
Loop
nokta = false
If InStr(1, last, “.” , 1) > 0 Then
nokta = true
End If
MailKontrol = nokta
End Function
%>