<%@ Page Language="VB" AutoEventWireup="false" CodeFile="default.aspx.vb" Inherits="_default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title>GDR Request Form</title>
<script src="Scripts/jquery-1.8.2.js" type="text/javascript"></script>
<script src="Scripts/jQuery.maskedinput.js" type="text/javascript"></script>
<script type="text/javascript">
jQuery(document).ready(function ($) {
$("#txtCommercial").mask("(999) 999-9999");
});
</script>
<link href="Styles/style2.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form id="form1" runat="server">
<table class="ftitle2">
<tr>
<td style="text-align:left" width="25px">
Commercial:</td>
<td>
<asp:TextBox ID="txtCommercial" runat="server" Width="110px" ToolTip="Please Enter
999) 999-9999"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredCommercial" runat="server" SetFocusOnError="True" ErrorMessage="Mandatory!"
ControlToValidate="txtCommercial" ForeColor="Red" Font-Bold="True" Font-Underline="True" />
</td>
<td style="text-align:left" width="25px">
DSN:</td>
<td>
<asp:TextBox ID="txtDSN" runat="server" Width="110px" ToolTip="Please Enter: 999-9999"></asp:TextBox>
</td>
</tr>
</table>
<br />
<asp:Button ID="btnSave" runat="server" Text="Submit Request"
Font-Bold="True" />
</form>
</body>
</html>
****************************************************
Default.aspx.vb
****************************************************
Imports System.Data.SqlClient
Imports System.Data
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Load
txtRequester_Date.Text = Date.Today
txtRequestDate.Text = Date.Today
If (IsPostBack) Then
' this creates the connection.
Dim sqlConn As New SqlConnection("Data Source=JITC-PC\GEOINT; Initial catalog=DEV_GEOINT; Integrated Security=SSPI;")
' create the command object
Dim sqlCmd As New SqlCommand("sp_InsertRequest", sqlConn)
' define the connection for the command object
sqlCmd.Connection = sqlConn
sqlCmd.CommandType = CommandType.StoredProcedure
' define the SQL parameter
sqlCmd.Parameters.AddWithValue("@Org", txtOrganization.Text)
sqlCmd.Parameters.AddWithValue("@REQ_Date", txtRequester_Date.Text)
' open the connection
sqlConn.Open()
' execute the data insertion
sqlCmd.ExecuteNonQuery()
' close SQL connection
sqlConn.Close()
' dispose of the connection object (mostly optional but good practice)
sqlConn.Dispose()
' Notify the submission was accepted
Response.Write("Thank-you for your Request!")
End If
End Sub
Private Function isempty(ByVal p1 As Object) As String
Throw New NotImplementedException
End Function
End Class
Before you post, read our: 
