<% '--- 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 %> Free Sample Zone <% if frmAction="add" then %> <% End if %>

home | catalog | about | news | reviews | mailing list | videos | links
 
E-mail address
Newsletter format
HTML   Text
 
 

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.