ITM 2018 Basın Akreditasyon


<% Session.CodePage = 65001 Response.Charset = "UTF-8" islem=request.querystring("islem") if islem="gonder" then On Error Resume Next Set smtp = Server.CreateObject("JMail.Message" ) Message = "" Message = Message & "Ad-Soyad:"& Request.Form("adsoyad") & "

" Message= Message & "Ilgili Basin Kurulusu:"& Request.Form("ilgilibasinkurulusu") &"

" Message= Message & "Yayin Turu:"& Request.Form("yayinturu1") &"

" Message= Message & "E-Mail:"& Request.Form("EMail") &"

" Message= Message & "Telefon:"& Request.Form("Telefon") &"

" Message= Message & "Mesaj:"& Request.Form("Mesaj") &"

" Message= Message & "" Dim MMail2 MMail2.ContentType = "text/html" MMail2.CharSet = "UTF-8" Set MMail2 = Server.CreateObject("Persits.MailSender") MMail2.Host = "mail.hightex2018.com" MMail2.Username = "mailgonder@hightex2018.com" MMail2.Password = "Teknik1996" MMail2.From = "mailgonder@hightex2018.com" MMail2.FromName = "Basin Akreditasyon" MMail2.Port = "587" MMail2.AddAddress "duygu@teknikfuarcilik.com" MMail2.CC "anil@teknikfuarcilik.com" MMail2.Subject = "Basin Akreditasyon" MMail2.IsHTML = true MMail2.Body = Message On Error Resume Next MMail2.Send set MMail2 = nothing If err Then ' hata mesajını alalım. Mail gönderilmemişse.. Response.Write err.Description & "
Mesajınız Gönderilmedi.." Else ' Mail gönderilmiş ise response.Write("Talebiniz isleme alinmistir. Tesekkurler") ' mesaj gönderildikten sonra yonlendirilecek sayfa End If Set smtp = Nothing ' bitirelim.. else %>
Adı - Soyadı
İlgili Basın Kuruluşu
Yayın Türü Gazete - Dergi - Televizyon - Radyo
E-Mail
Telefon
Mesaj
<%end if%>





<% islem2=request.querystring("islem2") if islem2="gonder" then On Error Resume Next Set smtp = Server.CreateObject("JMail.Message" ) Message = "" Message = Message & "Ad-Soyad:"& Request.Form("adsoyad") & "

" Message= Message & "Ilgili Basin Kurulusu:"& Request.Form("ilgilibasinkurulusu") &"

" Message= Message & "Yayin Turu:"& Request.Form("yayinturu1") &"

" Message= Message & "E-Mail:"& Request.Form("EMail") &"

" Message= Message & "Telefon:"& Request.Form("Telefon") &"

" Message= Message & "Mesaj:"& Request.Form("Mesaj") &"

" Message= Message & "" Dim MMail12 MMail12.ContentType = "text/html" MMail12.CharSet = "UTF-8" Set MMail12 = Server.CreateObject("Persits.MailSender") MMail12.Host = "mail.hightex2018.com" MMail12.Username = "mailgonder@hightex2018.com" MMail12.Password = "Teknik1996" MMail12.From = "mailgonder@hightex2018.com" MMail12.FromName = "Basin Akreditasyon" MMail12.Port = "587" MMail12.AddAddress "duygu@teknikfuarcilik.com" MMail12.CC "anil@teknikfuarcilik.com" MMail12.Subject = "Basin Akreditasyon" MMail12.IsHTML = true MMail12.Body = Message On Error Resume Next MMail12.Send set MMail12 = nothing If err Then ' hata mesajını alalım. Mail gönderilmemişse.. Response.Write err.Description & "
Mesajınız Gönderilmedi.." Else ' Mail gönderilmiş ise response.Write("Talebiniz isleme alinmistir. Tesekkurler") ' mesaj gönderildikten sonra yonlendirilecek sayfa End If Set smtp = Nothing ' bitirelim.. else %>
Adı - Soyadı
İlgili Basın Kuruluşu
Yayın Türü
Gazete - Dergi - Televizyon - Radyo
E-Mail
Telefon
Mesaj
<%end if%>