Vis code fra fil

ja du kan bare læse "filen" med filesystemobject'et, så skal du bagefter server.htmlencode(filen)
og så kan du skrive filen ud på skærmen og se koden...

noget ala dette:

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("aspfilen.asp"), 1)
filecontents = f.ReadAll
f.Close
Set f=Nothing
Set fs=Nothing

filecontents = Server.URLencode(filecontents)
filecontents = Replace(filecontents, vbcrlf, "<br />") ' udskifte linie skift med <br>
' udskriv fil
Response.Write(filecontents)

%>