asp程序运行错误

<!--#include file="strurl.asp"-->
<%Dim UserAgent
UserAgent = Trim(Lcase(Request.Servervariables("HTTP_USER_AGENT")))
If InStr(UserAgent,"teleport") > 0 or InStr(UserAgent,"webzip") > 0 or InStr(UserAgent,"flashget")>0 or InStr(UserAgent,"offline")>0 Then
	Response.Write "请不要采用teleport/Webzip/Flashget/Offline等工具来浏览！"
	Response.End
End If

Function FormatSQL(strChar)
if strChar="" then
FormatSQL=""
else
FormatSQL=replace(replace(replace(replace(replace(replace(replace(strChar,"'","'"),"*","%>

提示错误为：

Microsoft VBScript 编译器错误 错误 '800a0409' 
未结束的字符串常量 
/1/include/function.asp，行 13 
FormatSQL=replace(replace(replace(replace(replace(replace(replace(strChar,"'","'"),"*","

追问：<%
function checktext(txt)
chrtxt="33|34|35|36|37|38|39|40|41|42|43|44|47|58|59|60|61|62|63|91|92|93|94|96|123|124|125|126|128"
chrtext=split(chrtxt,"|")
for c=0 to ubound(chrtext)
checktext=replace(checktext,chr(chrtext(c)),"")
next
end function
%>

提示错误：
Microsoft VBScript 编译器错误 错误 '800a03ea' 
语法错误 
/1/include/conn.asp，行 17 
function checktext(txt)
	            
	            


			
            
            
        
        	
				checktext=replace(checktext,chr(chrtext(c)),"")
这句错，应该是checktext=replace(txt,chr(chrtext(c)),"") 吧，不然你传txt做什么
	            
	            


			
            
            
        
        	
				不行，你口口多少我加你，麻烦帮我解决一下