<%
Dim strcomp,stradd,strTel,strFax,strEmail,Ttotl,objJmail,totaldef,totalall
dim strWeb,strprd1,strprd2,strprd3,strprd4,strprd5
dim stram1,stram2,stram3,stram4,stram5
strclean =Request.Form ("Cleanliness_within_Environment_protection")
strcun1 = Request.Form ("Quantity1")
stradm = Request.Form ("Local_Administration_and_Municipalities_Systems")
strcun2 = Request.Form ("Quantity2")
strislam = Request.Form ("Housing_in_Islamic_City ")
strcun3 = Request.Form ("Quantity3")
strislame= Request.Form ("Housing_in_Islamic_City ")
strcun4 = Request.Form ("Quantity4")
strdes = Request.Form ("Principles_of_Architectural_Design")
strcun5 = Request.Form ("Quantity5")
strdes6 = Request.Form ("Principles_of_Architectural_Design")
strcun6 = Request.Form ("Quantity6")
strRoad = Request.Form ("The_new_Fundamentals_of_naming_Streets")
strcun7 = Request.Form ("Quantity7")
strislam2= Request.Form ("Islamic_Methodology_in_Architectural")
strcun8 = Request.Form ("Quantity8")
stralgorithm = Request.Form ("Khawarizm")
strcun9 = Request.Form ("Quantity9")
strbokhara = Request.Form ("Bukhara")
strcun10 = Request.Form ("Quantity10")
strsave = Request.Form ("Road_Safety_and_Traffic_accidents")
strcun11 = Request.Form ("Quantity11")
strinfcd = Request.Form ("Compact_Disk_Geographical_Information_Systems")
strcun12 = Request.Form ("Quantity12")
strbasic = Request.Form ("Compact Disk_Fundamentals_of_Classification")
strcun13 = Request.Form ("Quantity13")
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")
strcountry = Request.Form ("country")
strfax = Request.Form ("Fax")
Ttotl= "Cleanliness_within_Environment_protection: " & strclean & " " &strcun1 & chr(13) &"Local_Administration_and_Municipalities_Systems: "&stradm & strcun2 & chr(13) &"Housing_in_Islamic_City: " &strislam &" "& strcun3 & chr(13)&"Housing_in_Islamic_City: " &strislame &" "& strcun4 & chr(13)&"Principles_of_Architectural_Design: " &strdes& " "& strcun5 &chr (13)
Ttot2= "Principles_of_Architectural_Design: " & strdes6 & " " &strcun6 & chr(13) &" The_new_Fundamentals_of_naming_Streets : "&strRoad &""& strcun7 & chr(13) &"Islamic_Methodology_in_Architectural: " &strislam2 &" "& strcun8 & chr(13)& " Khawarizm: " &stralgorithm &" "& strcun9 & chr (13)& "Bukhara: "& strcun10 & chr (13)
Ttot3= "Road_Safety_and_Traffic_accidents: "&strsave & strcun11 & chr(13) &"Compact_Disk_Geographical_Information_Systems: " &strinfcd &" "& strcun12 & chr(13) &"Compact Disk_Fundamentals_of_Classification: " &strbasic &" "& strcun13 & chr(13)
Ttot4= "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%>
|
