ASP --- <%@language=VBScript transaction=required <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <TITLE></TITLE> </HEAD> <BODY> <% Dim objsp , x, y x = 1037 Set objsp = Server.CreateObject("storprocdll.testproc") y = objsp.spupd( Cint(x),CStr("UPD")) if y = 1 then response.write("Update Completed") else response.write("No update ") end if Set objsp = Nothing </BODY> </HTML> VB COM ------ Public Function spupd (ByVal dblBat as integer, ByVal strTx as String) as integer Dim cn as new adodb.connection Dim rs as new adodb.recordset Dim cmd as new adodb.command Dim nRec as double cn.open "DSN=DB1;UID=sa;PWD=;" set cmd.activeconnection = cn cmd.commandtext = "rtv_sp1" cmd.commandtype = adcmdstoredproc cmd.parameters.append cmd.createparameter("@batno", adInteger, adParamInput, , dblBat) cmd.parameters.append cmd.createparameter("@txtype", adVarChar, adParamInput, , strTx) cmd.execute nRec if nRec > 0 then spupd = 1 else spupd = 0 end if End Fucntion Store Procedure --------------- Create Procedure rtv_sp1 @batno int, @txtype varchar(255) as update db1 set field1 = 100 where batno = @batno and txtype = @txtypeThank you very much ....