Database

dbcc checkident ( <tablename>, RESEED, <newvalue> )<br />

<br />
dbcc checkident(authors, RESEED, 100000)<br />

sqlInsert = "INSERT into OnlineAccess(userID,lastName,firstName,...) values('"&userID&"','"&lastName&"','"&firstName&"',...) ; SELECT @@IDENTITY AS [newkeyname]"

RS = MyConn.Execute(sqlInsert)
requestID = RS("newkeyname")

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE [p_YourProc]
 @UserId int,
 @Firstname varchar(100),
 @Lastname varchar(100),
 @NewPKout integer output

AS

-- define a sql variable
declare @NewPK int;

-- do the main insert first.
INSERT into OnlineAccess(userID,lastName,firstName) values
( @UserId, @LastName, @Firstname);

-- retrieve the new key
select @NewPK=@@IDENTITY;

-- do the other inserts
INSERT into DateTime (requestID,status) 
values(@NewPK,'OPEN')

-- might as well send the pk back to asp
set @NewPKout = @NewPK

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

pParameter->Direction = (ParameterDirectionEnum)nDirection;
pParameter->PutPrecision(nPrecision);
pParameter->PutNumericScale(nScale);

SELECT a, b, c, d FROM table_one WHERE a = 5

UNION 

SELECT a, b, c, e FROM table_one WHERE a = 6

UNION

SELECT a, b, c, f FROM table_one WHERE a = 7

UNION 

SELECT a, b, c, g FROM table_one WHERE a = 8