Arkadaşlar yardım

Arkadaşlar sitemde efkan ay forum var ve sizden ricam Forumdaki Aktif konuları sitenin ana sayfasında nasıl yayınlarım aşağıda da resimde görüldüğü gibi bi yardım ederseniz çok sevinirim sevgiler saygılar





Site: http://www.Forza61.com

Forum: http://www.Forza61.com/forum

aşağıdaki kodu anasayfanda görünmesini istediğin yere yapıştırıp dene

<!--#INCLUDE file="forum/ayarlar.asp"-->

<table width="100%" bgcolor="#FFFFFF" bordercolor="#CCFFCC" border="0" cellspacing="0" cellpadding="1">
<% sor = "Select * from forumveri where onay=1 order  by id desc" 
efkan.Open sor,Sur,1,3
if efkan.eof or efkan.bof Then
Else
renk    =1
say     = 1
konum = 0

Do While say =< 10 And Not efkan.Eof
if renk mod 2 Then bgcolor = "" Else bgcolor = "#F4F4F4" end If 
pass=""
konularr=""&konum&""
gosterilen  =  split(konularr, ",")

If efkan("soruid")=0  Then
konu_id = efkan("id")
ElseIf  efkan("soruid")<>0  Then
konu_id = efkan("soruid")
End If 

for  i = 0 to  ubound(gosterilen)
If  konu_id =CInt(gosterilen(i)) Then pass="evet" End if
Next

konum = konum&","&konu_id

If pass="evet" Then 'xxxx
Else 
say=say+1%>
<tr bgcolor="<%=bgcolor%>" <%=onmo%>><td><%=bullet%>

<% sor = "Select * from forumveri where onay=1 and id="&konu_id&" " 
efkan1.Open sor,Sur,1,3
if efkan1.eof or efkan.bof Then
Else %>
<A HREF="?part=forum&gorev=oku&id=<%=efkan1("id")%>&cat=<%=efkan1("altgrp")%>">      
<%=kucukharf(Left(efkan1("baslik"),90))%></a>
<% End If 
efkan1.close %></td></tr>

<% renk=renk +1
End If  'xxxx 
efkan.movenext
Loop
end If
efkan.close %></table>

çok saolasın denom ama olmadı sanırım

oldu hocam oldu çok saol varol öpüldün eline sağlık

ahh beee oldu ama ustam buseferde başlıklara tıklayınca foruma gitmior o nasıl olcak

http://www.forza61.com/forum/forumso...u&id=19&cat=16

böle kalıyor usta

<A HREF="?part=forum&gorev=oku&id=<%=efkan1("id")%>&c at=<%=efkan1("altgrp")%>">

bunu

<A HREF="forum/?part=forum&gorev=oku&id=<%=efkan1("id")%>&cat=<%= efkan1("altgrp")%>">

ile değiştir

baba bu sefer linke taklıoz ama

The page cannot be found
The page you are looking for might have been removed, had its name changed, or is temporarily unavailable.

böle hata verior

anasayfaya eklediğini bununla değiştir. Aşağıdaki mdbyolunada database yolunu yazmalısın.

<% 

mdbyolu         ="database yolu"

Session.LCID = 1055
Session.CodePage = 1254
DefaultLCID = Session.LCID 
DefaultCodePage = Session.CodePage
Set Sur = Server.CreateObject("ADODB.Connection")
'Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&mdbyolu&"")
Sur.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(""&mdbyolu&"")
Set efkan = Server.CreateObject("ADODB.Recordset")
Set efkan1 = Server.CreateObject("ADODB.Recordset")
Set efkan2= Server.CreateObject("ADODB.Recordset")
Set efkan3= Server.CreateObject("ADODB.Recordset")
Set efkan4= Server.CreateObject("ADODB.Recordset")
sor = "Select * from ayarlar " 
efkan.Open sor,Sur,1,3
ackapa               =efkan("ackapa")
title                   =efkan("sitead")
keywords            =efkan("keywords")
websayfam          =efkan("siteurl")
emailadresim        =efkan("email")
emailadresim1      =efkan("email")
msnadresim         =efkan("msn")
emailbileseni        =efkan("emailturu")
emaildogrulama    =efkan("emaildogrulama")  
uyealimi              =efkan("uyealimi")
uyeresimyukle     =efkan("uyeresimyukle")  
mailhost             ="localhost"
efkan.close 
%>

<table width="100%" bgcolor="#FFFFFF" bordercolor="#CCFFCC" border="0" cellspacing="0" cellpadding="1"> 
<% sor = "Select * from forumveri where onay=1 order  by id desc"  
efkan.Open sor,Sur,1,3 
if efkan.eof or efkan.bof Then 
Else 
renk    =1 
say     = 1 
konum = 0 

Do While say =< 10 And Not efkan.Eof 
if renk mod 2 Then bgcolor = "" Else bgcolor = "#F4F4F4" end If  
pass="" 
konularr=""&konum&"" 
gosterilen  =  split(konularr, ",") 

If efkan("soruid")=0  Then 
konu_id = efkan("id") 
ElseIf  efkan("soruid")<>0  Then 
konu_id = efkan("soruid") 
End If  

for  i = 0 to  ubound(gosterilen) 
If  konu_id =CInt(gosterilen(i)) Then pass="evet" End if 
Next 

konum = konum&","&konu_id 

If pass="evet" Then 'xxxx 
Else  
say=say+1%> 
<tr bgcolor="<%=bgcolor%>" <%=onmo%>><td><%=bullet%> 

<% sor = "Select * from forumveri where onay=1 and id="&konu_id&" "  
efkan1.Open sor,Sur,1,3 
if efkan1.eof or efkan.bof Then 
Else %> 
<A HREF="?part=forum&gorev=oku&id=<%=efkan1("id")%>&cat=<%=efkan1("altgrp")%>">       
<%=kucukharf(Left(efkan1("baslik"),90))%></a> 
<% End If  
efkan1.close %></td></tr> 

<% renk=renk +1 
End If  'xxxx  
efkan.movenext 
Loop 
end If 
efkan.close %></table>