Add Record into Single Table in Access:
Code:
Download Sample Database
add.asp
Highlight
<html> <head> <style> .font {font-family:arial; font-size:10pt} </style> </head> <body> <form method="post" action="process.asp"> <table> <tr> <td valign=middle class=font><b>Name: </b></td> <td><input type="text" size="30" name="Name"></td> </tr> <tr> <td valign=middle class=font><b>Title: </b></td> <td><input type="text" size="30" name="Title"></td> </tr> <td valign=middle class=font><b>Division: </b></td> <td><input type="text" size="30" name="Division"></td> </tr> <td valign=middle class=font><b>Phone: </b></td> <td><input type="text" size="30" name="Phone"></td> </tr> <td valign=middle class=font><b>E-Mail: </b></td> <td><input type="text" size="30" name="Email"></td> </tr> <tr> <td> </td> <td><br><input type="submit" value="Add Record"></td> </tr> </table> </form> </body> </html>
process.asp
Highlight
<%Option Explicit%> <% dim conn, rs, strconn strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("DATABASE NAME.mdb") set conn = server.createobject("adodb.connection") conn.open strconn set rs = server.createobject("adodb.recordset") rs.open "TABLE NAME", conn, 2, 2 rs.addnew rs("Name") = request.form("Name") rs("Title") = request.form("Title") rs("Division") = request.form("Division") rs("Phone") = request.form("Phone") rs("Email") = request.form("Email") rs.update rs.movelast %> <html> <head> <style> .font {font-family:arial; font-size:10pt} </style> </head> <body> <table> <tr> <td class=font><b>Your Record ID# is: </b></td><td class=font><%=strID%></td> </tr> <tr> <td class=font><b>Your Name is: </b></td><td class=font><%=request.form("Name")%></td> </tr> <tr> <td class=font><b>Your Title is: </b></td><td class=font><%=request.form("Title")%></td> </tr> <tr> <td class=font><b>Your Division is: </b></td><td class=font><%=request.form("Division")%></td> </tr> <tr> <td class=font><b>Your Phone # is: </b></td><td class=font><%=request.form("Phone")%></td> </tr> <tr> <td class=font><b>Your E-Mail # is: </b></td><td class=font><%=request.form("Email")%></td> </tr> </table> </body> </html> <% set rs= nothing set conn = nothing %>