象下面总是出错----
Private Sub init()
'定义变量
dim rightstring2,rightstring
dim name
dim use1,use2,use3,use4,use5,use6
use1=Request.Form ("1")
use2=Request.Form ("2")
use3=Request.Form ("3")
use4=Request.Form ("4")
use5=Request.Form ("5")
use6=Request.Form ("6")
'根据checkbox选择判断
Select Case Index
Case 0
If use1.value = 1 Then
changerightstring 1, "Y"
Elseif use1.value = 0 then
changerightstring 1, "N"
End If
Case 1
If use2.Value = 1 Then
changerightstring 2, "Y"
Else
changerightstring 2, "N"
End If
Case 2
If use3.Value = 1 Then
changerightstring 3, "Y"
Elseif use3.value = 0 then
changerightstring 3, "N"
End If
Case 3
If use4.Value = 1 Then
changerightstring 4, "Y"
Elseif use4.value = 0 then
changerightstring 4, "N"
End If
Case 4
If use5.Value = 1 Then
changerightstring 5, "Y"
Elseif use5.value = 0 then
changerightstring 5, "N"
End If
Case 5
If use6.Value = 1 Then
changerightstring 6, "Y"
Elseif use6.value = 0 then
changerightstring 6, "N"
End If
End Select
end sub
Private Sub changerightstring(NO As String, yn As String)-----到这一句出错
HELP ME
