exam)
Private Sub BuiltInCommand( byVal cmd, byVal params)
If Not IsArray(params) Then Exit Sub
Dim i
For i=0 To UBound(params,1)
cmd.Parameters.Append cmd.CreateParameter( _
params(i)(0), _
params(i)(1), _
params(i)(2), _
params(i)(3), _
params(i)(4) _
)
'Response.Write params(i)(4) & "<br>"
Next
End Sub
If Not IsArray(params) Then Exit Sub
Dim i
For i=0 To UBound(params,1)
cmd.Parameters.Append cmd.CreateParameter( _
params(i)(0), _
params(i)(1), _
params(i)(2), _
params(i)(3), _
params(i)(4) _
)
'Response.Write params(i)(4) & "<br>"
Next
End Sub
댓글 없음:
댓글 쓰기