CREATE PROCEDURE uspAddFreeMember1
	@rank tinyint , 
	@business_name varchar(50) , 
	@address varchar(75) , 
	@city varchar(10) = null, 
	@state varchar(3) , 
	@suburb_town varchar(30) , 
	@postcode char(4) , 
	@phone varchar(10) , 
	@fax varchar(10) = null,
	@tot_emps varchar(6) , 
	@internet varchar(10) ,
	@email_address varchar(55) ,
	@pword varchar(25)
AS

DECLARE @Result int
SET	@Result = 0 -- Setup a return value 

-- Check that email doesn't already exist

IF EXISTS(select * from Login where email_address = @email_address) BEGIN
	RETURN @Result
END

BEGIN TRANSACTION TransPage1

-- Insert basic Business details

INSERT INTO Business(rank,business_name,address,city,state,suburb_town,postcode,phone,fax, tot_emps,internet)
	VALUES(@rank,@business_name,@address,@city,@state,@suburb_town,@postcode,@phone,@fax,@tot_emps,@internet)

DECLARE	@BusinessID INT
SET	@BusinessID = SCOPE_IDENTITY()

-- Insert Login Information

INSERT INTO Login(email_address, pword)
	VALUES(@email_address, @pword)

DECLARE	@LoginID INT
SET	@LoginID = SCOPE_IDENTITY()

-- Insert LoginBusiness IDs into Lookup Table

INSERT INTO LoginBusiness(login_id, business_id)
	VALUES(@BusinessID, @LoginID)

SET	@ERR = @@ERROR -- what if either of the two prior INSERTS failed?


IF @ERR <> 0 
	ROLLBACK TRANSACTION TransPage1
ELSE BEGIN
	COMMIT TRANSACTION TransPage1
        SET	@Result = @BusinessID

END
Return @Result
GO

  sFName = "George W." 
  sLName = "Bush" 
   
  Set oCon = Server.CreateObject("ADODB.Connection") 
  Set oCom = Server.CreateObject("ADODB.Command") 

      oCon.CursorLocation = adUseClient 
      oCon.open "your connection string goes here" 

   with oCom 
       .activeconnection = oCon 
       .commandtext = "MyProcedureToSaveRecord" 
       .commandtype = adCmdStoredProc 
       .Parameters.Append .CreateParameter("@RETURN_VALUE", adInteger, adParamReturnValue, 0) 
       .Parameters.Append .CreateParameter("@FName", adVarWChar, adParamInput, 40, sFName) 
       .Parameters.Append .CreateParameter("@LName", adVarWChar, adParamInput, 40, sLName) 
       .Parameters.Append .CreateParameter("@NewID", adInteger, adParamOutput, 0) 
   end with 
     
   oCom.Execute , , adExecuteNoRecords 
   
   if err.number = 0 then 
     Select Case  trim(oCom("@RETURN_VALUE")) 
            Case "0":   sNewID = trim(oCom("@NewID"))   
            Case Else:  ' received an error 
     End Select 
   else 
     response.write err.description 
   end if 
 
   If oCon.STATE = adStateOpen Then oCon.Close 
         
 Set oCom = nothing