<%@ Page Language="VB" ContentType="text/html" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<HTML>
<HEAD>
<title>Add New Truck</title>
<script language="VB" runat="server">
Dim DSConnection As SqlConnection
Sub Page_Load(Sender As Object, E As EventArgs)
If Not IsPostBack Then
BindDropDowns()
Else
End IF
End Sub
Sub BindDropDowns()
'LOCATION
'set dims
Dim DS_Location As DataSet
' Dim DSConn_Location As SqlConnection
Dim Cmd_Location As SqlDataAdapter
'set up data connection via stored proceedure
DSConnection = New SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("PSF_DataStore"))
Cmd_Location = New SqlDataAdapter("Psf_sp_ActiveDateList_TEST", DSConnection)
Cmd_Location.SelectCommand.CommandType = CommandType.StoredProcedure
'create new dataset
DS_DateList = New DataSet()
Cmd_DateList.Fill(DS_DateList, "Date")
'bind data to control
DataList1.DataSource = DS_DateList.Tables("Date").DefaultView
DataList1.DataBind()
End Sub
Sub GetListItems(sender As Object, e As EventArgs)
If DataList1.Items.Count > 0 Then
'testing to see if i get any data.
Label1.Text = "The Items collection contains: <br>"
Dim dlItem As DataListItem
Dim Date_KeyID As String
Dim txtBoxDate As String
For Each dlItem In DataList1.Items
Date_KeyID = DataList1.DataKeys(dlItem.ItemIndex).ToString
txtBoxDate = CType((dlItem.FindControl("fld_projectedsale")).Text, TextBox)
Next dlItem
End If
End Sub 'Button_Click
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
<form action="" runat="server" method="post">
<asp:DataList CellPadding="1" DataKeyField="Date_Key" DataMember="Date_Key"
Font-Name="Verdana"
Font-Size="10pt"
HorizontalAlign="Center" id="DataList1"
RepeatColumns="14" runat="server"
Width="85%" Border="1" >
<ItemTemplate>
<div align="center"><a href="#">go<%# DataBinder.Eval(Container.DataItem, "Date_Key") %></a>
<br>
</div>
<asp:TextBox ID="fld_projectedsale" Columns="5" runat="server" /> </ItemTemplate>
<footertemplate> <asp:Button ID="btn_submit" OnClick="GetListItems" Text="Insert" runat="server" /></footertemplate>
</asp:datalist>
</form>
<asp:Label id="Label1"
runat="server"/>
</body>
</html>