09-03-2011, 19:03:33
|
| |
verdiğiniz kodu default.asp ye attım hocam site komple gitti  Alıntı: tolgasen Nickli Üyeden Alıntı
 Döngü yanlış kurulmuş hocam o zaman. 1 tur döngü yapmışsınız da zaten veritabanı 1 veri alır ilk önce.
Bunu deneyin bakalım. PHP- Kodu: <%@LANGUAGE="VBScript.Encode" CODEPAGE="1254"%> <!-- #include file="inc/head.asp" -->
<link rel="stylesheet" type="text/css" href="pordusstil.css">
<title><%=siteadi%></title>
</head>
<body background="img/koseler/bg.png">
<!-- #include file="inc/javalar.asp" -->
<div align="center">
<!-- #include file="tablolar/tablou.asp" -->
<table class="cizgi" border="0" width="900">
<!-- #include file="tablolar/pordusu.asp" -->
<!-- #include file="tablolar/logo.asp" -->
<!-- #include file="tablolar/pordusmenu.asp" -->
<tr>
<td background="img/bbg.PNG" class="cizgi" height="300" colspan="2" align="center" valign="middle">
<table border="0" height="100%" width="900">
<tr>
<td width="200" align="center" valign="top">
<!-- #include file="bloklar/sol_bloklar.asp" -->
</td>
<td width="500" align="center" valign="top">
<table background="img/tbg.PNG" class="cizgi" border="0" width="100%">
<tr>
<td background="img/blokbg.PNG" class="cizgi" height="25" align="center"><b>Haber Balklar</b></td>
</tr>
<tr>
<td>
<div id="mansetyeri0">
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from haber order by id desc"
rec.open rSQL,Connection,3,3
if not rec.eof then
%>
<table cellpadding="2" cellspacing="1" border="0" width="100%" height="130">
<tr>
<td class="cizgi" width="178" rowspan="3" align="center"><a href="reklam.asp?nereye=haberoku.asp?id=<%=rec("id")%>">
<img src="<%=rec("resim")%>" width="194" height="138" border="0"></a></td>
<td background="img/blokbg.PNG" class="cizgi" width="60%" align="left" valign="middle" height="18"><b><%=left(rec("baslik"),25)%>...</b></td>
</tr>
<tr>
<td class="cizgi" width="60%" align="left" valign="top" height="97"><%=left(rec("kisahaber"),200)%>...</td>
</tr>
<tr>
<td background="img/blokbg.PNG" class="cizgi" width="60%" align="center" valign="middle" height="18">Okunma: <%=rec("hit")%> Eklenme: <%=rec("tarih")%></td>
</tr>
</table>
<%
end if
%>
</div>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from haber order by id DESC"
rec.open rSQL,Connection,3,3
for he=1 to 10
if (not rec.eof) then
%>
<div id="mansetyeri<%=he%>" style="display:none">
<table cellpadding="2" cellspacing="1" border="0" width="100%" height="130">
<tr>
<td class="cizgi" width="178" rowspan="3" align="center"><a href="reklam.asp?nereye=haberoku.asp?id=<%=rec("id")%>">
<img src="<%=rec("resim")%>" width="194" height="138" border="0"></a></td>
<td background="img/blokbg.PNG" class="cizgi" width="60%" align="left" valign="middle" height="18"><b><%=left(rec("baslik"),25)%>...</b></td>
</tr>
<tr>
<td class="cizgi" width="60%" align="left" valign="top" height="97"><%=left(rec("kisahaber"),200)%>...</td>
</tr>
<tr>
<td background="img/blokbg.PNG" class="cizgi" width="60%" align="center" valign="middle" height="18">Okunma: <%=rec("hit")%> Eklenme: <%=rec("tarih")%></td>
</tr>
</table>
</div>
<%
rec.movenext
end if
next
%>
<table width="100%" cellpadding="1" cellspacing="1" border="0" align="center" height="30">
<tr>
<td width="0" align="center" onmouseover="durgoster(0)" id="patt0"><a href="reklam.asp?nereye=haberoku.asp?id=<%=rec("id")%>" id="pattlink0"></a></td>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from haber order by id DESC"
rec.open rSQL,Connection,3,3
for he=1 to 10
if (not rec.eof) then
%>
<td align="center" onmouseover="durgoster(<%=he%>)" id="patt<%=he%>"><a href="reklam.asp?nereye=haberoku.asp?id=<%=rec("id")%>" id="pattlink<%=he%>" height=22>
<img onMouseOver="this.style.MozOpacity=1;this.filters.alpha.opacity='100';" style="filter:Alpha(Opacity=50);-moz-opacity: 0.50;" onMouseOut="this.style.MozOpacity=0.5;this.filters.alpha.opacity='50';" class="cizgi" border="0" src="<%=rec("resim")%>" width="42" height="37"></a></td>
<%
rec.movenext
end if
next
%>
<td width="0" align="center"></td>
</tr>
</table>
<script type="text/javascript" language="javascript" src="inc/manset.js" ></script>
</td>
</tr>
</table>
<br>
<table background="img/tbg.PNG" class="cizgi" border="0" width="100%">
<tr>
<td background="img/blokbg.PNG" class="cizgi" height="25" align="center"><b>Aktif Forum Konular</b></td>
</tr>
<tr>
<td>
<table border="0" width="100%">
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from forummesaj where cevap = 1 order by siralama DESC"
rec.open rSQL,Connection,3,3
for he=1 to 20
if (not rec.eof) then
%>
<tr height="20">
<td width="16" align="center"><img border="0" src="img/menu.png"></td>
<td width="342"><a href="konugoster.asp?id=<%=rec("id")%>"><%=left(server.htmlencode(rec("konu")),80)%>...</a></td>
<td width="87" align="center"><a href="mesajyaz.asp?kadi=<%=rec("yazan")%>"><%=server.htmlencode(rec("yazan"))%></a></td>
<td width="24" align="center"><font class="kirmizi"><%=rec("sayac")%></font></td>
</tr>
<%
rec.movenext
end if
next
%>
</table>
</td>
</tr>
</table>
<br>
<table background="img/tbg.PNG" class="cizgi" border="0" width="100%">
<tr>
<td background="img/blokbg.PNG" class="cizgi" height="25" align="center"><b>Son Eklenen Videolar</b></td>
</tr>
<tr>
<td>
<marquee direction="left" width="100%" height="90" onmouseover="this.scrollAmount='0';" onmouseout="this.scrollAmount='3';" scrollamount="2" scrolldelay="50">
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM video ORDER BY id desc"
rec.open rSQL,Connection,3,3
for h=1 to 10
if (not rec.eof) then
%>
<a href="videoizle.asp?id=<%=rec("id")%>"><img class="cizgi" onMouseOver="this.style.MozOpacity=1;this.filters.alpha.opacity='100';" style="filter:Alpha(Opacity=50);-moz-opacity: 0.50;" onMouseOut="this.style.MozOpacity=0.5;this.filters.alpha.opacity='50';" border="0" src="<%=rec("resim")%>" width="115" height="92"></a>
<%
rec.movenext
end if
next
%>
</marquee>
</td>
</tr>
</table>
<br>
<table background="img/tbg.PNG" class="cizgi" border="0" width="100%">
<tr>
<td background="img/blokbg.PNG" class="cizgi" height="25" align="center"><b>Son Eklenen Resimler</b></td>
</tr>
<tr>
<td>
<marquee direction="right" width="100%" height="90" onmouseover="this.scrollAmount='0';" onmouseout="this.scrollAmount='3';" scrollamount="2" scrolldelay="50">
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM resim ORDER BY id desc"
rec.open rSQL,Connection,3,3
for h=1 to 10
if (not rec.eof) then
%>
<a href="resimgoster.asp?id=<%=rec("id")%>"><img class="cizgi" onMouseOver="this.style.MozOpacity=1;this.filters.alpha.opacity='100';" style="filter:Alpha(Opacity=50);-moz-opacity: 0.50;" onMouseOut="this.style.MozOpacity=0.5;this.filters.alpha.opacity='50';" border="0" src="<%=rec("resim")%>" width="115" height="92"></a>
<%
rec.movenext
end if
next
%>
</marquee>
</td>
</tr>
</table>
<br>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM bloklar where durum=2 ORDER BY sira asc"
rec.open rSQL,Connection,3,3
for h=1 to 10
if (not rec.eof) then
%>
<table background="img/tbg.PNG" class="cizgi" border="0" width="100%">
<tr>
<td background="img/blokbg.PNG" class="cizgi" height="25" align="center"><b><%=rec("isim")%></b></td>
</tr>
<tr>
<td>
<%=(rec("icerik"))%>
</td>
</tr>
</table>
<br>
<%
rec.movenext
end if
next
%>
<table background="img/tbg.PNG" class="cizgi" border="0" width="100%">
<tr>
<td background="img/blokbg.PNG" class="cizgi" height="25" align="center"><b>Haberler</b></td>
</tr>
<tr>
<td>
<table border="0" width="100%">
<tr align="center">
<td align="center">
<iframe src="http://sondakika.haber7.com/sondakika-manset.php" frameborder="0" width="471" height="300" FRAMESPACING="0" MARGINHEIGHT="0" MARGINWIDTH="0" scrolling="no"></iframe>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="200" align="center" valign="top">
<!-- #include file="bloklar/sag_bloklar.asp" -->
</td>
</tr>
</table>
</td>
</tr>
<!-- #include file="tablolar/pordusa.asp" -->
</table>
<!-- #include file="tablolar/tabloa.asp" -->
</div>
</body>
</html>
| |
adresi ile iletişime
geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 1
(Bir) Hafta içerisinde R10.net yönetimi olarak tarafımızdan gereken işlemler
yapılacak ve Avukatlarımız size dönüş yapacaktır.
Asp Sitede Default.asp Hatası Lütfen Yardım 
