implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP / ASP.NET
 ASPTurkiye.com Forum : ASP / ASP.NET
Konu Konu: asp sorgulama hatası Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
macan
Yeni Üye
Yeni Üye


Kayıt Tarihi: 28-Ağustos-2013
Gönderilenler: 1
Gönderen: 28-Ağustos-2013 Saat 16:23 | Kayıtlı IP Alıntı macan
arkadaşlar otel fiyat hesaplama aracım için standart oda
tercihini hallettim. aile oda fiyatı seçildiğinde hata
veriyor. yardım edebilir misiniz?

linki: transfer.adenyaotel-alanya.com/bera/default.asp

kaynak kodu:

<!--#include file="dbbi.asp"-->
<%gun=request("gun")%>
<%ay=request("ay")%>
<%gun2=request("gun2")%>
<%ay2=request("ay2")%>
<%tur=request("tur")%>
<%odatipi=request("odatipi")%>
<%yil="2010"%>
<%nokta="."%>
<%tarih1=ay+gun%>
<%tarih2=ay2+gun2%>
<LINK
href="style.css"
type=text/css rel=stylesheet>

<html>
<%
             Public Function VeriAl(strGelen)
             Set objVeriAl =
Server.CreateObject("Microsoft.XMLHTTP" )
             objVeriAl.Open "GET" , strGelen, FALSE
             objVeriAl.sEnd
             VeriAl = objVeriAl.Responsetext
             SET objVeriAl = Nothing
             End Function
             
             strAdres =
"http://www.tcmb.gov.tr/kurlar/today.html"
             strVeri = VeriAL(strAdres)
             iDolar=InStr(strVeri,"USD" )
             strDolarAlis=Mid(strVeri,iDolar+38,10)
             strDolarSatis=Mid(strVeri,iDolar+51,10)
             strDolarAlisSerbest=Mid(strVeri,iDolar+67,10)
             
strDolarSatisSerbest=Mid(strVeri,iDolar+80,10)
             
             iEuro=InStr(strVeri,"EUR" )
             
             strEuroAlis=Mid(strVeri,iEuro+38,11) 'alis
             
             strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis
             strEuroAlisSerbest=Mid(strVeri,iEuro+67,11)
'alis
             strEuroSatisSerbest=Mid(strVeri,iEuro+80,11)
'satis
             %>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1254">
</head>
<body bgcolor="#282A30">

