tgrPostData

				
--**************************************
-- Name: tgrPostData
-- Description:Split an insertion and distribute it to seperate tables.
-- By: Raalnan Five
--
-- Inputs:Distribution Table Fields.
--
-- Returns:Distribution Table Fields if necessary
--
-- Assumes:You should know the basics of triggers
--
-- Side Effects:A feeling of euphoria
--
--This code is copyrighted and has-- limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=820&lngWId=5--for details.--**************************************

--System Generated SQL has a tendancy to be a little heavier than it needs to be.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tblAnswer]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[tblAnswer]
GO
CREATE TABLE [dbo].[tblAnswer] (
	[ClassName] [nvarchar] (255) NULL ,
	[QuestionID] [int] NULL ,
	[AnswerID] [int] IDENTITY (1, 1) NOT NULL ,
	[Answer] [varchar] (8000) NULL 
) ON [PRIMARY]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tblQuestion]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[tblQuestion]
GO
CREATE TABLE [dbo].[tblQuestion] (
	[ClassName] [nvarchar] (255) NULL ,
	[QuestionID] [int] IDENTITY (1, 1) NOT NULL ,
	[Question] [nvarchar] (255) NULL 
) ON [PRIMARY]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tgrPostData]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[tgrPostData]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tblQA]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[tblQA]
GO
CREATE TABLE [dbo].[tblQA] (
	[Question] [varchar] (8000) NULL ,
	[Answer] [varchar] (8000) NULL ,
	[QuestionID] [int] IDENTITY (1, 1) NOT NULL 
) ON [PRIMARY]
GO
SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO
CREATE TRIGGER tgrPostData ON [dbo].[tblQA]
FOR INSERT
AS
Begin	--	Transactions keep code clean!
	Declare @QuestionID int, @Answer VarChar(8000), @Question VarChar(8000)	--	Let there be light! (Establish variables to hold values)
	Set @Answer = (Select Answer From Inserted)	--	ShoveIt (put the necessary values into variables)
	Set @Question = (Select Question From Inserted)	--	ShoveIt (put the necessary values into variables)
	
	Insert Into tblQuestion(Question) Values(@Question)	--	HeelFlip
	Set @QuestionID = (Select @@Identity From Inserted)	--	ReBate
	Insert into tblAnswer(Answer, QuestionID) Values(@Answer, @QuestionID)	--	KickFlip
End
--	Questions, EMail me at Raalnan5@Cox.net
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO