<%@LANGUAGE="VBSCRIPT"%> <% Dim katalog__MMColParam katalog__MMColParam = "d" If (Request.QueryString("Kod") <> "") Then katalog__MMColParam = Request.QueryString("Kod") End If %> <% Dim katalog Dim katalog_numRows Set katalog = Server.CreateObject("ADODB.Recordset") katalog.ActiveConnection = MM_termia_STRING katalog.Source = "SELECT * FROM dbo.termia_katalog WHERE Kod like '" + Replace(katalog__MMColParam, "'", "''") + "%' and kod not like '%*%'" katalog.CursorType = 0 katalog.CursorLocation = 2 katalog.LockType = 1 katalog.Open() katalog_numRows = 0 %> <% Dim kat_nagl Dim kat_nagl_numRows Set kat_nagl = Server.CreateObject("ADODB.Recordset") kat_nagl.ActiveConnection = MM_termia_STRING kat_nagl.Source = "SELECT * FROM dbo.termia_katalog WHERE Kod like '02' or Kod like '03' or Kod like '04' or Kod like '05' or Kod like '06' or Kod like '07' or Kod like '08' or Kod like '09' or Kod like '10' or Kod like '11' or Kod like '12' or Kod like '13' or Kod like '14' or Kod like '15' or Kod like '16' or Kod like '17' or Kod like '18' or Kod like '19' or Kod like '20' or Kod like '21'" kat_nagl.CursorType = 0 kat_nagl.CursorLocation = 2 kat_nagl.LockType = 1 kat_nagl.Open() kat_nagl_numRows = 0 %> <% Dim katalog1__MMColParam katalog1__MMColParam = "d" If (Request.QueryString("Kod") <> "") Then katalog1__MMColParam = Request.QueryString("Kod") End If %> <% Dim katalog1 Dim katalog1_numRows Set katalog1 = Server.CreateObject("ADODB.Recordset") katalog1.ActiveConnection = MM_termia_STRING katalog1.Source = "SELECT * FROM dbo.termia_katalog WHERE Kod like '" + Replace(katalog1__MMColParam, "'", "''") + "%' and kod like '%*%'" katalog1.CursorType = 0 katalog1.CursorLocation = 2 katalog1.LockType = 1 katalog1.Open() katalog1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 katalog_numRows = katalog_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 kat_nagl_numRows = kat_nagl_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 katalog1_numRows = katalog1_numRows + Repeat3__numRows %> Termia S.C.-odpady medyczne, odpady weterynaryjne, niebezpieczne, świetlówki, odbiór, transport, utylizacja.
.:: TERMIA ::.

Katalog odpadów odbieranych przez TERMIA S.C.

 
 

 

KATALOG ODPADÓW ODBIERANYCH PRZEZ TERMIA S.C.
WRAZ Z LISTĄ ODPADÓW NIEBEZPIECZNYCH


<% If Not katalog.EOF Or Not katalog.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT katalog.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 katalog.MoveNext() Wend %>
Szczegóły kodu nr <%= Request.QueryString("Kod") %> : (odpady inne niż niebezpieczne)
  Kod Opis
  <%=(katalog.Fields.Item("Kod").Value)%> <%= Server.HTMLEncode((katalog.Fields.Item("opis").Value)) %>
<% End If ' end Not katalog.EOF Or NOT katalog.BOF %> <% If Not katalog1.EOF Or Not katalog1.BOF Then %> <% While ((Repeat3__numRows <> 0) AND (NOT katalog1.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 katalog1.MoveNext() Wend %>
Szczegóły kodu nr <%= Request.QueryString("Kod") %> : (odpady niebezpieczne)
  Kod Opis
  <%=(katalog1.Fields.Item("Kod").Value)%> <%=(katalog1.Fields.Item("opis").Value)%>
<% End If ' end Not katalog1.EOF Or NOT katalog1.BOF %>
<% While ((Repeat2__numRows <> 0) AND (NOT kat_nagl.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 kat_nagl.MoveNext() Wend %>
Proszę wskazać kod odpadu
  Kod Opis
  <%=(kat_nagl.Fields.Item("opis").Value)%>




kontakt z firmą: 45-131 Opole, ul. J. Cygana 7, tel/fax (77) 456 70 82
.:: strona domowa ::. .:: e-mail: biuro@termia.pl ::.
<% katalog.Close() Set katalog = Nothing %> <% kat_nagl.Close() Set kat_nagl = Nothing %> <% katalog1.Close() Set katalog1 = Nothing %>