Al bir de aşağıdaki kodları dene ama biraz geliştirmen gerekecek ha unutmadan bir de tabi veritabanını oluşturacan ben bu kadar geliştirdim zamanım daha fazla yoktu ama sen mail gönderme vs. moderatör atama olaylarını yaparsın
****************** forum.asp **************************
<%
islek = Request.QueryString("islek" )
if islek = "catdel" then
call catdel
end if
%>
<%
set objForum = server.createobject("ADODB.Recordset" )
sqlobjForum = "Select * from forumlar order by forumid asc"
objForum.open sqlobjForum,baglantim,1,3
sf = Request.querystring("sf" )
if sf="" then
sf=1
end if
%>
<SCRIPT language=JavaScript src="site/forum/popie.js"></SCRIPT>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY>
<SCRIPT language=JavaScript>
var threadTracking = ""
var forumTracking = ""
var arrTTrack = threadTracking.split("|" );
var hashTTrack = new Array( ) ;
for (var i = 0; i<arrTTrack.length; i++ ){
var tSubArr = arrTTrack.split("-" )
if (tSubArr.length==2 ) hashTTrack[tSubArr[0]] = tSubArr[1]
}
var arrFTrack = forumTracking.split("|" );
var hashFTrack = new Array( ) ;
for (var i = 0; i<arrFTrack.length; i++ ){
var fSubArr = arrFTrack.split("-" )
if (fSubArr.length==2 ) hashFTrack[fSubArr[0]] = fSubArr[1]
}
var appMPG = 20
function showPicture(lastU,isLocked,hits,replies,threadiD,forumid,largepic ){
var checkDate = new Date("9/3/2005 12:22:11 PM" )
var checkDate1= new Date(lastU )
var lastVisit=checkDate.getTime( )
var lastUpdate=checkDate1.getTime( )
var boardNImg, boardImg
boardNImg = (largepic==1 )? "board_n.gif" : "board_sn.gif"
boardImg = (largepic==1 )? "board.gif" : "board_s.gif"
var withNewMessage = true
var readChecked = 0
if (typeof threadiD!="undefined" && typeof forumid !="undefined" ){
if (typeof hashFTrack[forumid] != "undefined" ){
var ttempdate = new Date (hashFTrack[forumid] )
if ((lastUpdate - ttempdate.getTime( ) )<=0 ){
withNewMessage = false;
readChecked = 1
}
}
if (typeof hashTTrack[threadiD] != "undefined" && readChecked==0 ){
var ttempdate = new Date (hashTTrack[threadiD] )
if ((lastUpdate - ttempdate.getTime( ) )<=0 ) {
withNewMessage = false;
readChecked = 1
}
}
}
if (readChecked==0 ){
if ((lastUpdate-lastVisit )<=0 ) withNewMessage = false
}
if (withNewMessage ) {
if (isLocked==1 ) {
document.write ("<img src='/site/forum/image/board_snlocked.gif' border='0' alt='Yeni Mesajlar'>" )
}
else if (hits>=10*appMPG || replies>=appMPG ){
document.write ("<img src='/site/forum/image/board_snh.gif' border='0' alt='Sıcak Konu!, Yeni Mesajlar'>" )
}
else {
document.write ("<img src='/site/forum/image/"+ boardNImg +"' border='0' alt='Yeni Mesajlar'>" )
}
}
else {
if (isLocked==1 ) {
document.write ("<img src='/site/forum/image/board_slocked.gif' border='0' alt='Yeni Mesaj Yok'>" )
}
else if (hits>=10*appMPG || replies>=appMPG ){
document.write ("<img src='/site/forum/image/board_sh.gif' border='0' alt='Sıcak Konu!, Yeni Mesaj Yok'>" )
}
else {
document.write ("<img src='/site/forum/image/"+ boardImg +"' border='0' alt='Yeni Mesaj Yok'>" )
}
}
}
function showArrow(lastU,threadiD,forumid,fromTree ){
var checkDate = new Date("9/3/2005 12:22:11 PM" )
var checkDate1= new Date(lastU )
var lastVisit=checkDate.getTime( )
var lastUpdate=checkDate1.getTime( )
var withNewMessage = true
var readChecked = 0
var linkDate = "9/3/2005 12:22:11 PM"
if (typeof threadiD!="undefined" && typeof forumid !="undefined" ){
if (typeof hashFTrack[forumid] != "undefined" ){
var ttempdate = new Date (hashFTrack[forumid] )
if ((lastUpdate - ttempdate.getTime( ) )<=0 ){
withNewMessage = false;
readChecked = 1
}
}
if (typeof hashTTrack[threadiD] != "undefined" && readChecked==0 ){
var ttempdate = new Date (hashTTrack[threadiD] )
if ((lastUpdate - ttempdate.getTime( ) )<=0 ) {
withNewMessage = false;
readChecked = 1
}else{
linkDate = hashTTrack[threadiD]
}
}
}
if (readChecked==0 ){
if ((lastUpdate-lastVisit )<=0 ) withNewMessage = false
}
if (!fromTree ){
if (withNewMessage ) {
document.write (" <a href=\"/site/forum/fb.asp?m=" + threadiD + "&go=newest&lastvisit=" + escape(linkDate ) + "\"><img src=\"/site/forum/image/newestmsg.gif\" alt=\"Okunmayan ilk iletiye git\" border=0 align=\"absmiddle\"></a> <span class=\"newpost\">" )
}else{
document.write ("<span class=\"oldpost\">" )
}
}else{
if (withNewMessage ) {
return "newpost";
}else{
return "oldpost";
}
}
}
//-->
</SCRIPT>
<NOSCRIPT>Javascript is currently disabled!</NOSCRIPT>
<CENTER>
<% If Session("Oturum" ) <> "Acik" Then %>
<%else%>
<% end if %><% set oSU = baglantim.execute("Select Top 1 * from UYELER order by U_ID desc" ) %>
<TABLE cellSpacing=2 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD class=td_menu2 >Aktif Kullanıcı Sayısı:
<!--#include file="global.asp" --></TD>
<TD align=right>Hoş geldin <% If Session("Oturum" ) <> "Acik" Then %>Ziyaretçi <%else%>
<%
Set objRead = baglantim.Execute("SELECT Count(* ) AS toplam FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi" ) &"' AND GOR = True" )
Set objSpe = baglantim.Execute("SELECT Count(* ) AS ozel FROM MESAJLAR WHERE TYPE=1" )
Set objNRead = baglantim.Execute("SELECT Count(* ) AS okunmayan FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi" ) &"' AND OKUNDU = False AND GOR = True" )
Set getName = baglantim.Execute("SELECT * FROM UYELER WHERE U_ID = "& Session("Uye_Id" ) )
%>
<%=getName("AD" )%><%end if%>
</TD></TR></TBODY></TABLE><BR>
<TABLE cellSpacing=2 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD bgColor=#d0d0d0>
<TABLE cellSpacing=1 cellPadding=3 width="100%" border=0>
<TBODY>
<TR bgColor=#ffcc00>
<TH align=middle colSpan=2 background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif">
<FONT class=title color=#FFFFFF>Forum
Tanımı</FONT></TH>
<TH align=middle background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif"><FONT class=title color=#FFFFFF>Konular</FONT></TH>
<TH align=middle background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif">
<FONT class=title
color=#FFFFFF>Cevaplar</FONT></TH>
<TH align=middle background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif"><FONT class=title color=#FFFFFF>Son
İleti</FONT></TH></TR>
<TR nowrap>
<%
Set cat = Server.CreateObject("ADODB.Recordset" )
baglac = "Select * from forumcat order by adi asc"
cat.Open baglac,baglantim,1,3
if cat.eof or cat.bof then
Response.write "Kategoriye Henüz Bir Forum Eklenmemiş"
end if
%><% for o=1 to 9999
if cat.eof then exit for %>
<TD class=td_menu colSpan=5>
<b><font Class=Siyah face="Verdana">
<p align="left"><%=cat("adi" )%></font>
<%
if SESSION("Uye_Seviye" )=1 OR SESSION("Uye_Seviye" )=3 then %>
<a class=menukisi2 title="Kategoriyi Sil" href="forumlar.asp?islek=catdel&cat=<%=cat("id" )%>" onClick="return confirm('Bu Kategoriyi silmek istediğinizden eminmisiniz ?' )" name="<%=cat("id" )%>"><img src="site/forum/catdel.gif" border=0 align="absmiddle"> Kategoriyi Sil </a>
<a class=menukisi2 title="Kategoriyi Düzenle" href="javascript:void%20window.open('duz.asp?islek=cduzen&cid=<%=cat("id" )%>','','width=400,height=235,scrollbars=0' )"><img src="site/forum/catduz.gif" border=0 align="absmiddle"> Kategoriyi Düzenle </a>
<a class=menukisi2 title="Kategori Ekle" href="javascript:void%20window.open('duz.asp?islek=cnew&cid=<%=cat("id" )%>','','width=400,height=235,scrollbars=0' )"><img src="site/forum/kla_yeni.gif" border=0 align="absmiddle"> Kategori Ekle</a>
<% end if %>
</b>
</TD>
</TR>
<TR class=td_menu nowrap background="/site/forum/image/ffffff">
<%
Set rec = Server.CreateObject("ADODB.Recordset" )
baglac = "Select * from forumlar WHERE cat = " & cat("id" ) & " order by forum asc "
rec.Open baglac,baglantim,1,3
%>
<% for i=1 to 777
if rec.eof then exit for %>
<%
Set kns = Server.CreateObject("ADODB.Recordset" )
baglac = "Select * from forumsorular WHERE " &_
"forumid= " & rec("forumid" )
kns.Open baglac,baglantim,1,3 'Ufak Bi Değişim yapiim dedim.
topkn = kns.recordcount
%>
<%
sayi=sayi + 1
renk_sec=right(sayi,1 )
select case renk_sec
case "1","3","5","7","9"
renk = ""& tablobg1 &""
case else
renk = ""& tablobg2 &""
end select
'By MaxiCooL
%>
<TD align=middle width="5%" class=td_menu>
<img border="0" src="site/forum/board_n.gif" width="20" height="20"></TD>
<TD width="68%" background="" bgColor=#f1f1f1>
<a href="forumlar.asp?goster=sorular&forum=<%=rec("forumid" )%>"><span style="text-decoration: none">
</span><b><span style="text-decoration: none"><%=rec("forum" )%></span></b> </A><% if SESSION("Uye_Seviye" )=1 OR SESSION("Uye_Seviye" )=3 then %>
<a clasS=menukisi href="javascript:void%20window.open('duz.asp?islek=fduzen&forum=<%=rec("forumid" )%>','','width=400,height=235,scrollbars=0' )"> Düzenle</a>
<a class=menukisi href="javascript:void%20window.open('duz.asp?islek=fnew&cid=<%=cat("id" )%>','','width=400,height=235,scrollbars=0' )"> YENİ</a> <% end if %></SPAN>
</br><%=rec("aciklama" )%></TD>
<TD align=middle width="5%" background="" bgColor=#efefef>
<font color="#000080"><%=topkn%></font></TD>
<TD align=middle width="5%" background="" bgColor=#f1f1f1>
<%
Set cvps = Server.CreateObject("ADODB.Recordset" )
baglac = "Select * from forumcevaplar WHERE forumid = " & rec("forumid" )
cvps.Open baglac,baglantim,1,3
topcvp = cvps.recordcount
%> <%=topcvp%>
</TD>
<TD class=ultrasmall noWrap align=middle width="17%" background=""
bgColor=#efefef></B>
<%
Set snkn = Server.CreateObject("ADODB.Recordset" )
baglac = "Select * from forumsorular WHERE forumid = " & rec("forumid" ) & " order by soruid desc"
snkn.Open baglac,baglantim,1,3
if not snkn.eof then %>
(<%=snkn("tarih" )%> )<br>
<%
Set rsMember = Server.CreateObject("ADODB.Recordset" )
baglac = "Select * from UYELER where U_ID = " & snkn("yazan" )
rsMember.Open baglac,baglantim,1,3
%>
<a href="javascript:void%20window.open('uye_detay.asp?islem=uyebilgi&id=<%=rsMember("U_ID" )%>','','width=500,height=260,scrollbars=0' )"><%=rsMember("U_ADI" )%></a>
<% else %>
<font size="1"><center>
<font color="<%=font_basliks1%>">Konu Yok</font>
<% end if %>
</TD>
</TR>
<% rec.movenext %>
<% next %>
<% cat.movenext %>
<% next %>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=2 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD bgColor=#d0d0d0>
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR>
<TH align=left background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif"><font color="#FFFFFF">
<img border="0" src="site/forum/kare.gif" width="11" height="11">
</font> <FONT class=title
color=#FFFFFF>Forum İstatistikleri</FONT><font color="#FFFFFF">
</font> </TH></TR>
<TR>
<TD class=info background="" bgColor=#f1f1f1><IMG
src="site/forum/m1.gif" align=absMiddle vspace=3 border=0>
<B> <% Set objList = Server.CreateObject("ADODB.RecordSet" )
objList.Open "SELECT * FROM UYELER ORDER BY U_ADI", baglantim, 3, 3 %>
<%=objList.RecordCount%>
</B>kayıtlı kullanıcı, <B><% Set objList2 = Server.CreateObject("ADODB.RecordSet" )
objList2.Open "SELECT * FROM forumsorular ORDER BY soruid", baglantim, 3, 3 %>
<%=objList2.RecordCount%></B> Konu açmış ve toplam
<B><% Set objList3 = Server.CreateObject("ADODB.RecordSet" )
objList3.Open "SELECT * FROM forumcevaplar ORDER BY cevapid desc", baglantim, 3, 3 %>
<%=objList3.RecordCount%></B> cevap göndermiş. <BR><IMG
src="site/forum/m2.gif" align=absMiddle vspace=3 border=0>
En yeni üyemiz:
<% Set rs = Server.CreateObject("ADODB.RecordSet" )
rs.Open "SELECT * FROM UYELER ORDER BY U_ID Desc", baglantim, 3, 3 %>
<a HREF="#" onClick="window.open('uye_detay.asp?islem=uyebilgi&ID=<%=rs("U_ID" )%>', 'Muratsoft', 'height=200,width=400' )">
<font color="#CF5221"><%=rs("U_ADI" )%></font></a><BR></br> Şu Anki aktif Kullanıcılar: <%
Session.LCID = 1033
liste = DateAdd("n", -1 * dk_g, Now( ) )
Set objList=Server.CreateObject("Adodb.Recordset" )
Sorgu = "SELECT * FROM UYELER WHERE SON_TARIH >= #"&liste&"# ORDER BY SON_TARIH DESC"
objList.Open Sorgu, Baglantim, 3, 3
Session.LCID = lcid
If objList.EOF Then
uNumber = "0"
Else
uNumber = objList.RecordCount
End If
If uNumber = "0" Then Response.Write "<font class=menukisi face=tahoma size=1><b> Şu Anda Online Üye Yok </b></font>" end if
If uNumber = "0" AND Session("Oturum" ) = "Kapali" Then Response.Redirect Request.ServerVariables("HTTP_URL" )
For I = 1 To uNumber
If Session("Oturum" ) = "Acik" Then
Response.Write "<a class=menukisi2 href=""uye_detay.asp"" onclick=""window.name='main_uye'; window.open('uye_detay.asp?id="&objList("U_ID" )&"','Uye_Detay', 'toolbar=no,no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=450,height=235' ); return false;"" title="""&objList("U_ADI" )&" adlı kullanıcıya ait detaylar...""><font face=tahoma size=1><b>"&objList("U_ADI" )&",</b></font></a><br>"
Else
Response.Write "<a class=menukisi2 href=""uye_detay.asp"" onclick=""window.name='main_uye'; window.open('uye_detay.asp?id="&objList("U_ID" )&"','Uye_Detay', 'toolbar=no,no,directories=no,status=no,menubar=no,scrollbars=no, resizable=no,copyhistory=no,width=450,height=235' ); return false;"" title="""&objList("U_ADI" )&" adlı kullanıcıya ait detaylar...""><font face=tahoma size=1><b>"&objList("U_ADI" )& ",</b></font></a><br>"
End If
objList.MoveNext
Next
objList.Close
Set objList = Nothing
%> </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD class=ultrasmall>Şu Anki Sunucu Saati: <%=now ( )%>
PM</TD></TR></TBODY></TABLE></CENTER>
<p><BR></p>
</BODY></HTML>
<% If Session("Oturum" ) <> "Acik" Then
sub catdel
id = Request("cat" )
Set istem = Server.CreateObject("ADODB.RecordSet" )
baglac = "DELETE from forumcat WHERE id="&id&""
istem.Open baglac,baglantim,1,3 %>
<% end sub %><%end if
%>
*************************forumlar.asp*********************************
<script language="Javascript1.2"><!-- // load htmlarea
_editor_url = "htmlarea/"; // URL to htmlarea files
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE" )[1] );
if (navigator.userAgent.indexOf('Mac' ) >= 0 ) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE' ) >= 0 ) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera' ) >= 0 ) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5 ) {
document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"' );
document.write(' language="Javascript1.2"></scr' + 'ipt>' );
} else { document.write('<scr'+'ipt>function editor_generate( ) { return false; }</scr'+'ipt>' ); }
// --></script>
<BODY >
<CENTER>
<%
goster = request.querystring("goster" )
goster = replace(goster, "'", "" )
if goster = "" then
call sorular
elseif goster = "sorular" then
call sorular
elseif goster = "yenisoru" then
call yenisoru
elseif goster = "soruekle" then
call soruekle
elseif goster = "cevaplar" then
call cevaplar
elseif goster = "cevapla" then
call cevapla
end if
sub sorular
%>
<%
forumid = request.querystring("forum" )
IF NOT ISNumeric(forumid ) THEN
response.write error1
response.end
end if
set objForumQ = server.createobject("ADODB.Recordset" )
sqlobjForumQ = "Select * from forumsorular WHERE forumid = " & forumid & " order by sonctarih desc"
objForumQ.open sqlobjForumQ,baglantim,1,3
sf = Request.querystring("sf" )
if sf="" then
sf=1
end if
objForumAdi = baglantim.execute("select * from forumlar WHERE forumid = " & forumid & " " )
%><% set oSU = baglantim.execute("Select Top 1 * from UYELER order by U_ID desc" ) %>
<% if objForumQ.eof then
response.write " Bu konuda hiç soru bulunmamaktadır !</br>"
response.write "<a href=javascript:history.back( )>Geri Dön</a>" %>
<%else %>
<TABLE class=td_menu cellSpacing=0 cellPadding=1 width="95%" border=0>
<TBODY>
<TR>
<TD class=head><FONT size=1><a class=menukisi2 href="forum.asp">Muratsoft Forum</a> / <%=objForumAdi("forum" )%></FONT> </TD>
<TD class=c2 align=right>Hoşgeldin <% If Session("Oturum" ) <> "Acik" Then %>Ziyaretçi <%else%>
<%
Set objRead = baglantim.Execute("SELECT Count(* ) AS toplam FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi" ) &"' AND GOR = True" )
Set objSpe = baglantim.Execute("SELECT Count(* ) AS ozel FROM MESAJLAR WHERE TYPE=1" )
Set objNRead = baglantim.Execute("SELECT Count(* ) AS okunmayan FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi" ) &"' AND OKUNDU = False AND GOR = True" )
Set getName = baglantim.Execute("SELECT * FROM UYELER WHERE U_ID = "& Session("Uye_Id" ) )
%>
<%=getName("AD" )%><%end if%> </TD></TR></TBODY></TABLE>
<TABLE class=td_menu cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD ><A
href="forumlar.asp?goster=yenisoru&forum=<%=forumid%>"><IMG
alt="Yeni konu aç" src="site/forum/post.gif"
align=absMiddle vspace=5 border=0></A> <B><A class=menukisi2
href="forum.asp">Bütün Forumlar</A> >>
<%=objForumAdi("forum" )%></B> </TD>
<TD class=ultrasmall noWrap align=right><B> </B>
</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD bgColor=#d0d0d0><!--Start building table-->
<TABLE cellSpacing=1 cellPadding=3 width="100%" border=0>
<TBODY>
<TR background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif">
<TH noWrap align=middle width=50 colSpan=2 background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif"> </TH>
<TH noWrap align=middle width="64%" background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif" style="font-family: Verdana; font-size: 8pt; font-weight: bold">
<FONT
class=title size="1">Konu</FONT></TH>
<TH noWrap align=middle width="5%" background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif" style="font-family: Verdana; font-size: 8pt; font-weight: bold">
<FONT
class=title size="1">Cevaplar</FONT></TH>
<TH noWrap align=middle width="10%" background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif" style="font-family: Verdana; font-size: 8pt; font-weight: bold">
<FONT
class=title >Konuyu Açan</FONT></TH>
<TH noWrap align=middle width="5%" background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif" style="font-family: Verdana; font-size: 8pt; font-weight: bold">
<FONT
class=title >İzlenme</FONT></TH>
<TH noWrap align=middle width="10%" background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif" style="font-family: Verdana; font-size: 8pt; font-weight: bold">
<FONT
class=title >Son İleti</FONT></TH></TR>
<TR bgColor=#efefef >
<%
objForumQ.pagesize = 15
objForumQ.absolutepage = sf
sayfa = objForumQ.pagecount
for i=1 to objForumQ.pagesize
if objForumQ.eof then exit for
set objQYazan = baglantim.execute("select * from UYELER WHERE U_ID = " & objForumQ("yazan" ) & " " )
yetki = objQYazan("SEVIYE" )
set objForumQC = baglantim.execute("select count(* ) as cevap from forumcevaplar where soruid = " & objForumQ("soruid" ) & " " )
set objFSC = baglantim.execute("select Top 1 * from forumcevaplar WHERE soruid = " & objForumQ("soruid" ) & " ORDER by cevapid desc" )
%>
<TD align=middle width=25 background="" bgColor=#f1f1f1>
<%
if objForumQ("okunmat" )="0" then %> <IMG src="site/forum/board_s.gif"
align=absMiddle vspace=2><% end if %> <%
if objForumQ("okunmat" )= "1" then %> <IMG src="site/forum/board_snh.gif"
align=absMiddle vspace=2><% end if %>
<%
if objForumQ("okunmat" )<>"2" then %>
<img border="0" src="site/forum/DNA.gif" width="15" height="15"><% end if %>
</TD>
<TD align=middle width=25 background="" bgColor=#f1f1f1><%
if objForumQ("durum" )="on" then %>
<img border="0" src="site/resimler/icon1.gif"><%else%>
<IMG src="site/forum/board_slocked.gif"
align=absMiddle vspace=2>
<% end if %></TD>
<TD class=c2 background="" bgColor=#f1f1f1>
<a class=menukisi2 href="forumlar.asp?goster=cevaplar&forum=<%=forumid%>&soru=<%=objForumQ("soruid" )%>"> <b><%=left(objForumQ("sorubaslik" ),75 )%></b></a></SPAN>
<%
if SESSION("Uye_Seviye" )=1 OR SESSION("Uye_Seviye" )=3 then %>
<font color="#800000">- </font><a href="adminforum.asp?islem=sorudegistir&soru=<%=objForumQ("soruid" )%>"><font color="#800000">Değiştir</font></a><font color="#800000">
-
<% if objForumQ("durum" )="on" then %>
</font>
<a href="adminforum.asp?islem=sorukitle&soru=<%=objForumQ("soruid" )%>">
<font color="#800000">Kitle</font></a><font color="#800000">
<%else%>
</font>
<a href="adminforum.asp?islem=sorukilitkaldir&soru=<%=objForumQ("soruid" )%>">
<font color="#800000">Kilit Aç</font></a><font color="#800000">
<% end if %> -
</font>
<a href="adminforum.asp?islem=sorusil&soru=<%=objForumQ("soruid" )%>">
<font color="#800000">Sil</font></a><font color="#800000"><%
end if
%> </font> </TD>
<TD align=middle background="" bgColor=#efefef><%=objForumQC("cevap" )%></TD>
<TD class=c2 align=middle background="" bgColor=#f1f1f1> <a HREF="#" onClick="window.open('uye_detay.asp?islem=uyebilgi&id=<%=objQYazan("U_ID" )%>', 'ASPrehberi', 'height=200,width=400' )">
<font color="#2B71C6"><%=objQYazan("U_ADI" )%></font></a> </TD>
<TD align=middle background="" bgColor=#efefef><%=objForumQ("okunmat" )%></TD>
<TD class=info noWrap align=right background=""
bgColor=#f1f1f1><% if objFSC.eof then
response.write "Hiç Cevap yok"
else %>
<font color="#2B71C6"></font><br><%=objFSC("tarih" )%>
<% end if
%> </TD></TR>
<%
objForumQ.movenext
next
%>
<TR id=treeRow29 >
<TD id=treeCell29
style="PADDING-RIGHT: 0px; DISPLAY: none; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px"
colSpan=7></TD></TR>
<TR id=treeRow47 style="DISPLAY: none" bgColor=#f1f1f1
>
<TD id=treeCell47
style="PADDING-RIGHT: 0px; DISPLAY: none; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px"
colSpan=7></TD></TR>
<TR>
<TH align=middle background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif" colSpan=7>
<FONT
class=title size="1">Sayfa: </FONT>
<font color="#FFFFFF" size="1"> </font>
<FONT
class=title size="1"><%
for y=1 to sayfa
if CINT(TRIM(sf ) )=CINT(TRIM(y ) ) then%>
<b>[<%response.write "" & y %>]</b><%
else
response.write " <a href=""forumlar.asp?goster=sorular&forum=" & forumid & "&sf=" & y & """>" & y & "</a>"
end if
%><%next%></FONT><font color="#FFFFFF" size="1"> </font> </TH></TR></TBODY></TABLE><!--Stop building table--></TD></TR></TBODY></TABLE>
<TABLE class=td_menu cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD ><A
href="forumlar.asp?goster=yenisoru&forum=<%=forumid%>"><IMG
alt="Yeni konu aç" src="site/forum/post.gif"
align=absMiddle vspace=5 border=0></A> <B><a class=menukisi2 href="forum.asp">Bütün Forumlar</a> >> <%=objForumAdi("forum" )%></B> </TD>
<TD class=ultrasmall noWrap align=right>Sayfa: <B> <%
for y=1 to sayfa
if CINT(TRIM(sf ) )=CINT(TRIM(y ) ) then%>
<b>[<%response.write "" & y %>]</b><%
else
response.write " <a href=""forumlar.asp?goster=sorular&forum=" & forumid & "&sf=" & y & """>" & y & "</a>"
end if
%><%next%></B>
</TD></TR></TBODY></TABLE >
<BR>
<TABLE class=td_menu cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=3 border=0>
<TBODY>
<TR>
<TD ><IMG src="site/forum/board_sn.gif"
align=absMiddle vspace=2> Yeni Mesajlar</TD>
<TD><IMG src="site/forum/board_s.gif"
align=absMiddle vspace=2> Yeni Mesaj Yok</TD></TR>
<TR>
<TD><IMG src="site/forum/board_snh.gif"
align=absMiddle vspace=2> Yeni Sıcak Konu</TD>
<TD><IMG src="site/forum/board_sh.gif"
align=absMiddle vspace=2> Sıcak Konu</TD></TR>
<TR>
<TR>
<TD><IMG src="site/forum/board_snlocked.gif"
align=absMiddle vspace=2> Kilitli Yeni Mesajlar</TD>
<TD><IMG src="site/forum/board_slocked.gif"
align=absMiddle vspace=2> Kilitli Mesajlar</TD></TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE><BR><BR><BR><BR></CENTER>
<% end if %>
<% end sub %>
<% sub cevaplar %>
<%
forumid = request.querystring("forum" )
IF NOT ISNumeric(forumid ) THEN
response.write error1
response.end
end if
soruid = request.querystring("soru" )
IF NOT ISNumeric(soruid ) THEN
response.write error1
response.end
end if
set objForumC = server.createobject("ADODB.Recordset" )
sqlobjForumC = "Select * from forumcevaplar WHERE soruid = " & soruid & " ORDER by cevapid asc"
objForumC.open sqlobjForumC,baglantim,1,3
set objSoru = server.createobject("ADODB.Recordset" )
sqlobjSoru = "select * from forumsorular WHERE soruid = " & soruid & " "
objSoru.open sqlobjSoru,baglantim,1,3
objSoru("okunmat" ) = objSoru("okunmat" ) + 1
objSoru.update
sf = Request.querystring("sf" )
if sf="" then
sf=1
end if
set objForumbs = baglantim.execute("select * from forumlar where forumid = " & forumid & " " )
%>
<%
set objQYazan = baglantim.execute("select * from UYELER WHERE U_ID = " & objSoru("yazan" ) & " " )
%>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY>
<BR>
<TABLE class=td_menu cellSpacing=0 cellPadding=1 width="95%" border=0>
<TBODY>
<TR>
<TD class=head><FONT ><%=objSoru("sorubaslik" )%></FONT> </TD>
<TD align=right>Hoşgeldin <% If Session("Oturum" ) <> "Acik" Then %>Ziyaretçi <%else%>
<%
Set objRead = baglantim.Execute("SELECT Count(* ) AS toplam FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi" ) &"' AND GOR = True" )
Set objSpe = baglantim.Execute("SELECT Count(* ) AS ozel FROM MESAJLAR WHERE TYPE=1" )
Set objNRead = baglantim.Execute("SELECT Count(* ) AS okunmayan FROM MESAJLAR WHERE GIDEN = '"& Session("Uye_Adi" ) &"' AND OKUNDU = False AND GOR = True" )
Set getName = baglantim.Execute("SELECT * FROM UYELER WHERE U_ID = "& Session("Uye_Id" ) )
%>
<%=getName("AD" )%><%end if%> </TD></TR></TBODY></TABLE>
<TABLE class=td_menu cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD width="90%"> <B><a href="forum.asp">Bütün
Forumlar</a> >> <A
href="forumlar.asp?goster=sorular&forum=<%=objForumbs("forumid" )%>">[<%=objForumbs("forum" )%>]</A>
>> <%=objSoru("sorubaslik" )%> (<%=objSoru("tarih" )%> ) </B></TD>
</TR></TBODY></TABLE>
<TABLE class=td_menu cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#d0d0d0>
<TABLE class=td_menu cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR>
<TH align=left width=150 background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif">
<FONT
class=title >Kullanıcı </FONT><font color="#FFFFFF"><IMG height=1
src="site/forum/blank.gif" width=150 align=left border=0>
</font> </TH>
<TH align=left background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif" colSpan=0>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><FONT class=title >Mesaj</FONT></TD>
<TD align=right> </TD></TR></TBODY></TABLE></TH></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><!--
Message Starts Here
-->
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#d0d0d0>
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top noWrap width=150 background="" bgColor=#f1f1f1>
<p align="center"><A title="E-mail <%=objQYazan("U_ADI" )%>"
href="mailto:<%=objQYazan("EMAIL" )%>"><IMG
src="site/forum/emailToAuthor.gif" align=absMiddle
border=0></A> <A title="Özel Mesaj Gönder"
href="mesaj.asp?u_id=<%=objQYazan("U_ID" )%>&i=go"><IMG
src="site/forum/pm.gif" align=absMiddle border=0></A>
<br>
<%if len(objQYazan("resim" ) )>0 then%>
<img src="<%=objQYazan("resim" )%>"><% else %> <%end if%><BR><SPAN ><a HREF="#" onClick="window.open('uye_detay.asp?islem=uyebilgi&id=<%=objQYazan("U_ID" )%>', 'ASPrehberi', 'height=200,width=400' )">
<font color="#3083AC"><%=objQYazan("U_ADI" )%></font></a></SPAN>
<font color="#008000"> </br>
<% mesaj = objQYazan("forummsg" )
if objQYazan("SEVIYE" )="1" then
rank = "- GENEL SORUMLU -"
elseif objQYazan("SEVIYE" )="3" then
rank = "- Moderatör -"
elseif mesaj<10 and mesaj>0 then
rank = "Yeni Üye"
elseif mesaj>10 and mesaj<50 then
rank = "Üye"
elseif mesaj>50 and mesaj<100 then
rank = "Deneyimli Üye"
end if %><%=rank%>
</font>
</p>
<P class=ultrasmall>İletiler: <%=objQyazan("forummsg" )%><BR>
Katıldığı Tarih: <%=objQYazan("U_TARIHI" )%><br>
Yaş : <%
yas2 = ROUND(Year(now )-objQyazan("yas" ), 1 )
response.write yas2 %>
<BR> <IMG height=1
src="site/forum/blank.gif" width=150 align=left
border=0></P></TD>
<TD vAlign=top background="" bgColor=#f1f1f1 colSpan=0>
<TABLE cellSpacing=0 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
<TD class=info align=left width="90%"><A name=29></A><IMG
src="site/forum/m1.gif" align=absMiddle border=0> <%=objSoru("sorubaslik" )%> </TD>
<TD class=c2 noWrap align=right colSpan=2>
<TABLE cellSpacing=0 cellPadding=2 width=10 border=0>
<TBODY>
<TR>
<TD align=right> </TD>
<TD align=right> </TD>
<TD align=right> </TD>
<TD align=right>
</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top colSpan=3>
<HR width="100%" color=#d0d0d0 SIZE=1>
</TD></TR>
<TR>
<TD vAlign=top colSpan=3 bgcolor="#FFFFFF"><span class="msg"><%=objSoru("soru" )%><BR> </span><HR width="100%" color=#d0d0d0 SIZE=1>
</br> <%=haberizle(objQYazan("IMZA" ) )%></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<%
if objForumC.eof then
%>
<TD noWrap width=150 background="" bgColor=#f1f1f1> </TD>
<TD align=right width="90%" background="" bgColor=#f1f1f1>Bu Konuya Henüz Yanıt Verilmedi..</TD><% else %></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#d0d0d0>
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR>
<%
objForumC.pagesize = 10
objForumC.absolutepage = sf
sayfa = objForumC.pagecount
for i=1 to objForumC.pagesize
if objForumC.eof then exit for
set objCYazan = baglantim.execute("select * from UYELER WHERE U_ID = " & objForumC("yazan" ) & " " )
%>
<TD vAlign=top noWrap width=150 background="" bgColor=#efefef>
<p align="center"> <A title="E-mail <%=objQYazan("U_ADI" )%>"
href="mailto:<%=objCYazan("EMAIL" )%>"><IMG
src="site/forum/emailToAuthor.gif" align=absMiddle
border=0></A> <A title="Özel Mesaj Gönder"
href="mesaj.asp?u_id=<%=session("uye_id" )%>&i=go"><IMG
src="site/forum/pm.gif" align=absMiddle border=0></A> <BR><SPAN >
<a HREF="#" onClick="window.open('uye_detay.asp?islem=uyebilgi&id=<%=objCYazan("U_ID" )%>', 'ASPrehberi', 'height=200,width=400' )">
<font color="#CF5221">
<%=objCYazan("U_ADI" )%></font></a></SPAN></br> <b>
<font color="#800000" size="1" face="Verdana"> <% mesaj = objCYazan("forummsg" )
if objCYazan("SEVIYE" )="1" then
rank = "- GENEL SORUMLU -"
elseif objCYazan("SEVIYE" )="3" then
rank = "- Moderatör -"
elseif mesaj<10 and mesaj>0 then
rank = "Yeni Üye"
elseif mesaj>10 and mesaj<50 then
rank = "Üye"
elseif mesaj>50 and mesaj<100 then
rank = "Deneyimli Üye"
end if %><%=rank%>
</font></b>
<BR>
<%if len(objCYazan("resim" ) )>0 then%>
<img src="<%=objCYazan("resim" )%>"><% else %> <%end if%><BR>
<P class=ultrasmall>İletiler: <%=objCyazan("forummsg" )%><BR>Katıldığı Tarih: <%=objCYazan("U_TARIHI" )%><br>
Yaş : <%
yas2 = ROUND(Year(now )-objCYazan("yas" ), 1 )
response.write yas2 %>
<BR> <IMG height=1
src="site/forum/blank.gif" width=150 align=left
border=0></P></TD>
<TD vAlign=top background="" bgColor=#efefef colSpan=0>
<TABLE cellSpacing=0 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
<TD class=info align=left width="90%"><IMG
src="site/forum/m1.gif" align=absMiddle border=0> YNT:
<%=objSoru("sorubaslik" )%> - <%=objForumC("tarih" )%> </TD>
<TD class=c2 noWrap align=right colSpan=2>
<% if SESSION("Uye_Seviye" )=1 OR SESSION("Uye_Seviye" )=3 then %><a href="adminforum.asp?islem=cevapdegistir&forum=<%=forumid%>&cevap=<%=objForumC("cevapid" )%>"><span style="text-decoration: none">Değiştir</span></a><br>
<a href="adminforum.asp?islem=cevapsil&cevap=<%=objForumC("cevapid" )%>&soru=<%=objForumC("soruid" )%>">
<span style="text-decoration: none">Sil</span></a>
<% end if %></TD></TR>
<TR>
<TD vAlign=top colSpan=3>
<HR width="100%" color=#d0d0d0 SIZE=1>
</TD></TR>
<TR>
<TD vAlign=top colSpan=3><SPAN class=msg><%=objForumC("cevap" )%><BR>_____________________________<BR><BR> <%=haberizle(objCYazan("IMZA" ) )%> </SPAN></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<%
objForumC.movenext
next
%><% end if %>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE><!--
Message Ends Here
-->
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#d0d0d0>
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif">
<TH align=middle background="THEMES/<%=asp("SiteTheme" )%>/cell-background.gif"><FONT class=title >Sayfa:
</FONT><font color="#FFFFFF"> </font>
<FONT class=title ><%
for y=1 to sayfa
if CINT(TRIM(sf ) )=CINT(TRIM(y ) ) then%>
<b>[<%response.write "" & y %>]</b><%
else
response.write " <a href=""forumlar.asp?goster=cevaplar&forum=" & forumid & "&soru=" & soruid & "&sf=" & y & """>" & y & "</a>"
end if
%><%next%></FONT><font color="#FFFFFF"> </font>
</TH></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE class=td_menu cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD class=ultrasmall width="90%"> <B><a href="forum.asp">Bütün
Forumlar</a> >> <A
href="forumlar.asp?goster=sorular&forum=<%=objForumbs("forumid" )%>">[<%=objForumbs("forum" )%>]</A>
>> <%=objSoru("sorubaslik" )%> </B></TD>
</TR></TBODY></TABLE>
<BR>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#EFEFEF>
<SCRIPT>
if (document.getElementById ) document.write("<div id=\"qrp\" style=\"display:none;\">" );
</SCRIPT> <TH align=left colSpan=2 bgcolor="#EFEFEF"><FONT class=title>Hızlı
Cevap Merkezi</FONT> </TH></TR>
<TR>
<FORM name=postform onsubmit="return validateForm(this )"
action=forumlar.asp?goster=cevapla&forum=<%=forumid%>&soru=<%=soruid%> method=post>
<INPUT
type=hidden value=0 name=memberModerated>
<INPUT type=hidden value=148054510 name=ssid> <INPUT type=hidden value=true
name=qreply> <INPUT type=hidden
value=false name=jsenabled> <INPUT
type=hidden value=reply name=postingaction> <INPUT type=hidden name=__body> <INPUT
type=hidden name=_body> <INPUT type=hidden name=__subject> <INPUT
type=hidden name=_subject> <INPUT type=hidden value=2 name=forumid> <INPUT type=hidden value=29
name=threadiD> <INPUT
type=hidden value=134 name=parent> <INPUT type=hidden value=tm name=toStyle> <INPUT type=hidden
value="Murat ÇETİN
Erzincan Devlet Hastanesi
Bilgi İşlem Merkezi"
name=signature>
<TD noWrap background="" bgColor=#f1f1f1>
</TD>
<TD align=left background="" bgColor=#f1f1f1>
<script language="JavaScript1.2" defer>
editor_generate('body' );
</script>
<textarea name="body" rows="10" style="width:485; height:274" class="form" cols="20"></textarea><br>
<% If Session("Oturum" ) <> "Acik" Then %>ÜYE GİRİŞİ YAPINIZ
<% else %> <INPUT class=buttons type=submit value=" Tamam " name=submitbutton><% End if %>
<INPUT type="reset" tabIndex=0 type=button value=Vazgeç> </TD></FORM></TD></TR></TBODY></TABLE><BR>
<SCRIPT>if (document.getElementById ) document.write("</div>" ); </SCRIPT>
<SCRIPT>
<!--
var theForm=document.postform
if (theForm.__body ) theForm.__body.value = ".+"
if (theForm._body ) theForm._body.value = "Konu ve mesaj alanları boş!"
if (theForm.__subject ) theForm.__subject.value = ".+"
if (theForm._subject ) theForm._subject.value = "Konu ve mesaj alanları boş!"
//-->
</SCRIPT>
<SCRIPT type=text/javascript>
function ResizeTextArea( ){
var TextArea = document.postform.body;
var sX = document.body.clientWidth;
var sY = document.body.clientHeight;
var sppp = 300
}
if (document.getElementById ) window.onresize = ResizeTextArea
if (document.getElementById ) setTimeout("ResizeTextArea( );",20 )
</SCRIPT>
</BODY></HTML>
<%
objForumC.close
set objForumC = nothing
objForumbs.close
set objForumbs = nothing
objSoru.close
set objSoru = nothing
objQYazan.close
set objQYazan = nothing
%><% end sub %>
<% sub cevapla %>
<%
if NOT Session("Oturum" )= "Acik" then
response.write "Üye girişi yapmadan cevap veya soru oluşturamazsınız."%><br>
<a href="javascript:history.back( )">Geri Dön</a><%
response.end
end if
forumid = request.querystring("forum" )
IF NOT ISNumeric(forumid ) THEN
response.write error1
response.end
end if
soruid = request.querystring("soru" )
IF NOT ISNumeric(soruid ) THEN
response.write error1
response.end
end if
cevap = request.form("body" )
if cevap = "Cevabınız..." then
response.write "Lütfen bir cevap yazın."%><br>
<a href="javascript:history.back( )">Geri Dön</a><%
response.end
end if
if cevap = "" then
response.write "Boş cevap gönderemezsiniz."%><br>
<a href="javascript:history.back( )">Geri Dön</a><%
response.end
end if
set objSupt = server.createobject("ADODB.Recordset" )
sqlobjSupt = "select * from forumsorular WHERE soruid = " & soruid & " "
objSupt.open sqlobjSupt,baglantim,1,3
if NOT objSupt("durum" )="on" then
response.write "Bu soru kitlenmiştir."%><br>
<a href="javascript:history.back( )">Geri Dön</a><%
response.end
end if
objSupt("cevapt" )=objSupt("cevapt" ) + 1
objSupt("sonctarih" )=now( )
objSupt.update
objSupt.close
set objSupt = nothing
set objuyem = server.createobject("ADODB.Recordset" )
sqlobjuyem = "select * from UYELER WHERE U_ID = " & session("Uye_Id" ) & " "
objuyem.open sqlobjuyem,baglantim,1,3
objuyem("forummsg" )=objuyem("forummsg" ) + 1
objuyem.update
set objuyem = nothing
set objCkaydet = server.createobject("ADODB.Recordset" )
sqlobjCkaydet = "select * from forumcevaplar"
objCkaydet.open sqlobjCkaydet,baglantim,1,3
objCkaydet.addnew
objCkaydet("cevap" )=cevap
objCkaydet("yazan" )=session("Uye_Id" )
objCkaydet("tarih" )=now( )
objCkaydet("soruid" )=soruid
objCkaydet("forumid" )=forumid
objCkaydet.update
objCkaydet.close
set objCkaydet = nothing
%>
<div align="center">
<center>
<table border="0" cellpadding="0" class="menu" cellspacing="0" style="text-decoration: none" bordercolor="#111111" width="53%" height="173">
<tr><meta http-equiv="Refresh" content="2; URL=<%=Request.ServerVariables("HTTP_REFERER" )%>">
<td width="100%" height="173">
<p align="center"><font color="#2B71C6"><b>Cevabınız başarılı bir şekilde eklenmiştir.</b></font><br><br> Geldiğiniz sayfaya birkaç saniye içinde
geri dönemezseniz <a href="<%=Request.ServerVariables("HTTP_REFERER" )%>">
<font color="#3083AC">buraya</font></a> tıklayın...</td>
</tr>
</table>
</center>
</div>
<% end sub %>
<% sub yenisoru %>
<% forumid = request.querystring("forum" )
set objFA = baglantim.execute("select * from forumlar where forumid = " & forumid & " " )
%>
<form method="POST" action="forumlar.asp?goster=soruekle&forum=<%=forumid%>">
<b>
<font color="#CF5221"><a href="forum.asp">Forumlar</a> -->
<a href="forumlar.asp?goster=sorular&forum=<%=objFA("forumid" )%>">
<font color="#CF5221">
<%=objFA("forum" )%></font></a> --> </font></b> <font color="#2B71C6">Yeni Soru<br>
Konu Adı : </font> <input type="text" name="baslik" size="39" style="font-family: Tahoma; font-size: 8pt">
</br>
Konu : <script language="JavaScript1.2" defer>
editor_generate('soru' );
</script>
<textarea name="soru" rows="10" style="width:485; height:274" class="form" cols="20"></textarea></br>
<% If Session("Oturum" ) <> "Acik" Then %>
Üye girişi yapmadan soru soramazsınız
<%else%>
<input type="submit" value="GÖNDER" name="B1" style="font-family: Tahoma; font-size: 8pt; border: 1px solid #3083AC; background-color: #CF5221"></form>
<%end if%>
<%
objFA.close
set objFA = nothing
%>
<% end sub %>
<% sub soruekle %>
<%
if NOT session("OTURUM" )<>"ACIK" then
response.write "Üye girişi yapmadan cevap veya soru oluşturamazsınız."%><br>
<a href="javascript:history.back( )">Geri Dön</a><%
response.end
end if
forumid = request.querystring("forum" )
IF NOT ISNumeric(forumid ) THEN
response.write error1
response.end
end if
baslik = request.form("baslik" )
baslik= Replace(baslik, "<", "<font color=#800000><" )
baslik= Replace(baslik, ">", "></font>" )
baslik= Replace(baslik,<br>,"<br>" )
baslik = Replace(baslik, " "," " )
baslik = Replace(baslik, "[link=","<a target=""_blank"" href=""", 1, -1, 1 )
baslik = Replace(baslik, "[/link]", "</a>", 1, -1, 1 )
baslik = Replace(baslik, "]", """>", 1, -1, 1 )
if instr(baslik, "<a target=""_blank"" href=""" ) <> 0 and instr(baslik, "<a target=""_blank"" href=""http://" ) = 0 then baslik = Replace(baslik, "<a target=""_blank"" href=""", "<a target=""_blank"" href=""http://" ) end if
baslik = replace(baslik, ": )", "<img src=site/resimler/s1.gif>", 1, -1, 1 )
baslik = replace(baslik, ":P", "<img src=site/resimler/s2.gif>", 1, -1, 1 )
baslik = replace(baslik, " ", "<img src=site/resimler/s3.gif>", 1, -1, 1 )
baslik = replace(baslik, " ", "<img src=site/resimler/s4.gif>", 1, -1, 1 )
baslik = replace(baslik, "; )", "<img src=site/resimler/s5.gif>", 1, -1, 1 )
soru = request.form("soru" )
soru = Replace(soru, "<", "<font color=#FF0000><" )
soru = Replace(soru, ">", "></font>" )
soru = Replace(soru,<br>,"<br>" )
soru = Replace(soru, " "," " )
soru = Replace(soru, "[link=","<a target=""_blank"" href=""", 1, -1, 1 )
soru = Replace(soru, "[/link]", "</a>", 1, -1, 1 )
soru = Replace(soru, "]", """>", 1, -1, 1 )
if instr(soru, "<a target=""_blank"" href=""" ) <> 0 and instr(soru, "<a target=""_blank"" href=""http://" ) = 0 then soru = Replace(soru, "<a target=""_blank"" href=""", "<a target=""_blank"" href=""http://" ) end if
soru = replace(soru, ": )", "<img src=site/resimler/s1.gif>", 1, -1, 1 )
soru = replace(soru, ":P", "<img src=site/resimler/s2.gif>", 1, -1, 1 )
soru = replace(soru, "", "<img src=site/resimler/s3.gif>", 1, -1, 1 )
soru = replace(soru, "; )", "<img src=site/resimler/s5.gif>", 1, -1, 1 )
if baslik = "" then
response.write "Lütfen bir başlık yazın."%><br>
<a href="javascript:history.back( )">Geri Dön</a><%
response.end
end if
if soru = "" then
response.write "Lütfen sorunuzu yazın."%><br>
<a href="javascript:history.back( )">Geri Dön</a><%
response.end
end if
set objRSekle = server.createobject("ADODB.Recordset" )
sqlobjRSekle = "select * from forumsorular"
objRSekle.open sqlobjRSekle,baglantim,1,3
objRSekle.addnew
objRSekle("sorubaslik" )=baslik
objRSekle("soru" )=soru
objRSekle("forumid" )=forumid
objRSekle("okunmat" )=0
objRSekle("durum" )="on"
objRSekle("yazan" )=session("Uye_id" )
objRSekle("tarih" )=now( )
objRSekle("sonctarih" )=now( )
objRSekle.update
set objumsga = server.createobject("ADODB.Recordset" )
sqlobjumsga = "select * from UYELER WHERE U_ID = " & session("Uye_ID" ) & " "
objumsga.open sqlobjumsga,baglantim,1,3
objumsga("forummsg" )=objumsga("forummsg" ) + 1
objumsga.update
objumsga.close
set objumsga = nothing
%>
<div align="center">
<center>
<table border="0" cellpadding="0" class="menu" cellspacing="0" style="text-decoration: none" bordercolor="#111111" width="53%" height="146">
<tr><meta http-equiv="Refresh" content="2; URL=forumlar.asp?goster=cevaplar&forum=<%=forumid%>&soru=<%=objRSekle("soruid" )%>">
<td width="100%" height="146">
<p align="center"><font color="#2B71C6"><b>Yazdığınız Konu başarılı bir şekilde eklenmiştir.</b></font><br><br>
Konunun açıldığı bölüme birkaç saniye içinde
geri dönemezseniz <a href="forumlar.asp?goster=cevaplar&forum=<%=forumid%>&soru=<%=objRSekle("soruid" )%>">
<font color="#3083AC">buraya</font></a> tıklayın...</td>
</tr>
</table>
</center>
</div>
<%
objRSekle.close
set objRSekle = nothing
%>
<% end sub %> |
