<% Dim strSQL Dim intNumeroCat, intNumeroCatColonna Dim intRisultatiPerPagina intRisultatiPerPagina = 10 lunghDescr = 50 intPagAvv = request.querystring("avv") intPagAzi = request.querystring("azi") intPagCur = request.querystring("cur") intPagLav = request.querystring("lav") intPagPrO = request.querystring("pro") intPagPrR = request.querystring("prr") intPagSeO = request.querystring("seo") intPagSeR = request.querystring("ser") 'if intPagAvv <> "" or intPagAzi <> "" or intPagCur <> "" or intPagLav <> "" or intPagPrO <> "" or intPagPrR <> "" or intPagSeO <> "" or intPagSeR <> "" then bolPaging = true if intPagAvv = "" then intPagAvv = 1 if intPagAzi = "" then intPagAzi = 1 if intPagCur = "" then intPagCur = 1 if intPagLav = "" then intPagLav = 1 if intPagPrO = "" then intPagPrO = 1 if intPagPrR = "" then intPagPrR = 1 if intPagSeO = "" then intPagSeO = 1 if intPagSeR = "" then intPagSeR = 1 strSQL = "SELECT nome, cod, aziende, curriculum, rich_servizi, off_servizi, off_lavoro, rich_prodotti, off_prodotti, avvenimenti FROM TCategoria WHERE cod_padre = "& Request.Querystring("cod") &" ORDER BY nome" sql="select aziende, curriculum, rich_servizi, off_servizi, off_lavoro, rich_prodotti, off_prodotti, avvenimenti FROM TCategoria WHERE cod = "& Request.Querystring("cod") Set rs = Server.CreateObject("ADODB.RecordSet") 'response.write strSQL rs.Open strSQL, conn, "3", "3" 'Set rs = conn.Execute(strSQL) Set rs_abilita = Server.CreateObject("ADODB.RecordSet") rs_abilita.Open sql, conn, "3", "3" intNumeroCat = rs.RecordCount intNumeroCatColonna = Int(intNumeroCat/2) If Not rs_abilita.EOF Then aziende = rs_abilita.Fields("aziende").Value curriculum = rs_abilita.Fields("curriculum").Value rich_servizi = rs_abilita.Fields("rich_servizi").Value off_servizi = rs_abilita.Fields("off_servizi").Value off_lavoro = rs_abilita.Fields("off_lavoro").Value rich_prodotti = rs_abilita.Fields("rich_prodotti").Value off_prodotti = rs_abilita.Fields("off_prodotti").Value avvenimenti = rs_abilita.Fields("avvenimenti").Value Else aziende = False curriculum = False rich_servizi = False off_servizi = False off_lavoro = False rich_prodotti = False off_prodotti = False avvenimenti = False End If %> PAPERWEBSTORE.COM | elenco categorie
       
  <%= Request.QueryString("nome") %>    

finericerca.gif lente.gif

Cerca:

Tra:

<%If rs.RecordCount > 0 Then%>
Elenco directory di questa categoria
<% if ((intNumeroCatColonna - 1) Mod 2)=0 then intNumtabella=intNumeroCatColonna - 1 else intNumtabella=intNumeroCatColonna end if For i = 0 To intNumtabella %> <% rs.MoveNext Next %>
  <% Do While Not rs.EOF %> <% rs.MoveNext Loop %>
