önceki konu - sonraki konu yapımı yardım!

29-08-2010, 18:21:57

selam arkadaşlar önceki konu sonraki konu olarak konuları birbirine bağlamak istiyorum ama kodu sayfaya koyduğum zaman boş sayfa çıkıyor lütfen yardım edin yoksa delirmek üzereyim kodlar bunlar

<%
Set Objonce = Server.CreateObject("ADODB.Connection")
Objonce.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&db&"/db.mdb")                          	
%>
<%
Set Objonce = Server.CreateObject("adodb.RecordSet")
sql="SELECT id,script_adi From download WHERE id < "&id&" order by id desc" 
Objonce.open sql, data, 1, 3
if not Objonce.eof then
%>
		<a href="indir-<%=Objonce("id")%>-<%=cevir(Objonce("script_adi"))%>.html" title="Önceki Konu"> <%=Objonce("script_adi")%> </a>
		
<%
end if
objonce.close : set objonce = nothing 
%>

yanlışlık nerde acaba sayfanın diğer kodlarınıda göndermem gerekiyormu lütfen yardım

29-08-2010, 21:09:21

#2

bLueStarr

Alıntı

<a href="indir-<%=Objonce("id")%>-<%=cevir(Objonce("script_adi"))%>.html" title="Önceki Konu"> <%=Objonce("script_adi")%> </a>

altında

Alıntı

Response.write "Kayıt bulunamadı.."

diye ekler misin hata verdiği için mi boş sayfa oluştuğunu yoksa sorgudan dolayı mı kayıt göstermediğini anlarız..

29-08-2010, 21:44:57

techno84

gene boş sayfa büyük ihtimal ben yanlış yapıyorum galiba sayfanın bütün kodları şöyle

<!-- #include file="head_down.asp" -->
<!-- #include file="dbayar.asp" -->
<!-- #include file="ust.asp" -->
<!-- #include file="cevir.asp" -->
<table border="0" width="770" align="center" cellspacing="0" cellpadding="0">
	<tr>
		<td valign="top">
		<table border="0" width="100%" id="table1">
			<tr>
				<td width="20%" valign="top" rowspan="2">
				<a title="Ana sayfa..." href="">
				<img border="0" src="<%=logo%>" width="145" height="63"></a>
				<table border="0" width="100%" id="table527">
					<tr>
						<td></td>
					</tr>
				</table>
				<table border="0" width="100%" id="table530" background="../images/119.jpg" cellspacing="0" cellpadding="0">
					<tr>
						<td>
				<table border="0" width="100%" id="table531" cellspacing="0" cellpadding="0">
					<tr>
						<td><table border="0" width="100%" id="table542" cellspacing="1" bgcolor="#ffffff">
	<tr>
		<td width="5" background="images/119.jpg">
		&nbsp;</td>
		<td background="images/menu_arka.GIF">
		<table border="0" width="100%" id="table543" cellspacing="0" cellpadding="0">
			<tr>
				<td> <a href="">Anasayfa</a></td>
				<td width="13">
				&nbsp;</td>
			</tr>
		</table>
		</td>
	</tr>
	</table>
<!-- #include file="downsag.asp" -->
<table border="0" width="100%" id="table542" cellspacing="1" bgcolor="#ffffff">
	<tr>
		<td width="5" background="images/119.jpg">
		&nbsp;</td>
		<td background="images/menu_arka.GIF">
		<table border="0" width="100%" id="table543" cellspacing="0" cellpadding="0">
			<tr>
				<td> <b><a href="hepsi.asp">Bütün Programlar</a></b></td>
				<td width="13">
				&nbsp;</td>
			</tr>
		</table>
		</td>
	</tr>
	</table></td>
					</tr>
				</table>
						<table border="0" width="100%" id="table532" cellspacing="3" cellpadding="2" background="images/menu_arka.GIF">
							<tr>
								<td></td>
							</tr>
						</table>
				<table border="0" width="100%" id="table533" cellspacing="1">
					<tr>
						<td background="images/menu_arka.GIF">
						<table border="0" width="100%" id="table534" bgcolor="#FFFFFF">
							<tr>
								<td align="center">
								<!-- #include file="120.asp" --></td>
							</tr>
						</table>
						</td>
					</tr>
				</table>
						</td>
					</tr>
				</table>	
				<table border="0" width="100%" id="table536" background="images/119.jpg" cellspacing="0" cellpadding="0">
					<tr>
						<td>
						<table border="0" width="100%" id="table538" cellspacing="3" cellpadding="2" background="images/menu_arka.GIF">
							<tr>
								<td></td>
							</tr>
						</table>
						</td>
					</tr>
				</table>	
				</td>
				<td width="75%" valign="top" bgcolor="#F5F5F5">
				<table border="0" width="100%" id="table539">
					<tr>
						<td background="images/top_menu_bg.gif"><b>
						<font color="#FFFFFF" face="Tahoma">
						<img border="0" src="images/menu_nokta.gif" width="7" height="10">Program İndir</font></b></td>
					</tr>
					<tr>
						<td>
						<table border="0" width="100%" id="table540">
							<tr>
								<td>
