<%
'***********************************************************************
'** Copyright (C) 2001 - 2002 Max Yuan 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.com 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.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
%><%
CurPageInfoChk = "1"
function CurPageInfo ()
	strOnlineQueryString = Request.QueryString
	PageName = "News Ticker"
	PageAction = "Viewing<br>" 
	PageLocation = "news_ticker.asp"
	CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<table border="0" width="99%" align="center">
<tr><td width="50%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<img src="icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="default.asp">Home</a><br>
<img src="icon_bar.gif" height=15 width=15 border="0"><img src="icon_folder_open_topic.gif" height=15 width=15 border="0">&nbsp;News Ticker<br>
</font></td>
</tr>
</table>

<table border="0" align="center" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="95%">
<tr>
<td valign="top" bgcolor="<% =strForumCellColor %>">
<table border="0" cellspacing="0" cellpadding="2" width="100%">
<tr><td bgcolor="<%= strHeadCellColor %>" colspan="2" width="190"><font face="<% =strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strHeadFontColor%>"><b>News Ticker Generator</b></font></td></tr>
<form method="post" action="news_ticker.asp">
<input type="hidden" Value="1" name="update">
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Title: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="title" size="5" maxlength="15"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Width: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="width" size="3" maxlength="4"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Hight: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="hight" size="3" maxlength="4"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Table Color: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="tablecolor" size="5" maxlength="15"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Head Cell Color: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="HeadCellColor" size="5" maxlength="15"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Cell Color: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="CellColor" size="5" maxlength="15"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">2nd. Cell Color: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="AltCellColor" size="5" maxlength="15"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Head Font Color: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="HeadFontColor" size="5" maxlength="15"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Font Color: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="FontColor" size="5" maxlength="15"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Topic Showing: </font></td><td bgcolor="<%= strForumCellColor %>"><input type="text" name="show" size="5" maxlength="15"></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>">Show Detail: </font></td><td bgcolor="<%= strForumCellColor %>"><font face="<%= strDefaultFontFace %>" size="<%= strFooterFontSize %>" color="<%=strDefaultFontColor%>">Yes <input type="radio" name="detail" value="1" <%if Request.Form("detail")="1" then%>checked<%end if%>> No <input type="radio" name="detail" value="0" <%if not Request.Form("detail")="1" then%>checked<%end if%>></font></td></tr>
<tr><td bgcolor="<%= strForumCellColor %>" colspan="2" width="180"><input type="submit" Value="Submit"><input type="reset" Value="Reset"></td></tr>
</form>
</table>
</td>
<%if not Request.Form("update") = "1" then%>
<td width="43%" valign="top" bgcolor="<% =strForumCellColor %>" align="center"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>"><textarea rows="10" cols="35" name="code"><iframe src="<% =strForumURL %>ext_news.asp" marginwidth="0" marginheight="0" name="News" scrolling="no" border="0" frameborder="0" width="150" height="300"></iframe></textarea>
<%else%>
<td width="43%" valign="top" bgcolor="<% =strForumCellColor %>" align="center"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%=strDefaultFontColor%>"><textarea rows="10" cols="35" name="code"><iframe src="<% =strForumURL %>ext_news.asp?<%if Request.Form("TableColor") = "" then%>TableColor=<%else%>TableColor=<%= Request.Form("TableColor")%><%end if%><%if Request.Form("HeadCellColor") = "" then%>&HeadCellColor=<%else%>&HeadCellColor=<%= Request.Form("HeadCellColor")%><%end if%><%if Request.Form("CellColor") = "" then%>&CellColor=<%else%>&CellColor=<%= Request.Form("CellColor")%><%end if%><%if Request.Form("AltCellColor") = "" then%>&AltCellColor=<%else%>&AltCellColor=<%= Request.Form("AltCellColor")%><%end if%><%if Request.Form("HeadFontColor") = "" then%>&HeadFontColor=<%else%>&HeadFontColor=<%= Request.Form("HeadFontColor")%><%end if%><%if Request.Form("FontColor") = "" then%>&FontColor=<%else%>&FontColor=<%= Request.Form("FontColor")%><%end if%><%if Request.Form("show") = "" then%>&show=<%else%>&show=<%= Request.Form("show")%><%end if%><%if Request.Form("detail") = "1" then%>&detail=1<%else%>&detail=<%end if%><%if Request.Form("width") = "" then%>&width=<%else%>&width=<%= Request.Form("width")%><%end if%><%if Request.Form("hight") = "" then%>&hight=<%else%>&hight=<%= Request.Form("hight")%><%end if%><%if Request.Form("title") = "" then%>&title=<%else%>&title=<%= Request.Form("title")%><%end if%>" marginwidth="0" marginheight="0" name="News" scrolling="no" border="0" frameborder="0" <%if Request.Form("width") = "" then%>width="150"<%else%>width="<%=Request.Form("width")%>"<%end if%> <%if Request.Form("hight") = "" then%>height="270"<%else%>height="<%=Request.Form("hight")%>"<%end if%>></iframe></textarea>
<%end if%>
<br>If you would like to syndicate our news please feel free to use the above code.<%if Request.Form("update") = "1" then%><br><br>If the news ticker does not fit on your webpage, please adjust size of the iframe.<%end if%></font></td>
<%if not Request.Form("update") = "1" then%>
<td valign="top" bgcolor="<% =strForumCellColor %>" align="left"><iframe src="ext_news.asp" marginwidth="0" marginheight="0" name="News" scrolling="no" border="0" frameborder="0" width="150" height="300"></iframe></td>
<%else%>
<td valign="top" bgcolor="<% =strForumCellColor %>" align="left"><iframe src="ext_news.asp?<%if Request.Form("TableColor") = "" then%>TableColor=<%else%>TableColor=<%= Request.Form("TableColor")%><%end if%><%if Request.Form("HeadCellColor") = "" then%>&HeadCellColor=<%else%>&HeadCellColor=<%= Request.Form("HeadCellColor")%><%end if%><%if Request.Form("CellColor") = "" then%>&CellColor=<%else%>&CellColor=<%= Request.Form("CellColor")%><%end if%><%if Request.Form("AltCellColor") = "" then%>&AltCellColor=<%else%>&AltCellColor=<%= Request.Form("AltCellColor")%><%end if%><%if Request.Form("HeadFontColor") = "" then%>&HeadFontColor=<%else%>&HeadFontColor=<%= Request.Form("HeadFontColor")%><%end if%><%if Request.Form("FontColor") = "" then%>&FontColor=<%else%>&FontColor=<%= Request.Form("FontColor")%><%end if%><%if Request.Form("show") = "" then%>&show=<%else%>&show=<%= Request.Form("show")%><%end if%><%if Request.Form("detail") = "1" then%>&detail=1<%else%>&detail=<%end if%><%if Request.Form("width") = "" then%>&width=<%else%>&width=<%= Request.Form("width")%><%end if%><%if Request.Form("hight") = "" then%>&hight=<%else%>&hight=<%= Request.Form("hight")%><%end if%><%if Request.Form("title") = "" then%>&title=<%else%>&title=<%= Request.Form("title")%><%end if%>" marginwidth="0" marginheight="0" name="News" scrolling="no" border="0" frameborder="0" <%if Request.Form("width") = "" then%>width="150"<%else%>width="<%=Request.Form("width")%>"<%end if%> <%if Request.Form("hight") = "" then%>height="270"<%else%>height="<%=Request.Form("hight")%>"<%end if%>></iframe></td>
<%end if%>
</tr>
</table>

<!--#INCLUDE FILE="inc_footer.asp" -->