<%
IF len(Request.Form("btnSubmit"))>0 Then
%>
<%
txtFName=Replace(Request.Form("txtFName"),"'", "''")
txtLName=Replace(Request.Form("txtLName"),"'", "''")
txtEmail=Replace(Request.Form("txtEmail"),"'", "''")
'getMaxID: return Next ID
CustomerID=getMaxID("CUSTOMER_ID","CUSTOMER")
strSQL = "INSERT INTO CUSTOMER(CUSTOMER_ID,FIRST_NAME,LAST_NAME,EMAIL_ADDRESS,NOTIFY,DATE_CREATED)"
strSQL=strSQL & "Values("&CustomerID&",'"&txtFName&"','"&txtLName&"','"&txtEmail&"',1,#" & Now() & "#)"
dbConn.Execute strSQL
IF Request.Form("rdoMailType")="HTML" THEN
' Send HTML email
SendHTMLEmail CustomerID, txtFName,txtLName, txtEmail
ELSE
'Send Text email
SendTextEmail txtFName,txtLName, txtEmail
END IF
%>
<%
ELSE
%>
To receive information and coupons for upcoming shows, please complete the
form below.
<%
End IF
%>