| Author |
 Topic  |
|
|
mtercek
New Member
56 Posts |
 Posted - 09 August 2005 : 15:27:35
|
When I post an event and then click on that event the text is displayed in the right border instead of the main cell.
Difficult to explain but if I could just show someone savy I know they could tell me what I need to do.
I can't post a print screen to this forum. Would someone allow me to email you a screen shot of my problem? It would then be very clear what I mean.
Please let me know if you are willing to help. I have to demo this soon and I need to get the bug out.
This is an intranet so I can't just send a link to the BB.
thanks,
Marilyn
|
|
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 09 August 2005 : 19:26:19
|
Which Calendar Mod do you have installed .. non-recurring or recurring? I've got the non-recurring one and here is an extract from my sub GetFirst() @lines 886 in my topic.asp: ' End of Code added for Full Moderation
Response.Write " <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td valign=""top"" height=""100%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"" id=""msg"">"
if isevent="1" then
Response.Write "<DIV style=""float:left"">" & vbnewline
DrawMonth dateHolder, 1, 0, 1
Response.Write "</DIV>" & vbnewline & _
"<B>" & ChkString(Topic_Subject,"title") & "<BR />" & vbnewline & _
FormatDateTime(dateHolder, vbLongDate) & "</B><BR /><BR />" & vbnewline
end if
if Request.QueryString("SearchTerms") <> "" then
Response.Write SearchHiLite(formatStr(Topic_Message))
else
Response.Write formatStr(Topic_Message)
end if
Response.Write "</span id=""msg""></font></td>" & vbNewLine
which controls the positioning of the calendar box. Hope this helps. |
 |
|
|
mtercek
New Member
56 Posts |
Posted - 10 August 2005 : 09:13:07
|
Mine is reoccuring. Thanks very much for responding.
The calendar positions correctly it's just the content gets placed in a border. |
Edited by - mtercek on 10 August 2005 09:16:50 |
|
|
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 10 August 2005 : 09:44:55
|
| Is your code any different to what I have above? |
|
|
|
mtercek
New Member
56 Posts |
Posted - 10 August 2005 : 10:13:57
|
Yes, here is the section from my topic.asp:
' End of Code added for Full Moderation
Response.Write " <hr></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine
' " <td valign=""top"" height=""100%""><span class=""textID"" id=""msg"">"
If IsEvent = "1" Then
%> <!-- #include file="cal_topic.asp" --> <%
End If
'if Request.QueryString("SearchTerms") <> "" then
'Response.Write SearchHiLite(formatStr(Topic_Message))
'else
'Response.Write formatStr(Topic_Message)
'end if
' Response.Write "</span id=""msg""></td>" & vbNewLine & _
See anything? I know my problem has to be with a td or tr.
thanks!
|
|
|
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 10 August 2005 : 10:18:24
|
| What does the code in your cal_topic.asp look like. |
|
|
|
mtercek
New Member
56 Posts |
Posted - 10 August 2005 : 10:26:56
|
Here's all the code from cal_topic:
<LINK rel="stylesheet" href="cal_style.asp" type="text/css">
<%
Response.Write "<TABLE border=""0"" cellspacing="""" cellpadding=""2""><TR><TD> vAlign=""top"">" & vbnewline
DrawMonthTopic(Topic_ID)
Response.Write "</TD> <TD> vAlign=""top"">" & vbnewline
Response.Write " <FONT size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><B>" & Topic_Subject & "</B></FONT>" & vbnewline
Response.Write "<FONT size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbnewline
strSql = "SELECT EVENT_DATE FROM " & strTablePrefix & "CAL_EVENTS " & _
"WHERE TOPIC_ID = " & Topic_ID & " " & _
"GROUP BY EVENT_DATE " & _
"ORDER BY EVENT_DATE Asc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open StrSql, My_conn
If rs.EOF then
Response.Write "No Dates. "
Else Do while not rs.EOF
Event_Date = StrToDate(rs("EVENT_DATE"))
If CurrentMonth = Month(Event_Date) and CurrentYear = Year(Event_Date) then
blnNewMonth = FALSE
Else
blnNewMonth = TRUE
CurrentMonth = Month(Event_Date)
CurrentYear = Year(Event_Date)
End If
If blnNewMonth Then
Response.Write vbNewLine & " <BR/>" & Year(Event_Date) & " " & MonthName(Month(Event_Date)) & " "
End If
If not blnNewMonth then Response.Write ", "
Response.Write Day(Event_Date)
rs.MoveNext
Loop End If
rs.close
set rs = nothing
Response.Write "</FONT></TR></TABLE><BR/>" & vbNewLine
%>
Sorry to post so many lines but I'm not sure which we need to look at.
thanks again.
|
|
|
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 10 August 2005 : 10:32:47
|
What happens if you uncomment these lines:If IsEvent = "1" Then
%> <!-- #include file="cal_topic.asp" --> <%
End If
'if Request.QueryString("SearchTerms") <> "" then
'Response.Write SearchHiLite(formatStr(Topic_Message))
'else
'Response.Write formatStr(Topic_Message)
'end if
' Response.Write "</span id=""msg""></td>" & vbNewLine & _
|
|
|
|
mtercek
New Member
56 Posts |
Posted - 10 August 2005 : 11:38:05
|
I get this error message now when clicking on the event:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/forum/topic.asp, line 1046
'################################################
|
|
|
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 10 August 2005 : 12:20:19
|
| You might have to remove the & _ from the last line in red above if the line of '##### starts directly after it? |
|
|
|
mtercek
New Member
56 Posts |
Posted - 10 August 2005 : 17:40:53
|
Yes, removing the & _ did fix the syntax error. I still have the problem of placing the text into the border.
thanks, anything else we can try?
|
|
|
| |
Topic |
|
Topic Locked
