<% function veri(change) change=replace(change, "Ä°" , "I" ) change=replace(change, "ı" , "i" ) change=replace(change, "Ä?" , "G" ) change=replace(change, "ÄŸ" , "g" ) change=replace(change, "Å?" , "S" ) change=replace(change, "ÅŸ" , "s" ) change=replace(change, "Ãœ" , "Ü" ) change=replace(change, "ü" , "ü" ) change=replace(change, "Ö" , "Ö" ) change=replace(change, "ö" , "ö" ) veri=change end function %> <%durum=request("durum") if durum ="" then %> Derma Center Medikal Estetik Merkezi
Derma Center
Anasayfa Hakkımızda Uygulamalarımız Fiyat Listesi İletişim Sıkça Sorulan Sorular
Fiyat listesi
     
 

Fiyatlarımız hakkında bilgi almak için bize telefon, e-mail ya da aşağıdaki form aracılığıyla ulaşabilirsiniz.

Adres: Bağdat Cad.No:365 Kat:3 D.7 34740 Şaşkınbakkal/ İSTANBUL

Tel: +90 216-467 62 63/ +90 216-467 63 83

E-mail: info@dermacenter.net

   * Bilgi almak için aşağıdaki formu doldurabilirsiniz.
     
Ad  
Soyad  
Tel  
E-Mail  
Not
     


 
  Merkezimiz Sağlık Bakanlığından Ruhsatlıdır  
<%end if %> <% if durum = "kaydet" then Set db = Server.CreateObject("Adodb.Connection") db.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("mdb/bilgi.mdb") set kontrol = server.CreateObject("adodb.recordset") kontrol.open "select * from kisi",db,1,3 kontrol.addnew kontrol("adi")=veri(request.Form("ad")) kontrol("soyadi")=veri(request.Form("soyadi")) kontrol("tel")=veri(request.Form("tel")) kontrol("mail")=veri(request.Form("posta")) kontrol("tarih")=date() kontrol("not")=veri(request.Form("not")) kontrol.update durum="kaydedildi" end if %> <% if durum= "kaydedildi" then Response.Write("Bilgi Gönderildi") %>
Sayfaya Dön
<%end if%>