hi i just wrote some simple code for a menu system. It looks straight forward and i cant seem to spot the error. Please help
heres the code:
<%@ LANGUAGE=VBSCRIPT %>
<% Option Explicit %>
<% Response.Buffer = True %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>P josiah newsagents</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<%
Dim Menuid
'Get value from the query string
Menuid = Request.QueryString("Menuid"
%>
</HEAD>
<BODY>
<TABLE Border="0">
<TR WIDTH="760" HEIGHT="40">
<TD>
<CENTER>title</CENTER>
</TD>
</TR>
<TR WIDTH="760" HEIGHT="40">
<TD>
<A HREF="index.asp?Menuid=nc" ><IMG SRC="menuimages/nc.jpg" ALT="New Clients"></A>
</TD>
<TD>
<A HREF="index.asp?Menuid=cc" ><IMG SRC="menuimages/cc.jpg" ALT="Current Clients"></A>
</TD>
<TD>
<A HREF="index.asp?Menuid=cu" ><IMG SRC="menuimages/cu.jpg" ALT="Contact Us"></A>
</TD>
<TD>
<A HREF="index.asp?Menuid=sm" ><IMG SRC="menuimages/sm.jpg" ALT="Site Map"></A>
</TD>
<TD>
<A HREF="index.asp?Menuid=hm" ><IMG SRC="menuimages/home.jpg" ALT="Home"></A>
</TD>
</TR>
<%
Select Case Menuid
case "nc"
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("<A HREF="serv.asp" TARGET="main"><IMG SRC="menuimages/serv.jpg" ALT="Services"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="st.asp" TARGET="main"><IMG SRC="menuimages/st.jpg" ALT="Search Titles"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="ri.asp" TARGET="main"><IMG SRC="menuimages/ri.jpg" ALT="Register Interest"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="home.asp" TARGET="main"><IMG SRC="menuimages/home.jpg" ALT="Home"></A>"
Response.Write("</TD>"
Response.Write("</TR>"
case "cc"
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("<A HREF="register.asp" TARGET="main"><IMG SRC="menuimages/reg.jpg" ALT="Register"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="login.asp" TARGET="main"><IMG SRC="menuimages/login.jpg" ALT="logon"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="home.asp" TARGET="main"><IMG SRC="menuimages/home.jpg" ALT="Home"></A>"
Response.Write("</TD>"
Response.Write("</TR>"
case "cu"
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("<A HREF="email.asp" TARGET="main"><IMG SRC="menuimages/email.jpg" ALT="Email Us"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="postal.asp" TARGET="main"><IMG SRC="menuimages/main.jpg" ALT="Postal address"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="map.asp" TARGET="main"><IMG SRC="menuimages/map.jpg" ALT="Map"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="home.asp" TARGET="main"><IMG SRC="menuimages/home.jpg" ALT="Home"></A>"
Response.Write("</TD>"
Response.Write("</TR>"
case "sm"
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("<A HREF="sitemap.asp" TARGET="main"><IMG SRC="menuimages/map.jpg" ALT="Site Map"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="home.asp" TARGET="main"><IMG SRC="menuimages/home.jpg" ALT="Home"></A>"
Response.Write("</TD>"
Response.Write("</TR>"
case Else
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("Plaese make a selection from the main navigation above."
Response.Write("</TD>"
Response.Write("</TR>"
End Select
%>
</TABLE>
<IFRAME SRC="main.asp" NAME="main" WIDTH="760" HEIGHT="300" FRAMEBORDER="0">
</BODY>
</HTML>
heres the code:
<%@ LANGUAGE=VBSCRIPT %>
<% Option Explicit %>
<% Response.Buffer = True %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>P josiah newsagents</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<%
Dim Menuid
'Get value from the query string
Menuid = Request.QueryString("Menuid"
%>
</HEAD>
<BODY>
<TABLE Border="0">
<TR WIDTH="760" HEIGHT="40">
<TD>
<CENTER>title</CENTER>
</TD>
</TR>
<TR WIDTH="760" HEIGHT="40">
<TD>
<A HREF="index.asp?Menuid=nc" ><IMG SRC="menuimages/nc.jpg" ALT="New Clients"></A>
</TD>
<TD>
<A HREF="index.asp?Menuid=cc" ><IMG SRC="menuimages/cc.jpg" ALT="Current Clients"></A>
</TD>
<TD>
<A HREF="index.asp?Menuid=cu" ><IMG SRC="menuimages/cu.jpg" ALT="Contact Us"></A>
</TD>
<TD>
<A HREF="index.asp?Menuid=sm" ><IMG SRC="menuimages/sm.jpg" ALT="Site Map"></A>
</TD>
<TD>
<A HREF="index.asp?Menuid=hm" ><IMG SRC="menuimages/home.jpg" ALT="Home"></A>
</TD>
</TR>
<%
Select Case Menuid
case "nc"
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("<A HREF="serv.asp" TARGET="main"><IMG SRC="menuimages/serv.jpg" ALT="Services"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="st.asp" TARGET="main"><IMG SRC="menuimages/st.jpg" ALT="Search Titles"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="ri.asp" TARGET="main"><IMG SRC="menuimages/ri.jpg" ALT="Register Interest"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="home.asp" TARGET="main"><IMG SRC="menuimages/home.jpg" ALT="Home"></A>"
Response.Write("</TD>"
Response.Write("</TR>"
case "cc"
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("<A HREF="register.asp" TARGET="main"><IMG SRC="menuimages/reg.jpg" ALT="Register"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="login.asp" TARGET="main"><IMG SRC="menuimages/login.jpg" ALT="logon"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="home.asp" TARGET="main"><IMG SRC="menuimages/home.jpg" ALT="Home"></A>"
Response.Write("</TD>"
Response.Write("</TR>"
case "cu"
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("<A HREF="email.asp" TARGET="main"><IMG SRC="menuimages/email.jpg" ALT="Email Us"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="postal.asp" TARGET="main"><IMG SRC="menuimages/main.jpg" ALT="Postal address"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="map.asp" TARGET="main"><IMG SRC="menuimages/map.jpg" ALT="Map"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="home.asp" TARGET="main"><IMG SRC="menuimages/home.jpg" ALT="Home"></A>"
Response.Write("</TD>"
Response.Write("</TR>"
case "sm"
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("<A HREF="sitemap.asp" TARGET="main"><IMG SRC="menuimages/map.jpg" ALT="Site Map"></A>"
Response.Write("</TD>"
Response.Write("<TD>"
Response.Write("<A HREF="home.asp" TARGET="main"><IMG SRC="menuimages/home.jpg" ALT="Home"></A>"
Response.Write("</TD>"
Response.Write("</TR>"
case Else
Response.Write("<TR WIDTH="760" HEIGHT="40">"
Response.Write("<TD>"
Response.Write("Plaese make a selection from the main navigation above."
Response.Write("</TD>"
Response.Write("</TR>"
End Select
%>
</TABLE>
<IFRAME SRC="main.asp" NAME="main" WIDTH="760" HEIGHT="300" FRAMEBORDER="0">
</BODY>
</HTML>