Create a Stored Proc that inserts record into DB with accepted params from asp.net vb

StoredProc Insert Into Table

Reference:

First, Create the Procedure, then alter it:

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go



ALTER PROCEDURE [dbo].[InsertContactInfo]
(
    @DateTime SMALLDATETIME = NULL,
    @Website INT = NULL,
    @Page VARCHAR(100) = NULL,
    @ContactTypeID INT = NULL,
    @Name VARCHAR(100) = NULL,
    @Title VARCHAR(100) = NULL,
    @Company VarChar(100) = NULL,
    @HAddress VarChar(100) = NULL,
    @HAddress2 VarChar(100) = NULL,
    @HCity VarChar(100) = NULL,
    @HState VarChar(100) = NULL,
    @HCountry VarChar(100) = NULL,
    @HZip VarChar(100) = NULL,
    @HPhone VarChar(100) = NULL,
    @HFax VarChar(100) = NULL,
    @HEmail VarChar(100) = NULL,
    @WAddress VarChar(100) = NULL,
    @WAddress2 VarChar(100) = NULL,
    @WCity VarChar(100) = NULL,
    @WState VarChar(100) = NULL,
    @WCountry VarChar(100) = NULL,
    @WZip VarChar(100) = NULL,
    @WPhone VarChar(100) = NULL,
    @WFax VarChar(100) = NULL,
    @WEmail VarChar(100) = NULL,
    @ToName VarChar(100) = NULL,
    @ToEmail VarChar(100) = NULL,
    @ToSubject VarChar(100) = NULL,
    @ToMessage VarChar(2000) = NULL,
    @FromName VarChar(100) = NULL,
    @FromEmail VarChar(100) = NULL,
    @Network VarChar(100) = NULL,
    @Comment VarChar(2000) = NULL
)
AS
BEGIN
    SET NOCOUNT OFF;
        BEGIN

                Insert Into Contactlog
                (
                [DateTime],[Website],[Page],[ContactTypeID],[Name],[Title],
                [Company],[HAddress],[HAddress2],[HCity],[HState],[HCountry],
                [HZip],[HPhone],[HFax],[HEmail],[WAddress],[WAddress2],[WCity],
                [WState],[WZip],[WPhone],[WFax],[WEmail],[ToName],[ToEmail],
                [ToSubject],[ToMessage],[FromName],[FromEmail],[Network],[Comment]               
                )
                Values
                (
                GetDate(),@Website,@Page,@ContactTypeID,@Name,@Title,
                @Company,@HAddress,@HAddress2,@HCity,@HState,@HCountry,
                @HZip,@HPhone,@HFax,@HEmail,@WAddress,@WAddress2,@WCity,
                @WState,@WZip,@WPhone,@WFax,@WEmail,@ToName,@ToEmail,
                @ToSubject,@ToMessage,@FromName,@FromEmail,@Network,@Comment
                )
        END
END


 

 
Maint