Ceviz Forum ceviz wiki

Geri Dön   Ceviz Forum > Programlama > ASP
Sayfayı Yenile Sıralama sorunu
Üyelik Başvurusu Albümler Yardım Üyeler Takvim Okundu Say

Cevapla
 
LinkBack Seçenekler
Eski 08/10/2008, 12:21   #1 (permalink)
Üye
 
yafes07 Adlı Üyenin Profil Grafiği
 
Üyelik Tarihi: 01/2007
Mesaj: 10
Varsayılan Sıralama sorunu
Merhabalar aşağıdaki ürün sıralaması alt alta ve tek sıra bunu 2 sıra yan yana resimli olarak nasıl düzenleyebilirim yardımcı olursanız çok sevinirim

Teşekkürler

<% sayfa = Request.QueryString("sayfa")
if sayfa="" then
sayfa = 1
else
sayfa = CInt(sayfa)
end if







'------------------------------------------- kur bulucu -------------------------------------------------------------------
const Request_GET = 2
url = "http://www.tcmb.gov.tr/kurlar/today.html"
Dim Tear, veri
On Error Resume Next 'Herkes hata yapabilir
Set Tear = Server.CreateObject("Softwing.AspTear")
veri = Tear.Retrieve(url,Request_Get, "","","")
if Err <> 0 then ' E?er bizde hata yapty isek

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Cnn_Str

Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From tamponkur where Kimlik=1"
Rs.Open SQL, Conn,1,3
eurosat = rs("euro")
dSatis = rs("dolar")
Rs.Close
Set Rs=Nothing

Conn.Close
Set Conn=Nothing


else

dlr = Instr(1,veri,"USD/TRY")
euro= Instr(1,veri,"EUR/TRY")
'response.write veri
eurosat = Mid(veri,euro+52,10)
dSatis = Mid(veri,dlr+52,10)
end if
'--------------------------------------------------------------------------------------------------------------------------
%>

<meta http-equiv="Content-Language" content="tr">
<body bgcolor="#FFFFFF">




<%if request("ustkimlik")="" then%>



<div align="center">
<table border="0" cellpadding="20" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#FFFFFF" height="100%" class="normal">


<tr>
<td width="100%" height="16" valign="top" class="urunlink">
<center><img border="0" src="images/ok.gif" align="absMiddle"> <b><%=request("kategori")%></b></center>
</td>
</tr>


<tr>
<td width="100%" valign="top" align="center">


<table>

<tr>



<%

Kimlik=request("Kimlik")
Kimlik=guvenlik(Kimlik)
Kimlik=replace(Kimlik, " ","x")
Kimlik=trim(Kimlik)
'if isnumeric(Kimlik)=False then response.redirect "guvenlik.asp"
'if len(Kimlik)>7 then response.redirect "guvenlik.asp"


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Cnn_Str
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From urun where ustid="&Kimlik&" order by sira"
Rs.Open SQL, Conn,1,3
If Not Rs.EOF Then


if Rs.recordcount=1 then
Response.redirect "index.asp?page=urunler.asp&ustKimlik="&rs("ustid" )&"&Kimlik2="&rs("Kimlik")&"&Kimlik="&request("Kim lik")&"&kategori="&request("kategori")&"&kategori2 ="&rs("isim")&"&bilgici="&request("bilgici")
end if


While Not Rs.EOF
a=a+1


if rs("oran")=0 then
oran=".2"
elseif rs("oran")=100 then
oran="1"

else

if rs("oran")<10 then
orancik="0"&cstr(rs("oran"))
oran="."&orancik
else
oran="."&rs("oran")
end if

end if



Response.redirect "index.asp?page=anasayfa.asp&Kimlik="&request("Kim lik")&"&kategori="&request("kategori")&"&bilgici=" &request("bilgici")

%>




<td width="135" align="left">


<img border="0" src="images/kare.gif" align="absMiddle"> <a href="index.asp?page=urunler.asp&ustKimlik=<%=rs(" ustid")%>&Kimlik2=<%=rs("Kimlik")%>&Kimlik=<%=requ est("Kimlik")%>&kategori=<%=request("kategori")%>& kategori2=<%=rs("isim")%>" class="urunlink"><%=rs("isim")%>
<%if rs("resim")<>"" then
yol=""&request("kategori")&"/"&rs("isim")&"/"&rs("resim")%>
<br><br>
<IMG SRC="resizeci.asp?yol=<%=yol%>&oran=<%=oran%>" style="border: 1px solid #F2F2CE">
<%end if%>
</a>

