Merhaba arkadaşlar.Websitemde bulunan haberler menüsünün aşağıdan yukarıya doğru kaymasını istiyorum.Mevcut olan kodu paylaşıyorum.Yardımlarınızı bekliyorum.Saygılarımla,
<head>
<meta http-equiv="Content-Language" content="tr">
</head>
<table style="width: 968px; height: 165px" cellspacing="0" cellpadding="0" align="center" id="table1">
<tr>
<td style="height: 26px">
<img border="0" src="images/haberler.gif" width="139" height="18"></td>
</tr>
<tr>
<td style="height: 139px" valign="top">
<table style="width: 710px; height: 24px" cellspacing="0" cellpadding="0" id="table1">
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("YonetimD/veri_tabani.mdb")
Set Kayit = Server.CreateObject("ADODB.Recordset")
Sql_Komutu = "Select * from haber order by id desc"
Kayit.Open Sql_Komutu, Baglanti, 1, 3
Do while not Kayit.eof
%><tr>
<td style="height: 24px; width: 22px" class="style3">
<img src="images/haber_icon.gif" width="13" height="12" /></td>
<td style="width: 688px; height: 24px" class="style26" valign="middle">
<a href="default.asp?akin=haberdevam&id=<%=Kayit("id")%>" class="style26"><span class="style12"><b><%=Kayit("baslik")%></b></span></a><b> </b>
<font color="#808080" face="Tahoma" style="font-size: 8pt">
<i>(<%=Kayit("tarih")%>)</i></font></td>
</tr>
<tr>
<td style="height: 24px; width: 22px" >
</td>
<td style="width: 688px; height: 24px" valign="middle">
<strong style="font-weight: 400">
<font face="Tahoma" style="font-size: 8pt" color="#808080">
<%=left(Kayit("metin"), 999)%></span></font></strong></td>
</tr>
<tr><%
Kayit.MoveNext
Loop
%>
</tr>
</table>
</td>
</tr>
</table>
<head>
<meta http-equiv="Content-Language" content="tr">
</head>
<table style="width: 968px; height: 165px" cellspacing="0" cellpadding="0" align="center" id="table1">
<tr>
<td style="height: 26px">
<img border="0" src="images/haberler.gif" width="139" height="18"></td>
</tr>
<tr>
<td style="height: 139px" valign="top">
<table style="width: 710px; height: 24px" cellspacing="0" cellpadding="0" id="table1">
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("YonetimD/veri_tabani.mdb")
Set Kayit = Server.CreateObject("ADODB.Recordset")
Sql_Komutu = "Select * from haber order by id desc"
Kayit.Open Sql_Komutu, Baglanti, 1, 3
Do while not Kayit.eof
%><tr>
<td style="height: 24px; width: 22px" class="style3">
<img src="images/haber_icon.gif" width="13" height="12" /></td>
<td style="width: 688px; height: 24px" class="style26" valign="middle">
<a href="default.asp?akin=haberdevam&id=<%=Kayit("id")%>" class="style26"><span class="style12"><b><%=Kayit("baslik")%></b></span></a><b> </b>
<font color="#808080" face="Tahoma" style="font-size: 8pt">
<i>(<%=Kayit("tarih")%>)</i></font></td>
</tr>
<tr>
<td style="height: 24px; width: 22px" >
</td>
<td style="width: 688px; height: 24px" valign="middle">
<strong style="font-weight: 400">
<font face="Tahoma" style="font-size: 8pt" color="#808080">
<%=left(Kayit("metin"), 999)%></span></font></strong></td>
</tr>
<tr><%
Kayit.MoveNext
Loop
%>
</tr>
</table>
</td>
</tr>
</table>