Hvad er der i vejen her?

Det skal siges at det naturligvis virker hvis jeg indsætter de faktiske URL\'er i stedet for \"=\"<%=Filename%>\"

prøv at Trim resultatet af din forespørgsel
Filename=Trim(RS(\"Filename\") )

Den fjerne mellemrum foran og bagved teksten

Tror du ikke det kan være en konflikt med at du kalder både din connection og dit recordset for RS ?
Prøv at omdøbe din connection til conn...

Fjen \' omkring 1 hvis det er defineret som tal:

SQL = \"SELECT Filename FROM database WHERE Frameset = 1\"

nemlig da_nigga, altså:
Set conn = server.CreateObject(\"ADODB.connection\")
conn.open ConnString
SQL = \"SELECT Filename FROM database WHERE Frameset = \'1\'\"
Set RS = conn.Execute(SQL)

Prøv at tjekke koden nu. Den viser nu fint NOGEN af siderne. Jeg har mistanke om at det har med brugen af <% while NOT rs.EOF %> +  Wend at gøre. Her er fejlkoden:


<frame src=\".asp?Id=82\">

<frame src=\" <font face=\"Arial\" size=2>
<p>ADODB.Field</font> <font face=\"Arial\" size=2>error \'80020009\'</font>
<p>
<font face=\"Arial\" size=2>Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.</font>

MIN kode:

<!-- #include file=\"../include/adovbs.inc\" -->
<!-- #include file=\"../include/datastore_tgp.inc\" -->

<html>
<head>
<title>Frameset 1</title>
</head>
<%
Id = Request.QueryString(\"Id\")

Set conn = server.CreateObject(\"ADODB.connection\")
conn.open ConnString
SQL = \"SELECT Filename, Sitename FROM database WHERE Frameset = \'1\' ORDER BY Sitename asc;\"
Set RS = conn.Execute(SQL)

Filename=RS(\"Filename\")
%>

<frameset rows=\"50%,50%\">
<frameset cols=\"30%,30%,40%\">
<% while NOT rs.EOF %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% RS.MoveNext %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% RS.MoveNext %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
</frameset>
  <frameset cols=\"30%,30%,40%\">
<% RS.MoveNext %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% RS.MoveNext %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% RS.MoveNext %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% Wend
RS.Close
Set RS = Nothing %> 
</frameset>
</frameset>

<noframes>
</noframes>
</html>

du har 6 af den i din  loop !!
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% RS.MoveNext %>

Skal det være samme felt i alle tilfælde \"Filename\" ?

Hmmm du har jo sådan set ikke brug for while..wend da du jo ikke kører nogen løkke...

Prøv at erstatte den med If...Then...

hvis du skal havde 6 efter hinanden så skal det laves med if.

<frameset rows=\"50%,50%\">
<frameset cols=\"30%,30%,40%\">
<% if NOT rs.EOF then %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% RS.MoveNext %>
<% end if%>
<% if NOT rs.EOF then %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% RS.MoveNext %>
<% end if%>
<% if NOT rs.EOF then %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
</frameset>
  <frameset cols=\"30%,30%,40%\">
<% RS.MoveNext %>
<% end if%>
<% if NOT rs.EOF then %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% if NOT rs.EOF then %>
<% RS.MoveNext %>
<% end if%>
<% if NOT rs.EOF then %>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<% RS.MoveNext %>
<% end if%>
<frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
<%
RS.Close
Set RS = Nothing %> 
</frameset>
</frameset>

eagleeye > det virker ikke. Den vil ikke vise siden

eagleeye >> \"Skal det være samme felt i alle tilfælde \"Filename\" ?\" Ja - det skal være filename ved hver recordset der skal vises!

OK:

<frameset rows=\"50%,50%\">
<frameset cols=\"30%,30%,40%\">
<% if NOT rs.EOF then %>
  <frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
  <% RS.MoveNext %>
<% end if
if NOT rs.EOF then %>
  <frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
  <% RS.MoveNext
end if
if NOT rs.EOF then %>
  <frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
  <% RS.MoveNext
end if%>
</frameset>
<frameset cols=\"30%,30%,40%\">
<% if NOT rs.EOF then %>
  <frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
  <% RS.MoveNext
end if
if NOT rs.EOF then %>
  <frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
  <% RS.MoveNext
end if
if NOT rs.EOF then %>
  <frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
  <% RS.MoveNext
end if %>
</frameset>
<%
RS.Close
Set RS = Nothing %>
</frameset>
</frameset>

er Frameset i databaen defineret som tal?

eagleeye >> er Frameset i databaen defineret som tal?

ja

Så skal \' fra SQL\'en fjernes:
SQL = \"SELECT Filename FROM database WHERE Frameset = \'1\'\"

TIL:
SQL = \"SELECT Filename FROM database WHERE Frameset = 1\"

Hmm... den er der næsten - men af en eller anden grund vises FØRSTE frame ikke - her er koden i framesettet (id er sat til 82):

<frameset rows=\"50%,50%\">
<frameset cols=\"30%,30%,40%\">

  <frame src=\"_f.asp?Id=82\">
 
  <frame src=\"url2_f.asp?Id=82\">
 
  <frame src=\"url3_f.asp?Id=82\">
 
</frameset>
<frameset cols=\"30%,30%,40%\">

  <frame src=\"url4_dk_f.asp?Id=82\">
 
  <frame src=\"url5_f.asp?Id=82\">
 
  <frame src=\"url6_f.asp?Id=82\">
 
</frameset>

</frameset>
</frameset>

<noframes>
</noframes>

du mener der mangler ...  url1 ?
Prøv at kikke i databasen om det ikke er der fejlen er...
Der er ikke noget i den kode som skulle klippe teksten

Nej - der er præcis 6 recordset med tilhørende filenamte og frameset sat til \"1\"...

Fatter det ikke...

du tænkrter på dette <frame src=\"_f.asp?Id=82\"> eller ??

ja nemlig - der mangler filename - af en eller anden grund bliver det ikke sat ind!

Er du sikker på databasen ikke har set tomt felt?

Ja, der er ikke nogen tomme felter

eller prøv at sætte dette ind:

<frameset rows=\"50%,50%\">
<frameset cols=\"30%,30%,40%\">
<% rs.movefirst                  \'<----------DENNE
if NOT rs.EOF then %>
  <frame src=\"<%=RS(\"Filename\")%>_f.asp?Id=<%=Id%>\">
  <% RS.MoveNext %>
<% end if

kun lige før den første

Voila! Det virker. Hvad gik det ud på?

movefirst  flytter til første record i recordsetet.

Den var åbenbart ikke på første record efter recordsetet var åbnet.

Takker...