% '--- retrive form data --- frmEmail = Request("email") frmFormat = Request("format") frmAction = Request("todo") if frmAction="add" then '--- check that e-mail address doesn't exist already --- Set eRS = Server.CreateObject("ADODB.Recordset") eSQL = "SELECT * FROM tblmembers WHERE member_email = '" & frmEmail & "';" eRS.Open eSQL, adoCon if NOT eRS.EOF then blnErr = "1" Else blnErr = "0" '--- Insert record and new member in database --- addSQL = "INSERT INTO tblmembers (member_email, member_active, member_format, member_regdate, member_outdate) VALUES ('" & frmEmail & "', True, '" & frmFormat & "', '" & Date() & "', '" & Date & "');" adoCon.Execute(addSQL) End if eRS.Close Set eRS=Nothing End if %>
|
||||
Join the Free Sample Zone mailing list. Keep up to date with the new releases. Your email address is kept private and never shared with anyone. We won't send out massive amounts of emails. Sign-in from this page. You can unsubscribe at the end of each newsletter we send. |
||||