Database

SELECT COUNT(*) AS Total
FROM CDCopy
WHERE CatalogueNumber=[Please enter the catalogue number to find out how many copies are available];

MsgBox([GETCDCopyCount]![Total]![CatalogueNumber])

            Insert into users
    (
        firstName,
        middleName,
        lastName,
        sex,
        entryDate,
        modifyDate,
        modifyUser,
        locID,
        deptID,
        contactID,
        authenticationID,
        userLevelID
    )
    Values
    (
        @firstName,
        @middleName,
        @lastName,
        @sex,
        getDate(),
        getDate(),
        @modifyUser,
        @locID,
        @deptID,
        @contactID,
        @authenticationID,
        @userLevelID
    );
set @userID = Scope_Identity();

return @userID;

conn.Open()
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@firstName", Server.HtmlEncode(txtFirstName.Text.Trim))
cmd.Parameters.AddWithValue("@middleName", Server.HtmlEncode(txtMiddleName.Text.Trim))
cmd.Parameters.AddWithValue("@lastName", Server.HtmlEncode(txtLastName.Text.Trim))
cmd.Parameters.AddWithValue("@sex", dropSex.SelectedValue.ToString)
cmd.Parameters.AddWithValue("@locID", "1")
cmd.Parameters.AddWithValue("@userLevelID", "10")
cmd.Parameters.AddWithValue("@deptID", "1")
cmd.Parameters.AddWithValue("@hash", strHash)
cmd.Parameters.AddWithValue("@salt", strSalt)
cmd.Parameters.AddWithValue("@ssn", txtSSN.Text.Trim)
cmd.Parameters.AddWithValue("@street", Server.HtmlEncode(txtStreet.Text.Trim))
cmd.Parameters.AddWithValue("@city", Server.HtmlEncode(txtCity.Text.Trim))
cmd.Parameters.AddWithValue("@stateID", dropStates.SelectedValue.ToString)
cmd.Parameters.AddWithValue("@zip", txtZip.Text.Trim)
If txtPhone.Text.Length > 0 Then
    cmd.Parameters.AddWithValue("@phone", txtPhone.Text.Trim)
Else
    cmd.Parameters.AddWithValue("@phone", DBNull.Value)
End If
If txtCell.Text.Trim.Length > 0 Then
    cmd.Parameters.AddWithValue("@cell", txtCell.Text.Trim)
Else
    cmd.Parameters.AddWithValue("@cell", DBNull.Value)
End If
If txtPhone2.Text.Trim.Length > 0 Then
    cmd.Parameters.AddWithValue("@phone2", txtPhone2.Text.Trim)
Else
    cmd.Parameters.AddWithValue("@phone2", DBNull.Value)
End If
cmd.Parameters.AddWithValue("@userName", txtUserName.Text.Trim)
cmd.Parameters.AddWithValue("@modifyUser", DBNull.Value)
Dim userID As Integer = cmd.ExecuteScalar

Session("userID") = userID