KCWebMonkey: It looks precisely as that...
Here...
*****begin paste*****
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%
dim rsAddAuthor
dim adoCon
dim strSQL
'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("news.mdb")
'Intialise the ADO recordset object
Set rsAddAuthor = Server.CreateObject("ADODB.Recordset")
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tblAuthor.* From tblAuthor;"
'Set the cursor type property of the record set to Dynamic so we can navigate through the record set
rsAddAuthor.CursorType = 2
'Set the Lock Type for the records so that the record set is only locked when it is updated
rsAddAuthor.LockType = 3
'Query the database
rsAddAuthor.Open strSQL, adoCon
'Add a new record to the recordset if it's a new News Item
rsAddAuthor.AddNew
'add new record to the recordset
rsAddAuthor.Fields("First_name") = Request.Form("firstname")
rsAddAuthor.Fields("Last_name") = Request.Form("lastname")
rsAddAuthor.Fields("Email") = Request.Form("email")
rsAddAuthor.Fields("Username") = Request.Form("username")
rsAddAuthor.Fields("Password") = Request.Form("password")
'Update the database with the new user's info
rsAddAuthor.Update
'Reset Server Objects
rsAddAuthor.Close
Set adoCon = Nothing
Set rsAddAuthor = Nothing
response.redirect"author.asp"
%>
*****end paste*****
Topic Options
Post Options
Thanks(0)
