<% If Request.Form("Action") = "SendData" Then Set Basvur = CreateObject("ADODB.Recordset") Basvur.Open "Bireysel", Adsl, 1,3 Basvur.AddNew Basvur("TelSahipAdSoyad") = security(Trim(Request("TelSahipAdSoyad"))) Basvur("BasYapAdSoyad") = security(Trim(Request("BasYapAdSoyad"))) Basvur("UlasilacakAlanKod") = security(Trim(Request("UlasilacakAlanKod"))) Basvur("UlasilacakTelNo") = security(Trim(Request("UlasilacakTelNo"))) Basvur("GSM") = security(Trim(Request("GSM"))) Basvur("AdslIstenenAlanKod") = security(Trim(Request("AdslIstenenAlanKod"))) Basvur("AdslBasvuruNo") = security(Trim(Request("AdslBasvuruNo"))) Basvur("EpostaAdresi") = security(Trim(Request("EpostaAdresi"))) Basvur("Adresi") = security(Trim(Request("Adresi"))) Basvur("TCKimlikNumarasi") = security(Trim(Request("TCKimlikNumarasi"))) Basvur("VergiDairesi") = security(Trim(Request("VergiDairesi"))) Basvur("VergiNumarasi") = security(Trim(Request("VergiNumarasi"))) Basvur("IstenilenBagHizi") = security(Trim(Request("IstenilenBagHizi"))) Basvur("AbonelikUcretOdemeSekil") = security(Trim(Request("AbonelikUcretOdemeSekil"))) Basvur("KampanyaSec") = security(Trim(Request("KampanyaSec"))) Basvur("BasvuruTarihi") = now() Basvur.Update Basvur.Close() Set Basvur= Nothing 'Set Mail = Server.CreateObject("Persits.MailSender") ' Mail.Host = "mail.ttnetadslbasvurusu.net" ' Mail.From = Request.form("email") ' Mail.FromName Request.Form("adsoyad") ' Mail.AddAddress "info@ttnetadslbasvurusu.net" ' Mail.Subject = "[Yeni İletişim Mesajı]" ' Mail.Body = "Yeni İletişim Mesajı Gelmiştir. Lütfen Yönetici Ekranından Kontrol Ediniz." ' Mail.Send 'Set Mail = Nothing Response.Write "
Formunuz Başarıyla Gönderilmiştir.
" Response.Write("Ana sayfaya dönmek İçin Tıklayınız
") Response.End End If %>

                                                                

                                                                                                                                                    

                                                                                                                ADSL BAŞVURU FORMU

*TelefonSahibininadısoyadı                                                       
*Başvuru Yapanın Adı Soyadı  
*Ulaşabileceğimiz Telefon Numarası  
  GSM / Cep Telefonu
*ADSL Bağlantısı İstenilen Telefon No  
  E-Mail Adresiniz
*Adresiniz
*T.C Kimlik Numaranız
  Vergi Daireniz
  Vergi Numaranız
*İstediğiniz Bağlantı Hızı
*Abonelik Ücreti Ödeme Şekli
*KampanyaSeçeneği       
 
 

                                                                                      <<<<<<<<<<<<<<<<<<<< GERİ DÖN  <<<<<<<<<<<<<<<<<<