query da link

[Prof_Mauri]

Ciao a tutti, ho una semplice query di questo tipo :

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\...it\fpdb\.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT [Cognome e Nome],Indirizzo from Anag_Clienti ORDER BY [Cognome e Nome]")
Do while NOT objRs.EOF
%>
<tr>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write objRs("Cognome e Nome")%>
</td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write objRs("Indirizzo")%>
</td>
</tr>
<%objRs.Movenext
Loop
objRs.Close
objRs = Nothing
objConn.Close
Set objConn = Nothing
%>

vorrei che il campo [Cognome e Nome] sia un link sul quale cliccandoci su si apra un'altra pagina che elabori una query di questo tipo :

set objRs = objConn.Execute("SELECT Anag_Clienti.[IDCliente], Anag_Clienti.[Cognome e Nome], App_ora.[Data Appunt], App_ora.Ora, App_ora.Descrizione FROM Anag_Clienti RIGHT JOIN App_ora ON Anag_Clienti.IDCliente = App_ora.IDCliente WHERE Anag_Clienti.[Cognome e Nome] ='.............' ;")

come posso fare?

[Roby_72]

<%response.write (""& objRs("Cognome e Nome") &"")%>

Roby

[Prof_Mauri]

Il link funziona ma la query no, il codice della query è il seguente :

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\.....\fpdb\.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT Anag_Clienti.[IDCliente], Anag_Clienti.[Cognome e Nome], App_ora.[Data Appunt], App_ora.Ora, App_ora.Descrizione FROM Anag_Clienti RIGHT JOIN App_ora ON Anag_Clienti.IDCliente = App_ora.IDCliente WHERE Anag_Clienti.[Cognome e Nome]='nome';")
precedente=""
while NOT objRs.EOF
if precedente<>objRs("IDCliente") then
%>
<table border="1">
<tr>
<td>ID</td>
<td>Cognome e Nome</td>
</tr>
<tr>
<td><%=objRs("IDCliente")%></td>
<td><%=objRs("Cognome e Nome")%></td>
</tr>
<%
precedente=objRs("IDCliente")
end if
%>
<tr>
<td align="left"></td>
<td align="left">Data</td>
<td align="left">Ora</td>
<td align="left">Descrizione</td>
</tr>
<tr>
<td></td>
<td align="left"><%=objRs("Data Appunt")%></td>
<td align="left"><%=objRs("Ora")%></td>
<td align="left"><%=objRs("Descrizione")%></td>
</tr>
<%
objRs.Movenext
wend
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>

[Roby_72]

Beh lo credo...

nome = trim(request.querystring("nome"))
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\.....\fpdb\.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT Anag_Clienti.[IDCliente], Anag_Clienti.[Cognome e Nome], App_ora.[Data Appunt], App_ora.Ora, App_ora.Descrizione FROM Anag_Clienti RIGHT JOIN App_ora ON Anag_Clienti.IDCliente = App_ora.IDCliente WHERE Anag_Clienti.[Cognome e Nome]='"& nome &"';")

Roby

[Prof_Mauri]

Perfetto grazie

[Roby_72]

Occhio che c'è un errore subdolo...
Per correttezza non dovresti passare nome e cognome ma l'ID.

Roby

[Prof_Mauri]

Ovvero dovrei rendere il campo "id" link anzicchè il "cognome e nome" ?

[Roby_72]

Eh beh tu che dici?

Roby

[Prof_Mauri]

In realtà ho pensato di rendere il nome link piuttosto che un id per il semplice fatto che il programma deve poi essere utilizzato da chi ha poca dimestichezza con il PC.

Ma il fatto che la query venga comunque eseguita correttamente non significa che non si tratta di un errore?

[Roby_72]

Che dici?????
Ciò che link NOME E COGNOME non ha nulla a che vedere con ciò che passi all'altra pagina in querystring per effettuare la query!!!

Roby