<% 

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>