<%
Set Objonce = Server.CreateObject("ADODB.Connection")
Objonce.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&db&"/downloadytujry6jszx.mdb")                          	
%>
<%
Set Objonce = Server.CreateObject("adodb.RecordSet")
sql="SELECT id,script_adi From download WHERE id < "&id&" order by id desc" 
Objonce.open sql, data, 1, 3
if not Objonce.eof then
%>
		<a href="indir-<%=Objonce("id")%>-<%=cevir(Objonce("script_adi"))%>.html" title="Önceki Konu"> <%=Objonce("script_adi")%> </a>

<%	
end if
objonce.close : set objonce = nothing 
%>
								</td>
							</tr>
						</table>
										</td>
					</tr>
					<tr>
						<td>
          <table border="0" width="100%" id="table541">
			<tr>
				<td align="center">
				<table border="0" width="100%" id="table427" cellspacing="0" cellpadding="0">
			<tr>
				<td valign=top>
				<table border="0" width="100%" id="table471" cellspacing="0" cellpadding="0">
					<tr>
						<td>
		
						<table border="0" width="100%" id="table477" cellspacing="0" cellpadding="0">
							<tr>
								<td>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0 height="19">
  <TBODY>
  <TR>
    <TD vAlign=top height=19>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&db&"/downloadytujry6jszx.mdb")

 degisken = Request.QueryString
    gelenlink_bol = split(degisken, "/")
    uzanti_bol = split(gelenlink_bol(3), "-")
	id = uzanti_bol(1)
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from download WHERE id=" & id & ""
yeniasp.Open sor,Sur,1,3

islem=Request.QueryString("islem")
if islem="indir" then
call indir
end if

