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"%>
<!--#include file="MX_Menu.inc.asp" -->
<!--#include file="connSupport.asp" -->
<%
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....
