<%@ Page Title="" Language="VB" MasterPageFile="~/MSTR_MAIN.master" AutoEventWireup="false" CodeFile="Iletisim.aspx.vb" Inherits="Iletisim" %> <%If Request.QueryString("ISLEM") = "GONDER" Then Try Dim Mesaj As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage() Mesaj.BodyEncoding = System.Text.Encoding.UTF8 Mesaj.SubjectEncoding = System.Text.Encoding.UTF8 Dim EMAIL As String = "info@afyonketbir.org" Dim SIFRE As String = "Afyonketbir03" Dim SMTPs As String = "mail.afyonketbir.org" Dim SMTPPORT As Integer = 587 Mesaj.From = New System.Net.Mail.MailAddress("www.afyonketbir.org SİTESİ ÜZERİNDEN YENİ BİR İLETİ ALDINIZ <" & EMAIL & ">") Mesaj.To.Add(EMAIL) Mesaj.Subject = "Ziyaretçi Görüş/Öneri/Yorum" Mesaj.IsBodyHtml = True Mesaj.Body &= "" & _ "" & _ "" & _ "" Mesaj.Body &= "Web Sitesi üzerinden yeni bir ileti aldınız.

" Mesaj.Body &= "Ad Soyad :" & Request.Form("ad") & "
" Mesaj.Body &= "Mail Adresi :" & Request.Form("email") & "
" Mesaj.Body &= "Telefon :" & Request.Form("tel") & "
" Mesaj.Body &= "Konu :" & Request.Form("konu") & "
" Mesaj.Body &= "Mesaj :" & Request.Form("text") & "

" Mesaj.Body &= "Q Ajans bilgilendirme sistemi." Dim smtp As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient(SMTPs, SMTPPORT) Dim SMTPUserInfo As System.Net.NetworkCredential = New System.Net.NetworkCredential(EMAIL, SIFRE) smtp.UseDefaultCredentials = True smtp.Credentials = SMTPUserInfo smtp.Send(Mesaj) Dim V As New VT If V.baglanti.State <> 1 Then V.baglanti.Open() V.komut_metni = " INSERT INTO MOD_SITEMESAJ(AD,EMAIL,TELEFON,KONU,ACIKLAMA,TARIH,SAAT,AKTIF,SITEID) VALUES(" & _ "'" & Request.Form("ad") & "'," & _ "'" & Request.Form("email") & "'," & _ "'" & Request.Form("tel") & "'," & _ "'" & Request.Form("konu") & "'," & _ "'" & Request.Form("text") & "'," & _ "CONVERT(DATE,'" & Today.Date & "',104)," & _ "'" & TimeOfDay.ToString & "'," & _ "'" & IIf(Request.Form("DURUM") = "on", 1, 0) & "',2) " ' Response.Write(V.komut_metni) ' Response.End() V.komut = New Data.SqlClient.SqlCommand(V.komut_metni, V.baglanti) V.komut.ExecuteNonQuery() V.baglanti.Close() Response.Redirect("Iletisim.aspx?ISLEM=TAMAM") Catch ex As Exception Response.Write(ex.Message) End Try End If%> <%--Kontroller--%> <%--Kontroller--%> <%--Kontroller--%> <%--Kontroller--%> <%--Kontroller Bitti--%> <%--Kontroller Bitti--%> <%--Kontroller Bitti--%> <%--Kontroller Bitti--%>

Anasayfa » İLETİŞİM

Afyon Kırmızı Et Üreticileri Birliği Resmi Sitesi

Adres: Organize Sanayi Bölgesi 1. Cadde 2. Sosyal Tesisler No:2/14 AFYONKARAHİSAR
Tel-Fax: 0 272 252 54 58
www.afyonketbir.org
info@afyonketbir.org