<% q1 = request.Form("q1") q2 = request.Form("q2") q3 = request.Form("q3") q4 = request.Form("q4") q5 = request.Form("q5") chepanir = request.Form("chepanir") chemast = request.Form("chemast") chedoogh = request.Form("chedoogh") chekhameh = request.Form("chekhameh") chedeser = request.Form("chedeser") shir = request.Form("shir") kashk = request.Form("kashk") q71 = request.Form("q7-1") q72 = request.Form("q7-2") q73 = request.Form("q7-3") q74 = request.Form("q7-4") q75 = request.Form("q7-5") q76 = request.Form("q7-6") q77 = request.Form("q7-7") q8 = request.Form("q8") address = request.Form("address") q9 = request.Form("q9") q10 = request.Form("q10") Dim objMail set objMail = Server.CreateObject("CDO.Message") objMail.From = "form@ramakdairy.com" objMail.Subject = "forme nazar sanji" objMail.To = "info@ramakdairy.com" objMail.TextBody = "Natije Forme Nazar Sanji:
" objMail.TextBody = objMail.TextBody & "Ans 1: " & q1 & "
" objMail.TextBody = objMail.TextBody & "Ans 2: " & q2 & "
" objMail.TextBody = objMail.TextBody & "Ans 3: " & q3 & "
" objMail.TextBody = objMail.TextBody & "Ans 4: " & q4 & "
" objMail.TextBody = objMail.TextBody & "Ans 5: " & q5 & "
" objMail.TextBody = objMail.TextBody & "Ans 6: " & q6 & "
" objMail.TextBody = objMail.TextBody & "Ans panir: " & chepanir & "
" objMail.TextBody = objMail.TextBody & "Ans mast: " & chemast & "
" objMail.TextBody = objMail.TextBody & "Ans Doogh: " & chedoogh & "
" objMail.TextBody = objMail.TextBody & "Ans Khameh: " & chekhameh & "
" objMail.TextBody = objMail.TextBody & "Ans Desr: " & chedeser & "
" objMail.TextBody = objMail.TextBody & "Ans Shir: " & shir & "
" objMail.TextBody = objMail.TextBody & "Ans kashk: " & kashk & "
" objMail.TextBody = objMail.TextBody & "Ans 7-1: " & q71 & "
" objMail.TextBody = objMail.TextBody & "Ans 7-2: " & q72 & "
" objMail.TextBody = objMail.TextBody & "Ans 7-3: " & q73 & "
" objMail.TextBody = objMail.TextBody & "Ans 7-4: " & q74 & "
" objMail.TextBody = objMail.TextBody & "Ans 7-5: " & q75 & "
" objMail.TextBody = objMail.TextBody & "Ans 7-6: " & q76 & "
" objMail.TextBody = objMail.TextBody & "Ans 7-7: " & q77 & "
" objMail.TextBody = objMail.TextBody & "Ans 8: " & q8 & "
" objMail.TextBody = objMail.TextBody & "Ans 9: " & q9 & "
" objMail.TextBody = objMail.TextBody & "Ans 10: " & q10 & "
" objMail.TextBody = objMail.TextBody & "Address : " & address & "
" objMail.Send set objMail = nothing %> Your Message Sent Successfully. Tanx.