| |
|
|
<% sub nobilgi %>
<% response.End()
end sub%>
<% if sayfa="" then %>
<% 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%>
|
| Ad Soyad : |
E-mail : |
Telefon : |
Fax : |
Adres : |
Tarih : |
Sil[x] |
<% do while not sl.eof %>
| "><%=sl("adsoy")%> |
<%=sl("email")%> |
<%=sl("tel")%> |
<%=sl("fax")%> |
<%=sl("adres")%> |
<%=sl("tarih")%> |
">Sil[x] |
<% sl.movenext
loop %>
|
<% 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ş |
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 : |
| Sıra : |
Ürün Adı : |
İstenilen Adet : |
İstenilen KG : |
İstenilen Çap : |
<% if ekle("urun1") <> "" then %>
| 1. |
<%=ekle("urun1")%> |
<%=ekle("adet1")%> |
<%=ekle("kg1")%> |
<%=ekle("cap1")%> |
<%end if%>
<% if ekle("urun2") <> "" then %>
| 2. |
<%=ekle("urun2")%> |
<%=ekle("adet2")%> |
<%=ekle("kg2")%> |
<%=ekle("cap2")%> |
<%end if%>
<% if ekle("urun3") <> "" then %>
| 3. |
<%=ekle("urun3")%> |
<%=ekle("adet3")%> |
<%=ekle("kg3")%> |
<%=ekle("cap3")%> |
<%end if%>
<% if ekle("urun4") <> "" then %>
| 4. |
<%=ekle("urun4")%> |
<%=ekle("adet4")%> |
<%=ekle("kg4")%> |
<%=ekle("cap4")%> |
<%end if%>
<% if ekle("urun5") <> "" then %>
| 5. |
<%=ekle("urun5")%> |
<%=ekle("adet5")%> |
<%=ekle("kg5")%> |
<%=ekle("cap5")%> |
<%end if%>
|
<%
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 %>
|
|
