| <%
if Request.Form("CurrForm") = "MLForm" Then
Dim MLRs,MLCodeID,FName,LName,Country,City,EMail,Subj,Sugg
FName=Request.Form("Txt_FirstName")
LName=Request.Form("Txt_LastName")
Country=Request.Form("Comb_Country")
City=Request.Form("Txt_City")
EMail=Request.Form("Txt_EMail")
if Request.Form("Txt_Subj")<>"" Then
Subj=Request.Form("Txt_Subj")
else
Subj=" "
end if
Sugg=Request.Form("TxtArea_Sugg")
Dim ChkEmailRs,CurDBConn
Set CurDBConn=server.CreateObject("adodb.connection")
' DBServerPath="c:\Inetpub\wwwroot\Doc\DB\"
MM_Conn_STRING = "DRIVER=Microsoft Access Driver (*.mdb);DefaultDir= "&DBServerPath&" ;DBQ= "&DBServerPath&"ZN.mdb;"
CurDBConn.Open (MM_Conn_STRING)
SqlStr="Select EMail From MailListTbl Where EMail='" & Trim(EMail) & "'"
Set ChkEmailRs=CurDBConn.Execute(SqlStr)
if ChkEmailRs.EOF Then
Set ChkEmailRs=Nothing
MLCodeID=GetID()
SqlStr="INSERT INTO MailListTbl(MLCode,FirstName,LastName,CnCode,City,EMail) "
SqlStr= SqlStr & "VALUES(" & MLCodeID & ",'" & FName & "','" & LName & "'," & Country & ",'" & City & "','" & EMail & "')"
CurDBConn.Execute(SqlStr)
End If
Dim Text2HTML
Text2HTML = " الموقع الانجليزى
"
MyStr = Sugg
Text2HTML = Text2HTML & addbr(MyStr)
Text2HTML = Text2HTML & ""
Session.CodePage = 65001 ' UTF-8 code
Set infoMail = Server.CreateObject("Persits.MailSender")
infoMail.Host = "mail.elnaggarzr.com"
infoMail.From = Trim(EMail) ' From address
infoMail.FromName = infoMail.EncodeHeader(Trim(FName) & " " & Trim(LName),"utf-8")
infoMail.AddAddress "info@elnaggarzr.com"
infoMail.Subject = infoMail.EncodeHeader(Subj, "utf-8")
infoMail.Body = Text2HTML
infoMail.AltBody = Sugg
infoMail.CharSet = "UTF-8"
infoMail.ContentTransferEncoding = "Quoted-Printable"
infoMail.Send ' send message
If Err.Number <> 0 Then
Response.Write("لم يتم ارسال الرسالة بنجاح .... من فضلك حاول مرة اخرى")
else
Response.Write("تم إرسال الرسالة بنجاح .... شكرا لإهتمامكم بمراسلتنا")
end if
Set infoMail = Nothing
Set CurDBConn = Nothing
Else
Response.Write(" ")
End If
%> |
