Let's try it again. You have to stop execution of the script.
do this:
'# Set stored proc parameters
Public Sub SQLSetProcedureParam(ByRef co, ByVal param, ByVal value)
response.Write "<p><b>Param: " & param & ", Value: " & value & " </b></p><br>"
response.end
'Response.Write "<!-- Name:" & co.CommandText & " --><br>"
co.Parameters("@" & param).value = value
End Sub