<% %> Egypt4000---نموذج طلب تدريب محاسبين

<% If isempty (Request.Form("enter")) then %> بسم الله الرحمن الرحيم

نرجو أن تكتب

بريدك وبريد صديقك

 لنرسل له رسالة بخدمات موقعنا

ولك منا وافر الشكر

www.Egypt4000.com

www.USA7000.com

 

Name :

إسمك

Email  :

بريدك 1

Email  :

بريد صديقك

Nationalty :

بلدك

Your message :

 

نص رسالتك
 
 

<% else statedata=0 error="






error!

" set email=request.form("Email") ' set objRegExpr = New regexp ' objRegExpr.Pattern = "^[a-z]+[a-z0-9A-Z_]*\@{1}[a-z]+[a-z0-9A-Z_]*\.{1}[a-z]{3}end|^[a-z]+[a-z0-9A-Z_]*\@{1}[a-z]+[a-z0-9A-Z_]*\.{1}[a-z]{3}\.{1}[a-z]{2}end" ' objRegExpr.Global = True ' objRegExpr.IgnoreCase = True ' strSearchOn = email&"end" ' Set colMatches = objRegExpr.Execute(strSearchOn) 'if colMatches.Count=1 then ' MailCheck=true 'else ' MailCheck=False 'End if '.................................. If len(trim(request.form("textfield")))=0 then Response.write " You need to Enter a... Contact name...........برجاء كتابة إسمك
" statedata=1 End if '................................ strEmailAddress1=Request.form("Email") If Len(strEmailAddress1) < 5 OR NOT Instr(1, strEmailAddress1, " ") = 0 OR InStr(1, strEmailAddress1, "@", 1) < 2 OR InStrRev(strEmailAddress1, ".") < InStr(1, strEmailAddress1, "@", 1) Then Response.write " You must enter a  ... valid e-mail...................برجاء كتابة بريدك الإلكترونى
" statedata=1 End If strEmailAddress1=Request.form("Email02") If Len(strEmailAddress1) < 5 OR NOT Instr(1, strEmailAddress1, " ") = 0 OR InStr(1, strEmailAddress1, "@", 1) < 2 OR InStrRev(strEmailAddress1, ".") < InStr(1, strEmailAddress1, "@", 1) Then Response.write " You must enter a  ... valid e-mail.......................برجاء كتابة بريد صديقك الإلكترنى
" statedata=1 End If '................................. '................................ If len(trim(request.form("Country")))=0 then statedata=1 End if '................................. If len(trim(request.form("textarea")))=0 then Response.write " You need to Enter ... Your masge.....................برجاء كتابة رسالة لصديقك
" statedata=1 End if '................................. '................................. '----------------------------------------------------------- If len(trim(request.form("textfield")))=0 and len(trim(request.form("Email")))=0 and len(trim(request.form("textfield2")))=0 and len(trim(request.form("textfield6")))=0 and len(trim(request.form("textfield3")))=0 and len(trim(request.form("textfield4")))=0 and len(trim(request.form("textfield32")))=0 and len(trim(request.form("textfield50")))=0 and len(trim(request.form("textfield322")))=0 and len(trim(request.form("textfield323")))=0 and len(trim(request.form("textfield324")))=0 and len(trim(request.form("textfield7")))=0 and len(trim(request.form("textfield6")))=0 and len(trim(request.form("textarea")))=0 Then errors=errors&"

- please go back and complete your data !
" statedata=1 End if '----------------------------------------------------------- '.................................. If statedata=0 then MailBody = Mailbody & "Name Of The Sender : " & Request.form("textfield") & vbCrLf MailBody = Mailbody & "From E-mail : " & Request.form("Email") & vbCrLf MailBody = Mailbody & "To E-mail : " & Request.form("Email02") & vbCrLf MailBody = Mailbody & "Country : " & Request.form("Country") & vbCrLf MailBody = Mailbody & "MailBody :" & Request.form("textarea") & vbCrLf '.....send Set objMail = CreateObject("CDONTS.NewMail") objMail.From="Our_ASP@Egypt4000.com" objMail.To="info@Egypt4000.com" objMail.Subject="نص الرسالة المرسلة لصديق" objMail.Body=MailBody objMail.Send Set objMail = nothing '....sent '..............................from webmaster....................... MBody = "Dear : " & Request.form("textfield") & vbCrLf & vbCrLf MBody = MBody & "شكراً جزيلاً لإرسالكم رسالة لأحد أصدقائكم تدعوه فيه لزيارة موقعنا" & vbCrLf & vbCrLf MBody = MBody & "ومشكوراً نرجوا أن تساعدنا فى إبلاغ من تعرف بخدمات مكتبنا" & vbCrLf & vbCrLf MBody = MBody & "فنحن محاسبون ومراجعون وخبراء ضرائب ومتخصصون فى تأسيس الشركات" & vbCrLf & vbCrLf MBody = MBody & "وتدريب المحاسبين وإعداد دراسات الجدوى الإقتصادية" & vbCrLf & vbCrLf MBody = MBody & "http://www.07775000.com" & vbCrLf & vbCrLf MBody = MBody & "http://www.07775000.com" & vbCrLf & vbCrLf MBody = MBody & "http://www.Egypt4000.com" & vbCrLf & vbCrLf MBody = MBody & "مع أطيب تحيات" & vbCrLf & vbCrLf MBody = MBody & "محاسب قانونى / ياسر عبدالوهاب" & vbCrLf MBody = MBody & "010 140 92 15 --- 76 22 589" & vbCrLf & vbCrLf '.....send Set objMail = CreateObject("CDONTS.NewMail") objMail.From="webmaster@Egypt4000.com" objMail.To=Request.form("Email") objMail.Subject="شكراً جزيلاً لإرسالكم رسالة لأحد أصدقائكم" objMail.Body=MBody objMail.Send Set objMail = nothing '....sent MBody = "From your Friend : " & Request.form("textfield") & vbCrLf & vbCrLf MBody = MBody & "صديقى العزيز أرجوا مشاهدة هذا الموقع للأهمية" & vbCrLf & vbCrLf MBody = MBody & "شاهدة هذا الموقع وأعتقد أنه يهمك كثيراً" & vbCrLf & vbCrLf MBody = MBody & " فهو موقع مكتب محاسبون ومراجعون وخبراء ضرائب ومتخصصون فى تأسيس الشركات" & vbCrLf & vbCrLf MBody = MBody & "وإعداد دراسات الجدوى الإقتصادية وتدريب محاسبين بأرقى نظام للتدريب على مستوى الجمهورية" & vbCrLf & vbCrLf MBody = MBody & "http://www.Egypt4000.com" & vbCrLf & vbCrLf MBody = MBody & "http://www.07775000.com" & vbCrLf & vbCrLf MBody = MBody & "http://www.usa7000.com" & vbCrLf & vbCrLf MBody = MBody & "مع أطيب التحيات" & vbCrLf & vbCrLf '.....send Set objMail = CreateObject("CDONTS.NewMail") objMail.From=Request.form("Email") objMail.To=Request.form("Email02") objMail.Subject="رسالة من صديق تعرفه جيداً" objMail.Body=MBody objMail.Send Set objMail = nothing '....sent '..................................End................................ %>
 

 

Thank you for submitting

شكراً جزيلاً لتشريفكم لنا نرجو منكم العودة

إنتظر قليلاً

سيتم تحويلك آلياً

للصفحة الرئيسية

<% end if if statedata=1 then Response.write "

- please go back and complete your data !
" end if end if %>