<%
Dim cnn1
Dim cmd1
Dim status1
'Dim	transaction
transaction = 1		'1 = add, 2 = update, 3 = delete

Set cnn1 = Server.CreateObject("ADODB.Connection")
Set cmd1 = Server.CreateObject("ADODB.Command")
cnn1.Open Application("Connection1")
With cmd1
	.ActiveConnection = cnn1
	.CommandType = adCmdStoredProc
	.CommandText = "sp_CIMAddRecord"
	.Parameters.Append .CreateParameter("@table_name", adVarChar, _
		adParamInput,30, Session("table"))
	.Parameters.append .CreateParameter("@New_id",adInteger,adParamOutput)
	.Execute status1
	Session("ID") = .Parameters("@New_id")
End With
If status1 = 0 Then
	Response.Write "alert(""Failure to add " & Session("table") & " record."");"
	Response.End
End If
Set cnn1 = Nothing
Set cmd1 = Nothing
Set status1 = Nothing
%>