The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Hey guys, I added a photo gallery and the following code will post the link to the default.asp, however with no icon.
Here is the code:
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) &_
"""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """ size=""+1""><b>Photo Album</b></font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td rowspan=""" & vbNewline & _
" 1"& vbNewline & _
""" bgcolor=""" & strForumCellColor & """> </td>"& vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""6"">" & vbNewline & _
" <font align=left face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""photo_album.asp"">Post your pictures here!</a></font>" & vbNewline & _
" </td>" & vbNewline & _
" </tr>" & vbNewline
%>
I also noticed that this code here is what adds the icon:
" " & getCurrentIcon(strIconFolderNew,"New Posts","align=""absmiddle""") &
I am unable to get the icon to display in the left column and can not get this to work. Any one have a suggestion?
TIA
Here is the code:
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) &_
"""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """ size=""+1""><b>Photo Album</b></font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td rowspan=""" & vbNewline & _
" 1"& vbNewline & _
""" bgcolor=""" & strForumCellColor & """> </td>"& vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""6"">" & vbNewline & _
" <font align=left face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""photo_album.asp"">Post your pictures here!</a></font>" & vbNewline & _
" </td>" & vbNewline & _
" </tr>" & vbNewline
%>
I also noticed that this code here is what adds the icon:
" " & getCurrentIcon(strIconFolderNew,"New Posts","align=""absmiddle""") &
I am unable to get the icon to display in the left column and can not get this to work. Any one have a suggestion?
TIA
Posted
Code:
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) & """>" & vbNewline & _
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """ size=""+1""><b>Photo Album</b></font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td rowspan=""1"" bgcolor=""" & strForumCellColor & """>" & getCurrentIcon(strIconFolderNew,"New Posts","align=""absmiddle""") & "</td>"& vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""6"">" & vbNewline & _
" <font align=left face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""photo_album.asp"">Post your pictures here!</a></font>" & vbNewline & _
" </td>" & vbNewline & _
" </tr>" & vbNewline
%>
i think you are after somthing like that...i havent tested it and i have cleaned up the code slightly