Arama butonu
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
4
Cevap
798
Tıklama
0
Öne Çıkarma
asp < table problemi... Respnse.write '<td...
C
20 yıl
Onbaşı
Konu Sahibi

Arkadaslar ben asp'de yeniyim
Öncelikle gergozen ve sputnick 'e cevaplarından dolayı tesekkür ederim. Gerçekten çok yardımcı oldular.

Asp ile frame'ler arasında sorun yaşarsın demişlerdi ve sanırım yaşıyorum...

Benim sayfam sekilde görüldüğü gibiydi...

< Resime gitmek için tıklayın >

ama Frame olayın içine girdikten sonra frame'in oldugu sayfada assagıdaki kodları çalıştırdıgımda tablolar yanyana diziliyor.
frame sayfasında çalışan kodlarım...
<div align="center">
<%
dosyayolu = Server.MapPath("urunler.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dosyayolu

Set rs=conn.Execute("select*from urunler order by urunID Asc")

dim sayac
sayac = 4
Do until rs.EOF

if sayac= 4 then
Response.Write "<tr>"
sayac = 0
end if
Response.Write "<td>"
Response.Write "<table align=left cellpadding=2 "
Response.Write "cellspacing=0><tbody>"
Response.Write "<tr>"
Response.Write "<td align=center><A HREF=""urunDETAY.asp?urunID=" & rs("urunID") & """><IMG src="&rs("urunRESIM")&" ></A></td>"
Response.write "</tr>"
Response.Write "<tr>"
Response.Write "<td align=center>"&rs("urunADI")&"</td>"
Response.write "</tr>"
Response.Write "<tr>"
Response.Write "<td align=center>"&rs("urunFIYATI")&"</td>"
Response.write "</tr>"
Response.Write "</tbody></table><p>"
Response.Write "</td>"
if sayac= 4 then
Response.Write "</tr>"
end if


rs.MoveNext
sayac = sayac + 1
Loop

rs.Close()
Set rs = nothing
%>
</div>
< Resime gitmek için tıklayın >
Şekilde görüldügü üzere frame kısmında tablolar yanyana alıp başını gidiyor. Ben buna dur demek istiyorum. Yani asp kodu yazarak bu tabloları 4 satır 4 sütün şeklinde sıralatabilirmiyim. Bu arada frame'de çalışan .asp sayfası default.asp sayfasının <..include.. olmuş halidir.

thumbnail resimlerimin boyutu 140 * 140 her satıra 4 satır ve 4 sütun gelmesini istiyorum.
Table 565*1092

Yardım edecek arkadaşların ellerine ve gözlerine sağlık. Sahura kadar cevap bekliyorum...
Saygılar
Istedigim tablo ise
< Resime gitmek için tıklayın >





< Bu mesaj bu kişi tarafından değiştirildi chris2 -- 12 Ekim 2005, 1:09:19 >

A
20 yıl
Binbaşı

<%'burda da veritabanına felan bağlan ona görede altaaki record setlerini değiştir.%>



<table width="100%" border="0" cellspacing="0" cellpadding="4" >
<tr>

<%

bol = 4 ' yan yana kaçtane sutun olduğunu belirtiyor
For I = 1 To rst.RecordCount


%>
<td width="744" align="center" height="169" valign="top" >

<div align="left">

<table border="0" cellpadding="0" cellspacing="0" >
<tr >
<td width="160" height="91">
resim</tr>

<tr>
</form>
<td width="160" height="91">
geri kalan</tr>

</tr>
</table>

</div>

</b>

</a>
</td>

<%
If I mod bol = 0 Then

Response.Write " </tr><tr> "

End If

rst.Movenext
Next
rst.Close
%>
</tr>
</table>


Bu mesaja 1 cevap geldi.
C
20 yıl
Onbaşı
Konu Sahibi

[HATA]

Microsoft VBScript compilation error '800a0400'

Expected statement

/local/sizin2.asp, line 12

<% bol = 4
^


quote:

Orjinalden alıntı: apostylee


<%'burda da veritabanına felan bağlan ona görede altaaki record setlerini değiştir.%>



<table width="100%" border="0" cellspacing="0" cellpadding="4" >
<tr>
<%

bol = 4 ' yan yana kaçtane sutun olduğunu belirtiyor
For I = 1 To rst.RecordCount


%>
<td width="744" align="center" height="169" valign="top" >

<div align="left">

<table border="0" cellpadding="0" cellspacing="0" >
<tr >
<td width="160" height="91">
resim</tr>

<tr>
</form>
<td width="160" height="91">
geri kalan</tr>

</tr>
</table>

</div>

</b>

</a>
</td>

<%
If I mod bol = 0 Then

Response.Write " </tr><tr> "

End If

rst.Movenext
Next
rst.Close
%>
</tr>
</table>


Yukarıda bold olarak işaretlediğim tagları html'in içinemi atıcam ?
Yani herhangi bir tablonun icine sadece aşşagıdaki kodları yapıştırsam yeterlimi ?

<%

bol = 4 ' yan yana kaçtane sutun olduğunu belirtiyor
For I = 1 To rst.RecordCount


If I mod bol = 0 Then

Response.Write " </tr><tr> "

End If

rst.Movenext
Next
rst.Close
%>
</tr>
</table>





< Bu mesaj bu kişi tarafından değiştirildi chris2 -- 12 Ekim 2005, 16:17:08 >

C
20 yıl
Onbaşı
Konu Sahibi

Arkadaşlar
En son kodu bu hale getirdim ...

<div align="center">
<%
dosyayolu = Server.MapPath("urunler.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dosyayolu
Set rs=conn.Execute("select*from urunler order by urunID Asc")
%>

<table width="50%" border="1" cellspacing="1" cellpadding="1" >
<tr>

<%
dim sayac
sayac = 4
Do until rs.EOF

if sayac= 4 then
Response.Write "<tr>"
sayac = 0
end if
bol = 4 ' yan yana kaçtane sutun olduğunu belirtiyor
For I = 1 To 1

Response.Write "<td align=center><A HREF=""urunDETAY.asp?urunID=" & rs("urunID") & """><IMG src="&rs("urunRESIM")&" width=130 height=130></A></td>"

%>
<td width="744" align="center" height="169" valign="top" >

<div align="center">

<table border="1" cellpadding="1" cellspacing="1" >
<tr >
<td width="160" height="91">
resim</tr>

<tr>
</form>
<td width="160" height="91">
gerikalan</tr>

</tr>
</table>

</div>

</b>

</a>
</td>

<%
If I mod bol = 0 Then

Response.Write " </tr><tr> "
End If
Next
if sayac= 4 then
Response.Write "</tr>"
end if


rs.MoveNext
sayac = sayac + 1
Loop

rs.Close()
Set rs = nothing
%></tr></table>

Ve sonuç bu sayfada...http://www.cemoflower.com/asp/ istedigimi yine yapamadım...
Sayfada 24 tane resmi gösteriyor...

Yardımcı olabilecek arkadaslar beni msn'e alabilirmi ?
cenktekin@hotmail.com


Bu mesaja 1 cevap geldi.
A
20 yıl
Binbaşı

şimdi sen 4*4=16 tane ürün listeletmek istiyorsun bu çok basit bunu sqlle yapıcaksın şöleki
Set rs=conn.Execute("select Top 16 * from urunler order by urunID Asc")

burdaki "top 16" veritabanından çekilecek olan kayıt sayısını belirtiyor



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.