<%
Function query(connection, SQL, Parameters,Paramcount)
  if Paramcount = -1 then Paramcount = uBound(Parameters) + 1
  Dim cmd, Counter , isSelect , RowsAffected
  Set cmd = Server.CreateObject("ADODB.Command")
  Set cmd.ActiveConnection = connection 
  cmd.CommandType = 1 ' adCmdText
  cmd.CommandText = SQL
  IF lcase(left(ltrim(SQL),6)) = "select" then
     isSelect = true
  else
     isSelect = false
  end if

  For Counter = 0 To Paramcount - 1
    cmd(Counter).type = 12 ' adVariant
    cmd(Counter).value = Parameters(Counter)
  Next
  if isSelect then
     Set query = cmd.Execute
  else
     on error resume next
     cmd.Execute RowsAffected,,-1 ' adOptionUnspecified
     if Err <> 0 then RowsAffected = -1
     query = RowsAffected
  end if
End Function
%>