<%
Action = Request.Form("action")
AlanAdi = "alomaliye.com"
FullPath = "C:\Mail Enable"
KullaniciAdi = TRIM(Request.Form("kullanici"))
Sifre = TRIM(Request.Form("sifre"))
if Action = "go" AND KullaniciAdi <> "" AND Sifre <> "" Then
KullaniciAdi = REPLACE(KullaniciAdi,"'","")
KullaniciAdi = REPLACE(KullaniciAdi,"""","")
KullaniciAdi = REPLACE(KullaniciAdi,"!","")
KullaniciAdi = REPLACE(KullaniciAdi,">","")
KullaniciAdi = REPLACE(KullaniciAdi,"<","")
KullaniciAdi = REPLACE(KullaniciAdi,"?","")
KullaniciAdi = REPLACE(KullaniciAdi,":","")
KullaniciAdi = REPLACE(KullaniciAdi,"*","")
KullaniciAdi = REPLACE(KullaniciAdi,"/","")
KullaniciAdi = REPLACE(KullaniciAdi,"\","")
KullaniciAdi = REPLACE(KullaniciAdi," ","")
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(FullPath & "\Postoffices\"& AlanAdi &"\MAILROOT\"& KullaniciAdi) = True Then
Response.Write "Belirttiginiz isimde bir Kullanici Var
"
Else
'// MailBox Klasörü Yaratiliyor...
Fs.CreateFolder FullPath & "\Postoffices\"& AlanAdi &"\MAILROOT\"& KullaniciAdi
Fs.CreateFolder FullPath & "\Postoffices\"& AlanAdi &"\MAILROOT\"& KullaniciAdi &"\Inbox"
'// MAILBOX.TAB Yaziliyor...
Fs.CopyFile FullPath &"\Config\Postoffices\"& AlanAdi &"\MAILBOX.TAB" , FullPath &"\Config\Postoffices\"& AlanAdi &"\YEDEK_MAILBOX.TAB", True
Set MailBoxTab = fs.GetFile(FullPath &"\Config\Postoffices\"& AlanAdi &"\MAILBOX.TAB")
Set MailBoxTabYaz = MailBoxTab.OpenAsTextStream(8,0)
MailBoxTabYaz.WriteLine(KullaniciAdi & vbTab & "1" & vbTab & "-1" & vbTab & "0"& vbTab)
MailBoxTabYaz.Close
Set MailBoxTabYaz = Nothing
'// ADDRESS-MAP.TAB Yaziliyor...
Fs.CopyFile FullPath &"\Config\ADDRESS-MAP.TAB",FullPath &"\Config\YEDEK_ADDRESS-MAP.TAB",True
Set AddressMapTab = fs.GetFile(FullPath &"\Config\ADDRESS-MAP.TAB")
Set AddressMapTabYaz = AddressMapTab.OpenAsTextStream(8,0)
AddressMapTabYaz.WriteLine("[SMTP:"& KullaniciAdi &"@"& AlanAdi &"]"& vbTab &"[SF:"& AlanAdi &"/"& KullaniciAdi &"]"& vbTab & vbTab & AlanAdi)
AddressMapTabYaz.Close
Set AddressMapTabYaz = Nothing
'// AUTH.TAB Yaziliyor...
Fs.CopyFile FullPath &"\Config\AUTH.TAB",FullPath &"\Config\YEDEK_AUTH.TAB",True
Set AuthTab = fs.GetFile(FullPath &"\Config\AUTH.TAB")
Set AuthTabYaz = AuthTab.OpenAsTextStream(8,0)
AuthTabYaz.WriteLine(KullaniciAdi &"@"& AlanAdi & vbTab & "1" & vbTab & Sifre & vbTab & AlanAdi & vbTab &"USER"& vbTab)
AuthTabYaz.Close
set AuthTabYaz = Nothing
Response.Write " Yeni mail adresi açildi : "& KullaniciAdi &"@"& AlanAdi &" - Sifre : "& Sifre &"
"
End If
Set fs = Nothing
End if
%>
e-Posta
adresi aldığınızda e-Posta Üyelik Sözleşmesini Kabul Etmiş Sayılırsınız.
e-Posta
Üyelik Sözleşmesi'ni Okuduktan Sonra e-Posta Adresi Alınız.
IP
ADRESLERİNİZ ALINMAKTADIR
e-Posta Üyelik Sözleşmesi
Lütfen
Türkçe Karakter Kullanmayınız.
(
ç,ğ,ı,ö,ş,ü,Büyük
İ, Bu Karakterleri
Kullanmayınız)
Türkçe
karakterle oluşturulan mailleri kullanma imkanı yoktur. Tarafımızdan silinmektedir.