Disapearing scrollbars !!

**VegaLA** · 05-05-2005, 12:53 PM

Hi all,
I have recently changed the opening page of my website from frame based HTML to VBScript ASP and tested it locally and all worked fine, however having just moved it to the webserver the scrollbars for pages that have longer content have completly disapeared... is there a quick fix for this ? Is there some code I can add to the pages that require scrollbars so the dynamic data list displays properly ?

Thanks in advance,
Mitch..........

**Minaki** · 05-05-2005, 01:21 PM

Can you give us a link?

**VegaLA** · 05-05-2005, 01:47 PM

Unfortunatly not, since the file aare on our Intranet site but the code for the first page on the intranet site (after the user has logged on) is posted below. If you need anymore details please shout.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>




<%
Dim rstNews
Dim rstNews_numRows

Set rstNews = Server.CreateObject("ADODB.Recordset")
rstNews.ActiveConnection = MM_connSupport_STRING
rstNews.Source = "SELECT * FROM dbo.vwSplash"
rstNews.CursorType = 0
rstNews.CursorLocation = 2
rstNews.LockType = 1
rstNews.Open()

rstNews_numRows = 0
%>
<%
Dim rstMenu
Dim rstMenu_numRows

Set rstMenu = Server.CreateObject("ADODB.Recordset")
rstMenu.ActiveConnection = MM_connSupport_STRING
rstMenu.Source = "SELECT * FROM data.tblIntranet"
rstMenu.CursorType = 0
rstMenu.CursorLocation = 2
rstMenu.LockType = 1
rstMenu.Open()

rstMenu_numRows = 0
%>
<%
Dim rstBToday
Dim rstBToday_numRows

Set rstBToday = Server.CreateObject("ADODB.Recordset")
rstBToday.ActiveConnection = MM_connSupport_STRING
rstBToday.Source = "SELECT * FROM dbo.vwTodayBL ORDER BY Room ASC"
rstBToday.CursorType = 0
rstBToday.CursorLocation = 2
rstBToday.LockType = 1
rstBToday.Open()

rstBToday_numRows = 0
%>
<%
Dim rstVacation
Dim rstVacation_numRows

Set rstVacation = Server.CreateObject("ADODB.Recordset")
rstVacation.ActiveConnection = MM_connSupport_STRING
rstVacation.Source = "SELECT * FROM dbo.vwVacation ORDER BY FirstD ASC"
rstVacation.CursorType = 0
rstVacation.CursorLocation = 2
rstVacation.LockType = 1
rstVacation.Open()

rstVacation_numRows = 0
%>
<%
'CSSMenu1 Start
'
Set CSSMenu1 = new MX_Menu
CSSMenu1.Init "CSSMenu1"
CSSMenu1.setQuery rstMenu
CSSMenu1.setPK "IDInt"
CSSMenu1.setFK "ColumnC"
CSSMenu1.setNameField "PName"
CSSMenu1.setTitleField ""
'URL Type: Dynamic

CSSMenu1.setLinkField "Url"
CSSMenu1.setTargetField "Target"

'CSSMenu1 Layout
CSSMenu1.highlightCurrent true
CSSMenu1.setLevel -1
CSSMenu1.setLayout "vertical"
CSSMenu1.setSkin "modern_green"
CSSMenu1.setShowTimeout 100
CSSMenu1.setHideTimeout 400
CSSMenu1.setImgReplace false
'CSSMenu1 End
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rstNews_numRows = rstNews_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
rstBToday_numRows = rstBToday_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = 4
Repeat3__index = 0
rstVacation_numRows = rstVacation_numRows + Repeat3__numRows
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID

strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If

On Error Resume Next

If (nLCID > -1) Then
Session.LCID = nLCID
End If

If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime(str, nNamedFormat)
End If

If (nLCID > -1) Then
Session.LCID = oldLCID
End If

DoDateTime = strRet
End Function
</SCRIPT>
<html>
<head>
<link href="../includes/cssmenus/css/vertical.css" rel="stylesheet" type="text/css">
<title>Intranet</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script src="../includes/cssmenus/js-common/base.js" type="text/javascript" language="javascript"></script>
<script src="../includes/cssmenus/js-common/utility.js" type="text/javascript" language="javascript"></script>
<script src="../includes/cssmenus/js/cssmenus.js" type="text/javascript" language="javascript"></script>
<link href="../includes/cssmenus/skins/modern_green/menus.css" rel="stylesheet" type="text/css">
<link href="styles.css" rel="stylesheet" type="text/css">
</head>