</td>

<%
if a mod(5)=0 then response.write "</tr><tr>"

Rs.MoveNext
Wend



else
response.write "<td class=normal>Bu kategoriye ait ürünlerimiz güncellenme aşamasındadır en kısa zamanda tekrar kontrol ediniz.</td>"
end if



Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing%>

</tr>
</table>



</td>
</tr>
</table>





<%else%>






<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#FFFFFF" height="100%" class="normal">
<tr>
<td width="100%" height="16" valign="top" class="urunlink">

<center>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="529" id="AutoNumber2" height="65" background="images/urunler_tepe.gif">
<tr>
<td width="100%">&nbsp;&nbsp; <font face="arial" color="#ffffff"><b><%=request("kategori2")%></font></b></td>
</tr>
</table>


</center>


<br>
&nbsp; <font size="3" face="arial">&nbsp;&nbsp;&nbsp;<b><%=request("kate gori")%></b></font>


</td>
</tr>
<tr>
<td width="100%" valign="top" align="center">






<table height="160" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">


<%
Kimlik2=request("Kimlik2")
Kimlik2=guvenlik(Kimlik2)
Kimlik2=replace(Kimlik2, " ","x")
Kimlik2=trim(Kimlik2)
if isnumeric(Kimlik2)=False then response.redirect "guvenlik.asp"
if len(Kimlik2)>7 then response.redirect "guvenlik.asp"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Cnn_Str
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From urun2 where anaid="&Kimlik2&" and yayin=1 order by Kimlik"
Rs.Open SQL, Conn,1,3

If Not Rs.EOF Then
Rs.pagesize=20
Rs.absolutepage = sayfa
say=Rs.pagecount%>


<tr>
<td class="normal" colspan="2" height="38">
<%if say>1 then %> <br><b>Sayfalar:</b> <%
for i=1 to say
if i=sayfa then
response.write "<u>"&i&"</u>"
else
%> <a href="index.asp?page=urunler.asp&ustKimlik=<%=requ est("ustkimlik")%>&Kimlik2=<%=request("Kimlik2")%> &Kimlik=<%=request("Kimlik")%>&kategori=<%=request ("kategori")%>&kategori2=<%=request("kategori2")%> &sayfa=<%=i%>&bilgici=<%=request("bilgici")%>" title="<%=i%>. sayfaya gider" class="sayfala"><%=i%></a>
<%
end if
next
end if%>
<br><br>

</td>
</tr>


<tr>

<%
for i=1 to rs.pagesize
if rs.EOF then exit for
b=b+1




if rs("cins")=1 then
kdvli=rs("fiyat")*(1+(rs("kdv")/100))
end if

if rs("cins")=2 then
yenifiyateuro = rs("fiyat")*eurosat
kdvli=yenifiyateuro*(1+(rs("kdv")/100))
end if

if rs("cins")=3 then
yenifiyatusd=rs("fiyat")*dsatis
kdvli=yenifiyatusd*(1+(rs("kdv")/100))
end if


if b mod(2)=0 then
renk="e6e6e6"
else
renk="d1d1d1"
end if
%>

<td width="20" border="1" valign="center" bgcolor="#<%=renk%>" height="53" style="border-bottom: 2px solid #FFFFFF">

&nbsp;
</td>

<td width="330" border="1" valign="center" bgcolor="#<%=renk%>" height="53" style="border-bottom: 2px solid #FFFFFF">

<%if request("bilgici")<>"" then%>
<font face="arial" size="3" color="7d7d7d"><a href="index.asp?page=urunler2.asp&Kimlik=<%=Rs("Ki mlik")%>&bilgici=<%=request("bilgici")%>&kategori= <%=request("kategori")%>" class="urunlink"><b><%=rs("alturun")%></b></a></font>
<%else%>
<font face="arial" size="3" color="7d7d7d"><a href="index.asp?page=urunler2.asp&Kimlik=<%=Rs("Ki mlik")%>&kategori=<%=request("kategori")%>" class="urunlink"><b><%=rs("alturun")%></b></a></font>
<%end if%>
</td>
<td width="150" border="1" align="right" class="urunlink" bgcolor="#<%=renk%>" height="53" style="border-bottom: 2px solid #FFFFFF">

