Input Box Not Updating

I have two textboxes on the page...shipdate and duedate.  When the page loads, shipdate has today's date loaded and duedate has a date that's 28 days later than today.  When I change the dates and submit it's not updating in the database instead I'm getting the two dates in pageload.  What am I doing wrong?Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

 

ShipDateTxt.Text = Today()

DueDateTxt.Text = DateAdd(DateInterval.Day, 28, Today())

End SubProtected Sub LoanRequest_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LoanRequest.Click

Dim conn As New Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("TrainUserConnectionString").ConnectionString)Dim cmd As New Data.SqlClient.SqlCommandWith cmd

.Connection = conn

.CommandType = Data.CommandType.StoredProcedure

.CommandText = "UpdateloanerInfo".Parameters.AddWithValue("@requestorid", Integer.Parse(Request.QueryString("requestorid")))

.Parameters.AddWithValue("@shipdate", ShipDateTxt.Text).Parameters.AddWithValue("@duedate", DueDateTxt.Text)

End With

Here's updateloanerinfo stored procedure:

@requestorid int,
@shipdate datetime,
@duedate datetime

AS update LibraryRequest

set
[shipdate] = @shipdate,
[duedate] = @duedate

Where  requestorid=@requestorid