<%
Dim cnn3
Dim cmd3
Dim	transaction
transaction = 3		'1 = add, 2 = update, 3 = delete

Set cnn3 = Server.CreateObject("ADODB.Connection")
Set cmd3 = Server.CreateObject("ADODB.Command")
	cnn3.Open Application("Connection1")
		With cmd3
			.ActiveConnection = cnn3
			.CommandType = adCmdStoredProc
			.CommandText = "sp_delete_records"
			.Parameters.Append .CreateParameter("@table_name", adVarChar, _
				adParamInput,30, Session("table"))				
			.Parameters.Append .CreateParameter("@field_name", adVarChar, _
				adParamInput,30, Session("Field_ID"))
			.Parameters.append .CreateParameter("@id",adVarChar,_
				adParamInput, 4, Session("ID"))
			.Execute status
		End With
Set cnn3 = Nothing
Set cmd3 = Nothing
%>
<!-- #include file = "I_PopUp.asp" -->