All_Form.ASP - SQL Source Code in ASP

Special : Web Developer's Collection CD-ROM
50,000+ Web Templates, Logos, Cliparts, Scripts. Order Now!

Add to Favorites Make Home Page

9262 Online

Language Categories

Source Codes Home
Project Ideas New!
Interview Questions
FAQs Home
ASP Home: ASP Source Codes; ASP Script Directory New!; ASP .Net Script Directory New!; ASP Interview Questions; ASP FAQs; ASP How Tos
C Home: C Source Codes; C Script Directory New!; C Interview Questions; C FAQs; C How Tos
C++ Home: C++ Source Codes; C++ Script Directory New!; C++ Interview Questions; C++ FAQs; C++ How Tos
Java Home: Java Source Codes; Java Directory New!; Java Interview Questions; Java FAQs; Java How Tos
JavaScript Home: JavaScript Directory New!; JavaScript Source Codes; JavaScript FAQs; JavaScript How Tos
COBOL Home: COBOL Source Codes; COBOL FAQs; COBOL How Tos
Pascal Home: Pascal Source Codes; Pascal FAQs; Pascal How Tos
PHP Script Directory New!
Python Script Directory New!
Perl & CGI Script Directory New!
Flash Script Directory New!
CFML Script Directory New!
Remotely Hosted Scripts New!
Tools & Utilities Directory New!
XML Script Directory New!
Best Programmers: Amit Mathur; Vishal Bhardwaj; Deepesh Jain
Vyom NetWork

Our Services

Get 9,000 Interview Questions & Answers in an eBook.

9500+ Pages
9000 Question & Answers
All Tech. Categories

14 MB Content

Get it now !!

Home » ASP Home » SQL Home » All_Form.ASP

A D V E R T I S E M E N T

