Yetkili Satıcılar & Servisler

YETKİLİ SATICI LİSTESİ <% function URLDecode(sText) sDecoded = sText Set oRegExpr = Server.CreateObject("VBScript.RegExp") oRegExpr.Pattern = "%[0-9,A-F]{2}" oRegExpr.Global = True Set oMatchCollection = oRegExpr.Execute(sText) For Each oMatch In oMatchCollection sDecoded = Replace(sDecoded,oMatch.value,Chr(CInt("&H" & Right(oMatch.Value,2)))) Next sDecoded = Replace(sDecoded ,"+"," ") URLDecode = sDecoded End function if len(Request.QueryString("sehir"))>1 then response.Write("("&URLDecode(request.QueryString("sehir"))&")") end if %> Şehir Seçiniz <% Set Baglantim=Server.CreateObject("Adodb.Connection") Baglantim.Open "driver={SQL Server};server=92.45.6.130;uid=temsausr;pwd=temsausr;database=TemsaDatabase" set bayiCommand=Server.CreateObject("ADODB.Command") bayiCommand.ActiveConnection = Baglantim bayiCommand.commandText="SELECT DISTINCT(Sehir) FROM dbo.Bayi_Servis WHERE Site_Tipi='OTOMOTIV' and Bayi_Servis_Turu='SATICI' and durum='AKTIF' ORDER BY Sehir" set rstContacts=bayiCommand.Execute() dim x x=0 while(not rstContacts.Eof) x=x+1 %> "><%=rstContacts("Sehir")%> <% rstContacts.MoveNext wend rstContacts.Close %> <% set bayiCommand=Server.CreateObject("ADODB.Command") bayiCommand.ActiveConnection = Baglantim bayiCommand.commandText="SELECT * FROM dbo.Bayi_Servis WHERE Site_Tipi='OTOMOTIV' and Bayi_Servis_Turu='SATICI' and durum='AKTIF' and Sehir='"&Request.QueryString("sehir")&"'" set rstContacts=bayiCommand.Execute() while(not rstContacts.Eof) %> <% rstContacts.MoveNext wend %> <% if len(Request.QueryString("sehir"))>1 then response.Write(" "&rstContacts("Firma_Adi")&" ") end if %> <%=replace(rstContacts("Adresi"),VbCrLf," ") &" "&rstContacts("Ilce")&" - "&rstContacts("Sehir")&" Telefon : "&rstContacts("Telefon")&" Fax : "&rstContacts("Faks")&" "%>

Tüm hakları saklıdır.  Copyright (c) 2010 Temsa Global Kurumsal Modeller Satış Bilgilendirme Satış Sonrası İletişim Temsa Global Kullanım Şartlarıı FE711 FE730 FE839 FE859E FE859G Fiyat Listesi Yetkili Satıcılar Yetkili Servisler İletişim Formu YASAL UYARI: Bu sitede yer alan bazı resimler ve fotoğraflar Türkiye'de bulunmayan modellere ve model özelliklerine, donanımlarına, aksesuarlarına sahip olabilir. Kullanılan görseller ile satışa sunulan modeller arasında farklılıklar olabilir. Bu sitedeki tüm bilgilerin doğru olması için gerekli tüm gayret gösterilmektedir ancak, Temsa Global tüm bilgilerin doğruluğunu garanti etmez ve bu sitede yer alan bilgilerin doğruluğu, eksiksizliği ve gerçekliğine ilişkin bir sorumluluk kabul etmez. İşbu site ve içindeki tüm bilgiler ve malzemeler açıkça veya zımnen garanti verilmeden "olduğu gibi" sağlanmaktadır.