<%
Dim strcomp,stradd,strTel,strFax,strEmail,Ttotl,objJmail,totaldef,totalall
dim strWeb,strprd1,strprd2,strprd3,strprd4,strprd5
dim stram1,stram2,stram3,stram4,stram5
strnew =Request.Form ("New_subscription")
strcun1 = Request.Form ("Number_of_copie")
strren = Request.Form ("Renewal_of_subscription")
strcun2 = Request.Form ("Number_of_copies")
strone= Request.Form ("one_year_subscription ")
strmore = Request.Form ("more_than_one_year_subscription")
strinclude = Request.Form ("Payment:Enclosed the value")
strcheack = Request.Form ("Payment:Bank_cheque")
strraghy = Request.Form ("Payment:Al-Rajhi Banking_transfer")
strinvoice = Request.Form ("Payment:Send_to_us_the_invoice ")
strname = Request.Form ("Subscriber_name_individuals")
strnamecomp = Request.Form ("Subscriber_name_establishments")
straddress = Request.Form ("Address")
strboxno = Request.Form ("Post_Office_Box")
strcity = Request.Form ("City")
stremail = Request.Form ("E_mail")
strjob = Request.Form ("Occupation")
strativ = Request.Form ("Activity")
strTel = Request.Form ("Tel")
strfax = Request.Form ("Fax")
Ttotl= "New_subscription: " & strnew & " " &strcun1 & chr(13) &"Renewal_of_subscription: "& strren &""& strcun2 & chr(13) &"one_year_subscription : " &strone & chr(13)
Ttot2= "more_than_one_year_subscription: " & strmore & chr(13)
Ttot3= "Payment:Enclosed the value : "& strinclude& chr (13) & " Bank_cheque : " &strcheack& chr (13) &" Payment:Al-Rajhi Banking_transfer : "&strraghy & chr(13) & "Send_to_us_the_invoice: " & strinvoice& chr (13)
totaldef=" Company Name : "&strnamecomp& chr(13)&" Name: "& strname & chr(13)&"Address :"&straddress & chr(13) &"Tel.No.:"&strTel & chr(13)&"Fax No.:"& strfax &chr(13)& "EMail :"&stremail & chr(13)&"Country:"& strcountry & chr(13)&"Box No.:"& strboxno
totalall=Ttotl& " "& Ttotl&" "&Ttot3 &" "&totaldef
if stremail<>"" and strname<>"" then
Set objJmail = Server.CreateObject ("Jmail.SMTPMail")
objJmail.ServerAddress = "mideastnet.com"
objJmail.sender = strEmail
objJmail.Subject = "Oicc visitors"
objJmail.AddRecipient "webmaster@oicc.org"
objJmail.Body = totalall
objJmail.Priority = 3
objJmail.Execute
Response.Write ("Thank You")
Set objJmail = Nothing
else
Response.Write ("Error
You have to fill your email")
end if%>
|
