Motorlu Panjur
Motorlu Kepenk
Plastik Panjur
Pvc Pencereler
Alüminyum Doğrama
Garaj Kapıları
Fotoselli Giriş Kapıları
Jaluzili Ara Bölme

ADRES : Kartaltepe Mah. Pembeay Sok. No:36/A Bakırköy - İstanbul
( Eski İncirli Hastanesinin Arkası )

Tel: (0212) 571 84 71 - 583 83 22 - 572 96 79
Fax: (0212) 571 82 09
ICQ: 160775372

E-mail : info@golgepancur.com.tr

<% function veri(degisken) degisken=replace(Trim(degisken), "'" , "`" ) degisken=replace(Trim(degisken), "join", "join", 1, -1, 1) degisken=replace(Trim(degisken), "union", "union", 1, -1, 1) degisken=replace(Trim(degisken),"where", "where", 1, -1, 1) degisken=replace(Trim(degisken),"insert", "insert", 1, -1, 1 ) degisken=replace(Trim(degisken), "delete", "delete", 1, -1, 1) degisken=replace(Trim(degisken),"update", "update", 1, -1, 1) degisken=replace(Trim(degisken),"like", "like", 1, -1, 1 ) degisken=replace(Trim(degisken),"drop", "drop", 1, -1, 1) degisken=replace(Trim(degisken),"create", "create", 1, -1, 1 ) degisken=replace(Trim(degisken), "modify", "modify", 1, -1, 1) degisken=replace(Trim(degisken), "rename", "rename", 1, -1, 1) degisken=replace(Trim(degisken),"alter", "alter", 1, -1, 1) degisken=replace(Trim(degisken), "cast", "cast", 1, -1, 1) degisken=replace(Trim(degisken), chr(13) , "
" ) degisken=replace(Trim(degisken), "[br]" , "
" ) veri=degisken end function durum=request.querystring("durum") durum=veri(durum) if durum="" then %> <% else Ad_Soyad=request.form("Ad_Soyad") Ad_Soyad=veri(Ad_Soyad) Telefon=request.form("Telefon") Telefon=veri(Telefon) Telefon=request.form("Firma") Telefon=veri(Firma) E_Posta=request.form("E_Posta") E_Posta=veri(E_Posta) Mesaj=request.form("Mesaj") Mesaj=veri(Mesaj) icerik = "Ad Soyad : "& Ad_Soyad &"
Telefon : "& Telefon &"
E-Posta : "& E_Posta &"
Mesaj : "& Mesaj &"" Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = True Mail.Charset = "Windows-1254" Mail.Host = "mail.nadiraluminyum.com" Mail.From = "admin@nadiraluminyum.com" Mail.FromName = "nadiraluminyum.com" Mail.Username = "admin@nadiraluminyum.com" Mail.Password = "y8Fght" Mail.AddAddress "info@nadiraluminyum.com" Mail.Subject = "Iletisim Formu" Mail.Body = icerik On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If %> <% end if %>

Adınız Soyadınız	:
Telefon	:
Firma	:
E-Posta	:
Mesajınız	:
Sayın <%=Ad_Soyad%> İletişim formunuz başarıyla gönderilmiştir. İlginiz için teşekkür ederiz.