cfbeginner
MIS
HI there,
I'm new to web development, I've a default.asp which contain a frame that calls the navigator.asp.
code for default.asp
<html>
<HEAD><TITLE><%=title%></TITLE></HEAD>
<frameset rows="114,*">
<frame src="navigator.asp"
name="navbar"
marginwidth=0
marginheight=0
scrolling="no"
noresize
frameborder="no">
<frame src="<%=botsrc%>"
name="bottom"
frameborder="no">
</frameset>
</html>
Naviagtor.asp code
<%@ Language=VBScript %>
<html>
<head>
<link rel="stylesheet" type="text/css" href="top.css">
<script LANGUAGE="javascript" src="Selects.js">
</script>
</head>
<%
dim arrCategories
dim arrDocTypes
dim oIDEV
dim nRows
dim nRows2
Set oIDEV = CreateObject("iDev.clsiDev"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
%>
<body onload="formSelects=document.frmSearch;NewCategory();">
<!--img src="images/green_hor.bmp" class="topimg"><img src="images/green_ver.bmp" class="leftimg"><img src="images/green_hor.bmp" class="botimg"-->
<a href="../idev" target="_top">
<img name="logo" src="images/Logo_28B.bmp" border="0" class="logo" onmouseover="document.logo.src='images/Logo_B.bmp';" onmouseout="document.logo.src='images/Logo_28B.bmp';">
</a>
<a href=" target="newWindow">
<img name="CClogo" src="images/ClaricaConnects.gif" class="CClogo" onmouseover="document.CClogo.src='images/ClaricaConnects.gif';" onmouseout="document.CClogo.src='images/ClaricaConnects.gif';">
</a>
<%
dim name
dim arrName
dim oSimon
Set oSimon = CreateObject("SimonLookup.clsUsers"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
name = oSimon.GetName(Request.ServerVariables("AUTH_USER"
)
arrName = split(name, " "![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
%>
<span class="WelcomeText">
Welcome <%=arrName(0)%>
</span>
<form method="get" action="search.asp" target="bottom" id="frmSearch" name="frmSearch">
<table class="keyword" cellspacing="0" cellpadding="1">
<tr>
<td width="120" align="right" class="whiteText">
Keywords:
</td>
<td align="left" colspan="3">
<input id="keyword" name="keyword" size="61" class>
</td>
</tr>
<tr>
<td width="120" align="right" class="whiteText">
Category:
</td><td align="left">
<select style="WIDTH: 171px" id="CatID" name="CatID" onChange="NewCategory();">
<option selected SC="-1">ALL</option>
<%
nRows= oIDEV.ListHeadings("Category", arrCategories)-1
for i=0 to nRows
Response.Write("<OPTION SC='" & i & "' value='" & arrCategories(1,i) & "'>" & arrCategories(0,i))
next%>
</select>
</td>
<td class="whiteText">
Doc Type:
</td>
<td align="left">
<select style="WIDTH: 149px;" name="DocTypeID" id="DocTypeID">
<option selected>ALL</option>
<%
nRows = oIDEV.ListHeadings("DocType", arrDocTypes, "name <> 'news'"
-1
for i=0 to nRows
Response.Write("<OPTION value='" & arrDocTypes(1,i) & "'>"&arrDocTypes(0,i)&"</OPTION>"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
next
%>
</select>
</td>
</tr>
<tr>
<td width="120" align="right" class="whiteText">
SubCategory:
</td>
<td>
<select class="SubCat" style="display:block" disabled id="SubCatX" name="SubCatX">
<option selected>ALL</option>
</select>
<%
for i=0 to nRows
%>
<select class="SubCat" id="SubCat<%=i%>" name="SubCat<%=i%>" onChange="NewSubCategory();">
<option selected value>ALL</option>
<% nRows2= oIDEV.ListHeadings("SubCategory", arrSubCategories,"CatID='"&arrCategories(1,i)&"'"
-1
for j=0 to nRows2
Response.Write("<OPTION value='" & arrSubCategories(1,j) & "'>" & arrSubCategories(0,j) & "</OPTION>"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
next%>
</select>
<%
next
%>
</td>
<td>
</td>
<td>
<input type="submit" value="Search" id="btnGo" name="btnGo">
<input type="button" value="Clear" id="btnClear" name="btnClear" onclick="document.frmSearch.CatID.selectedIndex=0;document.frmSearch.DocTypeID.selectedIndex=0;document.frmSearch.keyword.value='';NewCategory();">
<input type="hidden" name="SubCatID" id="SubCatID" value="<%=subcatID%>">
<input type="hidden" name="sortBy" id="SortBy" value="Category">
</td>
</table>
</form>
<table class="botmenu" cellspacing="8">
<tr>
<td class="menuItem" bgcolor="#333366" name="feed" id="feed" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="#" onclick="this.href='mailto:ADHELP?subject=User%20Feedback%20for%20'+top.bottom.location.href;" onmouseout="this.href='#'" name="feedback" id="feedback">
Feedback
</a>
</td>
<!--td class="menuItem" bgcolor='#333366' name="add" id="add" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';"><a href=" target="bottom"> Clarica Connects</a></td-->
<%if oIDEV.isAdmin(Request.ServerVariables("AUTH_USER"
,2) then%>
<td class="menuItem" bgcolor="#333366" name="adm" id="adm" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="Admin.asp" target="bottom">
Admin
</a>
</td>
<%
end if
if oIDEV.isAdmin(Request.ServerVariables("AUTH_USER"
,1) then
%>
<td class="menuItem" bgcolor="#333366" name="add" id="add" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="editDoc.asp" target="bottom">
Add Doc
</a>
</td>
<%end if%>
<td class="menuItem" bgcolor="#333366" name="doc" id="doc" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="baseaddr.asp" target="bottom">
address
</a>
</td>
<td class="menuItem" bgcolor="#333366" name="doc" id="doc" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="doc/default.asp" target="bottom">
Document
</a>
</td>
</tr>
</table>
</body>
</html>
All my onmouseover buttons are not appearing in my browser any more, but I can see them on my Quick view on Interdev.
Please help! Thanks
I'm new to web development, I've a default.asp which contain a frame that calls the navigator.asp.
code for default.asp
<html>
<HEAD><TITLE><%=title%></TITLE></HEAD>
<frameset rows="114,*">
<frame src="navigator.asp"
name="navbar"
marginwidth=0
marginheight=0
scrolling="no"
noresize
frameborder="no">
<frame src="<%=botsrc%>"
name="bottom"
frameborder="no">
</frameset>
</html>
Naviagtor.asp code
<%@ Language=VBScript %>
<html>
<head>
<link rel="stylesheet" type="text/css" href="top.css">
<script LANGUAGE="javascript" src="Selects.js">
</script>
</head>
<%
dim arrCategories
dim arrDocTypes
dim oIDEV
dim nRows
dim nRows2
Set oIDEV = CreateObject("iDev.clsiDev"
%>
<body onload="formSelects=document.frmSearch;NewCategory();">
<!--img src="images/green_hor.bmp" class="topimg"><img src="images/green_ver.bmp" class="leftimg"><img src="images/green_hor.bmp" class="botimg"-->
<a href="../idev" target="_top">
<img name="logo" src="images/Logo_28B.bmp" border="0" class="logo" onmouseover="document.logo.src='images/Logo_B.bmp';" onmouseout="document.logo.src='images/Logo_28B.bmp';">
</a>
<a href=" target="newWindow">
<img name="CClogo" src="images/ClaricaConnects.gif" class="CClogo" onmouseover="document.CClogo.src='images/ClaricaConnects.gif';" onmouseout="document.CClogo.src='images/ClaricaConnects.gif';">
</a>
<%
dim name
dim arrName
dim oSimon
Set oSimon = CreateObject("SimonLookup.clsUsers"
name = oSimon.GetName(Request.ServerVariables("AUTH_USER"
arrName = split(name, " "
%>
<span class="WelcomeText">
Welcome <%=arrName(0)%>
</span>
<form method="get" action="search.asp" target="bottom" id="frmSearch" name="frmSearch">
<table class="keyword" cellspacing="0" cellpadding="1">
<tr>
<td width="120" align="right" class="whiteText">
Keywords:
</td>
<td align="left" colspan="3">
<input id="keyword" name="keyword" size="61" class>
</td>
</tr>
<tr>
<td width="120" align="right" class="whiteText">
Category:
</td><td align="left">
<select style="WIDTH: 171px" id="CatID" name="CatID" onChange="NewCategory();">
<option selected SC="-1">ALL</option>
<%
nRows= oIDEV.ListHeadings("Category", arrCategories)-1
for i=0 to nRows
Response.Write("<OPTION SC='" & i & "' value='" & arrCategories(1,i) & "'>" & arrCategories(0,i))
next%>
</select>
</td>
<td class="whiteText">
Doc Type:
</td>
<td align="left">
<select style="WIDTH: 149px;" name="DocTypeID" id="DocTypeID">
<option selected>ALL</option>
<%
nRows = oIDEV.ListHeadings("DocType", arrDocTypes, "name <> 'news'"
for i=0 to nRows
Response.Write("<OPTION value='" & arrDocTypes(1,i) & "'>"&arrDocTypes(0,i)&"</OPTION>"
next
%>
</select>
</td>
</tr>
<tr>
<td width="120" align="right" class="whiteText">
SubCategory:
</td>
<td>
<select class="SubCat" style="display:block" disabled id="SubCatX" name="SubCatX">
<option selected>ALL</option>
</select>
<%
for i=0 to nRows
%>
<select class="SubCat" id="SubCat<%=i%>" name="SubCat<%=i%>" onChange="NewSubCategory();">
<option selected value>ALL</option>
<% nRows2= oIDEV.ListHeadings("SubCategory", arrSubCategories,"CatID='"&arrCategories(1,i)&"'"
for j=0 to nRows2
Response.Write("<OPTION value='" & arrSubCategories(1,j) & "'>" & arrSubCategories(0,j) & "</OPTION>"
next%>
</select>
<%
next
%>
</td>
<td>
</td>
<td>
<input type="submit" value="Search" id="btnGo" name="btnGo">
<input type="button" value="Clear" id="btnClear" name="btnClear" onclick="document.frmSearch.CatID.selectedIndex=0;document.frmSearch.DocTypeID.selectedIndex=0;document.frmSearch.keyword.value='';NewCategory();">
<input type="hidden" name="SubCatID" id="SubCatID" value="<%=subcatID%>">
<input type="hidden" name="sortBy" id="SortBy" value="Category">
</td>
</table>
</form>
<table class="botmenu" cellspacing="8">
<tr>
<td class="menuItem" bgcolor="#333366" name="feed" id="feed" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="#" onclick="this.href='mailto:ADHELP?subject=User%20Feedback%20for%20'+top.bottom.location.href;" onmouseout="this.href='#'" name="feedback" id="feedback">
Feedback
</a>
</td>
<!--td class="menuItem" bgcolor='#333366' name="add" id="add" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';"><a href=" target="bottom"> Clarica Connects</a></td-->
<%if oIDEV.isAdmin(Request.ServerVariables("AUTH_USER"
<td class="menuItem" bgcolor="#333366" name="adm" id="adm" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="Admin.asp" target="bottom">
Admin
</a>
</td>
<%
end if
if oIDEV.isAdmin(Request.ServerVariables("AUTH_USER"
%>
<td class="menuItem" bgcolor="#333366" name="add" id="add" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="editDoc.asp" target="bottom">
Add Doc
</a>
</td>
<%end if%>
<td class="menuItem" bgcolor="#333366" name="doc" id="doc" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="baseaddr.asp" target="bottom">
address
</a>
</td>
<td class="menuItem" bgcolor="#333366" name="doc" id="doc" onmouseover="this.bgColor='#99CC66';" onmouseout="this.bgColor='#333366';">
<a href="doc/default.asp" target="bottom">
Document
</a>
</td>
</tr>
</table>
</body>
</html>
All my onmouseover buttons are not appearing in my browser any more, but I can see them on my Quick view on Interdev.
Please help! Thanks