LinkBack URL
About LinkBacks
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%"> <font face="arial" color="#ffffff"><b><%=request("kategori2")%></font></b></td>
</tr>
</table>
</center>
<br>
<font size="3" face="arial"> <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">
</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>
</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> </td>
</tr>
</table>
<%end if%>
Alıntı Yaparak Yanıtla
Bookmarks