语句未结束 到底错哪了

语句未结束 到底哪里错了？
<script language=vbscript> 
dim c=0 ;
  Function GetBytes2BSTR(p_sHtmlStr)  
  dim sReturnStr ;
  dim i,n ;  
  sReturnStr = ""  
  n = LenB(p_sHtmlStr) ;  
   
  For i = 1 To n ;
  dim sCharCode ;
  dim sNextCharCode ;
   
  sCharCode = AscB( MidB(p_sHtmlStr, i, 1) ) ; 
   
  If (sCharCode < &H80) Then  
  sReturnStr = sReturnStr & Chr(sCharCode)  
  Else  
  sNextCharCode = AscB( MidB(p_sHtmlStr, i+1, 1) )  
  sReturnStr = sReturnStr & Chr(CLng(sCharCode) * &H100 + CInt(sNextCharCode))  
  i = i + 1  
  End If  
  Next  
   
  GetBytes2BSTR = sReturnStr ;
  End Function  
   
  Function getData(strUrl)  
  Dim xmlhttp  
  Set xmlhttp=CreateObject("Microsoft.XMLHTTP")  
  xmlhttp.open "get",strUrl,false  
  xmlhttp.send  
   
  getData=GetBytes2BSTR(xmlhttp.responseBody)  
   
  End Function  
   
  Function test(url)  
  alert url
  Dim strurl,strHTML,oTables,oTable  
  strHTML=getData(url) 
  If(c==0) Then
  getLrc.hid= strHTML
  c++
  check()
  Else 
  lrcbox.innerHTML=strHTML  
 End If  
  Next  
  End Function  
  Function here(s)
alert s
End Function  
  </script>
第一次用vb
运行时报错：语句未结束！
到底哪里未结束啊！高手指点

[解决办法]

VBScript code

Dim c : c = 0Function  GetBytes2BSTR(p_sHtmlStr)    dim  sReturnStr   dim  i,n  sReturnStr  =  ""  n = LenB(p_sHtmlStr)  dim sCharCode  dim sNextCharCode  For i = 1 To n    sCharCode  =  AscB(MidB(p_sHtmlStr, i, 1))    If  (sCharCode < &H80)  Then        sReturnStr = sReturnStr & Chr(sCharCode)    Else        sNextCharCode =  AscB(MidB(p_sHtmlStr, i+1, 1))        sReturnStr =  sReturnStr & Chr(CLng(sCharCode) * &H100 + CInt(sNextCharCode))        i  =  i  +  1    End If  Next  GetBytes2BSTR  =  sReturnStrEnd  FunctionFunction getData(strUrl)    Dim  xmlhttp    Set  xmlhttp = CreateObject("Microsoft.XMLHTTP")    xmlhttp.open "get",strUrl,false    xmlhttp.send  getData=GetBytes2BSTR(xmlhttp.responseBody)  End  Function  Function test(url)    Dim  strurl,strHTML,oTables,oTable    strHTML = getData(url)   If c = 0 Then    'getLrc.hid = strHTML     c = c + 1     check   Else     lrcbox.innerHTML = strHTML    End  IfEnd  Function  Function here(s)    MsgBox sEnd  Function