i'm using portal integration 3
this is my portal code:
sub Main()
dim lContentID, lCategoryID, sMode, sSearchTerm
lContentID = CInt(Request.QueryString("ContentID"))
lCategoryID = CInt(Request.QueryString("CategoryID"))
sMode = Request.QueryString("Mode")
sSearchTerm = Trim(Request.Form("txtSearch"))
if strCMSTitleDisplay = "1" then
Response.Write " <table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"All Forums","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,strCMSPageTitle,"") & " "& strCMSPageTitle &"<br /></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
end if
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" &vbCrLf &_
" <tr>" &vbCrLf
'###########################################################################################
'###########################################################################################
'LEFT NAVIGATION
if strCMSLeftNavDisplay = "1" then
Response.Write " <td width="""& strCMSLeftNavWidth &""" valign=""top"">" &vbCrLf
'call DisplayCategories(1, strCMSLeftNavWidth)
%>
<!--#INCLUDE FILE="inc_login.asp" -->
<%
Response.Write " </td>" & vbNewLine &_
" <td style=""width: "& TABLE_SPACER_WIDTH &"px""><img src="""& strImageUrl &"clear.gif"" width="""& TABLE_SPACER_WIDTH &""" height=""1""></td>" & vbNewLine
end if
'###########################################################################################
'###########################################################################################
'###########################################################################################
'CENTRE CONTENT
Response.Write " <td width=""100%"" valign=""top"">"
if lContentID > 0 and lCategoryID > 0 then
call DisplayContentItem(lContentID, lCategoryID)
elseif lCategoryID > 0 then
call ListCategoryItems(lCategoryID)
elseif lContentID > 0 then
call DisplayContentItem(lContentID, "")
elseif Request.Form("Method_Type") = "Search" then
call SearchResults(sSearchTerm)
else 'must be home page so show default text
if IsNumeric(strCMSDefaultCID) then
call DisplayContentItem(strCMSDefaultCID, "")
%><!--#INCLUDE FILE="includes/virus_scan.asp" -->
<%
call DisplayContent (0, 0, 2, 3, 0, 10, 200, 0, 0, 1, 1, 0, "10 B#224;i M#7899;i", 420, "topic.asp")
else
call NoContent()
end if
end if
Response.Write " </td>"
'###########################################################################################
'###########################################################################################
'###########################################################################################
'RIGHT NAVIGATION
if strCMSRightNavDisplay = "1" then
Response.Write " <td style=""width: "& TABLE_SPACER_WIDTH &"px""><img src="""& strImageUrl &"clear.gif"" width="""& TABLE_SPACER_WIDTH &""" height=""1""></td>" & vbNewLine &_
" <td width="""& strCMSRightNavWidth &""" valign=""top"">" &vbCrLf
if strCMSLMInstalled = "1" then call DisplayLinks(strCMSRightNavWidth)
if strCMSEnableSearch = "1" then
call DisplaySearch(strCMSRightNavWidth)
call DisplayForumSearch(strCMSRightNavWidth)
end if
call DisplayCategories(0, strCMSRightNavWidth)
%>
<!--#INCLUDE FILE="includes/member_spotlight.asp" -->
<!--#INCLUDE FILE="includes/inc_top_posters.asp" -->
<%
Response.Write " </td>"
end if
'###########################################################################################
Response.Write " </tr>" &vbCrLf &_
" </table>"
call WriteFooter()
end sub
The cal_default.asp is the page to display the event calendar.
when i insert the code at right navigation and i'm ended up with an error
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/news/cal_functions.asp, line 12
Sub DrawMonth(dateToDraw, enableHiLite, enableArrows, enableYearDisplay)
Have you ever do have this problem occur please advise me. Thanks