git = Request.QueryString("git")
if git="" then 
git=1
end if
%>
<TABLE borderColor=#C0C0C0 height=102 width="100%" border=0 cellspacing="1">
  <TBODY>
  <TR>
    <TD width="20%" height=16 bgcolor="#EEEEEE">
      <P align=left><font face="Tahoma"><STRONG><FONT 
      color=#ff0000>Program Adi</FONT></STRONG><b></FONT></b></font></P></TD>
    <TD width="1%" height=16 bgcolor="#EEEEEE">
      <font face="Tahoma">
      <STRONG><FONT 
      color=#ff0000>:</FONT></STRONG><b> </b> </font> </TD>
    <TD width="49%" height=16 bgcolor="#EEEEEE">
	<STRONG style="font-weight: 400">
	<font face="Tahoma"><%=yeniasp("script_adi")%>&nbsp; <%=yeniasp("versiyon")%></font></a></STRONG><font face="Tahoma">
	</font>
      </TD>
    <TD width="20%" height=127 rowspan="8" valign=top><!-- #include file="125x125.asp" --></TD>
    
    </TR>
  <TR>
    <TD width="20%" height=16>
      <P align=left><FONT color=#000000><STRONG>
		<FONT 
      color=#ff0000 face="Tahoma">Boyut</FONT></STRONG></FONT></P></TD>
    <TD width="1%" height=16>
      <FONT color=#000000><STRONG><FONT 
      color=#ff0000 face="Tahoma">:</FONT></STRONG></FONT></TD>
    <TD width="50%" height=16>
       <font face="Tahoma">
       <%=yeniasp("boyut")%></font></TD></TR>
  <TR>
    <TD width="20%" height=15 bgcolor="#EEEEEE">
      <P align=left><FONT color=#000000><STRONG>
		<FONT 
      color=#ff0000 face="Tahoma">Dili</FONT></STRONG></FONT></P></TD>
    <TD width="1%" height=15 bgcolor="#EEEEEE">
      <FONT color=#000000><STRONG><FONT 
      color=#ff0000 face="Tahoma">:</FONT></STRONG></FONT></TD>
    <TD width="50%" height=15 bgcolor="#EEEEEE"><font face="Tahoma"><%=yeniasp("dil")%>
      </font>
      </TD></TR>
  <TR>
    <TD width="20%" height=16>
      <P align=left><FONT color=#000000><STRONG>
		<FONT 
      color=#ff0000 face="Tahoma">Versiyon</FONT></STRONG></FONT></P></TD>
    <TD width="1%" height=16>
      <FONT color=#000000><STRONG><FONT 
      color=#ff0000 face="Tahoma">:</FONT></STRONG></FONT></TD>
    <TD width="50%" height=16><font face="Tahoma"><%=yeniasp("versiyon")%>
      </font>
      </TD></TR>
  <TR>
    <TD width="20%" height=16 bgcolor="#EEEEEE">
      <P align=left><FONT color=#000000><STRONG>
		<FONT 
      color=#ff0000 face="Tahoma">Platform</FONT></STRONG></FONT></P></TD>
    <TD width="1%" height=16 bgcolor="#EEEEEE">
      <FONT color=#000000><STRONG><FONT 
      color=#ff0000 face="Tahoma">:</FONT></STRONG></FONT></TD>
    <TD width="50%" height=16 bgcolor="#EEEEEE"><font face="Tahoma"><%=yeniasp("os")%>
      </font>
      </TD></TR>
  <TR>
    <TD width="20%" height=16>
      <P align=left><FONT color=#000000><STRONG>
		<FONT 
      color=#ff0000 face="Tahoma">Lisans</FONT></STRONG></FONT></P></TD>
    <TD width="1%" height=16>
      <FONT color=#000000><STRONG><FONT 
      color=#ff0000 face="Tahoma">:</FONT></STRONG></FONT></TD>
    <TD width="50%" height=16><font face="Tahoma"><%=yeniasp("lisans")%>
      </font>
      </TD></TR>
        <TR>
    <TD width="20%" height=16 bgcolor="#EEEEEE">
      <P align=left><FONT color=#000000><STRONG>
		<FONT 
      color=#ff0000 face="Tahoma">Üretici</FONT></STRONG></FONT></P></TD>
    <TD width="1%" height=16 bgcolor="#EEEEEE">
      <FONT color=#000000><STRONG><FONT 
      color=#ff0000 face="Tahoma">:</FONT></STRONG></FONT></TD>
    <TD width="50%" height=16 bgcolor="#EEEEEE">
	<font face="Tahoma"><%=yeniasp("telif")%></font></a><font face="Tahoma">
	</font>
      </TD></TR>
        <TR>
    <TD width="20%" height=16>
      <P align=left><FONT color=#000000><STRONG>
		<FONT 
      color=#ff0000 face="Tahoma">Ekleme</FONT></STRONG></FONT></P></TD>
    <TD width="1%" height=16>
      <FONT color=#000000><STRONG><FONT 
      color=#ff0000 face="Tahoma">:</FONT></STRONG></FONT></TD>
    <TD width="50%" height=16><font face="Tahoma"><%=yeniasp("tarih")%> 
      </font>
      </TD></TR>

  <TR>
    <TD width="20%" height=16 bgcolor="#EEEEEE">
      <P align=left><FONT color=#000000><STRONG>
		<FONT 
      color=#ff0000 face="Tahoma">Tanitim</FONT></STRONG></FONT></P></TD>
    <TD width="1%" height=16 bgcolor="#EEEEEE">
      <FONT color=#000000><STRONG><FONT 
      color=#ff0000 face="Tahoma">:</FONT></STRONG></FONT></TD>
    <TD width="78%" height=16 colspan="3" bgcolor="#EEEEEE"><!-- #include file="468x60.asp" --><font face="Tahoma"><%=yeniasp("tanim")%>
      </font>
      </TD></TR>
  <TR>
    <TD width="99%" height=16 colspan="5" bgcolor="#EEEEEE">
<table border="0" width="100%" id="table1" cellpadding="2">
	<tr>
		<td bgcolor="#FFFFFF"><FONT color=#000000><STRONG>
	<center>
	<a href="indiriliyor.asp?islem=indir&amp;id=<%=yeniasp("id")%>"><FONT size="2" face=Tahoma>
	<FONT color=#ff0000>»</FONT><FONT color=orange>»</FONT><FONT color=green>»</FONT>
	&nbsp;<font face="Tahoma"><%=yeniasp("script_adi")%> 
</FONT>Programını&nbsp;İndir<FONT color=#000000> <FONT 
      color=#008000>«</FONT><FONT color=orange>«</FONT><FONT 
      color=red>«</FONT><br>
	<img border="0" src="images/yukle.gif" width="150" height="30"></FONT></font></a><font face="Tahoma" color="#000000" size="2">
	</font>
	</STRONG></td>
	</tr>
