Dynamical file include

<%
'Funtions to load Application
	'FileExist Function
		Function FileExist(strPath)
			Set fs=Server.CreateObject("Scripting.FileSystemObject")
			FileExist = fs.FileExists(Server.MapPath(strPath))
			set fs=nothing
		end function
		
		'Include File Function
		Function getMappedFileAsString(byVal strFilename)
			Const ForReading = 1
			
			Set fs = Server.CreateObject("Scripting.FilesystemObject")
			Set ts = fs.OpenTextFile(Server.MapPath(strFilename), ForReading)
			getMappedFileAsString = ts.ReadAll
			ts.close
			
			Set ts = nothing
			Set fs = Nothing
		End Function
	
		'Fix Include File to include HTML source as well
		function fixInclude(content)
			out=""
			
			'position for  aspStartTag
			pos1=instr(content,"<%")
			
			'position for aspEndTag
			pos2=instr(content,"%"& ">")
			
			'if there exists aspStartTag
			if pos1>0 then
				'text content  before aspStartTag
				before= mid(content,1,pos1-1)
				
				'remove linebreaks
				before=replace(before,vbcrlf,"")
				
				'put content into a response.write
				before=vbcrlf & "response.write "" " & before & """" &vbcrlf
				
				'get code content between aspStartTag  and  aspEndTag
				middle= mid(content,pos1+2,(pos2-pos1-2))
				
				'get text content after aspEndTag
				after=mid(content,pos2+2,len(content))
				
				'recurse through the rest
				out=before & middle & fixInclude(after)
				
				'did not find any aspStartTags
			else
				'remove linebreaks in file
				content=replace(content,vbcrlf,"")
				out=vbcrlf & "response.write""" & content &""""
			end if
			
			fixInclude=out
		end function
		
		Function IncludeFile(strPath)
			if FileExist(strPath) then
				Execute fixInclude(getMappedFileAsString(strPath))
			end if
		end function
%>

IncludeFile(strPath)

strFile = "library/lang.asp"
if FileExist(strFile) then
		Execute fixInclude(getMappedFileAsString(strFile))
	else
		Response.Redirect("Error.asp?error=Unable to locate lang.asp, unable to generate text.")
	end if

<%

'Gather avaliable function
	set fs=Server.CreateObject("Scripting.FileSystemObject")
	set fo=fs.GetFolder(Server.MapPath("library/functions/"))
	
'execute files
	for each x in fo.files
		'.asp only
		If right(x.Name, 4) = ".asp" then
			Execute fixInclude(getMappedFileAsString("library/functions/"&x.name))
		end if
	next
	set fo=nothing
	set fs=nothing
%>

<input type='Password' value='<% response.Write(GenText(GlobalLanguage, 18)) %>' name='Password' />

<input type='Password' value='  Password ' name='Password' />

<script src='<%= Site&"/script.js" %>' language='javascript' type='text/javascript'></script>

<a target='<% response.write("_top") %>' >[code] then it will look for the frame "  _top " which doest exist and it will be opened in a new window. Just remove the ' and it should help.

[code]<a target=<% response.write("_top") %> >[code]





And a last thing to keep in mind, though this shouldn't casue much trouble, just some replacing. Replace This:
[code]<%= MyString %>

<% response.write(MyString) %>