<%
%>
Egypt4000---نموذج طلب تدريب محاسبين
<%
If isempty (Request.Form("enter")) then
%> بسم الله الرحمن الرحيم
نرجو أن تكتب
بريدك وبريد صديقك
لنرسل
له رسالة
بخدمات موقعنا
ولك
منا وافر الشكر
www.Egypt4000.com
www.USA7000.com
<% 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 %>