"><%= rs("nome") %>
<%End If%> <% rs.Close Set rs = Nothing strSQL = "SELECT cod, titolo, datepart(dd,dal) as giornodal, datepart(mm,dal) as mesedal, datepart(yy,dal) as annodal, datepart(dd,al) as giornoal, datepart(mm,al) as meseal, datepart(yy,al) as annoal, cod_tipo FROM TAvvenimento WHERE cod_categoria = '"& Request.QueryString("cod") &"' AND getdate() < TAvvenimento.al ORDER BY TAvvenimento.dal" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.CursorType = 3 rs.LockType = 1 rs.PageSize = intRisultatiPerPagina rs.Source = strSQL rs.Open If Not rs.EOF Then rs.AbsolutePage = CInt(intPagAvv) %> <% End If rs.Close Set rs = Nothing strSQL = "SELECT cod, ragione, web, descrizione, email, datepart(dd,datains) as gdatains, datepart(mm,datains) as mdatains, datepart(yy,datains) as adatains FROM TAzienda WHERE cod_categoria = '"& Request.QueryString("cod") &"' ORDER BY TAzienda.datains DESC"' AND getdate() < dateadd(dd,validita,datains) ORDER BY TAzienda.datains" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.CursorType = 3 rs.LockType = 1 rs.PageSize = intRisultatiPerPagina rs.Source = strSQL rs.Open If Not rs.EOF Then 'response.write "
intPagAzi:"&intPagAzi&"
" rs.AbsolutePage = CInt(intPagAzi) %> <% End If rs.Close Set rs = Nothing strSQL = "SELECT TCurriculum.cod, nome, cognome, laurea, diploma FROM TCurriculum INNER JOIN TCliente ON TCliente.cod = TCurriculum.cod_cliente WHERE TCurriculum.cod_categoria = '"& Request.QueryString("cod") &"' AND getdate() < dateadd(dd,validita,datains) ORDER BY datains DESC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.CursorType = 3 rs.LockType = 1 rs.PageSize = intRisultatiPerPagina rs.Source = strSQL rs.Open If Not rs.EOF Then rs.AbsolutePage = CInt(intPagCur) %> <% End If rs.Close Set rs = Nothing strSQL = "SELECT cod, ragione, fax, email FROM TLavoro WHERE cod_categoria = '"& Request.QueryString("cod") &"' AND getdate() < dateadd(dd,validita,datains) ORDER BY datains DESC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.CursorType = 3 rs.LockType = 1 rs.PageSize = intRisultatiPerPagina rs.Source = strSQL rs.Open If Not rs.EOF Then rs.AbsolutePage = CInt(intPagLav) %> <% End If rs.Close Set rs = Nothing strSQL = "SELECT cod, ragione,descrizione FROM TProdotto WHERE cod_categoria = '"& Request.QueryString("cod") &"' AND offerta = 1 AND getdate() < dateadd(dd,validita,datains) ORDER BY datains DESC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.CursorType = 3 rs.LockType = 1 rs.PageSize = intRisultatiPerPagina rs.Source = strSQL rs.Open If Not rs.EOF Then rs.AbsolutePage = CInt(intPagPrO) %> <% End If rs.Close Set rs = Nothing strSQL = "SELECT cod, ragione,descrizione FROM TProdotto WHERE cod_categoria = '"& Request.QueryString("cod") &"' AND offerta = 0 AND getdate() < dateadd(dd,validita,datains) ORDER BY datains DESC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.CursorType = 3 rs.LockType = 1 rs.PageSize = intRisultatiPerPagina rs.Source = strSQL rs.Open If Not rs.EOF Then rs.AbsolutePage = CInt(intPagPrR) %> <% End If rs.Close Set rs = Nothing strSQL = "SELECT cod, ragione,descrizione FROM TServizio WHERE cod_categoria = '"& Request.QueryString("cod") &"' AND offerta = 1 AND getdate() < dateadd(dd,validita,datains) ORDER BY datains DESC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.CursorType = 3 rs.LockType = 1 rs.PageSize = intRisultatiPerPagina rs.Source = strSQL rs.Open If Not rs.EOF Then rs.AbsolutePage = CInt(intPagSeO) %> <% End If rs.Close Set rs = Nothing strSQL = "SELECT cod, ragione,descrizione FROM TServizio WHERE cod_categoria = '"& Request.QueryString("cod") &"' AND offerta = 0 AND getdate() < dateadd(dd,validita,datains) ORDER BY datains DESC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.CursorType = 3 rs.LockType = 1 rs.PageSize = intRisultatiPerPagina rs.Source = strSQL rs.Open If Not rs.EOF Then rs.AbsolutePage = CInt(intPagSeR) %> <% End If %>
Tutti i prossimi avvenimenti
<% intNumeroRiga = 0 Do While Not rs.EOF And intNumeroRiga < intRisultatiPerPagina %> <% rs.MoveNext intNumeroRiga = intNumeroRiga + 1 Loop If rs.pagecount > 1 Then response.write("") End If %>
"><%= rs("titolo") %>
<%= rs("cod_tipo") %>
Dal <%= rs("giornodal") %>/<%= rs("mesedal") %>/<%= rs("annodal") %> al <%= rs("giornoal") %>/<%= rs("meseal") %>/<%= rs("annoal") %>

