| Author |
 Topic  |
|
|
RonTampaBay
New Member
USA
59 Posts |
 Posted - 30 September 2003 : 11:34:03
|
Hi,
Installed this mod and it works fine except that the member id shows up as n/a in the news header.
Any ideas why the member id is not being picked up correctly? |
 |
|
|
OneWayMule
Dev. Team Member & Support Moderator
Austria
4969 Posts |
|
|
RonTampaBay
New Member
USA
59 Posts |
Posted - 30 September 2003 : 16:11:46
|
Hi,
I got this at SnitzBitz. I kind of thought they were directly linked with this site. Should I just stick to this site?
The link to the html page is:
http://www.korgstudios.com/forum/default.asp
the inc_news_body.asp text follows:
<%
on error resume next
set news_config = My_Conn.execute("select * from "& strTablePrefix & "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 "& strTablePrefix & "NEWS,"& strTablePrefix & "MEMBERS where "& strTablePrefix & "NEWS.member_id = "& strTablePrefix & "MEMBERS.member_id order by n_date desc limit "&strNewsItems
else
sqlstr = "select top "&strNewsItems&" n_text,n_date,m_name from "& strTablePrefix & "NEWS,"& strTablePrefix & "MEMBERS where "& strTablePrefix & "NEWS.member_id = "& strTablePrefix & "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))
strDate = trim(objrec.fields("n_date"))
cmdate2 = CStr(left(objrec.fields("n_date"),8))
strDate2 = trim(objrec.fields("n_date"))
response.write"<TR><td bordercolor=""Black"" align=center bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"&STRFORUMTITLE&" Forum News!</font></b></td></tr>"
response.write"<TR><td bordercolor=""Black"" align=center bgcolor=""" & strCategoryCellColor & """ valign=""top""><font face=""" & strCategoryFontColor & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Date:"&cstr(left(StrToDate(strDate),instr(StrToDate(strDate)," ")))&"</font></td></tr>"
Do While not objRec.EOF
if cmdate2 = cmdate then
else
intStrTrim = Instr(StrToDate(objrec.fields("n_date"))," ")
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:"&cstr(left(StrToDate(objrec.fields("n_date")),intStrTrim))&"</font></td></tr>"
end if
response.write"<TR><td bordercolor=""Black"" align=""center"" bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strCategoryFontColor & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>By:"& objRec("m_name") &" -- "&FormatStr(objRec.fields("n_text"))&" -"& chkTime(objrec.fields("n_date")) &"</font></td></tr>"
objrec.movenext
cmdate2 = CStr(left(objrec.fields("n_date"),8))
strDate2 = trim(objrec.fields("n_date"))
loop
objrec.close
objRec = Nothing
response.write"</table><BR>"
end if
%>
Thanks for your help!!
|
|
Edited by - RonTampaBay on 30 September 2003 17:12:37 |
 |
|
|
RonTampaBay
New Member
USA
59 Posts |
Posted - 01 October 2003 : 13:48:53
|
| Hello? |
|
|
|
|
RonTampaBay
New Member
USA
59 Posts |
Posted - 02 October 2003 : 19:03:14
|
| Anyone? |
|
|
|
|
Cailean
New Member
Canada
75 Posts |
Posted - 31 October 2003 : 21:04:33
|
| Ron, I just installed this MOD and I just get "admin" (the super-admin) as the member id even if another admin makes the news post. |
|
|
| |
Topic |
|
Topic Locked
