Database

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

strConnection = _T("Driver={Microsoft Excel Driver (*.xls)};DriverId=790;"
		"Dbq=C:\\DatabasePath\\DBSpreadSheet.xls;DefaultDir=c:\\databasepath;");