Ok, Brian here is the full code. See what u think.
<%@ Page Language="
vb" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Web.Security " %>
<%@ import Namespace="System.Web.UI.WebControls" %>
<script runat="server">
Sub Page_Load(Sender As Object, e As EventArgs)
IF Not Page.IsPostback Then
State.Items.Add ("")
State.Items.Add ("AL")
State.Items.Add ("AK")
State.Items.Add ("AZ")
State.Items.Add ("AR")
State.Items.Add ("CA")
State.Items.Add ("CO")
State.Items.Add ("CT")
State.Items.Add ("DC")
State.Items.Add ("DE")
State.Items.Add ("FL")
State.Items.Add ("GA")
State.Items.Add ("HI")
State.Items.Add ("ID")
State.Items.Add ("IL")
State.Items.Add ("IN")
State.Items.Add ("IA")
State.Items.Add ("KS")
State.Items.Add ("KY")
State.Items.Add ("LA")
State.Items.Add ("ME")
State.Items.Add ("MA")
State.Items.Add ("MD")
State.Items.Add ("MI")
State.Items.Add ("MN")
State.Items.Add ("MO")
State.Items.Add ("MS")
State.Items.Add ("MT")
State.Items.Add ("NE")
State.Items.Add ("NV")
State.Items.Add ("NH")
State.Items.Add ("NJ")
State.Items.Add ("NM")
State.Items.Add ("NY")
State.Items.Add ("NC")
State.Items.Add ("ND")
State.Items.Add ("OH")
State.Items.Add ("OK")
State.Items.Add ("OR")
State.Items.Add ("PA")
State.Items.Add ("RI")
State.Items.Add ("SC")
State.Items.Add ("SD")
State.Items.Add ("TN")
State.Items.Add ("TX")
State.Items.Add ("UT")
State.Items.Add ("VT")
State.Items.Add ("VA")
State.Items.Add ("WA")
State.Items.Add ("WV")
State.Items.Add ("WI")
State.Items.Add ("WY")
End If
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
BindData()
End Sub
Sub BindData()
Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection("server='(local)'; user id='sa'; password='fritz'; database='Cutis'")
MyCommand = New SqlDataAdapter("EMSLKUPS", MyConnection)
MyCommand.SelectCommand.CommandType = CommandType.StoredProcedure
MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@TxtFirst", SqlDbType.NVarChar, 1))
MyCommand.SelectCommand.Parameters("@TxtFirst").Va lue = TxtFirst.Text
MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@TxtLast", SqlDbType.NVarChar, 6))
MyCommand.SelectCommand.Parameters("@TxtLast").Val ue = TxtLast.Text
MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@TxtState", SqlDbType.NVarChar, 2))
MyCommand.SelectCommand.Parameters("@TxtState").Va lue = State.SelectedValue
MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@TxtSubscr", SqlDbType.NVarChar, 10))
MyCommand.SelectCommand.Parameters("@TxtSubscr").V alue = TxtSubscr.Text
DS = new DataSet()
MyCommand.Fill(DS, "Results")
DataGrid1.DataSource=DS.Tables("Results").DefaultV iew
DataGrid1.DataBind()
Session("datagridData") = DS.Tables("Results").DefaultView
myconnection.Close()
End Sub
Sub DataGrid1_PageChanger(sender As Object, e As DataGridPageChangedEventArgs)
DataGrid1.CurrentPageIndex = E.NewPageIndex
DataGrid1.DataSource = CType (Session("datagridData"), Dataview)
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<asp:Label id="Label4" runat="server" font-bold="True" font-size="Large" height="75px" borderstyle="Double" backcolor="#FFFFC0" forecolor="Green" width="451px">EPSILON
MANAGEMENT SYSTEMS **** LOOKUP SCREEN ****</asp:Label> <asp:Label id="Label6" runat="server" font-bold="True" font-size="XX-Large" height="76px" borderstyle="Double" backcolor="#FFFFC0" forecolor="Green" width="71px" font-names="Arial Black" bordercolor="Green">EMS</asp:Label> &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p;
</p>
<p>
&n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp;
<asp:Label id="Label7" runat="server" font-bold="True" font-size="Small" forecolor="Green" width="93px">Circulation
Fulfillment Since 1979 516-349-1440</asp:Label>
</p>
<p>
&n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p;
</p>
<p>
<asp:Label id="Label1" runat="server" height="25px" borderstyle="Double" backcolor="#FFFFC0" forecolor="Green" width="171px" bordercolor="Green">First
Initial of FirstName</asp:Label> <asp:TextBox id="TxtFirst" runat="server" ForeColor="Green" BackColor="#FFFFC0" BorderColor="Green" BorderStyle="Double" Width="34px"></asp:TextBox>
&n bsp; &nbs p; &n bsp; &nbs p;
</p>
<p>
<asp:Label id="Label5" runat="server" borderstyle="Double" backcolor="#FFFFC0" forecolor="Green" width="178px">Subscriber
No.</asp:Label> <asp:TextB ox id="TxtSubscr" runat="server" ForeColor="Green" BackColor="#FFFFC0" BorderColor="Green" BorderStyle="Double"></asp:TextBox>
&n bsp; &nbs p; &n bsp; &nbs p;
</p>
<p>
<asp:Label id="Label2" runat="server" height="23px" borderstyle="Double" backcolor="#FFFFC0" forecolor="Green" width="203px" bordercolor="Green">First
6 chars of LastName</asp:Label> <asp:TextBox id="TxtLast" runat="server" ForeColor="Green" BackColor="#FFFFC0" BorderColor="Green" BorderStyle="Double" Width="44px"></asp:TextBox>
&n bsp;
</p>
<p>
<asp:Label id="Label3" runat="server" borderstyle="Double" backcolor="#FFFFC0" forecolor="Green" width="77px" bordercolor="Green">State</asp:Label> <asp:DropDownLis t id="State" runat="server" ForeColor="Green" BackColor="#FFFFC0"></asp:DropDownList>
&n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p;
</p>
<p>
&n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p; &n bsp; &nbs p;
</p>
<p>
</p>
<p>
<asp:HyperLink id="HyperLink2" runat="server" ForeColor="Green" BackColor="#FFFFC0" BorderColor="Green" BorderStyle="Double" Width="134px" NavigateUrl="http://www.epsilonmail.com:8082/Baldwin99.aspx">Run Another Query</asp:HyperLink>
&n bsp; &nbs p; &n bsp; &nbs p;
<asp:Button id="Button1" onclick="Button1_Click" runat="server" ForeColor="Green" BackColor="#FFFFC0" BorderStyle="Double" Text="Submit Query"></asp:Button>
&n bsp;
</p>
<p>
<asp:HyperLink id="HyperLink1" runat="server" ForeColor="Green" BackColor="#FFFFC0" BorderColor="Green" BorderStyle="Double" Width="121px" NavigateUrl="http://www.epsilonmail.com:8082/default.aspx">Home Page</asp:HyperLink>
</p>
<p>
</p>
<p>
</p>
<p>
</p>
<p>
</p>
<p>
</p>
<p>
<asp:DataGrid id="DataGrid1" runat="server" ForeColor="Green" BackColor="#FFFFC0" BorderColor="Green" BorderStyle="Double" ShowFooter="True" AllowPaging="True" PageSize="8" OnPageIndexChanged="DataGrid1_PageChanger">
<EditItemStyle forecolor="Green" backcolor="#FFFFC0"></EditItemStyle>
<AlternatingItemStyle forecolor="Green" bordercolor="White" backcolor="White"></AlternatingItemStyle>
</asp:DataGrid>
</p>
</form>
</body>
</ht