<% @Language=VBScript %> <% id=Request.QueryString("id") Set HighLaZ = Server.CreateObject("ADODB.Recordset") sor = "Select * from ilan where id="&id HighLaZ.Open sor,conn,1,3 %> <% islem=Request.QueryString("islem") if islem="ekle" then call ekle end if git = Request.QueryString("git") if git="" then git=1 end if %> <%=HighLaZ("baslik")%> için istek yollayınız
<% id=Request.QueryString("id") Set HighLaZ = Server.CreateObject("ADODB.Recordset") sor = "Select * from ilan where id="&id HighLaZ.Open sor,conn,1,3 %> "> ">
   

Adınız Soyadınız : 

Firma Ünvanınız : 

Firma Adresiniz : 

Telefon / Gsm : 

E-Posta / Web : 

Proje Adı : 

Proje Adresi : 
   

Kullanım Amacı : 

Binanın Durumu : 

Kat Sayısı : 

 Durak Sayısı : 

Seyir Mesafesi : 

 Bölüm Sayısı : 

 

 Bu kısımdaki bilgiler var ise Asansör Avan Projesindeki Bilgiler doğrultusunda doldurulacaktır.

Kapasitesi(Kg/Kişi) : 

Hızı : 

  Diğer : 

Tahrik Şekli : 

Kumanda Şekli : 

Kapı Tipi : 

Kapı Malzemesi : 

  Diğer : 

Otomatik Kabin kapısı : 

     [ İnşaat Ruhsatı Nisan'96'dan sonra ise Zorunlu ]

Kabin Kaplaması : 

  Diğer : 

Özel İstekler : 
   
   
<% sub ekle Set HighLaZ = Server.CreateObject("ADODB.Recordset") sor = "Select * from istek " HighLaZ.Open sor,conn,1,3 Dim ad_soyad, mail, istek, id , kat_id ad_soyad=Request.Form("ad_soyad") telefon=Request.Form("telefon") mail=Request.Form("mail") istek=Request.Form("istek") id=Request.Form("id") if ad_Soyad="" or istek="" or telefon="" then Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
Lütfen Ad Soyad, Telefon ve Açıklama kısımlarını doldurunuz...
" Response.end end if HighLaZ.AddNew HighLaZ("ad_soyad")=ad_soyad HighLaZ("telefon")=telefon HighLaZ("mail")=mail HighLaZ("istek")=istek HighLaZ("id")=id HighLaZ.Update id=Request.QueryString("id") Set HighLaZ = Server.CreateObject("ADODB.Recordset") sor = "Select * from ilan where id="&id HighLaZ.Open sor,conn,1,3 HighLaZ("ishit")=HighLaZ("ishit")+1 HighLaZ.update Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
İsteğiniz Yollanmıştır
" Response.Write "
İlginiz İçin Teşekkürler
" Response.Write "

En Kisa Zamanda Size Ulasacagiz." Response.End end sub %>