<%@ LANGUAGE="VBSCRIPT" %>
<%
if request.form("email") = "" then
Response.Redirect "index3.html"
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Set MailList = Server.CreateObject("ADODB.Recordset")
Conn.Open "DSN=A2ASearch"
sql= "select * from TblMailList where StrEmail = '" & request.form("email") & "'"
MailList.Open sql, Conn, 2, 3
ErrDesc = ""
if MailList.eof then
MailList.addnew
MailList.fields("StrEmail") = request.form("email")
MailList.update
sMsg = "Thank you for subscribe" & chr(13) & chr(10)
sMsg = sMsg & "you will receive latest news and articles" & chr(13) & chr(10)
sMsg = sMsg & "Access to Arabia"
set themail = server.CreateObject("cdonts.newmail")
themail.From = "info@access2arabia.com"
themail.To = request.form("email")
themail.Subject = "Confirmation Email"
themail.Body = sMsg
themail.Send
' send message
On Error Resume Next
If Err <> 0 Then
ConfMesg = "An error occurred: " & Err.Description & err
else
ConfMesg = "Thank you for your interesting in our site, a confirmation message have been emailed to you and should arrive shortly."
End If
set themail = nothing
else
ErrDesc = "This Email Address is already exist" & " "
ErrDesc = ErrDesc & "You already a member or someone else own this address" & ""
ErrDesc = ErrDesc & "Thank you"
end if
%>
New Page 1
Please Complete your Subscription
Name
Company Name
Title
E-Mail
rafat@access2arabia.com
Address
Telephone
Number
If your browser does not support
forms, please drop us an E-Mail
