include....

Det kan man ikke for den kan ikke include filen samtigdig med den skriver til browseren....Det er sker at at du får skrevet  <!--#include file=xx.asp--> til browseren.


du skal gøre noget i stil med:

if rs("url") = "fil1" then
%>
  <!--#include file=fil1.asp-->
<%
end if

Du kan evt bygger det op med en case:

select case LCase(rs("url"))
  case "fil1" %>
    <!--#include file=fil1.asp-->
<% case "fil2" %>
    <!--#include file=fil2.asp-->
<%
end select

Tjooo, det kan man på en måde godt, men ikke med Include file... men med Server.Execute()

Eks.

<%
  Server.Execute(rs("url"))
%>

//>Rune

Den løsning du forslår:
select case LCase(rs("url"))
  case "fil1" %>
    <!--#include file=fil1.asp-->
<% case "fil2" %>
    <!--#include file=fil2.asp-->
<%
end select

den har jeg kørt med. Jeg vil gerne have det hele til at være mere dynamisk, og ikke kræver at hver gang at jeg oprettet en side, så skal jeg tilføje 2 linier (det ender med at blive til ret mange!).
Er der ikke en eller anden dynamisk måde? Alle de rigtig store sider sidder vel ikke og skriver case-linier??? :-)

hvis man skriver server.execute, kan man så have scripts i den fil som man henter???

Du kan jo fx. gøre sådan her:

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
strSQL = "SELECT * FROM tabel WHERE [ID] = 3"
Set objRs = objConn.Execute(strSQL)

Server.Execute(objRs("Filnavn"))

...
Så vil den indkludre det filnavn som er ud fra ID, nr. 3

//>Rune

Ja, sagtens... det er det samme som SSI, bare i ASP..!

//>Rune

Er det korrekt forstået at scriptet skal se ud noget hen af:

<%
Set conn = Server.CreateObject("ADODB.Connection")
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\kongsteddk\db\seest.mdb;"
conn.open connString
sql = "SELECT * FROM menu WHERE id = " & Request.QueryString("id")
Set rs = conn.execute (sql)
Server.Execute(objRs("url"))
%>

????

Yep...

hey, bor du i Seest? -i Kolding altså?

//>Rune

Ja, hvorfor????

Hvordan laver man fx en forside med det scrip. Altså en side der kommer frem, hvis der ikke er nogen "query"?

<%
Set conn = Server.CreateObject("ADODB.Connection")
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\kongsteddk\db\seest.mdb;"
conn.open connString
If Request.QueryString("id") = "" Then
Server.Execute("ingenquery.asp")
Else
sql = "SELECT * FROM menu WHERE id = " & Request.QueryString("id")
Set rs = conn.execute (sql)
Server.Execute(objRs("url"))
End If
%>

Well, jeg er oxo fra Kolding ;-)
//>Rune

Nu hvor du siger Query, mener du SQLquery eller Querystring?

//>Rune

Thx 4 Poinz
//>Rune

Takker for hjælpen med scriptet. Har du en ICQ adresse? Hvis ja, må jeg få den, da det kan være lidt hurtigere at få hjælp den vej! :-)

Hov. Der er lige et problem. Den laver en loop hvis der ikke er noget id. Siden står MEGET langsomt og bliver hentet. Det lykkes en gang, og der så den ret forkert ud!

Well, jeg vil ikke hjælpe bevist med kode.. men med små spm vil jeg gerne over ICQ...
Jeg vil ikke offentliggøre mit ICQ# så hvis du ligger dit, så adder jeg dig..!

//>Rune

62675523

<%
If Request.QueryString("id") = "" Then
Server.Execute("ingenquery.asp")
Else
Set conn = Server.CreateObject("ADODB.Connection")
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\kongsteddk\db\seest.mdb;"
conn.open connString
sql = "SELECT * FROM menu WHERE id = " & Request.QueryString("id")
Set rs = conn.execute (sql)
Server.Execute(objRs("url"))
End If
%>

Så prøv med denne...

//>Rune