Advertisement
Advertisement
| 06.05.2008 at 12:16PM PDT, ID: 23461569 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: |
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
If IsValid Then
Dim cmd As New SqlCommand("spdomInsertContacts", conn)
cmd.CommandType = CommandType.StoredProcedure
prm = New SqlParameter("@Name", SqlDbType.VarChar, 60)
prm.Direction = ParameterDirection.Input
prm.Value = Me.txtName.Text
cmd.Parameters.Add(prm)
prm = New SqlParameter("@Address", SqlDbType.VarChar, 250)
prm.Direction = ParameterDirection.Input
prm.Value = Me.txtAddress.Text
cmd.Parameters.Add(prm)
prm = New SqlParameter("@Borough", SqlDbType.VarChar, 50)
prm.Direction = ParameterDirection.Input
prm.Value = Me.txtServer.SelectedIndex
cmd.Parameters.Add(prm)
prm = New SqlParameter("@ZipCode", SqlDbType.Char, 15)
prm.Direction = ParameterDirection.Input
prm.Value = Me.txtZip.Text
cmd.Parameters.Add(prm)
prm = New SqlParameter("@HomePhone", SqlDbType.VarChar, 50)
prm.Direction = ParameterDirection.Input
prm.Value = Me.txthomeph.Text
cmd.Parameters.Add(prm)
prm = New SqlParameter("@WorkPhone", SqlDbType.VarChar, 50)
prm.Direction = ParameterDirection.Input
prm.Value = Me.txtworkphone.Text
cmd.Parameters.Add(prm)
prm = New SqlParameter("@sinteam", SqlDbType.VarChar, 50)
prm.Direction = ParameterDirection.Input
prm.Value = Me.txtPartner.Text
cmd.Parameters.Add(prm)
prm = New SqlParameter("@Partner", SqlDbType.VarChar, 50)
prm.Direction = ParameterDirection.Input
prm.Value = "choose"
cmd.Parameters.Add(prm)
conn.Open()
cmd.ExecuteNonQuery()
If conn.State <> ConnectionState.Closed Then conn.Close()
If Not conn Is Nothing Then conn.Dispose()
If Not cmd Is Nothing Then cmd.Dispose()
prm = Nothing
Response.Redirect("Thankyou.aspx")
End If
|