ADODB.Command #1

set cmd = server.CreateObject("ADODB.Command")
 

   with cmd
   .ActiveConnection = dbCon
   .CommandText = "WEB_IUD_S02_JUMUN_ALL"
   .CommandType = adCmdStoredProc
   .Parameters.Append .CreateParameter("RETURN_VALUE",adInteger,adParamReturnValue)
   .Parameters.Append .CreateParameter("@pi_IDU_DIV",advarwchar,adParamInput,10)
   .Parameters.Append .CreateParameter("@pi_CUST_CODE",adwchar,adParamInput,13)  
   .Parameters.Append .CreateParameter("@pi_CARD_DIVNO",adDouble,adParamInput,18.0)  
   .Parameters.Append .CreateParameter("@pi_CART_ITCOUNT",adInteger,adParamInput,0)  
   .Parameters.Append .CreateParameter("@po_PAYMENT_ID",advarwchar,adParamoutput,10)
   
   .Parameters("@pi_IDU_DIV") = "INSERT"
   .Parameters("@pi_TAX_METHOD") = "0"
   .Parameters("@pi_ADDRESS") = address
   .Parameters("@pi_SEND_MONEY") = 0
   
    .Execute , , adExecuteNoRecords
      
   dberr = .Parameters("RETURN_VALUE")
   po_PAYMENT_ID = .Parameters("@po_PAYMENT_ID")
  End with
 

if dberr <> 0 then
//-------에러------//

end if
     
set cmd = nothing

---------------------------------------------------------

sql = "SELECT CC1.CUST_NAME, CC1.MH_URGYN,CASE WHEN DATALENGTH(CC1.CONTENTS)>500 THEN "

:

 with cmd
  .ActiveConnection  = dbCon
  .CommandType  = adCmdText
  .CommandText = sql
  .Parameters.Append .CreateParameter("@ACPT_DATE", adwchar, adParamInput, 8,ACPT_DATE )
  .Parameters.Append .CreateParameter("@ACPT_SNO", adwchar, adParamInput, 4, ACPT_SNO)
 
  objRset.CursorLocation = adUseClient
  objRset.open cmd
 end with
 if objRset.RecordCount<> 0 then
  CUST_NAME = objRset("CUST_NAME")
  MH_URGYN= objRset("MH_URGYN")
:

  outasno = ACPT_DATE & ACPT_SNO
  '//response.write len(IT_SNAME)
 
  set cmd = nothing
  Call setConnectionClose()
 ELSE
  response.write "<SCRIPT LANGUAGE='JavaScript'>alert('A/S내역이 없습니다.');this.close();</SCRIPT> "
  Response.end
 end if

출처 : http://blog.naver.com/sinsu2?Redirect=Log&logNo=120101170448

 

------------------------------------------------------------------

Set objCmd = Server.CreateObject("ADODB.Command")

 With objCmd
  .ActiveConnection = DBCon
  .CommandText = "프로시저명"     '.CommandText = "Sp_Login_Chk"
  .CommandType = adCmdStoredProc  
  .Parameters.Append .CreateParameter("@인자명", adVarChar, adParamInput, , userCode)

  .Parameters.Append .CreateParameter("@userPass", adInteger, adParamInput, , userPass)

  Set Rs = .Execute  
 End With
Set objCmd = Nothing

'ADODB 관련 상수 참고 C:\Program Files\Common Files\System\ado\adovbs.inc

[출처] [Asp] ADODB.Command 개체 사용하기|작성자 셰프