<font size="5" face="arial" color="#7d7d7d"><%Response.write "<b>"&FormatNumber(kdvli,2)&" </b>"%></font> <b>YTL</b>&nbsp;&nbsp;
</td>


<%
if b mod(1)=0 then response.write "</tr><tr>"



rs.movenext
next%>





<tr>
<td class="normal" colspan="2" height="57">
<br>
<%if say>1 then %> <b>Sayfalar:</b> <%
for i=1 to say
if i=sayfa then
response.write "<u>"&i&"</u>"
else
%> <a href="index.asp?page=urunler.asp&ustKimlik=<%=requ est("ustkimlik")%>&Kimlik2=<%=request("Kimlik2")%> &Kimlik=<%=request("Kimlik")%>&kategori=<%=request ("kategori")%>&kategori2=<%=request("kategori2")%> &sayfa=<%=i%>&bilgici=<%=request("bilgici")%>" title="<%=i%>. sayfaya gider" class="sayfala"><%=i%></a>
<%
end if
next
end if%>
<br><br>

</td>
</tr>



<%
else

response.write "Bu kategoriye ait ürünler güncelleme aşamasındadır. Lütfen en kısa zamanda tekrar ziyaret ediniz."

end if

Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing%>
</tr>
</table>



<p>&nbsp;</td>
</tr>
</table>



<%end if%>
yafes07 hatta değil   Alıntı Yaparak Yanıtla
Haberortak
Eski 08/10/2008, 13:12   #2 (permalink)
Ayberk Atasay
 
djinn Adlı Üyenin Profil Grafiği
 
Üyelik Tarihi: 12/2006
Yer: izmir
Mesaj: 279
Varsayılan
forumda arama yaparsan hatta arama yapma sayfalara bak 3-4 sayfa içinde bile 2 tane ilgili konu görebilirsin
__________________
Ayberk Atasay | http://www.ayberk.com
djinn hatta değil   Alıntı Yaparak Yanıtla
Eski 08/10/2008, 13:41   #3 (permalink)
Üye
 
yafes07 Adlı Üyenin Profil Grafiği
 
Üyelik Tarihi: 01/2007
Mesaj: 10
Varsayılan
Evet kardeş varda bir türlü bu formda uygulama yapamadım bunun üzerine uygulamak istiyorum
yafes07 hatta değil   Alıntı Yaparak Yanıtla
Eski 09/10/2008, 00:17   #4 (permalink)
Üye
 
yafes07 Adlı Üyenin Profil Grafiği
 
Üyelik Tarihi: 01/2007
Mesaj: 10
Varsayılan
ürün lerin listelendiği kod bölümüde bu

<%
Kimlik2=request("Kimlik2")
Kimlik2=guvenlik(Kimlik2)
Kimlik2=replace(Kimlik2, " ","x")
Kimlik2=trim(Kimlik2)
if isnumeric(Kimlik2)=False then response.redirect "guvenlik.asp"
if len(Kimlik2)>7 then response.redirect "guvenlik.asp"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Cnn_Str
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From urun2 where anaid="&Kimlik2&" and yayin=1 order by Kimlik"
Rs.Open SQL, Conn,1,3

If Not Rs.EOF Then
Rs.pagesize=20
Rs.absolutepage = sayfa
say=Rs.pagecount%>


<tr>
<td class="normal" colspan="2" height="38" width="165">
<%if say>1 then %> <br><b>Sayfalar:</b> <%
for i=1 to say
if i=sayfa then
response.write "<u>"&i&"</u>"
else
%> <a href="index.asp?page=urunler.asp&ustKimlik=<%=requ est("ustkimlik")%>&Kimlik2=<%=request("Kimlik2")%> &Kimlik=<%=request("Kimlik")%>&kategori=<%=request ("kategori")%>&kategori2=<%=request("kategori2")%> &sayfa=<%=i%>&bilgici=<%=request("bilgici")%>" title="<%=i%>. sayfaya gider" class="sayfala"><%=i%></a>
<%
end if
next
end if%>
<br><br>

</td>
</tr>


<tr>

