ASP 바인딩 쿼리

dim cmd,rs,sql,fields,result,totalcount,i,j
  set cmd=server.createobject("adodb.command")
  set rs=server.createobject("adodb.recordset")
  sql="{call songlist (?,?,?,?,?, ?,?)}"
  with cmd
    .activeconnection=connstr
    .commandtext=sql
    .parameters.append .createparameter(,varchar,input,50,folder_no)  'folder_no
    .parameters.append .createparameter(,varchar,input,50,member_no)  'member_no
    .parameters.append .createparameter(,varchar,input,50,s_area)  'area
    .parameters.append .createparameter(,varchar,input,50,s_string)  'string
    .parameters.append .createparameter(,varchar,input,10,(pagenumber-1)*pagesize+1)  'start

    .parameters.append .createparameter(,varchar,input,10,pagenumber*pagesize)  'end
    .parameters.append .createparameter("count",numeric,output,10,null)  'count
    .commandtype=1
    set rs=.execute
    if not rs.eof then
      redim fields(rs.fields.count-1)
      for i=0 to rs.fields.count-1
        fields(i)=rs.fields(i).name
      next
      result=rs.getrows(-1,0)
    end if
    rs.close
    set rs=nothing
    totalcount=.parameters("count")
    set cmd=nothing
  end with