Title	All_Form.ASP
Description	Multi-function form for basic navigation, table editing, and recordset paging. This example includes code to dynamically build an SQL UPDATE command based on changed items on the current record.
Category	ASP » SQL
Hits	380359
Code	Select and Copy the Code
<% Option Explicit %> <% Response.Expires=0 %> <HTML> <HEAD></HEAD> <BODY BGColor=White Text=Black> <STYLE> .btn {Width:100%} </STYLE> <% Dim Page ' Local var For page # Dim cn ' Connection object Dim rs ' Recordset object Dim Action ' Button pressed Dim PageSize ' How far To page Dim UpdSQL, MySQL ' String To hold SQL Dim i ' Loop counter Dim item, value ' Used To retrieve changed fields Dim issueUpdate ' After Save button press, any changes to make? Action = Request.Form("NavAction") If Request.Form("Page") <> "" Then Page = Request.Form("Page") Else Page = 1 End If If Request.Form("PageSize") <> "" Then PageSize = Request.Form("PageSize") Else PageSize = 5 End If Set cn = Server.CreateObject("ADODB.Connection") cn.Open Application("guestDSN") ' Get initial recordset Set rs = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT * FROM AUTHORS" rs.PageSize = PageSize rs.Open MySQL, cn, adOpenKeyset, adLockOptimistic Select Case Action Case "Begin" Page = 1 Case "Back" If (Page > 1) Then Page = Page - 1 Else Page = 1 End If rs.AbsolutePage = Page Case "Forward" If (CInt(Page) < rs.PageCount) Then Page = Page + 1 Else Page = rs.PageCount End If rs.AbsolutePage = Page Case "End" rs.AbsolutePage = rs.PageCount Case "Save" ' Grab the proper record, Then update ' This routine is hard coded For AU_ID as the key field. ' To alter this to work With another DB Table you will need to ' Use the proper primary key instead of AU_ID. rs.Close MySQL = "SELECT * FROM AUTHORS WHERE au_id = '" & Request.Form("Au_id") & "'" rs.MaxRecords = 1 rs.Open MySQL, cn, adOpenStatic, adLockOptimistic UpdSQL = "UPDATE AUTHORS " issueUpdate = False For i = 0 To (rs.Fields.Count - 1) item = rs.Fields(i).Name value = Request.Form(item) ' Only update items that have changed If (rs(i) <> value) Then If issueUpdate = False Then UpdSQL = UpdSQL & "SET " Else UpdSQL = UpdSQL & "," End If issueUpdate = True Select Case VarType(rs.Fields(i)) ' Determine datatype For proper SQL UPDATE syntax ' NOTE: Not all data types covered Case vbString, vbDate UpdSQL = UpdSQL & item & "='" & value & "'" Case vbNull Case vbInteger UpdSQL = UpdSQL & item & "=" & value Case vbBoolean If value Then UpdSQL = UpdSQL & item & "= 1" Else UpdSQL = UpdSQL & item & "= 0" End If End Select End If Next UpdSQL = UpdSQL & " WHERE au_id = '" & Request.Form("Au_id") & "'" If issueUpdate Then cn.Execute UpdSQL Set rs = cn.Execute(MySQL) End If Case "New" ' response.write "New" rs.AddNew Case "Bookmark" Session("myBookMark") = rs.BookMark Case "Goto" If Not IsNull(Session("myBookMark")) Then rs.BookMark = Session("myBookMark") End If Case Else rs.MoveFirst End Select %> <CENTER> <!-- 2 Column Table --> <!-- 1 Column For Data, 1 For Controls --> <TABLE Align=Center border=1 BGColor=Navy BorderColorDark=Navy BorderColorLight=Aqua BorderColor=Blue> <!-- Table Header --> <TH Colspan=2> <FONT Color=White Size=+2><CENTER>Navigating Example</CENTER></FONT> </TH> <!-- Main Table Content --> <TR><TD> <!-- Nested Table 1 --> <!-- Author Detail --> <FORM Action=all_form.asp Method="POST"> <TABLE Align=Left BORDER=0 BGColor=Gray Text=White> <% For i = 0 To rs.Fields.Count - 1 %> <TR><TD><B><%= rs.Fields(i).Name %></B></TD> <TD><Input Type=Text Name="<%= rs.Fields(i).Name %>" Value="<%= rs(i) %>"></TD> </TR> <% Next %> </TABLE> </TD> <TD BGColor=Black Width=100> <!-- Nested Form 2 --> <!-- Persisted Values --> <Input Type="Hidden" Name="PageSize" Value="1"> <Input Type="Hidden" Name="Page" Value="<%= Page %>"> <!-- Navigation Buttons --> <Input Type="Submit" Name="NavAction" Value="Begin" Class=Btn><BR> <Input Type="Submit" Name="NavAction" Value="Back" Class=Btn><BR> <Input Type="Submit" Name="NavAction" Value="Forward" Class=Btn><BR> <Input Type="Submit" Name="NavAction" Value="End" Class=Btn><P> <Input Type="Submit" Name="NavAction" Value="Save" Class=Btn><BR> <Input Type="Submit" Name="NavAction" Value="New" Class=Btn><P> <Input Type="Submit" Name="NavAction" Value="Bookmark" Class=Btn><BR> <Input Type="Submit" Name="NavAction" Value="Goto" Class=Btn><P> </TD> </TR> </TABLE> </FORM> <P> <!-- Floating Frame --> <IFRAME width=70% height=180 src="list.asp?auid=<%= rs( </Include/code.asp?source=/ado/samples/list.asp?auid=<%= rs(>"au_id") %>" FrameBorder=1 Scrolling=No> <FRAME width=70% height=180 src="list.asp?auid=<%= rs( </Include/code.asp?source=/ado/samples/list.asp?auid=<%= rs(>"au_id") %>"> </IFRAME> </CENTER> </BODY> </HTML>

Related Source Codes

Script Name Author

�� VyomWorld

Resistor color code reader A.Chermarajan.

Telephone Directory dhivya

card swapping game (Mini Project) nityanand

simple hangman-pascalsource Seabert

college dirtectory (Mini Project) msridhar

Poll Application John van Meter

ASP Daily Hit Counter. Tejaskumar Gandhi

To avoid null in asp environment using sql Sami

Maklumbalas webmaster

poll John van Meter

EasyASP Template Engine. TjoekBezoer

Basic Calculator using HTML & Javascript. Patrick M. D Souza

What servers support ASP ? VyomWorld

What is ASP? VyomWorld

A D V E R T I S E M E N T

Google Groups Subscribe to SourceCodesWorld - Techies Talk

Email:

Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

Free Tutorials - HTML, Java, SQL, PHP, ASP, Perl, SQL Tutorials
Discuss Programming Problems and Freshers Jobs related issues here.
Discuss Final Year Project Ideas here.