<%@ Page Language="VB" Debug="false" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[URL unfurl="true"]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">[/URL]
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub btnSearch_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim objCommand As OleDbCommand
Dim objAdapter As OleDbDataAdapter
Dim objDataSet As DataSet
Dim strSearch As String
Dim objConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\the path to your db here"
Dim cn As New OleDbConnection(objConnection)
Dim strSQLQuery As String
strSearch = txtSearch.Text
If Page.IsValid Then
If Len(Trim(strSearch)) > 0 Then
strSQLQuery = "SELECT This is your SQL here tblName.AccountNumber)=" & strSearch & "));"
cn.Open()
Dim cmd As New OleDbCommand(strSQLQuery, cn)
objCommand = New OleDbCommand(strSQLQuery, cn)
objAdapter = New OleDbDataAdapter(objCommand)
objDataSet = New DataSet()
objAdapter.Fill(objDataSet)
dgPaging.DataSource = objDataSet
dgPaging.DataBind()
If dgPaging.Items.Count = 0 Then
txtResults.Text = "No matching records found. Please proceed with transaction"
txtResults.ForeColor = Drawing.Color.Green
Else
txtResults.Text = "Result found message here"
txtResults.ForeColor = Drawing.Color.Red
End If
cn.Close()
Else
txtSearch.Text = "Account Number required"
txtResults.Text = ""
dgPaging.DataSource = ""
dgPaging.DataBind()
End If
End If
End Sub
Public Sub btnClear_OnClick(ByVal sender As Object, ByVal e As EventArgs)
txtSearch.Text = ""
txtResults.Text = ""
dgPaging.DataSource = ""
dgPaging.DataBind()
End Sub
Protected Sub dgPaging_SelectedIndexChanged(sender As Object, e As System.EventArgs)
End Sub
</script>
<html>
<head>
<title>Query Results Results</title>
<style type="text/css">
.style1
{
width: 168px;
height: 44px;
float: left;
}
.style2
{
font-family: "Microsoft Sans Serif";
font-size: large;
}
.style5
{
width: 88px;
height: 54px;
}
.style6
{
color: #FF0000;
font-size: large;
}
.style8
{
font-family: "Microsoft Sans Serif";
}
.style9
{
width: 337px;
}
</style>
</head>
<body><table width="95%"><tr><td><center>
<font face="Microsoft Sans Serif" size="1">
<img alt="Logo" class="style1" longdesc="Logo" src="logo.gif" /><br />
<br />
<br />
<br />
</font> <strong style="text-decoration: underline"><span class="style8"><span
class="style6">Title</span></span><span class="style2"> of Search<br />
</span>
</strong><br />
<font face="Microsoft Sans Serif" size="1">
<img class="style5"
src="angled-stop-sign.jpg" /><br />
<br />
<form runat="server" style="height: 342px">
<table>
<tr><td align="left" class="style9"><strong>Please enter an account number</strong></td></tr>
<tr><td class="style9"><asp:TextBox ID="txtSearch" runat="server" Width="200px" CausesValidation="False" />
<asp:Button ID="btnSearch" runat="server" Text="Search" OnClick="btnSearch_OnClick" />
<asp:Button ID="btnClear" runat="server" Text="Reset" OnClick="btnClear_OnClick"
Width="61px" PostBackUrl="~/Search.aspx" /></td></tr><tr><td class="style9"><font style="font-family: 'Microsoft Sans Serif'; font-size: x-small; font-weight: bold;
font-style: normal; font-variant: normal; color: #FF0000; text-transform: capitalize">.
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" Display="dynamic"
ControlToValidate="txtSearch" ErrorMessage="Account number must contain 1-15 numeric values only."
ValidationExpression="[0-9]{1,15}" /></font></td></tr></table>
<br />
<br />
<asp:DataGrid ID="dgPaging" runat="server" HeaderStyle-Font-Bold="True" OnSelectedIndexChanged="dgPaging_SelectedIndexChanged"
BorderColor="Blue" BorderStyle="Dotted" Caption="Search Results" CaptionAlign="Top"
CellSpacing="2" Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
Font-Overline="False" Font-Size="X-Small" Font-Strikeout="False" Font-Underline="False"
GridLines="Horizontal" CellPadding="2" BackColor="#CCFF33"
ForeColor="Blue" Height="16px"
HorizontalAlign="Center" Width="75%">
<AlternatingItemStyle Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
Font-Overline="False" Font-Size="XX-Small" Font-Strikeout="False" Font-Underline="False"
ForeColor="Black" HorizontalAlign="Center" Wrap="False" />
<EditItemStyle BackColor="Black" Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
Font-Overline="False" Font-Size="XX-Small" Font-Strikeout="False" Font-Underline="False"
HorizontalAlign="Center" Wrap="False" />
<FooterStyle Font-Bold="True" Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" Wrap="False" />
<HeaderStyle Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
Font-Overline="False" Font-Size="X-Small" Font-Strikeout="False" Font-Underline="False"
ForeColor="Black" HorizontalAlign="Center" Wrap="False"></HeaderStyle>
<ItemStyle Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
Font-Overline="False" Font-Size="XX-Small" Font-Strikeout="False" Font-Underline="False"
ForeColor="Black" HorizontalAlign="Center" Wrap="False" />
<PagerStyle Font-Bold="True" Font-Italic="False" Font-Overline="False" Font-Size="XX-Small"
Font-Strikeout="False" Font-Underline="False" Wrap="False" />
<SelectedItemStyle Font-Bold="True" Font-Italic="False" Font-Names="Microsoft Sans Serif"
Font-Overline="False" Font-Size="XX-Small" Font-Strikeout="False" Font-Underline="False"
ForeColor="Black" HorizontalAlign="Center" Wrap="False" />
</asp:DataGrid>
<br />
<br />
<font face="Microsoft Sans Serif" size="1">
<asp:TextBox ID="txtResults" runat="server" Width="75%" BorderStyle="None" Height="71px"
BorderWidth="0px" ForeColor="#0000CC" TextMode="MultiLine"
Font-Bold="True" Font-Names="Microsoft Sans Serif"
Font-Size="Medium" />
</font>
<br />
<br />
<br />
<br />
<br />
<br />
</form>
<table align="center" width="75%" style="height: 41px">
<tr align="center">
<td align="center" width="75%">
<font face="ms san " style="font-family: 'Microsoft Sans Serif'; font-size: x-small;
font-weight: normal; color: #808080">company name confidential - for internal use only</font>
</td>
</tr>
<tr>
<td align="center" width="75%">
<font style="font-family: 'Microsoft Sans Serif'; font-size: x-small; font-weight: normal;
color: #808080">Copyright © 2011 company name here.</font>
</td>
</tr>
</table>
</center></td></tr></table>
</body>
</html>