Aprire una pagina diversa in base ad una tipologia diversa

**leftist** · 20-11-2014, 17:31

In pratica mi preleva i dati solo dal primo record

**leftist** · 20-11-2014, 17:32

In pratica mi preleva solo i dati del primo record è come se si perdesse per la strada il progressivo

**rby** · 20-11-2014, 17:38

Ho notato che in veditutto.asp c'era questa if :

if Request.Querystring("Tipo_Contatto") = "Amici" then

che faceva riferimento a querystring e non al record appena letto per cui penso debba essere :

if rs("Tipo_Contatto") = "Amici" then

Forse era questo l'errore. Veniva sempre generato lo stesso pezzo di pagina, senza tener conto del record letto.
Inoltre hai usato p.es.: cognome=request("cognome").
E' corretto ? io conosco request.querystring... oppure request.form..., ma request da sola come istruzione non la ho mai vista. Forse è stato un errore di trascrizione nel postare il file prova.txt.
Inoltre io non uso mai ELSEIF, rischio di confondermi e non sapere più cosa fa il programma. Non solo, chiudo ogni if con la sua end if ed il contenuto di ogni nodo di if lo sposto verso destra in modo da poter capire anche visivamente in quale situazione mi trovo.

Ho apportato qualche piccola modifica in base a quello che dicevo :

codice:

'  ------------------------------------------------------------------------------------------------
'  PAGINA: ritultato.asp
'  ------------------------------------------------------------------------------------------------
<!--#include file="conn.asp" -->
<%
Response.Expires = -20000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
If Session("UserLoggedIn") <> "true" Then
   Response.Redirect("index.asp")
End If
titolo=request("titolo")
cognome=request("cognome")
nome_parente=request("nome")
indirizzo=request("indirizzo")
telefono_casa=request("telefono_casa")
telefono_ufficio=request("telefono_ufficio")
telefono_2=request("telefono_2")
cellulare1=request("cellulare1")


Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=xxx.xxx.xxx.xxx;Database=Sqlxxxxx_x;port=xxxx;UID=Sqlxxx;PWD=xxxx;"
Sql = "SELECT * from anagrafica  where titolo like '"&titolo&"%' and cognome like '"&cognome&"%' ... "
set rs=conn.execute(Sql)
%>
..
   <a href="veditutto.asp?progressivo=<%=rs("progressivo")%>&Tipo_Contatto=<%=rs("tipologia")%>">
   <img border="0" src="../../immagini_rubrica/vedi.png" alt="Mostra scheda <%=sContatto%>">Vedi</a>




.....
'  ------------------------------------------------------------------------------------------------
'  PAGINA: veditutto.asp
'  ------------------------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn.asp" -->
<%
session("progressivo")=request("progressivo")
Sql = "SELECT * from anagrafica "
set rs=conn.execute(Sql)
%>
...
<%
if rs("Tipo_Contatto") = "Amici" then
%>
..
   <td width="233" align="right" nowrap bgcolor="#FFFFCC">
   <div align="right">
   <font size="2">
   <strong><font color="#003366" face="Tahoma">Cognome:</font></strong></font></div>
   </td>
   <td width="248" height="19" bgcolor="dddddd"> <font color="#003366" size="2" face="Tahoma">
    <%=rs("cognome")%> </font></td>
...
<% 
else
   if rs("Tipo_Contatto") = "Parenti" then
%>
...
      <td width="233" align="right" nowrap bgcolor="#FFFFCC">
      <div align="right"><font size="2">
      <strong><font color="#003366" face="Tahoma">Parente:</font></strong></font></div></td>
      <td width="248" height="19" bgcolor="dddddd"> <font color="#003366" size="2" face="Tahoma"><%=rs("nome_parente")%> </font></td>
<% end if
end if %>

I programmi asp sono tutti concatenati tra di loro e molto spesso l'errore sta nel passaggio dei dati tra una pagina ed un'altra. Per questo mi sono scritto una pagina che mi consente di visualizzare i dati che vengono inviati e che devono rappresentare il mio input nella pagina chiamata. La ho chiamata Vedi_Variabili.asp ed in caso di malfunzionamento la sostituisco a quella realmente chiamata in modo da poter controllare quali sono realmente i dati che vengono trasferiti tra una pagina e l'altra

