> For det første så peger linket ikke på en side på Internettet, men
> på din webserver. Prøv at skriv localhost i browseren og se hvad der sker.
ja men det er jo det der er problemet, så ser jeg jo min egen index side og
det var vel hans jeg skulle se for at se exmplet.
> Lad os se koden til dit frameset, samt koden der definerer dit link.
> Det kan måske bringe klarhed over situationen.
ja men de kommer så her, plansen var at cataloget skulle vises i venstre
side, men nej der kommer bare fram at serveren ikke kan finde siden, der
imod hvil jeg laver en fil der heder catalog.htm og siger at det er den der
skal vises så kommer den fint fram.
håber i kan hjælpe.
*********************************************************************
*** her er index filen ****************************************************
*********************************************************************
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>aquashoppen</title>
</head>
<frameset framespacing="0" border="0" cols="154,*" frameborder="0">
<frame name="venstre" scrolling="auto" noresize target="h-øverst"
href="products.asp">
<frameset rows="26,118,*">
<frame name="h-øverst" target="h-nederst" src="taellertop.htm"
scrolling="no" noresize>
<frame name="h-øverst1" src="shop_top.htm" target="_top" scrolling="no"
noresize>
<frame name="h-nederst" src="shop_start.htm" target="_self"
scrolling="auto" noresize>
</frameset>
<noframes>
<body>
<p>Denne Web-side bruger rammer, og din browser understøtter ikke
rammer.</p>
</body>
</noframes>
</frameset>
</html>
*********************************************************************
*** her er products.asp filen
**********************************************
*********************************************************************
<% @LANGUAGE = VBScript %>
<%
Option Explicit
Dim objConn, objRS, strQ, strConnection, StrGruppe
Dim objRS1, strQ1
StrGruppe = Trim(Request.QueryString("gruppe"))
Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "Data Source=aquasyd;User ID=web;Password=shop;"
objConn.Open strConnection
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
Set objRS1 = Server.CreateObject("ADODB.Recordset")
Set objRS1.ActiveConnection = objConn
strQ = "SELECT distinct aquasyd.gruppe "
strQ = strQ & "FROM aquasyd"
objRS.Open strQ
strQ1 = "SELECT distinct aquasyd.subgruppe "
strQ1 = strQ1 & "FROM aquasyd "
strQ1 = strQ1 & "WHERE aquasyd.gruppe = '" & StrGruppe & "'"
objRS1.Open strQ1
%>
<html>
<head><title>Products</title></head>
<body bgcolor=#ffffff>
<table border=1><tr>
<th align="left">Vælg Gruppe</th>
</tr>
<%
While Not objRS.EOF
Response.Write "<tr><td><a href=""Catalog.asp?gruppe=" & objRS(0) & """>"
Response.Write Server.HtmlEncode(objRS(0)) & "</a></td>"
Response.Write "</tr>" & vbCrLf
if StrGruppe = objRS(0) then
While Not objRS1.EOF
Response.Write "<tr><td>..."
Response.Write Server.HtmlEncode(objRS1(0)) & "</td>"
Response.Write "</tr>" & vbCrLf
objRS1.MoveNext
Wend
end if
objRS.MoveNext
Wend
objRS.close
objRS1.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
%>
</table>
</body>
</html>