<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Add Record (hardcoded)

Add Record (hardcoded)

<% 'Open a recordset connection Dim rsMembership Dim strSQL strSQL = "Select * from MemberData" Set rsMembership = Server.CreateObject("ADODB.Recordset") rsMembership.Locktype=3 rsMembership.Open strSQL, conn 'Add record rsMembership.AddNew rsMembership.Fields("Username") = "Tom.Jone$" rsMembership.Fields("SecretCode") = "Tom.Jone$" rsMembership.Fields("Name") = "Thomas ('Tom') Jones Woodward" rsMembership.Fields("Address") = "363 Copa De Oro Road" rsMembership.Fields("City") = "Bel Air" rsMembership.Fields("State") = "CA" rsMembership.Fields("Zip") = "90077" rsMembership.Fields("Phone") = "unlisted" rsMembership.Fields("Email") = "me@tomjones.com" rsMembership.Fields("Newsletter") = "Yes" rsMembership.Fields("Type") = "HTML" rsMembership.Fields("Gender") = "M" rsMembership.Fields("Bio") = "It's not unusual." rsMembership.Update %>

Record added!

<% 'close connections rsMembership.Close conn.close %>
Valid XHTML 1.1   Valid CSS!
<% thisfile = Request.ServerVariables("SCRIPT_NAME") thisfile = Server.MapPath(thisfile) set fso = CreateObject("Scripting.FileSystemObject") set fs = fso.getfile(thisfile) dlm = fs.datelastmodified set fs = nothing: set fso = nothing Response.Write("This page was last updated on: ") Response.Write("" & formatdatetime(dlm,1) & " " & formatdatetime(dlm,3) & " Mountain Time") %>
Source code: Add-Record(hardcoded).txt