<%
for i=1 to rs.pagesize
if rs.EOF then exit for
b=b+1




if rs("cins")=1 then
kdvli=rs("fiyat")*(1+(rs("kdv")/100))
end if

if rs("cins")=2 then
yenifiyateuro = rs("fiyat")*eurosat
kdvli=yenifiyateuro*(1+(rs("kdv")/100))
end if

if rs("cins")=3 then
yenifiyatusd=rs("fiyat")*dsatis
kdvli=yenifiyatusd*(1+(rs("kdv")/100))
end if


if b mod(2)=0 then
renk="e6e6e6"
else
renk="d1d1d1"
end if
%>

<td width="20" border="1" valign="center" bgcolor="#<%=renk%>" height="53" style="border-bottom: 2px solid #FFFFFF">

&nbsp;
</td>

<td width="145" border="1" valign="center" bgcolor="#<%=renk%>" height="53" style="border-bottom: 2px solid #FFFFFF">

<%if request("bilgici")<>"" then%>
<font face="arial" size="3" color="7d7d7d"><a href="index.asp?page=urunler2.asp&Kimlik=<%=Rs("Ki mlik")%>&bilgici=<%=request("bilgici")%>&kategori= <%=request("kategori")%>" class="urunlink"><b><%=rs("alturun")%></b></a></font>
<%else%>
<font face="arial" size="3" color="7d7d7d"><a href="index.asp?page=urunler2.asp&Kimlik=<%=Rs("Ki mlik")%>&kategori=<%=request("kategori")%>" class="urunlink"><b><%=rs("alturun")%></b></a></font>
<%end if%>
</td>
<td width="335" border="1" align="right" class="urunlink" bgcolor="#<%=renk%>" height="53" style="border-bottom: 2px solid #FFFFFF">

<font size="5" face="arial" color="#7d7d7d"><%Response.write "<b>"&FormatNumber(kdvli,2)&" </b>"%></font> <b>YTL</b>&nbsp;&nbsp;
</td>


<%
if b mod(1)=0 then response.write "</tr><tr>"



rs.movenext
next%>





<tr>
<td class="normal" colspan="2" height="57" width="165">
<br>
<%if say>1 then %> <b>Sayfalar:</b> <%
for i=1 to say
if i=sayfa then
response.write "<u>"&i&"</u>"
else
%> <a href="index.asp?page=urunler.asp&ustKimlik=<%=requ est("ustkimlik")%>&Kimlik2=<%=request("Kimlik2")%> &Kimlik=<%=request("Kimlik")%>&kategori=<%=request ("kategori")%>&kategori2=<%=request("kategori2")%> &sayfa=<%=i%>&bilgici=<%=request("bilgici")%>" title="<%=i%>. sayfaya gider" class="sayfala"><%=i%></a>
<%
end if
next
end if%>
<br><br>

</td>
</tr>



<%
else

response.write "Bu kategoriye ait ürünler güncelleme aşamasındadır. Lütfen en kısa zamanda tekrar ziyaret ediniz."

end if

Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing%>
</tr>
</table>
yafes07 hatta değil   Alıntı Yaparak Yanıtla
Cevapla

Bookmarks

« Önceki Konu | Sonraki Konu »

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Seçenekler

Mesaj Yazma Hakları
Yeni mesajgöndermezsiniz
Cevap yazamazsınız
Dosya ekleyemezsiniz
Mesajınızı düzenleyemezsiniz
BB code is Açık
[IMG] kodu Açık
HTML kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Forum saati Türkiye saatine göredir. GMT +3. Şu anda saat 02:34.

Reklamlar & Desteklenenler
Hassas Valf | Hassas Kaplama | Antalyamız | Gazete | Ticari Bilişim | Hakan Müştak | Antalya Aupair | Turkish Property Antalya | Forum | Chat | Perde | Oyunlar | ÇOCUK oyunları | Oyunlar | Yusuf KOÇ | Akın Yorulmaz | şiir | Web Tasarım | Dsmart | Arkadaş | Evlilik | Oyunlar | indir | Haber | Chat | Muhabbet | D dili |

İletişim - Ceviz.net - RSS - Arşiv - Hizmet Sözleşmesi - Tepe

Forum Yazılımı: vBulletin Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.2.0
Copyright ©2001 - 2008, Ceviz.net