<% Set istekurl = Request.ServerVariables("QUERY_STRING") istekbolum = Split(istekurl,"/") istekbolum2=istekbolum(3) parcala=split(istekbolum2,"-") IDno=parcala(1) if IDno="" then Response.Redirect("/hatalisayfa") end if sorgum="Select * from firma where fkodu="&IDno Rs.Open Sorgum, Baglantim, 1, 3 %> <% firmabul(IDno) %> | <%=siteadi%> | <%sektorbul(rs("skodu"))%> Kategorinin Üyesidir. <% end if %>
<% firmabul(IDno) %>
<%firmakodu=PostKontrol(IDno) sorgum="Select * from firma where fkodu="&firmakodu Rs.Open Sorgum, Baglantim, 1, 3 if rs.eof or rs.bof then Response.Write("

Üye Bulunamadi veya Güncelleniyor Olabilir
") else %>
<% if rs("logo")<>"" then %> " Width="200" height="150" border="0" hspace="5"> <% else%> <%end if %>
<%= rs("aciklama") %>
İletişim Bilgileri
Üye Adı
:
<%= rs("yetkili") %>
Yaş
:
<%= rs("postakodu") %>
Boy & Kilo
:
<%= rs("fax") %> - <%= rs("cep") %>
Telefonlar
:
<%= rs("telefon") %> - <%= rs("telefon2") %>
Adres
:
<%= rs("mail") %>
Web Sitesi
:
Eklenme Tarihi
:
<%= rs("kayittarihi") %>
<% if rs("ozel")=true then %> &<%= cevir(rs("adi"))%>.html','','resizable=yes,status=yes,width=900,height=600')" style="cursor:hand;"> <% else %> <% end if%> <% if rs("hit")="" then rs("hit")=0 else rs("hit")=rs("hit")+1 end if rs.update videokodu=rs("video_kodu") anahtarkelimeler=rs("anahtar_kelime") %>

Toplam Görüntüleme : <%=rs("hit")%>    Bookmark and Share
   
Üye Videosu
<%if videokodu="" then response.Write("Video Kodu Yüklenmemiş.") else response.Write(videokodu) end if %>
   
Reklam Alanı
<% reklam_goster(5) %>
   
Anahtar Kelimeler

<%response.Write(anahtarkelimeler)%>