<%session.codepage=1254%> <% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/database.mdb") '** Database ba?ant?? Set Cengelkoy = Server.CreateObject("ADODB.Recordset") sor = "Select * from haber ORDER BY id DESC" Cengelkoy.Open sor,Sur,1,3 '** Sayfalar aras?ge??kural? git = Request.QueryString("git") if git="" then git=1 end if %> <% set haber=Server.CreateObject("Adodb.Connection") haber.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db/kotasyon.mdb") set rs=Server.CreateObject("Adodb.Recordset") SQL=" select * from haber ORDER BY id desc " rs.open SQL,haber,1,3 %> <% On Error Resume Next Dim objXmlHttp Dim strHTML Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP") objXmlHttp.open "GET", "http://www.tcmb.gov.tr/kurlar/today.html", False objXmlHttp.send 'Hata oluşursa sebebini yazdırıyoruz... if Err <> 0 then Response.Write "
TCMB na bağlanılamadı.
" Response.Write Err.Description & "

" end if strHTML = objXmlHttp.ResponseText Set objXmlHttp = Nothing SayfaKodu = Server.HTMLEncode(strHTML) yer = Instr(1,SayfaKodu,"ABD DOLARI") dAlis = Mid(SayfaKodu,yer+57,10) dSatis = Mid(SayfaKodu,yer+70,10) yer2 = Instr(1,SayfaKodu,"EURO") eSatis = Mid(SayfaKodu,yer2+70,10) eAlis = Mid(SayfaKodu,yer2+57,10) yer3 = Instr(1,SayfaKodu,"GBP") iAlis = Mid(SayfaKodu,yer3+98,10) iSatis = Mid(SayfaKodu,yer3+108,12) %> SAMSUN TİCARET BORSASI - SAMSUN EXCHANGE OF COMMERCE
 
 

Samsun Ticaret Borsası
 Kuruluş 1969

Samsun Exchange of Commerce
Since 1969

 
 
 
 
LABORATORY SERVICES

 
Samsun Exchange of Commerce, opens the door of the Europan Union by the studies of accreditation in food aphlotoxin analysis wich is financed by Europan Union and Turkish Republic Government

  Accreditation is a concept,  expressing  supervision of laboratory in regular periods, approving proficiency of laboratory by technical criterions wich are accepted in international community

  Laboratory accreditation expresses high respectability in both national and international community as a reliable indicator of technical proficiency.

  Because of these reasons, acceditation process of Samsun Ticaret Borsası Laboratory will be began as soon as possible.

Join For the Food Laboratory page

 INFORMATION PAGES

   
 

Home | About Us | Departments | Branchs | obtain information to law | Contact

Samsun Ticaret Borsası © 2006 All Right Reserved
 

Created by
 Tasarım Dünyası