| Author |
 Topic  |
|
kolucoms6
Average Member
845 Posts |
 Posted - 08 April 2007 : 04:01:58
|
| Its around 6 MB file I guess .. This contains entire Forum ? Anyways Downloading now.. :-) |
 |
|
|
Hermes
Junior Member
Croatia
113 Posts |
|
|
daveo
New Member
97 Posts |
|
|
kolucoms6
Average Member
845 Posts |
Posted - 08 April 2007 : 10:51:41
|
:-)
Thnx for the Link but we have it ...
Can u embed URL in it(news) if required ? |
|
|
|
Hermes
Junior Member
Croatia
113 Posts |
|
|
daveo
New Member
97 Posts |
|
|
Hermes
Junior Member
Croatia
113 Posts |
|
|
kolucoms6
Average Member
845 Posts |
Posted - 08 April 2007 : 14:06:11
|
Working ??
How ?? |
|
|
|
Hermes
Junior Member
Croatia
113 Posts |
|
|
kolucoms6
Average Member
845 Posts |
Posted - 08 April 2007 : 15:51:38
|
| Can you kindly send me the TXT of INC_NEWS_BODY ? |
|
|
|
daveo
New Member
97 Posts |
Posted - 08 April 2007 : 15:56:07
|
I am not sure this is how you wanted it - It is in the zip, but here it is.
<%
on error resume next
set news_config = My_Conn.execute("select * from "& strMemberTablePrefix & "News_Config")
strNewsState = cint(news_config("show_news"))
strNewsItems = cint(news_config("num_items"))
if strNewsItems =< 0 then
strNewsItems = 4
end if
if strNewsState = 1 then
Set objRec = Server.CreateObject ("ADODB.Recordset")
response.write "<table align=""center"" width=""75%"" border=""1"" cellspacing =""0"">"
dim i,cmdate,cmdate2
if strDBType = "mysql" then
sqlstr = "select n_text,n_date,m_name from "& strMemberTablePrefix & "NEWS,"& strMemberTablePrefix & "MEMBERS where "& strMemberTablePrefix & "NEWS.member_id = "& strMemberTablePrefix & "MEMBERS.member_id order by n_date desc limit "&strNewsItems
else
sqlstr = "select top "&strNewsItems&" n_text,n_date,m_name from "& strMemberTablePrefix & "NEWS,"& strMemberTablePrefix & "MEMBERS where "& strMemberTablePrefix & "NEWS.member_id = "& strMemberTablePrefix & "MEMBERS.member_id order by n_date desc"
end if
objRec.Open sqlstr, My_Conn
objrec.movefirst
cmdate = ""
cmdate = CStr(left(objrec.fields("n_date"),8))
cmdate2 = CStr(left(objrec.fields("n_date"),8))
response.write"<TR><td bordercolor=""Black"" align=center bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"&STRFORUMTITLE&" News!</font></b></td></tr>"
response.write"<TR><td bordercolor=""Black"" align=center bgcolor=""" & strCategoryCellColor & """ valign=""top""><font face=""" & strCategoryFontColor & """ size=""" & strdeafultFontSize & """ color=""" & strHeadFontColor & """>Date:"&chkDate(cmdate)&"</font></td></tr>"
Do While not objRec.EOF
if cmdate2 = cmdate then
else
cmdate = CStr(left(objrec.fields("n_date"),8))
response.write"<TR><td bordercolor=""Black"" align=center bgcolor=""" & strCategoryCellColor & """ valign=""top""><font face=""" & strCategoryFontColor & """ size=""" & strdefaultFontSize & """ color=""" & strHeadFontColor & """>Date:"&chkDate(cmdate)&"</font></td></tr>"
end if
response.write"<TR><td bordercolor=""Black"" align=""center"" bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strCategoryFontColor & """ size=""" & strHeaderFontSize & """ color=""" & strForumFontColor & """>"&FormatStr(objRec.fields("n_text"))&" " &"</font></td></tr>"
objrec.movenext
cmdate2 = CStr(left(objrec.fields("n_date"),8))
loop
objrec.close
objRec = Nothing
response.write"</table><BR>"
end if
%>
|
http://copdforum.portalone.us/ |
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 08 April 2007 : 16:27:02
|
| Still working ... Trying to find difference in old and new files... |
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 09 April 2007 : 18:37:10
|
NO FURTHER CHANGES REQUIRED:
************************************
You must write url in this manner:
Look up for Cnn Latest News
|
|
|
|
kolucoms6
Average Member
845 Posts |
Posted - 17 April 2007 : 18:19:10
|
Any way to Add image or an icon in News section ? |
|
|
|
Topic |
|
Topic Locked
