<%@LANGUAGE="VBSCRIPT" codepage=1252%> <% ' Displaying News 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("Allen.mdb") Set cnnLogin = Server.CreateObject("ADODB.Connection") cnnLogin.Open "DSN=sstdtorgsa_ALLen;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 = "Comments :: From SSTDT Website" & vbcrlf & vbcrlf strBody = strBody & "Name:" & name & vbcrlf strBody = strBody & "Mobile:" & mobile & vbcrlf strBody = strBody & "Email:" & email & vbcrlf strBody = strBody & "Comments:" & 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 = Request.Form("name") ' optional Mail.EncodeHeader( "windows-1256" ,) Mail.AddAddress "info@sstdt.org.sa" ' message subject Mail.Subject = "Comments :: From SSTDT Website" '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 :: Saudi Society for Technology Development & Transfer
   
  • Energize and develop the scientific thinking in the area of technological development, innovation, and transfer      ::      Establish communication channels between the society members      ::      Provide scientific consultation in the area of technology development, innovation and transfer& nbsp;    ::      Improve the scientific & professional performance of the society members      ::      Facilitate the exchange of scientific output & ideas related to the society interests between establishments and institutes inside and outside of the kingdom
    		•
     
     
     
     
     
     
      <% rs.Close Set rs = Nothing 'cnnLogin.Close 'Set cnnLogin = Nothing %>
  • Welcome to Saudi Society of Technology Develeopment & Trasnfer new website. Explore the other sections and enjoy. Have a nice Day.


    <% 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%>
    		•  
    		 
     
    		 
     
    <% If strErr <> "" Then %> Sorry.. There is error
    <% = strErr %>
    Please try again... <% End If %> <% If bSuccess Then %> Your commnets has been successfully sent.... <% End If %>
       
     
     
     
     
    		 
     
     
    Google
     
    © Saudi Society of Technology Development & Transfer. 2007