%
if not request.form("Name")="" then
Set CN = Server.CreateObject("ADODB.Connection")
CN.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../_system/_db/egypteng.mdb")
Set RSAdd = Server.CreateObject("ADODB.Recordset")
Dim DateS
DateS=Day(Date())&"/" &Month(Date()) &"/" & Year(Date())
RSAdd.open "INSERT INTO Problems(Name, Email, ProblemDate, Problem) VALUES ('" &Request.Form("Name") &"','" & Request.Form("Email")&"','"& CStr(DateS)&"','"&Request.Form("Problem")&"')",CN
End if
%>
We are
waiting for your engineering questions for the most important technical
problems that faces you in your scientific or technical operations. Your
questions will be answered by the most trusted experts in academic and
practical engineering, which is served as a free service by EgyptEng.Com
عزيزى
المهندس: نحن بإنتظار وصول
استفساراتك الهندسية عن أهم
المشكلات الفنية التى تواجهك فى
العملية التصميمية أو العلمية أو
التكنولوجية وسوف يجيب عليها نخبة من
الخبرات الهندسية الأكاديمية و
العملية الموثوق بها وذلك كخدمة
مهنية تقدمها لك EgyptEng.Com.