Alternativ til server.execute.

Så må du simulere det, prøv at kigge på de to links:
http://www.asp101.com/articles/michael/dynamicincludes/default.asp
http://www.4guysfromrolla.com/webtech/042602-1.shtml

Er det bare en tekst fil som skal udskrives, altså der ikke er noget kode i include filen så kan du bruge FSO og udskrive indholdet af filen.

Jeg er ikke helt med. Er der nogen der kan uddybe?

Det jeg har er:

<%
if request.querystring("inc")="" then
Server.Execute("start.inc")
else
Server.Execute(Request.querystring("inc")) & ".inc"
End IF
%>

Men det virker som sagt ikke. Hvad skal jeg erstatte det med?

Include filen skal enten være en ren ASP file eller ren HTML kode.

Princippet er at man laver en function som denne som kan læse nidhodlet af en fil:

Function GetFileContentsForExecution(sTargetFile)
  Dim oFSO, sContents
 
  'Obtain a reference to the FileSystemObject
  Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
 
  'Obtain the file contents
  sContents = oFSO.OpenTextFile(Server.MapPath(".") & _
                                "\" & sTargetFile).ReadAll
  Set oFSO = Nothing 'reference to the FileSystemObject

  GetFileContentsForExecution = sContents
End Function


så udskirfter man denne linje:
response.write "<!-- #include file='" & Request.querystring("inc") & ".inc' -->"

med:

response.write GetFileContentsForExecution( Request.querystring("inc") & ".inc")

Det giver denne fejl:

Typerne passer ikke sammen: 'GetFileContentsForExecution'

Hvad inde holder  Request.querystring("inc") ?
Kommer  Request.querystring("inc") & ".inc" til at give et korrekt filnavn?

http://www.vorbasse-marked.dk/default.asp?inc=a-z

Det er hvad der står i adresselinien og a-z.inc er en fil der eksisterer.

Det vil sikkert gå bedre hvis du retter din nr. 2 Servere.Execute til:

Server.Execute(Request.QueryString("inc") & ".inc")

njelle ---> jeg ved ikke om det er smuttet, men jeg kan ikke benytte server.execute ;-)

donslund -> Jo det var jeg nu godt opmærksom på. Men samtidigt skrev du et eksempel (16:19:11) hvor du gjorde, og hvori at der var en graverende syntaxfejl - denne kode ville aldrig have kunnet køre. Jeg satsede og gættede på at dette måske snare var roden til dine problemer.

Nej, min kode ser nu såldes ud:

<%
if request.querystring("inc")="" then
%>
<!-- #include file="start.inc" -->
<%
else
response.write GetFileContentsForExecution(Request.querystring("inc") & ".inc")
end if
%>

Du skal også ligge functionen GetFileContentsForExecution in i din kode ellers virker det ikke. Du kan ligge den function nede i bundet at din fil:

<%
if request.querystring("inc")="" then
%>
<!-- #include file="start.inc" -->
<%
else
response.write GetFileContentsForExecution(Request.querystring("inc") & ".inc")
end if
%>

<%
'Functioner
Function GetFileContentsForExecution(sTargetFile)
  Dim oFSO, sContents
 
  'Obtain a reference to the FileSystemObject
  Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
 
  'Obtain the file contents
  sContents = oFSO.OpenTextFile(Server.MapPath(".") & _
                                "\" & sTargetFile).ReadAll
  Set oFSO = Nothing 'reference to the FileSystemObject

  GetFileContentsForExecution = sContents
End Function
%>

Så var der banko. Jeg havde naturligvis skrevet funktionen i dokumentet, men hvad min overophedede hjerne ikke kunne tænke til var, at den selvfølgelig ikke skulle ligge sammen med javascript funktionerne.

tak for hjælpen.

Og der var jeg lige hurtig nok, for den kører ikke det asp der ligger i inc-filerne. Den skriver udelukkende teksten fra filerne. Hvorfor dog det?

Så skal du bruger Exeute men det skal være ren ASP kode som er i filen.

Så skal functionen laves om til dette:

Function GetFileContentsForExecution(sTargetFile)
  Dim oFSO, sContents
 
  'Obtain a reference to the FileSystemObject
  Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
 
  'Obtain the file contents
  sContents = oFSO.OpenTextFile(Server.MapPath(".") & _
                                "\" & sTargetFile).ReadAll
  Set oFSO = Nothing 'reference to the FileSystemObject

  'Remove the ASP scripting tags
  sContents = Replace (sContents, "<" & "%", "")
  sContents = Replace (sContents, "%" & ">", "")
  GetFileContentsForExecution = sContents
End Function



og denne:
response.write GetFileContentsForExecution(Request.querystring("inc") & ".inc")

laves om til:

Execute GetFileContentsForExecution(Request.querystring("inc") & ".inc")

'En sætning var ventet'

og det betyder?

Er det ren ASP kode i din fil du includer?

Du mener at den ikke indeholder javascript og sådan noget?
Eller hvis du mene om den er blandet asp og html, så ja, den er blandet.

Execute kan kun udføre ASP kode og ikke HTML koden.

Dette går ikke:
<h4>
<% Response.write "HEJ" %>
</h4>


Men dette går:
<%
Response.write "<h4>"
Response.write "HEJ"
Response.write "</h4>"
%>

Ja, det kan jeg se. Det er fint. Det har løst det problem, men givet et andet, men det kigger jeg lige på.