<% sayfa = request.querystring("sayfa") %>
   Site Haritası
 English
Arctech Kaynak Telleri, Elektrodları ve Makinaları
 Satış
 
Fiyat Listesi
 
Sipariş »
 
<% sub nobilgi %>
<% response.End() end sub%> <% if sayfa="" then %>

Ürün Sipariş Formu

Ad - Soyad :
E-mail :
Tel :
Fax :
Adres :
Firma adı :
Ürün 1 : Adet Kg Çap
Ürün 2 : Adet Kg Çap
Ürün 3 : Adet Kg Çap
Ürün 4 : Adet Kg Çap
Ürün 5 : Adet Kg Çap
   
<% end if if sayfa="sor" then if request.form("adsoy")="" or request.form("email")="" or request.form("tel")="" or request.form("fax")="" or request.form("adres")="" then call nobilgi end if dim ekle set ekle = server.CreateObject("adodb.recordset") ekle.open "select * from urun_sor",bag,1,3 ekle.addnew ekle("adsoy") = request.form("adsoy") ekle("email") = request.form("email") ekle("tel") = request.form("tel") ekle("fax") = request.form("fax") ekle("adres") = request.form("adres") ekle("firma") = request.form("firma") if request.form("urun1") <>"" then ekle("urun1") = request.form("urun1") ekle("adet1") = request.form("adet1") ekle("kg1") = request.form("kg1") ekle("cap1") = request.form("cap1") end if if request.form("urun2") <>"" then ekle("urun2") = request.form("urun2") ekle("adet2") = request.form("adet2") ekle("kg2") = request.form("kg2") ekle("cap2") = request.form("cap2") end if if request.Form("urun3") <>"" then ekle("urun3") = request.form("urun3") ekle("adet3") = request.form("adet3") ekle("kg3") = request.form("kg3") ekle("cap3") = request.form("cap3") end if if request.Form("urun4") <>"" then ekle("urun4") = request.form("urun4") ekle("adet4") = request.form("adet4") ekle("kg4") = request.form("kg4") ekle("cap4") = request.form("cap4") end if if request.Form("urun5") <>"" then ekle("urun5") = request.form("urun5") ekle("adet5") = request.form("adet5") ekle("kg5") = request.form("kg5") ekle("cap5") = request.form("cap5") end if ekle("tarih") = now() ekle.update kimden = "tanju@arctech.com.tr" msg = "Siteden Siparis formu doldurulmustur.
Ayrintilari görmek için TIKLAYINIZ." Dim objMail Set objMail = CreateObject("CDONTS.NewMail") objMail.From = "info@arctech.com.tr" objMail.To = "info@arctech.com.tr" objMail.Subject = "www.arctech.com.tr Sitesinden Sipariş Formu Dolduruldu" objMail.BodyFormat = 0 objMail.Body = msg objMail.MailFormat = 0 objMail.SetLocaleIDs(1254) On error resume next objMail.Send Set objMail = nothing response.redirect "siparis.asp?sayfa=tsk" end if if sayfa="tsk" then %>
<% end if if sayfa="sp_list" then set sl =server.CreateObject("adodb.recordset") sl.open "select * from urun_sor",bag,1,3%>

Sipariş Edilen Ürünler

<% do while not sl.eof %> <% sl.movenext loop %>
Ad Soyad : E-mail : Telefon : Fax : Adres : Tarih : Sil[x]
"><%=sl("adsoy")%> <%=sl("email")%> <%=sl("tel")%> <%=sl("fax")%> <%=sl("adres")%> <%=sl("tarih")%> ">Sil[x]
<% end if if sayfa="grnt" then set ekle = server.CreateObject("adodb.recordset") ekle.open "select * from urun_sor where id="&request.QueryString("id")&"",bag,1,3%>

Sipariş Bilgileri

Sipariş Firma : <%=ekle("firma")%>
  Ad Soyad : <%=ekle("adsoy")%>
  Telefon : <%=ekle("tel")%>
  Fax : <%=ekle("fax")%>
  Adres : <%=ekle("adres")%>
Veren E-mail : <%=ekle("email")%>
Sipariş Tarih : <%=ekle("tarih")%>
 
 
Siparişler :
<% if ekle("urun1") <> "" then %> <%end if%> <% if ekle("urun2") <> "" then %> <%end if%> <% if ekle("urun3") <> "" then %> <%end if%> <% if ekle("urun4") <> "" then %> <%end if%> <% if ekle("urun5") <> "" then %> <%end if%>
Sıra : Ürün Adı : İstenilen Adet : İstenilen KG : İstenilen Çap :
1. <%=ekle("urun1")%> <%=ekle("adet1")%> <%=ekle("kg1")%> <%=ekle("cap1")%>
2. <%=ekle("urun2")%> <%=ekle("adet2")%> <%=ekle("kg2")%> <%=ekle("cap2")%>
3. <%=ekle("urun3")%> <%=ekle("adet3")%> <%=ekle("kg3")%> <%=ekle("cap3")%>
4. <%=ekle("urun4")%> <%=ekle("adet4")%> <%=ekle("kg4")%> <%=ekle("cap4")%>
5. <%=ekle("urun5")%> <%=ekle("adet5")%> <%=ekle("kg5")%> <%=ekle("cap5")%>
<% end if if sayfa="sil" then set sil = server.CreateObject("adodb.recordset") sil.open "DELETE from urun_sor where id = "& request.QueryString("sid")&"" ,bag,1,3 response.redirect "siparis.asp?sayfa=sp_list" end if %>