<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley All Rights Reserved
'<>
'<> By using this program, you are agreeing to the terms of the
'<> GNU General Public License.
'<>
'<> This program is free software; you can redistribute it and/or
'<> modify it under the terms of the GNU General Public License
'<> as published by the Free Software Foundation; either version 2
'<> of the License, or any later version.
'<>
'<> All copyright notices regarding MaxWebPortal must remain intact
'<> in the scripts and in the outputted HTML.
'<> The "powered by" text/logo with a link back to
'<> http://www.maxwebportal.info in the footer of the pages MUST
'<> remain visible when the pages are viewed on the internet or intranet.
'<>
'<> Support can be obtained from support forums at:
'<> http://www.maxwebportal.info
'<>
'<> Email: maxweb@maxwebportal.info
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
strSql = "SELECT " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_MESSAGE, " & strTablePrefix & "FORUM.F_PRIVATEFORUMS, " & strTablePrefix & "FORUM.F_SUBJECT FROM " & strTablePrefix & "FORUM INNER JOIN " & strTablePrefix & "TOPICS ON (" & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID) AND (" & strTablePrefix & "FORUM.CAT_ID = " & strTablePrefix & "TOPICS.CAT_ID) WHERE (((" & strTablePrefix & "FORUM.F_PRIVATEFORUMS)=6) AND ((" & strTablePrefix & "FORUM.F_SUBJECT)='Hosgeldiniz'));"
set rsWelcome = my_Conn.Execute (strSql)
blWelcome = false
if not rsWelcome.EOF then
do until rsWelcome.EOF or blWelcome = true
if strdbntusername <> "" then
if not inStr(lcase(rsWelcome("T_SUBJECT")),"member") <> 0 then
rsWelcome.movenext
else
blWelcome = true
end if
else
if not inStr(lcase(rsWelcome("T_SUBJECT")),"guest") <> 0 then
rsWelcome.movenext
else
blWelcome = true
end if
end if
loop
End if
if blWelcome = true then
NT_Subject = ChkString(rsWelcome("T_SUBJECT"),"display")
NT_Message = formatStr(ReplaceUrls(rsWelcome("T_MESSAGE"))) 'mwpv2.1
IF Left( NT_Message, 1 ) = " " Then NT_Message = Right( NT_Message, Len( NT_Message ) - 1 )
NT_Message = replace(NT_Message,"[%member%]",strdbntusername)
mwpThemeTitle= strSiteTitle & "'ne Hoş Geldiniz"
mwpThemeBlock_open()
%>
<tr><td width='100%' valign="top" height="100%">
<table border=0 cellspacing=1 cellpadding=6 width="100%" height="100%">
<tr><td width="100%" height="100%" valign="top" bgcolor="<% =strForumCellColor %>"><div align="justify"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><%= NT_Message %></font></div></td></tr></table></td></tr>
<%mwpThemeBlock_close()
End if %>
burda neyi düzelcem anlamadım yarım saat uğraştım bulamadım bişi