KUN KODEN VISES

jeg har hentet et lille shoppingsystem ned fra nettet som er kodet i asp.

problemet er nå jeg inlæser siden som hedder:
web-cart_default.asp er det kun koden der bliver vist, er der en linie man skal fjerne får at den viser selve hjemmesiden.

her er koden:



<!-- #INCLUDE FILE=\"adovbs.inc\" -->
<%
\' Get Current Category
cat = TRIM( Request( \"cat\" ) )
IF cat = \"\" THEN cat = \"Home\"

dim openstr
dim objconn

openstr = \"driver={Microsoft Access Driver (*.mdb)};\" & _
          \"dbq=\" & Server.MapPath(\"db/catalogDB.mdb\")
set objconn = server.CreateObject(\"adodb.connection\")
objconn.Open openstr

%>
<html>
<head>
<title>Web-Cart</title>

<style>
a:link{color:darkblue;}
a:visited{color:darkblue;}
a:hover{color:red; }
a{text-decoration:none}
font{font-family:verdana; font-size:\"11\";}
tr{font-family:verdana; font-size:\"12\";}
</style>

</head>
<body link=\"#ff4040\" vtext=\"lightred\" bgcolor=\"#ffffff\">
<center>

<table width=640 border=0 bgcolor=\"#ffffff\"
cellspacing=0 cellpadding=0>
<tr>
    <td>
    </td>
    <td align=right valign=\"bottom\">
    <a href=\"sessionCart.asp\">view shopping cart</a>
    </td>
</tr>
<tr>
    <td colspan=2>
    <hr width=\"640\">
    </td>
</tr>
</table>


<table width=640 border=0 bgcolor=\"#ffffff\"
cellpadding=0 cellspacing=0>
<tr><td valign=\"top\">

<table cellpadding=0 cellspacing=0 border=0>
<tr>
    <td>
    &nbsp;
    </td>
</tr>
<tr>
    <td valign=\"bottom\">
    </td>
</tr>
<tr>
    <td>
    <table width=\"200\" cellpadding=4 cellspacing=0
    bgcolor=\"#e0e0e0\" border=1>
    <tr>
        <td>
        <font size=\"3\"><b>
        <!-- #INCLUDE FILE=\"CatList.asp\" -->
        </b></font>
        </td>
    </tr>
    </table>
    </td>
</tr>
</table>

</td><td valign=\"top\">
<% IF cat = \"Home\" THEN %>
<!-- #INCLUDE FILE=\"intro.asp\" -->
<% ELSE %>
<!-- #INCLUDE FILE=\"ProductList.asp\" -->
<% END IF %>

<%

objconn.Close
set objconn = nothing

%>

</td></tr>
</table>
<br>
<hr width=640>

</center>
</body>
</hmtl>