Datacheck Solutions :: ASP

Tutorials
Back

Form to database Download the code
Form to database Download the code We are going to create 2 pages. The first will display a simple HTML form and the second will be an ASP page (known as the action page) which will process the data sent by the form and insert it into our Access database. We will be using a DSN-less connection. Create a page and name it 'form.html'. Copy the following code into it. <html> <head> <title>Form to Database</title> </head> <body> <!-- comment - start the HTML form and use a HTML table for formatting--> <form name="form1" action="add_to_database.asp" method="post"> <div align="center"> <table width="80%" border="0"> <tr> <td>Name :</td> <td><input type="text" name="name"></td> </tr> <tr> <td>Email :</td> <td> <input type="text" name="email"></td> </tr> <tr> <td>Comments :</td> <td><textarea name="comments">

The above code creates a simple form asking for name, email and comments. The form knows which page to post the details too i.e. action="add_to_database.asp". Now onto the ASP action page, i.e. the page that will receive the details sent from the form and process them. Create a new ASP page called 'add_to_database.asp'. Keep it in the same folder as 'form.html'. Copy and paste the following ASP code into 'add_to_database.asp'. <%@ Language="VBScript" %> <% Option Explicit %> Form to database <% 'declare your variables Dim name, email, comments Dim sConnString, connection, sSQL ' Receiving values from Form, assign the values entered to variables name = Request.Form("name") email = Request.Form("email") comments =Request.Form("comments") 'declare SQL statement that will query the database sSQL = "INSERT into users_tbl (name, email, comments) values ('" & _ name & "', '" & email & "', '" & comments & "')" 'define the connection string, specify database 'driver and the location of database sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("Users.mdb") 'create an ADO connection object Set connection = Server.CreateObject("ADODB.Connection") 'Open the connection to the database connection.Open(sConnString) 'execute the SQL connection.execute(sSQL) response.write "The form information was inserted successfully." ' Done. Close the connection object connection.Close Set connection = Nothing %>