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

SQL Add Record (hardcoded)

<% 'Open a recordset connection Dim rsMembership Dim strSQL strSQL = "INSERT INTO MemberData (Username, SecretCode, Name, Address, City, State, Zip, Phone, Email, Newsletter, Type, Gender, Bio) VALUES ('yenyang', 'yyw', 'Yen Wang', '6532 Far East Blvd. #C-4', 'Norcross', 'GA', '30092', '7709313456', 'yen.wang@gmail.com', 'No', '', 'F', 'You can''t be serious!')" 'Comma-Space or just Comma in Field List; Comma-Space required in VALUES list Set rsMembership = Server.CreateObject("ADODB.Recordset") rsMembership.Locktype=3 rsMembership.Open strSQL, conn %>

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: SQL-Add-Record(hardcoded).txt