<%@ LANGUAGE="VBScript" %> <% Response.Buffer = True %> <% ' ################################################################################################## Function qAddEmailToList(MemEmailCATID,MemUserID) Dim connHTML Dim strSQLStmtAdd Dim MyMemEmailCATID Dim MyMemUserID MyMemEmailCATID = MemEmailCATID MyMemUserID = MemUserID strSQLStmtAdd = "qAddEmailToList" ' Open Data Connection ' Setup Parameters Set connAdd = Server.CreateObject("ADODB.Connection") Set cmdAdd = Server.CreateObject("ADODB.Command") connAdd.Open strConnHTML cmdAdd.ActiveConnection = connAdd cmdAdd.CommandText = strSQLStmtAdd cmdAdd.CommandType = adCmdStoredProc ' Enter Parameter List cmdAdd.Parameters.Append cmdAdd.CreateParameter("MyMemEmailCATID",adInteger,adParamInput,8,MyMemEmailCATID) cmdAdd.Parameters.Append cmdAdd.CreateParameter("MyMemUserID",adInteger,adParamInput,8,MyMemUserID) cmdAdd.Execute connAdd.Close Set cmdAdd = Nothing Set connAdd = Nothing End Function ' ################################################################################################## Dim FirstName Dim LastName Dim EmailAddress FirstName = CleanData(Request("FirstName"),"text") LastName = CleanData(Request("LastName"),"text") EmailAddress = CleanData(Request("EmailAddress"),"text") ' #################################################################################################### ' HTML EMAIL ADDITION ' #################################################################################################### Dim rstHTMLCheckEmail Dim connHTML Dim strSQLStmtHTMLCheckEmail strSQLStmtHTMLCheckEmail = "qCheckEmail" ' Open Data Connection ' Setup Parameters Set ConnHTML = Server.CreateObject("ADODB.Connection") Set cmdHTMLCheckEmail = Server.CreateObject("ADODB.Command") Set rstHTMLCheckEmail = Server.CreateObject("ADODB.Recordset") connHTML.Open strConnHTML cmdHTMLCheckEmail.ActiveConnection = ConnHTML cmdHTMLCheckEmail.CommandText = strSQLStmtHTMLCheckEmail cmdHTMLCheckEmail.CommandType = adCmdStoredProc ' Enter Parameter List cmdHTMLCheckEmail.Parameters.Append cmdHTMLCheckEmail.CreateParameter("EmailAddress",adVarChar,adParamInput,100,EmailAddress) Set rstHTMLCheckEmail = cmdHTMLCheckEmail.Execute If Not rstHTMLCheckEmail.EOF or Not rstHTMLCheckEmail.BOF Then ' This means if you DO find it UserID = rstHTMLCheckEmail("UserID") FirstNameHTML = rstHTMLCheckEmail("FirstName") LastNameHTML = rstHTMLCheckEmail("LastName") EmailAddressHTML = rstHTMLCheckEmail("EmailAddress") rstHTMLCheckEmail.Close connHTML.Close Set rstHTMLCheckEmail = Nothing Set connHTML = Nothing Set cmdHTMLCheckEmail = Nothing ' ############################################# ' NOW ADD IT TO THE WEB SITE OPT-IN LIST ' ############################################# Dim AddEmailAddress Dim ListID ListID = "137" AddEmailAddress = qAddEmailToList(ListID,UserID) Response.Clear Response.Redirect "../default.asp" Else Application.Lock Dim cmdHTMLNextID Set cmdHTMLNextID = Server.CreateObject("ADODB.Command") Set rstHTMLNextID = Server.CreateObject("ADODB.Recordset") cmdHTMLNextID.ActiveConnection = strConnHTML cmdHTMLNextID.CommandText = "qNextID" cmdHTMLNextID.CommandType = adCmdStoredProc Set rstHTMLNextID = cmdHTMLNextID.Execute If Not rstHTMLNextID.EOF Then List2 = "137" UserID = rstHTMLNextID("NextID") AddEmailAddress2 = qAddEmailToList(List2,UserID) rstHTMLNextID.Close Set rstHTMLNextID = Nothing Set cmdHTMLNextID = Nothing Else connHTML.Close rstHTMLNextID.Close Set ConnHTML = Nothing Set rstHTMLNextID = Nothing Set cmdHTMLNextID = Nothing Response.Clear Response.Redirect "../default.asp" End If Dim cmdHTML Dim strSQLStmtAddMember Set cmdHTML = Server.CreateObject("ADODB.Command") cmdHTML.ActiveConnection = strConnHTML cmdHTML.CommandText = "qAddMember" cmdHTML.CommandType = adCmdStoredProc cmdHTML.Parameters.Append cmdHTML.CreateParameter("UserID",adInteger,adParamInput,4,UserID) cmdHTML.Parameters.Append cmdHTML.CreateParameter("FirstName",advarchar,adParamInput,50,FirstName) cmdHTML.Parameters.Append cmdHTML.CreateParameter("LastName",advarchar,adParamInput,50,LastName) cmdHTML.Parameters.Append cmdHTML.CreateParameter("EmailAddress",advarchar,adParamInput,150,EmailAddress) cmdHTML.Execute Application.Unlock Dim HTMLAddEmailAddress Dim HTMLListID HTMLListID = "129" HTMLAddEmailAddress = qAddEmailToList(HTMLListID,UserID) connHTML.Close Set cmdHTML = nothing Set connHTML = nothing Response.Clear Response.Redirect "../default.asp" End If %>