codice:

<html>
<body>
<%
Server.ScriptTimeout = 3600
     Session.Contents("NomePagina") = "..\Pgm\Vedi_Variabili.asp"
'
'                           5 Novembre  2010.
' Ultimo Aggiornamento      5 Novembre  2010.
'
'   Mostra le variabili con cui viene chiamata
%>
<table border="2" width="100%">
  <tr>
    <td colspan="7" align=center style="font-size: 14 pt; font-weight: bold; color: #0000FF">..\pgm\Vedi_Variabili.asp</td>
  </tr>
  <tr>
<% if Request.Querystring.count = 0    then  %>
    <td colspan="7" align=center style="font-size: 14 pt; font-weight: bold; color: #FF0000">Non ci sono variabili dell'istanza Request.Querystring</td>
<% else                                      %>
    <td colspan="7" align=center style="font-size: 14 pt; font-weight: bold; color: #00F000">Ecco le <%=Request.Querystring.count%> variabili dell'istanza Request.Querystring : </td>
  </tr>
  <tr>
    <td colspan="1" Rowspan="2" align=center style="font-size: 12 pt; font-weight: bold; color: #00F000">Numero</td>
    <td colspan="1" align=center style="font-size: 12 pt; font-weight: bold; color: #FF0000">Variabile</td>
    <td colspan="5" align=center style="font-size: 12 pt; font-weight: bold; color: #0000FF">Contenuto</td>
  </tr>
  <tr>
    <td colspan="1" align=center style="font-size: 12 pt; font-weight: bold; color: #FF0000">Request.Querystring.key(Numero)</td>
    <td colspan="5" align=center style="font-size: 12 pt; font-weight: bold; color: #0000FF">Request.Querystring(Numero) oppure Request.Querystring("Variabile")</td>
  </tr>
<%    num = 1
      While num <= Request.Querystring.count
         if Request.Querystring(num) = "" then 
               variabile = "&nbsp;"
         else 
               variabile = Request.Querystring(num)
         end if
%>
  <tr>
    <td colspan="1" align=right style="font-size: 8  pt; font-weight: bold; color: #00F000"><%=num%></td>
    <td colspan="1" style="font-size: 8  pt; font-weight: bold; color: #FF0000"><%=Request.Querystring.key(num)%></td>
    <td colspan="5" style="font-size: 8  pt; font-weight: bold; color: #0000FF"><%=variabile%></td>
  </tr>
<%       num=num+1
      Wend                                                                                               
   end if
%>
  <tr>
<% if Request.Form.count = 0    then  %>
    <td colspan="7" align=center style="font-size: 14 pt; font-weight: bold; color: #FF0000">Non ci sono variabili dell'istanza Request.Form</td>
<% else                                      %>
    <td colspan="7" align=center style="font-size: 14 pt; font-weight: bold; color: #00F000">Ecco le <%=Request.Form.count%> variabili dell'istanza Request.Form : </td>
  </tr>
  <tr>
    <td colspan="1" Rowspan="2" align=center style="font-size: 12 pt; font-weight: bold; color: #00F000">Numero</td>
    <td colspan="1" align=center style="font-size: 12 pt; font-weight: bold; color: #FF0000">Variabile</td>
    <td colspan="5" align=center style="font-size: 12 pt; font-weight: bold; color: #0000FF">Contenuto</td>
  </tr>
  <tr>
    <td colspan="1" align=center style="font-size: 12 pt; font-weight: bold; color: #FF0000">Request.Form.key(Numero)</td>
    <td colspan="5" align=center style="font-size: 12 pt; font-weight: bold; color: #0000FF">Request.Form(Numero) oppure Request.Form("Variabile")</td>
  </tr>
<%    num = 1
      While num <= Request.Form.count
         if Request.Form(num) = "" then 
               variabile = "&nbsp;"
         else 
               variabile = Request.Form(num)
         end if
