url i en Left()

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("fil1.asp")
Set f = fso.OpenTextFile(filespec,1)

Response.write Left(f.ReadAll,200)

f.Close

hmmm det ser ud som om den skriver asp koden uden at tolke den. Egentlig skal den jo vente til serveren er færdig med koden.

Hvordan løses det?

Dvs, den kode du har i fil1.asp, vil du have fil2.asp til at læse, tolke den, og udskrive de første 200 tegn af resultatet? Det er en dum måde at gøre det på.

Kan du ikke smide koden fra begge filer ind, så jeg kan se på en smartere måde at løse den på?

Koden fra fil1.asp er meget omfattende, og der er selvfølgelig en mening med galskaben. :) De 200 tegn var bare et eksempel.

Som mit site er bygget op, har jeg en fast side, der inkluderer andre sider i midten, alt afhængig af hvilken side der bliver kaldt dynamisk i min url, men det er ikke den optimale måde at gøre det på ifb SEO, så jeg vil gerne bytte om, så mine forskellige sider fremover i stedet for inkluderer en header.asp og en footer.asp, der jo så er opdelingen af min samlede fil1.asp.

Da jeg engang imellem skal rette i min fil1.asp, vil det være smart for mig at header.asp og footer.asp selv finder rettelserne, så jeg ikke skal ændre i dem. (ja det forstod jeg fint selv, men fangede du den?)

Hvi sdu absolut VIL have hevet koden ud EFTER siden er blevet genereret, kan du bruge WinHTTPRequest. F.eks.:

addr = "fil1.asp"
 
  if len(addr) > 0 then
    set objSvrXML = Server.CreateObject("WinHttp.WinHttpRequest.5")
    objSvrXML.open "get", addr, false
    objSvrXML.send
    strResult = objSvrXML.responseText
    set objSvrXML = nothing
  else
    strResult = "Ikke valid adresse!"
  end if
 
strResult = Replace(strResult, "'", "''")

Hvor strResult så bliver en streng med din kode i.

everclear, det virker ikke. Den siger at den ikke kan createobject.

Du skal nok lige tjekke med din udbyder om du har adgang til WinHttp på dit domæne. Det er ikke alle der udbyder det nemlig.

Det geniale ved WinHttp er, at du kan request en hvilken som helst asp side, også selv om den skal bruge querystrings m.v. Du kan f.eks. request fil1.asp?id=1, hvor du så vil få den genrerede kode tilbage for denne side. Ligesom hvis du havde valgt "vis kilde" i din browser.

Jeg har asphttp. Kan det bruges?

aspHttp kan også sagtens bruges. Den bruges på nogenlunde samme måde:

Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = "fil1.asp"
strResult = HTTPObj.GetURL

Din strResult bliver så din kode ligesom med WinHttp.

Det virker. Tak for hjælpen til jer begge to.

Everclear vil du lægge et svar?

Naturligvis:-) Her er et svar...