Наш бюллетень
Главное меню > Contact us > Бюллетень > Бюллетень
<%
FUNCTION IsEmail(sCheckEmail)
Dim sEmail, nAtLoc
IsEmail = True
sEmail = Trim(sCheckEmail)
nAtLoc = InStr(1, sEmail, "@") 'Location of "@"
If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then
'"@" must exist, and last "." in string must follow the "@"
IsEmail = False
ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
'String can't have more than one "@"
IsEmail = False
ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
'String can't have "." immediately following "@"
IsEmail = False
ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
'String must have at least a two-character top-level domain.
IsEmail = False
End If
END FUNCTION
%><% document_1_id = 31
get_labels_dictionary language_id, document_1_id, 0
email_address = Request.Form("email_address")
from = Request.Form("from")
'MESSAGES
subscribe = label_dictionary(0).item("subscribe")
subscribe_form = replace(label_dictionary(0).item("subscribe_form"), "%%email_address%%", email_address)
successfully_subscribed = label_dictionary(0).item("successfully_subscribed")
incorrect_address = label_dictionary(0).item("incorrect_address")
search_form = label_dictionary(0).item("search_form")
IF from<>"this_page" AND email_address = "" THEN
response.write subscribe
response.write subscribe_form
response.write search_message
response.write search_form
ELSE
IF Isemail(email_address) THEN
site_id = Request.Form("site_id")
'SITE ID
IF site_id = "" THEN
site_id = 0
END IF
'ADDRESS TYPE
address_type = Request.Form("address_type")
IF address_type = "" THEN
address_type = 1
END IF
'LIST NAME
IF Request.Form("list") <> "" THEN
list = Request.Form("list")
ELSE
list= "minfo"
END IF
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.innerhost.com"
Mailer.FromName = email_address
Mailer.FromAddress = email_address
Mailer.AddRecipient "Micheloud & Cie newsletter", "join-minfon@lists.micheloud.com"
if Mailer.SendMail then
response.write replace(successfully_subscribed, "%%email_address%%", email_address)
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
response.write ""
ELSE
'INCORRECT EMAIL ADDRESS
response.write replace(incorrect_address, "%%email_address%%", email_address)
response.write subscribe_form
response.write search_message
response.write search_form
END IF
END IF
db.Close
Set db = Nothing
%> |
