Home » 2011 (Page 4)

Archive for 2011

Classic asp delete script

<% ‘define variables DIM objConn, objRS ‘connection DIM i_last, count, bgcolor ‘even row bg color Dim job, recID ‘fetching query strings job = Request.QueryString(“do”) recID = Request.QueryString(“rid”) Dim sqlstatement ‘ sql query command string If job = “del” Then SET objConn = Server.CreateObject(“ADODB.Connection”) objConn.ConnectionTimeOut = 30 objConn.Open “DSN=MySystemDSN” sqlstatement = “DELETE FROM Customers WHERE ID=” […]

VB.NET – Update record in code behind

Default.aspx Project Status: Open In process On hold Closed <asp:DropDownList ID=”UpdateStatus” runat=”server”> <asp:ListItem Text=”Open” Value=”Open”> <asp:ListItem Text=”In process” Value=”In process”> <asp:ListItem Text=”On hold” Value=”On hold”> <asp:ListItem Text=”Closed” Value=”Closed”> </asp:DropDownList> <asp:Button ID=”UpdateBtn” runat=”server” Text=”Update” /> Default.vb.aspx Imports System.Web.UI.WebControls.DropDownList Protected Sub UpdateBtn_Click(sender As Object, e As System.EventArgs) _ Handles UpdateBtn.Click ‘ – query identifier Dim pid As […]

VB.NET – Send Email

Send Email Page Please complete input form: <asp:Label ID=”Confirm” runat=”server” > <asp:Label ID=”litStatus” runat=”server” style=”color: Gray; padding-left: 20px;”> <asp:FormView ID=”FormView1″ runat=”server” DataKeyNames=”ID” DataSourceID=”AccessDataSource1″ DefaultMode=”Insert”> <InsertItemTemplate> Your Name:<asp:TextBox ID=”NameTextBox” runat=”server” Text=’< %# Bind("Name") %>‘ Class=”inputText” /> <asp:RequiredFieldValidator ID=”RequiredFieldValidator1″ runat=”server” ErrorMessage=”<font color=’red’>*</font>” ControlToValidate=”NameTextBox”></asp:RequiredFieldValidator> Code Number:<asp:TextBox ID=”CodeNumberTextBox” runat=”server” Text=’< %# Bind("CodeNumber") %>‘ Class=”inputText” /> <asp:RequiredFieldValidator ID=”RequiredFieldValidator2″ runat=”server” ErrorMessage=”<font […]