%>
  <tr>
    <td colspan="1" align=right style="font-size: 8  pt; font-weight: bold; color: #00F000"><%=num%></td>
    <td colspan="1" style="font-size: 8  pt; font-weight: bold; color: #FF0000"><%=Request.Form.key(num)%></td>
    <td colspan="5" style="font-size: 8  pt; font-weight: bold; color: #0000FF"><%=variabile%></td>
  </tr>
<%       num=num+1
      Wend                                                                                               
   end if
%>


<table cellspacing=1 cellpadding=4 border=1> 
<tr> 
<th>Session Variable Name</th> 
<th>Session Variable Value</th> 
</tr> 
<% for i = 0 to session.contents.count %> 
<tr> 
<td>&nbsp;<%= session.Contents.key(i) %></td> 
<td>&nbsp;<%= session.Contents.item(i) %></td> 
</tr> 
<% next %> 
</table>
</table>
</body>
</html>

**leftist** · 20-11-2014, 17:59

Sei un grande!!! Funziona perfettamente.Grazie per la disponibilità e pazienza!Ciaoo

**leftist** · 21-11-2014, 00:02

Posso permettermi di allargarmi? Ma se volessi filtrare i risultati dall'inizio?
Ovvero dalla pagina di ricerca? In questo modo eviterei un select e diverse pagine per il motore di ricerca. Inserirei i campi fondamentali e poi li farei visualizzare in una pagina unica tipo risultato.asp.

Ora, normalmente nella pagina di ricerca inserisco un form che apre la pagina dei risultati, come posso filtrare il tutto ed eliminare il jump select?
Questa volta la utilizzerei per il mio db clienti/fornitori/aziende e mi sarebbe davvero utile.
Allego i file, magari se hai un minuto...

**leftist** · 21-11-2014, 00:04

Originariamente inviata da leftist

Posso permettermi di allargarmi? Ma se volessi filtrare i risultati dall'inizio?
Ovvero dalla pagina di ricerca? In questo modo eviterei un select e diverse pagine per il motore di ricerca. Inserirei i campi fondamentali e poi li farei visualizzare in una pagina unica tipo risultato.asp.

Ora, normalmente nella pagina di ricerca inserisco un form che apre la pagina dei risultati, come posso filtrare il tutto ed eliminare il jump select?
Questa volta la utilizzerei per il mio db clienti/fornitori/aziende e mi sarebbe davvero utile.
Allego i file, magari se hai un minuto...

Dimenticavo l'allegato

**leftist** · 21-11-2014, 13:33

Non chiedermi come abbia fatto ma ci sono riuscito!!

Ho inserito un IF nell'istruzione if rs("tipologia") = "Cliente" thenRichiamo la Tipologia: if rs("tipologia") = "Cliente" thenOra ho solo un ultimo problema: se un nominativo non è in elenco mi posta una pagina bianca mentre in risultati.asp dovrebbe dirmi che ci sono 0 record trovati o comunque non farmi vedere nessun record.Come risolvo?Grazie!!!

**leftist** · 22-11-2014, 17:23

Niente non ci arrivo proprio

Ci rinuncio

**leftist** · 23-11-2014, 18:22

Bhò ho anche provato con:
if rs("tipologia") = "Fornitore" then
tipologia = Request("Fornitore")
if not isnull(Fornitore) OR Fornitore = "" then
tipologia = Replace(Fornitore,"'","''")
end if

Ovviamente non funziona nel caso manca il corrispondente!

Ma non è che devo modificare la query?

**rby** · 23-11-2014, 18:44

Scusami il ritardo, ma ero in una zona in cui non avevo segnale

ed avevo problemi a collegarmi.
Ho caricato il tuo zip (che ti restituisco modificato) e sono intervenuto nelle due pagine ricerca.asp e risultati.asp per farle funzionare su di un mio DB (SQL Server) in modo da poterti mostrare in risultati.asp come intervenire nel caso in cui non viene restituito nessun record. Infatti ho inserito subito dopo l'esecuzione della Select un test x verificare se ci sono records o meno (if Rec.eof then...). Se non ce ne sono spara fuori una riga informativa, altrimenti c'è il loop che scrive tutte le occorrenze trovate.
Ciao

Discussione: Aprire una pagina diversa in base ad una tipologia diversa

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio