Programalama > ASP

<% 
'dosya isimi..gonder_email.asp **
'Farkli formlar dan gelen bilgilerin farkli email adresine   
'gelmesini sagliyor. formdan gelen formtercihi degerine göre   
'ilgili Case içine girer . Case leri ve email tercihlerini   
'çogaltmak mümkün 

dim FormTercihi, strTo, strSubject, strBody 

'formdan gelen deger alinir 
FormTercihi=Request("HangiForm" ) 

Select Case FormTercihi  
'alinan deger select içine alinir. 

Case 1 

'formdan gelen bilgiler alinir 
  adi="ADI SOYADI.." &Request.Form("ADI" )+"," & Request.Form("SOYADI" )+"," & vbCrLf 
  adi=adi&"ADRES......." &Request.Form("ADRES" )+"," & vbCrLf&"ILCE/IL....." &Request.Form("IL" )+"," & vbCrLf 
  adi=adi&"E-MAIL......" &Request.Form("EMAIL" )& vbCrLf& vbCrLf& vbCrLf 

kimden=Request.Form("ADI" )+" " +Request.Form("SOYADI" ) 

'asagidaki kisim olmasada olur biz resmi bir kurum oldugumuz için mail olayini dilekçe boyutuna çevirdik. 

  dilekce="Yukarida Bilgilerini Yazdigim Parsele Ait " & vbCrLf 
  dilekce=dilekce&"IMAR DURUMU Belgesinin Tarafima Gönderilmesini " & vbCrLf 
  dilekce=dilekce&" Saygilarimla Arz Ederim." & vbCrLf& vbCrLf 
  dilekce=dilekce& kimden 

  adi=adi&dilekce 

'kisi formu gönderdikten sonra asagidaki mesaji okur 

     bilgilendirme=" Adresimize Gönderdiginiz Bilgilere Göre" & vbCrLf 
     bilgilendirme=bilgilendirme+"Verdiginiz " &EMAIL&" Adresine Imar Durumu Belgesi En Kisa Zamanda Gönderilecektir. " 
      
'bu Case 1 deki formun konusudur   
  strSubject = "IMAR DURUMU ISTEGI" 
  email=Request.Form("EMAIL" ) 


Case 2 

adi="ADI SOYADI.." &Request.Form("ADI" )+"," & Request.Form("SOYADI" )+"," & vbCrLf 
  adi=adi&"ISTEK/ÖNERI;......." &vbCrLf&Request.Form("ADRES" )+"," & vbCrLf 
  adi=adi&"E-MAIL......" &Request.Form("EMAIL" )& vbCrLf& vbCrLf& vbCrLf 

  kimden=Request.Form("ADI" )+" " +Request.Form("SOYADI" ) 

  dilekce=dilekce& kimden 

  adi=adi&dilekce 

bilgilendirme=" Öneri ve İsteklerinizi Bizimle Paylaştığınız İçin Teşekkür Ederiz." & vbCrLf 
           


strSubject = "ONERI/ISTEK" 

  email=Request.Form("EMAIL" ) 

End Select 
%> 
<% 

strTo = "MAIL ADRES1-1"   
'adresi degistir.... 


strBody = adi 
strBody = strBody & vbCrLf & vbCrLf 

If Len(request("email" ))<5 or InStr(request("email" ),"@" )=0  Then 
      %> 
     <a href="asp-animation/email.asp"> 
          Lütfen E-MAIL Adres Bilgilerini Dogru Olarak Giriniz<br> 
     </a> 
     <% 
Else 

'Persits.mail ile baglanti saglanir. 
     Set Mail = Server.CreateObject("Persits.MailSender" ) 

'site adini degistir. 
     Mail.Host="yildirim-bld.gov.tr" 

'bunlari degistirmeyin 
     Mail.From = email 
     Mail.FromName = kimden 
      
Response.Write "from name" 

     'asagida bir Select Case daha kullanilmistir. her formun konusuna göre mailin gidecegi adreslerdir. 
          Select Case FormTercihi 
          Case 1 
          Mail.AddAddress "MAIL ADRESI-1" 
          Mail.AddAddress "MAIL ADRESI-2" 
           
          Case 2 
       Mail.AddAddress "MAIL ADRESI-1" 
       Mail.AddAddress "MAIL ADRESI-3"   

End Select 

'bunlarida degistirmeyin 

     Mail.Subject = strSubject 
     Mail.Body = strBody 
     Mail.SEnd 
      
Response.Write bilgilendirme 



End If 

%> 

<%  
Function IsValidEmail(strEmail) 
   Dim bIsValid 
   bIsValid = True 

        If Len(strEmail) < 5 Then 
     bIsValid = False 
      
              Else 
         If InStr(1, strEmail, " " ) <> 0 Then 
                          bIsValid = False 
           
                            Else 
          If InStr(1, strEmail, "@" , 1) < 2 Then 
                bIsValid = False 

Else 

If InStrRev(strEmail, "." ) < InStr(1, strEmail, "@" , 1) + 2 Then 
    bIsValid = False 
                      End If 
            End If 
         End If 
End If 

           IsValidEmail = bIsValid 
End Function 

'<-- bitti --> 

%>