visa asp-kod

Ja.

Du har inte lust att bidra med en gnutta kod för att avlasta min trötta hjärna? ;)

Är inte säker på det här, men det kan funka. :)

<%
Dim objFSO, objTS, strKod

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("aspfil.asp"), 1)

Do Until objTS.AtEndOfStream
  strKod = strKod & objTS.ReadLine & vbCrLf
Loop

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

Response.Write(Replace(Server.HTMLEncode(strKod),vbCrLf,"<br>"))
%>

Modifieras efter behov. ;)

Annars om inte sebbes alternativ, mot förmodan inte fungerar så funkar detta: :)

			

			strFilePath = Server.MapPath("fil.asp")

			Set objStream = Server.CreateObject("ADODB.Stream")
			objStream.Open
			objStream.Type = adTypeBinary
			objStream.LoadFromFile strFilePath
			
			Response.BinaryWrite objStream.Read
			
			objStream.Close
			Set objStream = Nothing

Tack!

Bara av ren nyfikenhet: funkade min kod? ;)

Ja. KoTTeNs kod fick jag däremot inte att funka... :)