CREATE PROC MaterialInsert
	@material nvarchar(25),
	@thick int,
	@colour nvarchar(25),
	@finish nvarchar(3),
	@substrate nvarchar(3),
	@manufact nvarchar(3),
	@descript nvarchar(50),
	@owner nvarchar(20)
AS

-- Declare all local variables
Declare @ins_err int

-- Start our transaction
BEGIN TRAN

-- Insert our new material
INSERT INTO Materials ( 
	MaterialID, Thickness, ColourID, FinishID, SubstrateID,
	[Description], Owner, ManufacturerID
)
VALUES (
	@material, @thick, @colour, @finish, @substrate, 
	@descript, @owner, @manufact
)

-- Save the error code (just in case
SELECT @ins_err = @@Error

---------------------------------------
-- Stuff deleted for berevity's sake --
---------------------------------------

-- Check for valid SQL error
IF @ins_err = 0
BEGIN
	COMMIT TRAN
	RETURN (0)
END
ELSE
BEGIN
	ROLLBACK TRAN
	RETURN( @ins_err )
END

GO

Dim dbConn
Dim rsConn

Set dbConn = New Server.Object( "ADODB.Connection" )
dbConn.Open( "Provider=sqloledb;<blargh>")

strSQL = "MaterialInsert " & _
	 "@material=" & SQLquote(fldMaterial) & "," & _
	 "@thick=" & fldThickness & "," & _
	 "@colour=" & SQlquote(fldColour) & "," & _
	 "@finish=" & SQlquote(fldFinish) & "," & _
	 "@substrate=" & SQlquote(fldSubstrate) & "," & _
	 "@descript=" & SQlquote(fldDescription) & "," & _
	 "@owner=" & SQlquote(fldOwner) & "," & _
	 "@manufact=" & SQlquote(fldManufID)
	
Set rsConn = dbConn.Execute( strSQL )