Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi chris2 -- 12 Ekim 2005, 1:09:19 > |
Hızlı 
Bildirim
asp < table problemi... Respnse.write '<td...
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
<%'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>
-
[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 >
-
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
-
ş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
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
