<%
Function LoadFile(strFile)
		On Error Resume Next
		Dim strTempPath,objFSO,objStm
		strTempPath = Server.MapPath(strFile)
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		Set objStm = Server.CreateObject("ADODB.Stream")
			If objFso.FileExists(strTempPath) Then
				objStm.charset = "UTF-8"
				objStm.open
				objStm.LoadFromFile strTempPath
				LoadFile = objStm.ReadText
			End If
		Set objStm = Nothing
		Set objFSO = Nothing
		If Err Then
			    Err.Clear
		End If
End Function

Function CheckNum(num,back)
		num = Trim(num)
		If Not IsNumeric(num) Or IsEmpty(num) Then 
				CheckNum = CLng(back)
		Else
				CheckNum = num
		End If 
End Function 
%>