</table>
	</TD>
    </TR>
  </TBODY></TABLE>
</div>
      <table border="0" width="100%" id="table482">
		<tr>
			<td bgcolor="#E1E1E1">
			<p align="center"><b><!-- #include file="468x15.asp" --></b></td>
		</tr>
		<tr>
			<td><%
Session.LCID = 1055
%>
<% sayfala = Request.Querystring("sayfala")
IF sayfala =  "" then sayfala = 1 ELSE sayfala = CInt(Sayfala) END IF
islem = Request.Querystring("islem")
bolum = Request.Querystring("bolum")
hataisim = Request.Querystring("hataisim")
hatamail = Request.Querystring("hatamail")
hatayorum = Request.Querystring("hatayorum")
IF Request.Querystring("aranan") = "" THEN aranan = Trim(Request.Form("aranan")) ELSE aranan = Request.Querystring("aranan") END IF 
%>
   
<% Response.Buffer = True
Set BAG = Server.Createobject("ADODB.Connection")
BAG.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(""&db&"/downloadytujry6jszx.mdb"))
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
</head>
<body leftmargin="0" topmargin="5" marginwidth="0" marginheight="0">
<%=yeniasp("script_adi")%>&nbsp; <%=yeniasp("versiyon")%> İndir <%=yeniasp("script_adi")%>&nbsp; <%=yeniasp("versiyon")%> download <%=yeniasp("script_adi")%>&nbsp; <%=yeniasp("versiyon")%> ücretsiz bedava yükle freeware serial crack patch full *****

</body>
</html>
<% BAG.Close
Set BAG = Nothing
%></td>
		</tr>
</table>
      <% sub indir
id=Request.QueryString("id")
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from download where id="&id
yeniasp.Open sor,Sur,1,3

yeniasp("hit")=yeniasp("hit")+1
yeniasp.update

url=yeniasp("url")
Response.Redirect url
end sub
%></td>
							</tr>
		</table>
		
						</td>
					</tr>
					</tr>
					<tr><td>
		</td></tr>
				</table>

				</table>
				</td>
			</tr>
		</table>
			</td>
			</tr>
			</table>
          				</td>
					</tr>
					</table>
				</td>
			</tr>
			<tr>
				<td width="75%" valign="top" bgcolor="#F5F5F5">
                        <div align="right">
							<font face="Verdana, Arial, Helvetica, sans-serif"><br>
                          <img src="images/geri.GIF" width="18" height="14" border="0" alt="Bir önceki sayfaya geri dönmek için lütfen tıklayınız."> 
                          <a href="#" onClick="history.back()" title="Bir önceki sayfaya geri dönmek için lütfen tıklayınız."> 
                          	Önceki Sayfa</a></font></div>

				</td>
			</tr>
			</table>
		</td>
	</tr>
</table><!-- #include file="alt.asp" -->

29-08-2010, 21:53:19

#4

bLueStarr

Alıntı

<%
Set Objonce = Server.CreateObject("adodb.RecordSet")
sql="SELECT * from download WHERE id < "&id&" order by id desc"
Objonce.open sql, data, 1, 3
if not Objonce.eof then
%>
<a href="indir-<%=Objonce("id")%>-<%=cevir(Objonce("script_adi"))%>.html" title="Önceki Konu"> <%=Objonce("script_adi")%> </a>

<%
Objonce.movenext
end if
Objonce.close
set Objonce = nothing
%>

Bunu dene bakalım..
29-08-2010, 21:55:37

#5

techno84

gene olmadı normalde olmasımı lazım localde deniyorumda fark edermi localde
29-08-2010, 21:59:35

#6

bLueStarr

Normâlde olması gerekiyor..

Alıntı

"&id&"

bunun boş gelmediğinden emin misin yada başka bir değer vermediğinden?
29-08-2010, 22:05:17

#7

techno84

yoo hayır boş gelmemesi lazım id ler 1-2-3 sırayla gidiyor zaten eklediğim konulardan en otadakindede denedim bir sonraki id deki sayfada açılıyor yani.
29-08-2010, 22:53:11

#8

bLueStarr

Alıntı

sql="SELECT * from download WHERE id < ""3"" order by id desc"

şöyle bir dene bakalım bir önceki id'e gidecek mi..
29-08-2010, 23:08:16

#9

techno84

yanlış anlaşılma olmasın ilk başta kodu eklediğim sayfa boş açılıyor yani önceki konu gibi bir link yok hiç bir konu açılmıyor sanada baya bir zahmet verdik