home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 February / Chip-Cover-CD-2007-02.iso / klub / firmy.inc < prev    next >
Text File  |  2001-09-06  |  8KB  |  165 lines
  1.                 <table border="0" width="100%" cellspacing="0" cellpadding="0">
  2. <%
  3.  
  4.     function NrTel(nr)
  5.         if len(nr) > 2 then
  6.             n=3
  7.             if len(nr) mod 2 = 0 then n =2
  8.             fiRsNotkat= left(nr,n)
  9.             for i = 0 to (len(nr)-n)/2 -1
  10.                 NrTel=NrTel & " " & mid(nr,n+1+i*2,2)
  11.             next
  12.             NrTel=fiRsNotkat + NrTel
  13.         else
  14.             NrTel=nr
  15.         end if
  16.     end function
  17.     
  18.     Set Conn = Server.CreateObject("ADODB.Connection")
  19.     Conn.Open Application("firma_ConnectionString")
  20.  
  21.     sqlWhere=""
  22.     sql="SELECT DISTINCT Firma_Serwis_KlubCHIP.Nazwa, Firma.ID, Firma.Miejscowosc, PrzedrostekAdresu+' '+Adres+' 'AS Adres, NrDomu, NrLokalu, KodPocztowy+' '+Miejscowosc AS Poczta, Firma_Serwis_KlubCHIP.AdresEmail AS AdresEmailKlub, Firma_Serwis_KlubCHIP.Telefon AS TelefonKlub, Firma.AdresEmail, Firma.AdresURL,Firma_Serwis_KlubCHIP.Dzialalnosc, Firma_Serwis_KlubCHIP.P41Rabat, Firma_Serwis_KlubCHIP.P42Rabat, Firma_Serwis_KlubCHIP.P43Rabat, Firma_Serwis_KlubCHIP.P4aTekst, Firma_Serwis_KlubCHIP.P4aRabat, Firma_Serwis_KlubCHIP.P4bTekst, Firma_Serwis_KlubCHIP.P4bRabat, Firma_Serwis_KlubCHIP.P4cTekst, Firma_Serwis_KlubCHIP.P4cRabat, Firma_Serwis_KlubCHIP.P4dTekst, Firma_Serwis_KlubCHIP.P4dRabat, Firma_Serwis_KlubCHIP.P4eTekst, Firma_Serwis_KlubCHIP.P4eRabat, Firma_Serwis_KlubCHIP.P4fTekst, Firma_Serwis_KlubCHIP.P4fRabat,Firma_telefon_rodzaj.Skrot AS Opis, Firma_telefon.NrKierunkowy, Firma_telefon.NrTelefonu, Firma_telefon.NrWew "
  23.     sqlFrom=" FROM (Firma_Serwis_KlubCHIP INNER JOIN Firma ON Firma_Serwis_KlubCHIP.FirmaID = Firma.ID) LEFT OUTER JOIN (Firma_telefon INNER JOIN Firma_Telefon_Rodzaj ON Firma_telefon.RodzajID = Firma_Telefon_Rodzaj.ID) ON Firma_telefon.FirmaId = Firma.ID "
  24.     if request("miejscowosc")<>"" then sqlWhere=" WHERE Firma.Miejscowosc='"&request("miejscowosc")&"'"
  25.     'response.write sql&sqlFrom&sqlWhere
  26.     Set firmy = Conn.execute(sql&sqlFrom&sqlWhere)
  27.     OldId=""
  28.     Set fs = CreateObject("Scripting.FileSystemObject") 'dla odczytywania log≤w
  29.     while not firmy.eof
  30.                      OldID=firmy("ID")
  31.                     AdresEmail=firmy("AdresEmail")
  32.                     if firmy("AdresEmailKlub")<>"" then AdresEmail=firmy("AdresEmailKlub")
  33.                     Telefon=""
  34.                     if firmy("TelefonKlub") <>"" then Telefon=firmy("TelefonKlub")
  35.                       AdresURL=""
  36.                     if firmy("AdresURL") <> "" then AdresURL=firmy("AdresURL")
  37.                     P41Rabat=firmy("P41Rabat")    
  38.                     P42Rabat=firmy("P42Rabat")    
  39.                     P43Rabat=firmy("P43Rabat")    
  40.                     P4aRabat=firmy("P4aRabat")    
  41.                     P4bRabat=firmy("P4bRabat")    
  42.                     P4cRabat=firmy("P4cRabat")    
  43.                     P4dRabat=firmy("P4dRabat")    
  44.                     P4eRabat=firmy("P4eRabat")    
  45.                     P4fRabat=firmy("P4fRabat")    
  46.                     P4aTekst=firmy("P4aTekst")        
  47.                     P4bTekst=firmy("P4bTekst")        
  48.                     P4cTekst=firmy("P4cTekst")        
  49.                     P4dTekst=firmy("P4dTekst")        
  50.                     P4eTekst=firmy("P4eTekst")        
  51.                     P4fTekst=firmy("P4fTekst")        
  52.                     bPromocja=true' UWAGA wylaczona na zasze promocja
  53.                     if firmy("Dzialalnosc")="x" then bPromocja=false
  54.                   %>
  55.  
  56.                   <tr>
  57.                     <td width="25%" valign="top" align="center"><%'=OldID&"<BR>"%>
  58.                     <%
  59.                         path="d:\inetpub\chiproot\klubserwisroot\listafirm\loga\"
  60.                         logo=""
  61.                         if fs.FileExists(Path&OldID&".gif") then
  62.                             logo = OldID&".gif"
  63.                         end if
  64.                         if fs.FileExists(Path&OldID&".jpg") then 
  65.                                 logo = OldID&".jpg"
  66.                         end if
  67.                         if logo<>"" then
  68.                             ImageStr="<img border=""0"" src=""http://klub-serwis.chip.pl/listafirm/loga/"&logo&""">"
  69.                             if AdresURL<>"" then ImageStr ="<a href=""http://"&AdresURL&""">"&ImageStr&"</a>"
  70.                             response.write ImageStr
  71.                         end if%>
  72.                     </td>
  73.                     <td width="50%" valign="top" align="left"><font size="2" face="Arial" color="#000000"><b><%=firmy("nazwa")%></b><br>
  74.                     <%
  75.                      if InStr(firmy("adres"),"_")=0 then 
  76.                         Nrlokalu=firmy("NrDomu")
  77.                         if firmy("Nrlokalu")<>"" then Nrlokalu=Nrlokalu&"/"&firmy("Nrlokalu")
  78.                         response.write firmy("adres") & NrLokalu&"<BR>"& firmy("poczta")
  79.                     end if
  80.                     %><br>
  81.  
  82.                     <%
  83.                         OpisOld=" "
  84.                         do while not firmy.Eof and OpisOld<>"" and (OldID=firmy("ID"))
  85.                             sNrKier=""
  86.                             sNrTel=""
  87.                             NrKierunkowyOld=""
  88.                             if firmy("NrKierunkowy") <> "" then
  89.                                 sNrKier= " (0-" & firmy("NrKierunkowy") & ") "
  90.                                 NrKierunkowyOld=firmy("NrKierunkowy")
  91.                             end if
  92.     
  93.                             OpisOld = firmy("Opis")
  94.                             i=1
  95.                             do while OpisOld = firmy("Opis") and not firmy.Eof and (OldID=firmy("ID"))
  96.                                 if i > 1 then sNrTel = sNrTel & ", "
  97.                                 if NrKierunkowyOld<>firmy("NrKierunkowy") then
  98.                                    sNrTel=sNrTel&" (0-" & firmy("NrKierunkowy") & ") "
  99.                                    NrKierunkowyOld=firmy("NrKierunkowy")
  100.                                 end if
  101.                                 sNrTel = sNrTel & NrTel(firmy("NrTelefonu"))
  102.                                 if firmy("NrWew") <> "" then sNrTel= sNrTel & " wew. "& firmy("NrWew")
  103.                                 OpisOld=firmy("Opis")                            
  104.                                 firmy.MoveNext
  105.                                 i=i+1
  106.                                 if firmy.Eof then exit do
  107.                             loop
  108.                             if OpisOld<>"" and Telefon="" then response.write OpisOld & ": " & sNrKier & sNrTel & "<BR>"
  109.                             if firmy.Eof then exit do
  110.                         loop
  111.                         if Telefon<>"" then response.write Telefon&"<BR>"
  112.                     %>
  113.                 
  114.                     <%if AdresEmail<>"" then%>
  115.                     <a href="mailto:<%=AdresEmail%>"><font size="2" face="Arial" color="#000080"><%=AdresEmail%></font></a><br>
  116.                     <%end if%>
  117.                     <%if AdresURL<>"" then%>
  118.                     <a href="http://<%=AdresURL%>"><font size="2" face="Arial" color="#000080"><%=AdresURL%></font></a><br>
  119.                     <%end if%>
  120.                     <br>
  121.                     <font face="Arial" color="#808080" size="1"><b>oferta: <BR>
  122.                     
  123.                     <%if P41Rabat<>"" then%>
  124.                                  <%if P41Rabat<>"" then response.write P41Rabat*100&"% "%>wszystkie produkty i us│ugi<br>
  125.                     <%end if%>
  126.                     <%if P42Rabat<>"" then%>
  127.                                  <%if P42Rabat<>"" then response.write P42Rabat*100&"% "%>wszystkie us│ugi<br>
  128.                     <%end if%>
  129.                     <%if P43Rabat<>"" then%>
  130.                                  <%if P43Rabat<>"" then response.write P43Rabat*100&"% "%>wszystkie produkty<br>
  131.                     <%end if%>
  132.                     <%if P4aTekst<>"" then%>
  133.                                  <%if P4aRabat<>"" then response.write P4aRabat*100&"% "%><%=P4aTekst%><br>
  134.                     <%end if%>
  135.                     <%if P4bTekst<>"" then%>
  136.                                  <%if P4bRabat<>"" then response.write P4bRabat*100&"% "%><%=P4bTekst%><br>
  137.                     <%end if%>
  138.                     <%if P4cTekst<>"" then%>
  139.                                  <%if P4cRabat<>"" then response.write P4cRabat*100&"% "%><%=P4cTekst%><br>
  140.                     <%end if%>
  141.                     <%if P4dTekst<>"" then%>
  142.                                  <%if P4dRabat<>"" then response.write P4dRabat*100&"% "%><%=P4dTekst%><br>
  143.                     <%end if%>
  144.                     <%if P4eTekst<>"" then%>
  145.                                  <%if P4eRabat<>"" then response.write P4eRabat*100&"% "%><%=P4eTekst%><br>
  146.                     <%end if%>
  147.                     <%if P4fTekst<>"" then%>
  148.                                  <%if P4fRabat<>"" then response.write P4fRabat*100&"% "%><%=P4fTekst%><br>
  149.                     <%end if%>
  150.                     </b></font>
  151.                     </td>
  152.                     <td width="25%" valign="top" align="left"><%if bPromocja then %><a href="http://klub.chip.pl/konkursy/rocznica.asp"><img src="images/sponsor.gif" width="120" height="30" border="0"></a><%end if %></td>
  153.                   </tr>
  154.                   <tr>
  155.                     <td width="100%" valign="top" align="center" height="40" colspan="2"></td>
  156.                   </tr>
  157.         <%
  158.         if not firmy.eof then
  159.             if OldID=firmy("ID") then firmy.MoveNext    
  160.         end if
  161.     wend
  162.  
  163. Conn.close
  164. %>
  165. </table>