<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta content="text/html; charset=iso-8859-9" http-equiv="Content-Type" />
<meta content="tr" http-equiv="Content-Language" />
<title>Sipariş Onay</title>
<!--#include file="inc_meta.asp"-->
<%if session("login") <> "ok" then
response.redirect("/")
end if
%>
<link href="main.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="d_main">
<!--#include file="inc_top.asp"-->
<div id="d_content">
<div id="page_top">
</div>
<div id="page_content">
<h1><span class="h1_sp">Online Sipariş</span></h1>
<div id="menu_items">
<!--#include file="inc_menu.asp"--></div>
<div class="f_right">
<div class="header_page">
Siparişlerim</div>
<table cellpadding="0" cellspacing="0" style="width: 711px;">
<tr class="table_header">
<td class="table_left_hd"> </td>
<td>Ürün Adı</td>
<td>Ürün İçeriği</td>
<td width="70">Fiyatı</td>
<td width="50">Adet</td>
<td width="75">Tutar</td>
<td class="table_right_hd"> </td>
</tr>
<%set cart=conn.execute("SELECT sepet_id,sepet_ad,sepet_icerik,sepet_fiyat,sepet_adet from sepet where sepet_sip_id = 0 and sepet_uye_id="&session("uyeid"))
cnt=0
fyt=0
do while not cart.eof
cnt = cnt + 1
fyt=fyt + (cart("sepet_fiyat") * cart("sepet_adet"))%>
<tr class="table_spacer">
<td colspan="6"></td>
</tr>
<tr class="table_content">
<td class="table_left_ct"> </td>
<td class="table_name"><%=cart("sepet_ad")%></td>
<td class="table_desc"><%=cart("sepet_icerik")%></td>
<td><%=cart("sepet_fiyat")%> TL</td>
<td align="center"><%=cart("sepet_adet")%></td>
<td><%=cart("sepet_fiyat") * cart("sepet_adet")%> TL</td>
<td class="table_right_ct"> </td>
</tr>
<%cart.movenext
loop%>
</table>
</div>
<div class="f_right" style="width:711px;margin-top:30px;">
<div class="header_page">Teslimat Bilgileri</div>
<%
set adres=conn.execute("SELECT adres.adres_ad, adres.adres_metin, adres.adres_tanim, ilce.ilce_ad,sube.sube_mail FROM (adres INNER JOIN ilce ON adres.adres_ilce_id = ilce.ilce_id) INNER JOIN sube ON ilce.ilce_sube_id = sube.sube_id WHERE (((adres.adres_uye_id)="& session("uyeid") &") AND ((adres.adres_id)="& request.querystring("id") &"))")
%>
<form method="post" action="siparis.asp" id="frm_sip">
<input type="hidden" name="id" value="<%=request.querystring("id")%>" />
<table style="width: 500px;color:#727272;border: 2px #bddeae solid; border-radius: 6px; -moz-border-radius: 6px;font-family: Tahoma;" cellpadding="0" cellspacing="20" >
<tr>
<td>Alıcı Adı</td>
<td align="center"><%=session("uyeisim")%></td>
</tr>
<tr>
<td>Alıcı Telefon</td>
<td align="center"><%=session("uyetel")%></td>
</tr>
<tr>
<td>Adres Adı</td>
<td align="center"><%=adres("adres_ad")%></td>
</tr>
<tr>
<td>Açık Adres</td>
<td align="center"><%=adres("adres_metin")%></td>
</tr>
<tr>
<td>Semt</td>
<td align="center"><%=adres("ilce_ad")%></td>
</tr>
<%if adres("adres_tanim") <> "" then%>
<tr>
<td>Adres Tanımı</td>
<td align="center"><%=adres("adres_tanim")%></td>
</tr>
<%end if%>
<tr>
<td>Toplam Tutar</td>
<td align="center" style="font-weight:bold;color:#990000;font-size:16px;"><%=fyt%> TL</td>
</tr>
<tr>
<td>Ödeme Şekli</td>
<td align="right"><select class="input_text" style="padding:5px;" name="odeme">
<option>Nakit</option>
<option>Kredi Kartı</option>
<option>Multinet</option>
<option>Ticket</option>
<option>Sodexo</option>
</select></td>
</tr>
<tr>
<td>Grupanya Kodu (Varsa)</td>
<td align="right" style="font-weight:bold;color:#990000;font-size:16px;"><input type="text" id="grp" name="grp" class="input_text" /></td>
</tr>
<tr>
<td></td>
<td align="right"><a href="javascript:x_kontrol(document.getElementById('grp').value);" class="button">Kontrol Et</a></td>
</tr>
<%if cnt > 0 then %>
<tr>
<td>Sipariş Notu</td>
<td align="right"><textarea class="input_area" name="snot" cols="20" rows="2"></textarea></td>
</tr>
<%end if%>
<tr><td colspan="2" height="50"><a href="javascript:frm_post('frm_sip',0);" class="button">Siparişi Tamamla</a></td></tr>
</table>
</form>
</div>
</div>
<div id="page_bottom">
</div>
</div>
<!--#include file="inc_footer.asp"--></div>
</body>
</html>Buradan Tıklayında Siparis.asp ye Gidiyor ama siparis.asp sayfamda hata Alıyorum
500 - Internal server error.
There is a problem with the resource you are looking for, and it cannot be displayed. hatası alıyorum
Siparis.asp de Aşağıdaki Gibidir...
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta content="text/html; charset=iso-8859-9" http-equiv="Content-Type" />
<title>Form Mail</title>
</head>
<body>
<!--#include file="../func.asp" -->
<%if session("login") <> "ok" then
response.redirect("/")
end if
if request.form <> "" then
grupanya = 1
if grupanya = 1 and request.form("grp") <> "" then
k=request.form("grp")
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://onay.grupanya.com/s/KodSorgula.ashx?k="&k&"&ci=ps&x=129560", False
xml.Send
sonuc= xml.Responsetext
Set xml= Nothing
sonuc2= split(sonuc,"|")
sonuc3 = sonuc2(0)
select case sonuc3
case "-1"
sonuc4="Parametreler Eksik veya Hatalı"
case "-2"
sonuc4="Fırsat Kodu Hatalı"
case "-3"
sonuc4="Fırsat Kodu Firmamıza Ait Değil"
case "-4"
sonuc4="Fırsat Kodu " &sonuc2(1)& "Tarihinde İptal Edilmiş"
case "-5"
sonuc4="Fırsat Kodu " &sonuc2(1)& "Tarihinde Kullanılmış"
case "1"
sonuc4="Tebrikler. Fırsat Kodunuz Kullanılabilir Durumda !"
xsnot = "<b>Grupanya Fırsat Kodu: "&k&"</b><br/>"
Set xml2 = Server.CreateObject("Microsoft.XMLHTTP")
xml2.Open "GET", "http://onay.grupanya.com/s/KodDogrula.ashx?k="&k&"&ci=ps&x=129560&km=ps", False
xml2.Send
case else
sonuc4="Bilinmeyen Hata. Tekrar Deneyiniz !"
end select
end if
set adres=conn.execute("SELECT adres.adres_ad, adres.adres_metin, adres.adres_tanim, ilce.ilce_ad,sube.sube_mail FROM (adres INNER JOIN ilce ON adres.adres_ilce_id = ilce.ilce_id) INNER JOIN sube ON ilce.ilce_sube_id = sube.sube_id WHERE (((adres.adres_uye_id)="& session("uyeid") &") AND ((adres.adres_id)="& request.form("id") &"))")
xkey = session.SessionID & month(now) & day(now) & hour(now) & minute(now) & second(now)
Set rs = Server.CreateObject ("ADODB.RecordSet" )
rs.Open "Select top 1 * from sip order by sip_id desc",conn,1,3
xsnot = xsnot & request.form("snot")
rs.AddNew
rs("sip_tarih") = now
rs("sip_uye_id") = session("uyeid")
rs("sip_sube_mail") = adres("sube_mail")
rs("sip_alici") = session("uyeisim")
rs("sip_tel") = session("uyetel")
rs("sip_adres") = adres("adres_metin") & " - " & adres("ilce_ad")
rs("sip_tanim") = adres("adres_tanim")
rs("sip_odeme") = request.form("odeme")
rs("sip_not") = xsnot
rs("sip_key") = xkey
sid=rs("sip_id")
rs.Update
set sepet = conn.execute("update sepet set sepet_sip_id ="&sid&" where sepet_uye_id =" & session("uyeid") & " and sepet_sip_id = 0")
mailgonder "hakan@lxxxxxx.com","Hakan12",adres("sube_mail"),"Yeni Sipariş", now & " - Siparisi goruntulemek icin <a target=""_blank"" href=""http://xxxxxxxxx.com/tr/siparislerim.asp?id="&sid&"&key="&xkey&""">buraya tiklayiniz</a>"
end if
%>
<script language="javascript">
window.alert('Siparişiniz size en yakın şubemize iletilmiştir. En kısa sürede teslim edilecektir. Teşekkür ederiz.');
window.location='/';
</script>
</body>
</html> 