Inkludering

hvordan includer du?

<%
If Request.QueryString = \"\" Then
strTextFile = \"start\"
Else
strTextFile = Request.QueryString
End If
Set objFile = Server.CreateObject(\"Scripting.FileSystemObject\")
Set objStream = objFile.OpenTExtFile(Server.MapPath(\"/\") & \"\\\" & strTextFile & \".asp\", 1, True)
strFilterText = objStream.ReadAll
Response.Write \"<font face=\'Verdana\' size=\'2\' color=\'#000000\'>\" & strFilterText & \"</font>\"
%>

Det er egenligt til at inkludere fra en textfil!

Man kan se din source kode hvad man lave view source. Du skal lave include sådan her:
<!--#include virtual=\"/file.asp\"-->

Det du laver paster bare text ind på til side.

Jeg finder lige et eks. på include men variablet filnavn. Det kan nemlig ikke bare laver sådan her:
<!--include file=\"<%=filnavn%>.asp\"-->
Så vidt jeg husker kommer det ikke til at virke.

Det du har lavet virker fint hvis det er ren HTML kode som er i include filen. Hvis der er ASP kode i skal de includes med <!--include...-->


<%
\'i koden kan du så sættet selectside som skal includes
selectside = \"natur\"

Select case selectmenu
  case \"natur\"
%><!--#include file=\"natur.asp\"--><%
  case \"login\"
%><!--#include file=\"login.asp \"--><%
end select
%>

-----------
Hvis du køre ASP3.0 på en IIS5 server findes der en server.execute(filnavn) function.

Server.Execute (selectside)  \'Kun med ASP3.0

Eagleeye>> Jeg kan ikke få det til at virke. Først rettede jeg det lidt til. Så kunne start siden vises. Men jeg kan ikke skrifte mellem siderne. Har du et andet forslag? Eller bare en rettelse?

Eagleeye>> Er det muligt at lave en include med formatering? Så jeg ændre fx skrifttypen?

Du kan lave en fil som indeholder styles.

<head>
<link REL=\"STYLESHEET\" TYPE=\"text/css\" HREF=\"style.css\">
</head>

Det skal være inde i head tagsne.
Prøv evt at kikke på http://www.builder.dk/ og kik under menuen Stylesheet.

Tak for det med CSS, men hvad med ASP-scriptet? Det virker ikke korrekt!!!

Tak for forsøget. Jeg har fået en på mit arbejde til at hjælpe med at løse problemt. Det lykkes!