70分求救,关于在vb中做asp上传组件,我想给一百分,但不知为什么给不了.我还有2000多分呢

[yanhe100]

Dim MyResponse As Response
Dim Myrequest As Request

这是我在vb中的程序,请大家看看有何错误,
在asp中server.createobject()就有错

Public Sub onStartPage(PassedSc As ScriptingContext)
Dim formData() As Byte

Set MyResponse = PassedSc.Response
Set Myrequest = PassedSc.Request
Size = Myrequest.TotalBytes()
formData = Myrequest.BinaryRead(Size)
For i = LBound(formData) To UBound(formData)
MyResponse.Write formData(i)
Next
End Sub