<%@LANGUAGE="VBSCRIPT" codepage=1252%> <% ' Displaying News 'Session.LCID = 1025 Session.CodePage = 1252 Dim cnnLogin Dim rs, rs1 Dim strUsername, strPassword Dim strSQL, strSQL1, data_source, RowCount data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("All.mdb") Set cnnLogin = Server.CreateObject("ADODB.Connection") cnnLogin.Open "DSN=sstdtorgsa_ALL;UID=sstdt;PWD=dtsst" Set rs = Server.createobject("ADODB.Recordset") Set rs1 = Server.createobject("ADODB.Recordset") strSQL = "SELECT * FROM news ORDER BY (id) desc" strSQL1 = "SELECT * FROM advertisement ORDER BY (id) desc" 'Set rstLogin = cnnLogin.Execute(strSQL) rs.Open strSQL, cnnLogin rs1.Open strSQL1, cnnLogin ' Closing News %> <% ' Mailing Code Dim name, company, city, country, tel, fax, companies, mobile, email, comments, strBody name = (Request.Form("name")) mobile = (Request.Form("mobile")) email = (Request.Form("email")) remarks = (Request.form("remarks")) strBody = "تجئي رسالة من الموقع الجمعية السعودية لتطوير ونقل التقنية" & vbcrlf & vbcrlf strBody = strBody & "الاسم:" & name & vbcrlf strBody = strBody & "جوال:" & mobile & vbcrlf strBody = strBody & "بريد الإلكتوني:" & email & vbcrlf strBody = strBody & "التعليق:" & vbcrlf strBody = strBody & remarks strHost = "mail.sstdt.org.sa" If Request("Comments") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = email ' From address Mail.FromName = Mail.EncodeHeader(Request.Form("name"), "windows-1256") ' optional Mail.EncodeHeader( "windows-1256" ,) Mail.AddAddress "info@sstdt.org.sa" Mail.Charset = "Windows-1256" Mail.ContentTransferEncoding = "Quoted-Printable" ' message subject Mail.Subject = Mail.EncodeHeader("تجئي رسالة من الموقع الجمعية السعودية لتطوير ونقل التقنية", "windows-1256") 'Mail.EncodeHeader( , "windows-1256") ' message body Mail.Body = strBody strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> SSTDT :: الجمعية السعودية لتطوير ونقل التقنية
   
  • تنمية الفكر العملي في مجال التخصص والعمل على تطويره وتنشيطه      ::      تحقيق التواصل العلمي لأعضاء الجمعية      ::      تقديم المشورة العلمية في مجال التخصص      ::      تطوير الأدائين العلمي والمهني لأعضاء الجمعية      ::      تيسير تبادل الإنتاج العلمي ، والأفكار العلمية في مجال اهتمامات الجمعية بين الهيئات والمؤسسات المعنية داخل المملكة وخارجها
    		•
     
     
     
     
     
      <% rs.Close Set rs = Nothing 'cnnLogin.Close 'Set cnnLogin = Nothing %>
  • الفالح يلقي محاضرة عن دور التقنية في التنمية الإقتصادية غدا


  • الدمام تحتضن محاضرة لتنمية التقنية


  • خلال مشاركته في مؤتمر التعليم والتقنية بطوكيو.. الفالح: استخدام التقنية أسهم في تطوير أعمال التنقيب بأرامكو


  • "أرامكو" تتجه لزيادة الإنفاق على التقنية لتعزيز إنتاج الهيدروكربون


  • الفالح: استراتيجية المجمعات الصناعية سترفع دخل السعوديين إلى 6 أضعاف


  • الفالح يلقي محاضرة عن دور التقنية في التنمية الاقتصادية غدا


  • محمد بن راشد يعلن عن تأسيس أكبر مشروع للتنمية العلمية والثقافية بالمنطقة


  • أرامكو تقرر استخدام تكنولوجيات جديدة لبتروكيماويات "بترورابغ" وتدعمه ب (400) ألف برميل يومياً من الزيت الخام


  • خلال سنوات قليلة احتلت المملكة مكانة رفيعة في مجال التقنية والمعلوماتية


  • تجمع علمي في الرياض لبحث نقل وتطوير التقنية..


  • الرياض تستشرف المستقبل بمدينة عالمية لتقنية المعلومات والاتصالات


  • التقنية تكشف عن تطورات مذهلة للبشرية للعقد القادم في الأرض والبحر والفضاء


  • التقنية اختصرت المسافات والجهد والوقت..!!


  • التقنيةالأمير محمد بن فهد يرعى الملتقى الوطني الثاني لنظم المعلومات الجغرافية بالمملكة اليوم


  • جيتكس السعودية" يختتم دورته الـسادسة بـ112 ألف زائر.. وإقبال على الكمبيوتر المحمول


  • استعراض استراتيجيات توزيع الحلول التقنية في الرياض


  • تنبيه الشركات لإعادة النظر في استراتيجيات إدارة المعلومات


    <% if rs.EOF And rs.BOF then Else Do while not rs.EOF %>
  • <% Response.Write ("")%> <% response.Write rs("title") %>


    <% rs.Movenext 'RowCount = RowCount + 1 Loop End If%>
    		•  
    		 
     
    		 
     
      <% rs1.Close Set rs1 = Nothing cnnLogin.Close Set cnnLogin = Nothing %>
    <% if rs1.EOF And rs1.BOF then Else Do while not rs1.EOF %>
  • <% Response.Write ("")%> <% response.Write rs1("title") %>


    <% rs1.Movenext 'RowCount = RowCount + 1 Loop End If%>
    		•  
    		 
     
    		 
     
       
     
     
     
     
    		 
     
     
     
     
    Google
     
    © الجمعية السعودية لتطوير ونقل التقنية. جميع الحقوق محفوظة 2007