%@Language=VBScript%>
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
%>