örnek olarak internethaber.com adresinde yer alan köşe yazarı sistemini yapmaya çalışıyorum.
<!-- #include file="dbyegit.asp"-->
<LINK href="zitil.css" type=text/css
rel=stylesheet>
<style type="text/css">
<!--
.style1 {
font-size: 9px;
font-weight: bold;
color: #FF0000;
}
.style3 {font-size: 9px; font-weight: bold; font-family: Tahoma;}
-->
</style>
<script type="text/javascript">
function bookmarksite(title, url){
if (document.all)
window.external.AddFavorite(url, title);
else if (window.sidebar)
window.sidebar.addPanel(title, url, "")
}
</script>
<script language="JavaScript">
function openWin(theURL,winName,features) {
window.open(theURL,winName,features);
}
// -->
</script>
<%
Set zec1 = Server.CreateObject("ADODB.Recordset")
sql1 = "Select * from zecyazi where Onay=1 order by yaziid desc"
zec1.Open sql1,ObjCon_ilet,1,3
baslik=zec1("yazarismi")
kisa=zec1("yazibaslik")
hyazarresim=zec1("yazarresim")
%>
<script>
<!--
/*
Textual Tooltip Script-
© Dynamic Drive (
Dynamic Drive DHTML(dynamic html) & JavaScript code library)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
*/
var icerik=new Array()
<%
Set mesax = Server.CreateObject("ADODB.Recordset")
sql = "Select * from zecyazi where Onay=1 order by yaziid desc"
mesax.Open sql,ObjCon_ilet,1,3
%>
<%
i=0
do while i < 10 and not mesax.eof
%>
icerik[<%=i%>]='<br><center><font color="Black" style="font-size: 8pt"><b><%=mesax("yazarismi")%></font></b></center><br><center><font color="Black" style="font-size: 8pt"><%=left(mesax("yazibaslik"),25)%>'
<%
mesax.movenext
i=i+1
Loop
%>
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
appear()
setTimeout("window.onresize=regenerate",450)
}
}
function changetext(whichcontent){
if (document.all||document.getElementById){
cross_el=document.getElementById? document.getElementById("descriptions"):document.a ll.descriptions
cross_el.innerHTML='<font face="Verdana"><small>'+whichcontent+'<font></small>'
}
else if (document.layers){
document.d1.document.d2.document.write('<font face="Verdana"><small>'+whichcontent+'</small></font>')
document.d1.document.d2.document.close()
}
}
function appear(){
document.d1.visibility='show'
}
//-->
</script>
<script>
<!--
/*
Textual Tooltip Script-
© Dynamic Drive (
Dynamic Drive DHTML(dynamic html) & JavaScript code library)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
*/
var icerik2=new Array()
<%
Set zec00 = Server.CreateObject("ADODB.Recordset")
sql00 = "Select * from zecyazi where Onay=1 order by yaziid desc"
zec00.Open sql00,ObjCon_ilet,1,3
%>
<%
i=0
do while i < 10 and not zec00.eof
%>
icerik2[<%=i%>]='<img border="1" src="<%=zec00("yazarresim")%>" width="110" height="150">'
<%
zec00.movenext
i=i+1
Loop
%>
function regenerate1(){
window.location.reload()
}
function regenerate3(){
if (document.layers){
appear1()
setTimeout("window.onresize=regenerate1",450)
}
}
function changetext1(whichcontent){
if (document.all||document.getElementById){
cross_el=document.getElementById? document.getElementById("descriptionsa"):document. all.descriptionsa
cross_el.innerHTML='<font face="Verdana"><small>'+whichcontent+'<font></small>'
}
else if (document.layers){
document.d3.document.d4.document.write('<font face="Verdana"><small>'+whichcontent+'</small></font>')
document.d3.document.d4.document.close()
}
}
function appear1(){
document.d3.visibility='show'
}
//-->
</script>
<body onLoad="regenerate3();regenerate2();goforit()">
<CENTER><script LANGUAGE="JavaScript">
function CC_noErrors() {
return true;
}
window.onerror = CC_noErrors;
</script>
<table border="0" width="22%">
<tr>
<td colspan="2">Köşe Yazarı</td>
</tr>
<tr>
<td rowspan="2" width="55%" valign="top">
<div id="scriptmenu">
<%
Set zec0 = Server.CreateObject("ADODB.Recordset")
sql0 = "Select * from zecyazi "
zec0.Open sql0,ObjCon_ilet,1,3
%>
<%
i=0
do while i < 5 and not zec0.eof
%>
<table width="100%"class="mnu" bordercolor="#FFFFFF" border="1" cellspacing="0" cellpadding="1" style="border-collapse:collapse">
<tr bgColor="#F2F2F2" onMouseOver="bgColor='#FF9240'" onMouseOut="bgColor='#F2F2F2'">
<td class="mnutbl2" valign="middle">
<font size="3">
<%
sira=zec0("sira")
top=1
%>
<%Set sql0 = ObjCon_ilet.Execute("select TOP "&top&" * from zecyazi where onay=1 and sira=" & sira & " Order by yaziid desc" )%>
<a href="haber_oku.asp?yaziid=<%=zec0("yaziid")%>" onMouseover="changetext(icerik[<%=i%>]);changetext1(icerik2[<%=i%>])"><FONT color="black" face="Verdana" style="font-size: 8pt"><%=zec0("yazarismi")%></FONT></a>
</td>
</tr>
</table>
<%
zec0.movenext
i=i+1
Loop
%></div>
</td>
<td width="40%" valign="top">
<p align="center">
<ilayer name="d3" id="d3" width="110" height="140" visibility="hide">
<layer id="d4" height="165">
<div id="descriptionsa" align="center" height="165">
<img border="1" src="<%=hyazarresim%>" width="110" height="150">
</div>
</layer>
</ilayer>
</td>
</tr>
<tr>
<td width="40%" height="73" valign="top" background="yazarresim/kosevar.gif">
<ilayer name="d1" id="d1" width="500" height="120" visibility="hide">
<layer id="d2" width="100%" height="120">
<div id="descriptions">
<center>
<b>
<br>
<font color="black" face="Verdana" style="font-size: 8pt"><%=baslik%> </font>
</b>
</center><br>
<p align="center"><font face="Verdana" style="font-size: 8pt"><%=kisa%>
</font> </div>
</layer>
</ilayer>
</td>
</tr>
</table>
</body>
</html>
sayfanın kodlama bölümü bura. olay örnek verdiğim sitedede olduğu gibi yazarın ismi ve soyismi sol tarafa sabitlemeye çalışıyorum lakin aynı yazarın ikinci bir yazısı eklendiğinde tekrardan ikinci bir yazıyı yine isim ve soy isim olarak yayınlıyor. bir önceki mesajda link duruyor.