Elenco pagine disponibili: ") For i = 1 To rs.pagecount If i = CInt(intPagAvv) Then response.write (i) Else %> &avv=<%= i %>"><%= i %> <% End If Next response.write("
Elenco aziende e siti web
<% intNumeroRiga = 0 Do While Not rs.EOF And intNumeroRiga < intRisultatiPerPagina %> <% rs.MoveNext intNumeroRiga = intNumeroRiga + 1 Loop If rs.pagecount > 1 Then response.write("") End If %>
<% if rs("web")="" then web="www.paperwebstore.com/siti.htm" else web=rs("web") end if %> <%= rs("ragione") %>
<%= rs("descrizione") %>

Elenco pagine disponibili: ") For i = 1 To rs.pagecount If i = CInt(intPagAzi) Then response.write (i) Else %> &azi=<%= i %>"><%= i %> <% End If Next response.write("
Tutti i curriculum di chi cerca lavoro
<% intNumeroRiga = 0 Do While Not rs.EOF And intNumeroRiga < intRisultatiPerPagina %> <% rs.MoveNext intNumeroRiga = intNumeroRiga + 1 Loop If rs.pagecount > 1 Then response.write("") End If %>
"><%= rs("nome") %> <%= rs("cognome") %>
<% If Not rs("laurea") = "" Then Response.Write("Laureato in "& rs("laurea")) Else If Not rs("diploma") = "" Then Response.Write("Diplomato in "& rs("diploma")) End If End If %>

Elenco pagine disponibili: ") For i = 1 To rs.pagecount If i = CInt(intPagCur) Then response.write (i) Else %> &cur=<%= i %>"><%= i %> <% End If Next response.write("
Le offerte di lavoro delle aziende
<% intNumeroRiga = 0 Do While Not rs.EOF And intNumeroRiga < intRisultatiPerPagina %> <% rs.MoveNext intNumeroRiga = intNumeroRiga + 1 Loop If rs.pagecount > 1 Then response.write("") End If %>
"><%= rs("ragione") %>
"><%= rs("email") %>
<%= rs("fax") %>

Elenco pagine disponibili: ") For i = 1 To rs.pagecount If i = CInt(intPagLav) Then response.write (i) Else %> &lav=<%= i %>"><%= i %> <% End If Next response.write("
Offerte di vendita dei prodotti nuovi/stock
<% intNumeroRiga = 0 Do While Not rs.EOF And intNumeroRiga < intRisultatiPerPagina %> <% rs.MoveNext intNumeroRiga = intNumeroRiga + 1 Loop If rs.pagecount > 1 Then response.write("") End If %>
<% if len(rs("descrizione"))>lunghDescr then descrizione=Left(rs("descrizione"),lunghDescr) & "..." else descrizione=Left(rs("descrizione"),lunghDescr) end if %>
"><%= descrizione %>

Elenco pagine disponibili: ") For i = 1 To rs.pagecount If i = CInt(intPagPrO) Then response.write (i) Else %> &pro=<%= i %>"><%= i %> <% End If Next response.write("
Richieste delle aziende che cercano prodotti nuovi/stock
<% Do While Not rs.EOF %> <% rs.MoveNext intNumeroRiga = intNumeroRiga + 1 Loop If rs.pagecount > 1 Then response.write("") End If %>
<% if len(rs("descrizione"))>lunghDescr then descrizione=Left(rs("descrizione"),lunghDescr) & "..." else descrizione=Left(rs("descrizione"),lunghDescr) end if %>
"><%= descrizione %>

Elenco pagine disponibili: ") For i = 1 To rs.pagecount If i = CInt(intPagPrR) Then response.write (i) Else %> &prr=<%= i %>"><%= i %> <% End If Next response.write("
Elenco di offerte dei servizi per le aziende
<% intNumeroRiga = 0 Do While Not rs.EOF And intNumeroRiga < intRisultatiPerPagina %> <% rs.MoveNext intNumeroRiga = intNumeroRiga + 1 Loop If rs.pagecount > 1 Then response.write("") End If %>
<% if len(rs("descrizione"))>lunghDescr then descrizione=Left(rs("descrizione"),lunghDescr) & "..." else descrizione=Left(rs("descrizione"),lunghDescr) end if %>
"><%= descrizione %>

Elenco pagine disponibili: ") For i = 1 To rs.pagecount If i = CInt(intPagSeO) Then response.write (i) Else %> &seo=<%= i %>"><%= i %> <% End If Next response.write("
Le richieste delle aziende che cercano servizi
<% intNumeroRiga = 0 Do While Not rs.EOF And intNumeroRiga < intRisultatiPerPagina %> <% rs.MoveNext intNumeroRiga = intNumeroRiga + 1 Loop If rs.pagecount > 1 Then response.write("") End If %>
<% if len(rs("descrizione"))>lunghDescr then descrizione=Left(rs("descrizione"),lunghDescr) & "..." else descrizione=Left(rs("descrizione"),lunghDescr) end if %>
"><%= descrizione %>

Elenco pagine disponibili: ") For i = 1 To rs.pagecount If i = CInt(intPagSeR) Then response.write (i) Else %> &ser=<%= i %>"><%= i %> <% End If Next response.write("