vb做的asp小程序

我自己的一个小程序有点问题 大家帮忙看一下！
<% @ Language=VBScript %>
<%
'定义用于给定文件读去票数
Function ReadCount(CFile)
Dim objFSO,objTS
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTs=objFSO.OpenTextFile(Server.MapPath(CFile),1,True)
If Not objTS.AtEndOfStream Then
Readcount=Clng(objTS.ReadLine)
Else
ReadCont=0
End If
objTS.Close
Set objFSO=Nothing
End Function

'定义用于将累计票数写入指定文件的Sub过程：
Sub WriteCount(CFile,Count)
Dim objFSO,objTS
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTS=objFSO.OpenTextFile(Server.MapPath(CFile),2,True)
objTS.WriteLine(Count)
objTS.Close
Set objFSO=Nothing
End Sub
%>
<%
Dim Vote,London1,Paris1,Sanfran1
'锁定Application变量
Application.Lock
'获取浏览者所投票的城市
Vote=Request("Vote")