<p align="center">
<font color="#FFFFFF">
<%if odatipi="so" then %>
<%if tur="ikiyucc" or tur="ikiydortc" or tur="ucyikic" or
tur="ucyucc" or tur="dortybirc" or tur="dortyikic" or
tur="besy" or tur="besybirc" or tur="altic" or
tur="dorty" or tur="altiy" then %>
Standart Odada En Fazla 3  Kişi Konaklayabilir.
Lütfen Aile Odasını Seçiniz.
<%else%>
<%
Set baglanti = Baglanti.Execute("Select * from
berastandart where tarih >= "&tarih1&" and tarih <
"&tarih2&" order by tarih asc;")
%>
<Table style="height: 48px; width: 238px">
<tr>
<td><font color="#FFFFFF">Gün</font></td>
<td><font color="#FFFFFF">Türü</font></td>
<td><font color="#FFFFFF">Fiyat</font></td>
</tr>

    <%Do Until baglanti.eof %>
    <tr>

<%if tur="biry" then%>
<%toplam=baglanti("biry")+toplam%>
<%tutar=baglanti("biry")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="birybirc" then%>
<%toplam=baglanti("birybirc")+toplam%>
<%tutar=baglanti("birybirc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="biryikic" then%>
<%toplam=baglanti("biryikic")+toplam%>
<%tutar=baglanti("biryikic")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="biryucc" then%>
<%toplam=baglanti("biryucc")+toplam%>
<%tutar=baglanti("biryucc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ikiy" then%>
<%toplam=baglanti("ikiy")+toplam%>
<%tutar=baglanti("ikiy")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ikiybirc" then%>
<%toplam=baglanti("ikiybirc")+toplam%>
<%tutar=baglanti("ikiybirc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ikiyikic" then%>
<%toplam=baglanti("ikiyikic")+toplam%>
<%tutar=baglanti("ikiyikic")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ikiyucc" then%>
<%toplam=baglanti("ikiyucc")+toplam%>
<%tutar=baglanti("ikiyucc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ucy" then%>
<%toplam=baglanti("ucy")+toplam%>
<%tutar=baglanti("ucy")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ucybirc" then%>
<%toplam=baglanti("ucybirc")+toplam%>
<%tutar=baglanti("ucybirc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="dorty" then%>
<%toplam=baglanti("dorty")+toplam%>
<%tutar=baglanti("dorty")%>
<%end if%>
<%'------------------------------------------------------
'%>
<td><font color="#FFFFFF"><%=baglanti("Gun") %></font>
</td>
<td><font color="#FFFFFF"><%=tur %></font></td>
<td><font color="#FFFFFF"><%=tutar %></font></td>

</tr>


<%
baglanti.MoveNext
Loop
%>


</Table>
<%bir=split(streuroalis,".")%> <b>
     
<span style="font-size: 11pt">Toplam Euro Tutar:
<%=toplam%> Euro <br> Toplam TL Tutar:
<%hasan=strEuroAlis%><%hasan2=hasan*1.015*toplam/10 %>
<%selva=split(hasan2,",")%><%=selva(0)%> TL
</span></b>
Euro=<%= strEuroAlis%>
<%end if%>
</p>
</body>

</html></font><%end if%>
<p align="center">

<font color="#FFFFFF">

<%if odatipi="ao" then%><%'----------------------Aile
Odası------------------'%>

<%
Set baglanti = Baglanti.Execute("Select * from beraaile
where tarih >= "&tarih1&" and tarih < "&tarih2&" order by
tarih asc;")
%>
<Table style="height: 48px; width: 238px">
<tr>
<td><font color="#FFFFFF">Gün</font></td>
<td><font color="#FFFFFF">Türü</font></td>
<td><font color="#FFFFFF">Fiyat</font></td>
</tr>

    <%Do Until baglanti.eof %>
    <tr>
<%if tur="biry" then%>
<%toplam=baglanti("biry")+toplam%>
<%tutar=baglanti("biry")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="birybirc" then%>
<%toplam=baglanti("birybirc")+toplam%>
<%tutar=baglanti("birybirc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="biryikic" then%>
<%toplam=baglanti("biryikic")+toplam%>
<%tutar=baglanti("biryikic")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="biryucc" then%>
<%toplam=baglanti("biryucc")+toplam%>
<%tutar=baglanti("biryucc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ikiy" then%>
<%toplam=baglanti("ikiy")+toplam%>
<%tutar=baglanti("ikiy")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ikiybirc" then%>
<%toplam=baglanti("ikiybirc")+toplam%>
<%tutar=baglanti("ikiybirc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ikiyikic" then%>
<%toplam=baglanti("ikiyikic")+toplam%>
<%tutar=baglanti("ikiyikic")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ikiyucc" then%>
<%toplam=baglanti("ikiyucc")+toplam%>
<%tutar=baglanti("ikiyucc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ucy" then%>
<%toplam=baglanti("ucy")+toplam%>
<%tutar=baglanti("ucy")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ucybirc" then%>
<%toplam=baglanti("ucybirc")+toplam%>
<%tutar=baglanti("ucybirc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="dorty" then%>
<%toplam=baglanti("dorty")+toplam%>
<%tutar=baglanti("dorty")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ikiydortc" then%>
<%toplam=baglanti("ikiydortc")+toplam%>
<%tutar=baglanti("ikiydortc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ucyikic" then%>
<%toplam=baglanti("ucyikic")+toplam%>
<%tutar=baglanti("ucyikic")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="ucyucc" then%>
<%toplam=baglanti("ucyucc")+toplam%>
<%tutar=baglanti("ucyucc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="dortybirc" then%>
<%toplam=baglanti("dortybirc")+toplam%>
<%tutar=baglanti("dortybirc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="dortyikic" then%>
<%toplam=baglanti("dortyikic")+toplam%>
<%tutar=baglanti("dortyikic")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="besy" then%>
<%toplam=baglanti("besy")+toplam%>
<%tutar=baglanti("besy")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="besybirc" then%>
<%toplam=baglanti("besybirc")+toplam%>
<%tutar=baglanti("besybirc")%>
<%end if%>
<%'------------------------------------------------------
'%>
<%if tur="altiy" then%>
<%toplam=baglanti("altiy")+toplam%>
<%tutar=baglanti("altiy")%>
<%end if%>
<%'------------------------------------------------------
'%>

<%gun=request("gun")%>
<%ay=request("ay")%>
<%gun2=request("gun2")%>
<%ay2=request("ay2")%>
<%tur=request("tur")%>
<%odatipi=request("odatipi")%>
<%yil="2010"%>
<%nokta="."%>
<%tarih1=ay+gun%>
<%tarih2=ay2+gun2%>


<td><font color="#FFFFFF"><%=baglanti("Gun") %></font>
</td>
<td><font color="#FFFFFF"><%=tur %></font></td>
<td><font color="#FFFFFF"><%=tutar %></font></td>
</tr>
<%
baglanti.MoveNext
Loop
%> <b>

<span style="font-size: 11pt"><b>
Toplam Euro Tutar:<%=toplam%> Euro <br> Toplam TL Tutar:
<%bir=split(streuroalis,".")%><%hasan=bir(0)+","+bi r(1)%>
<%hasan2=hasan*toplam%><%selva=split(hasan2,",")%&g t;
<%=selva(0)%> TL
</span></b>
</b></font>
<%end if%>
Yukarı Dön Göster macan's Özellikler Diğer Mesajlarını Ara: macan
 
archerok67
Yeni Üye
Yeni Üye


Kayıt Tarihi: 31-Ağustos-2013
Ülke: Turkiye
Gönderilenler: 6
Gönderen: 31-Ağustos-2013 Saat 10:53 | Kayıtlı IP Alıntı archerok67
teşekürler
Yukarı Dön Göster archerok67's Özellikler Diğer Mesajlarını Ara: archerok67
 
collegefootball
Üye
Üye


Kayıt Tarihi: 23-Şubat-2024
Gönderilenler: 85
Gönderen: 28-Nisan-2024 Saat 04:16 | Kayıtlı IP Alıntı collegefootball
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-aj-haulcy-jersey-c-1_25.html" target="_blank">
<b>Grant Stuard Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-art-green-jersey-c-1_22.html" target="_blank">
<b>Joseph Manjack IV Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-case-keenum-jersey-c-1_12.html" target="_blank">
<b>Tank Dell Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-clayton-tune-jersey-c-1_6.html" target="_blank">
<b>Donovan Smith Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-damarion-williams-jersey-c-1_10.html"
target="_blank"><b>Clayton Tune Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-david-klingler-jersey-c-1_13.html"
target="_blank"><b>Donavan Mutin Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-donavan-mutin-jersey-c-1_7.html" target="_blank">
<b>Lucas Coley Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-donovan-smith-jersey-c-1_5.html" target="_blank">
<b>Samuel Brown Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-ed-oliver-jersey-c-1_17.html" target="_blank">
<b>Damarion Williams Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-elandon-roberts-jersey-c-1_27.html"
target="_blank"><b>Noah Guzman Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-gervarrius-owens-jersey-c-1_26.html"
target="_blank"><b>Case Keenum Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-grant-stuard-jersey-c-1_2.html" target="_blank">
<b>David Klingler Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-joseph-manjack-iv-jersey-c-1_3.html"
target="_blank"><b>Marcus Jones Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-josh-jones-jersey-c-1_28.html" target="_blank">
<b>Matthew Adams Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-joshua-cobbs-jersey-c-1_19.html" target="_blank">
<b>Kyle Allen Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-juwon-gaston-jersey-c-1_21.html" target="_blank">
<b>Ed Oliver Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-kyle-allen-jersey-c-1_16.html" target="_blank">
<b>Stephon Johnson Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-logan-hall-jersey-c-1_33.html" target="_blank">
<b>Joshua Cobbs Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-lucas-coley-jersey-c-1_8.html" target="_blank">
<b>Stacy Sneed Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-marcus-jones-jersey-c-1_14.html" target="_blank">
<b>Juwon Gaston Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-matt-byrnes-jersey-c-1_31.html" target="_blank">
<b>Art Green Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-matthew-adams-jersey-c-1_15.html"
target="_blank"><b>Parker Jenkins Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-nick-thurman-jersey-c-1_32.html" target="_blank">
<b>Tony Mathis Jr. Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-noah-guzman-jersey-c-1_11.html" target="_blank">
<b>A.J. Haulcy Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-parker-jenkins-jersey-c-1_23.html"
target="_blank"><b>Gervarrius Owens Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-payton-turner-jersey-c-1_34.html"
target="_blank"><b>Elandon Roberts Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-samuel-brown-jersey-c-1_9.html" target="_blank">
<b>Josh Jones Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-stacy-sneed-jersey-c-1_20.html" target="_blank">
<b>Wilson Whitley Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-stephon-johnson-jersey-c-1_18.html"
target="_blank"><b>Tyus Bowser Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-tank-dell-jersey-c-1_4.html" target="_blank">
<b>Matt Byrnes Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-tony-mathis-jr-jersey-c-1_24.html"
target="_blank"><b>Nick Thurman Houston Cougars
Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-tyus-bowser-jersey-c-1_30.html" target="_blank">
<b>Logan Hall Houston Cougars Jerseys</b></a>
<a href="https://www.uhcougarsjerseys.com/shop-by-
players-wilson-whitley-jersey-c-1_29.html"
target="_blank"><b>Payton Turner Houston Cougars
Jerseys</b></a>
Yukarı Dön Göster collegefootball's Özellikler Diğer Mesajlarını Ara: collegefootball
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0957 Saniyede Yüklendi.