<body background="mnback.jpg" scrolling="YES">
<table width="800" height="227" border="0" align="center">
<tr>
<td height="223" align="left" valign="top"><img src="intranetbar.jpg" width="800" height="40">
<table width="800" border="0" align="center">
<tr>
<td width="292" height="24"><strong><font color="A6CBA2" size="4">Logged
in :<font color="#000000"><%= Session("mm_username") %></font></font></strong></td>
<td width="144"> </td>
<td width="145"><strong><font color="A6CBA2" size="4">
<%
Dim clock
clock = Time
Response.Write(clock)
%>
</font></strong></td>
<td width="86"><strong><font color="A6CBA2" size="4">
<%
xDate = Date
Response.Write xDate
%>
</font></strong></td>
<td width="111"><strong><font color="A6CBA2" size="4"><a href="http://999.999.999.999/projsite/logout.do"><img src="logout.jpg" width="100" height="22" border="0"></a>
</font></strong></td>
</tr>
</table>
<table width="800" height="351" border="0">
<tr>
<td width="168" height="347" align="left" valign="top"> 
<%
'Dynamic CSS menu, Layout: vertical, Skin: modern_green
Response.write (CSSMenu1.render)
%>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<table width="180" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="v01.gif" width="180 height="33" alt=""></td>
</tr>
<tr>
<td background="v02.gif" width="18"></td>
<td width="144" align="left" valign="top" background="v03.gif">
<table width="139" border="0" align="left">
<%
While ((Repeat3__numRows <> 0) AND (NOT rstVacation.EOF))
%>
<tr>
<td width="133"><font color="A6CBA2"><%=(rstVacation.Fields.Item("FirstN ").Value)%></font></td>
</tr>
<tr>
<td><%=(rstVacation.Fields.Item("FirstD").Value) %> - <%=(rstVacation.Fields.Item("Return").Value)%></td>
</tr>
<tr>
<td> </td>
</tr>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
rstVacation.MoveNext()
Wend
%>

</table>
</td>
<td background="v04.gif" width="18"></td>
</tr>
<tr>
<td colspan="3"><img src="v05.gif" width="180" height="18" alt=""></td>
</tr>
</table>
<p> </p>
</td>
<td width="434" align="left" valign="top">
<%
While ((Repeat1__numRows <> 0) AND (NOT rstNews.EOF))
%>
<table width="400" border="0">
<tr>
<td width="476" height="113" align="left" valign="top"> <p><strong><font color="A6CBA2"><%=(rstNews.Fields.Item("SDate").Va lue)%></font></strong></p>
<p><font size="4"><%=(rstNews.Fields.Item("Comment").Value) %></font></p>
<p><%=(rstNews.Fields.Item("Image").Value)%></p></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rstNews.MoveNext()
Wend
%>
</td>
<td width="184" align="left" valign="top"><BR><BR><table width="160" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="01.gif" width="180 height="33" alt=""></td>
</tr>
<%
While ((Repeat2__numRows <> 0) AND (NOT rstBToday.EOF))
%>
<tr>
<td background="02.gif" width="9"></td>
<td width="162" align="left" valign="top" background="03.gif"><table width="160" height="94" border="0">
<tr>
<td width="160"><font color="A6CBA2"><strong><%=(rstBToday.Fields.Item(" UserN").Value)%></strong></font></td>
</tr>
<tr>
<td><%=(rstBToday.Fields.Item("Room").Value)%></td>
</tr>
<tr>
<td>Time: <strong><%= DoDateTime((rstBToday.Fields.Item("TimeS").Value), 4, -1) %> - <%=(rstBToday.Fields.Item("TimeF").Value)%></strong></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td background="04.gif" width="9"><p> </p>
<p> </p></td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rstBToday.MoveNext()
Wend
%>
<tr>
<td colspan="3"><img src="05.gif" width="180" height="16" alt=""></td>
</tr>
</table>
</td>
</tr>
</table>
<p></p></tr>
</table>
</body>
</html>
<%
rstNews.Close()
Set rstNews = Nothing
%>
<%
rstMenu.Close()
Set rstMenu = Nothing
%>
<%
rstBToday.Close()
Set rstBToday = Nothing
%>
<%
rstVacation.Close()
Set rstVacation = Nothing
%>

Thanks,
Mitch....