<%@Language=VBScript%>


Black Legend Awards: Mailing List Subscription

<% if Session("EmailCheck") = "T" then Response.Write "


Email address was added successfully." end if Session("EmailCheck") = "" %> <% Set oRS=Server.CreateObject("ADODB.recordset") sqltext = "Select CustRecID from EmailCustProfile " sqltext = sqltext & "where ClientID = '" & varClientID & "'" oRS.open sqltext, objConn Call CheckForErrors(objConn) if not oRS.EOF then oRS.MoveFirst varCustRecID = oRS("CustRecID") end if oRS.Close set oRS = Nothing objConn.Close set objConn = Nothing %>

*  Required Information

Firstname
Lastname
Email *

>