Query maledetta

**optime** · 03-06-2011, 14:41

quindi è tutto a pposhto?

**Riccardo980** · 03-06-2011, 14:53

ora provo

**Riccardo980** · 04-06-2011, 19:14

Che palle niente non riesco a farlo funzionare help me!!! Posto tutto il file.asp

<%
Dim Id_Agenzia
Id_Agenzia=Request.QueryString("Id_Agenzia")
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Stato Contratti</title>
</head>

<body>


[img]ENEL.jpg[/img]
Stato attivazione contratti:


<%
Dim sc, cn, rs

sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};"
sc = sc & "dbq=" & Server.MapPath("/mdb-database/Database.mdb")

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open sc

%>

<table border="1" width="100%">
<tr>
<td colspan="15">

<table border="1" width="100%">
<tr>
<td width="285" bgcolor="NAVY" align="center">

<% sql = "SELECT COUNT(*) FROM eni WHERE Id_Agenzia like '%"& Id_Agenzia &"%' AND Stato_Attivazione = 'ATTIVA'"
set rs = Cn.Execute(sql)
Response.Write "ATTIVATI: " & rs(0) & " "
%></td>
<td width="339" bgcolor="YELLOW" align="center">
<%
sql = "SELECT COUNT(*) FROM eni WHERE Id_Agenzia like '%"& Id_Agenzia &"%' AND Stato_Attivazione = 'IN ATTESA'"

set rs = Cn.Execute(sql)
Response.Write "IN ATTESA " & rs(0) & " "
%>

</td>
<td width="293" bgcolor="GREEN" align="center">
<% sql = "SELECT COUNT(*) FROM eni WHERE Id_Agenzia like '%"& Id_Agenzia &"%' AND Stato_Attivazione = 'OK'"
set rs = Cn.Execute(sql)
Response.Write "OK: " & rs(0) & " "
%></td>
<td bgcolor="RED" align="center"> <% sql = "SELECT COUNT(*) FROM eni WHERE Id_Agenzia like '%"& Id_Agenzia &"%' AND Stato_Attivazione = 'KO'"
set rs = Cn.Execute(sql)
Response.Write "KO: " & rs(0) & " "
%></td>
</tr>
</table></td>
</tr>
<tr>
<td>Stato Attivazione:</td>
<td>Data inserimento:</td>
<td width="91">Cognome ragione sociale:</td>
<td width="35">Nome:</td>
<td width="52">Indirizzo:</td>
<td>Tipo Contratto:</td>
<td>Tipo offerta:</td>
<td>Metodo di pagamento:</td>
<td>Codice pod:</td>
<td>N° contatore:</td>
<td width="103">Codice fiscale/Partita Iva:</td>
<td width="56">Cellulare:</td>
<td>Telefono:</td>
<td>Codice Agente:</td>
<td width="89">Note OeRre Communication:</td>
</tr>
<tr>
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/Database.mdb")'(*.mdb);dbq=barz.mdb"
objConn.Open
%><%
Dim strSQL
strSQL= "select * from eni where Id_Agenzia like '%"& Id_Agenzia &"%' ORDER BY Id_pda DESC"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
Do While Not objRS.EOF
%>
<td bgcolor="<%=objRS("Colore_Stato_Attivazione") %>"><%=objRS("Stato_Attivazione") %></td>
<td><%=objRS("Data_PDA") %></td>
<td><%=objRS("Cognome_Ragione_Sociale") %></td>
<td><%=objRS("Nome") %></td>
<td><%=objRS("Indirizzo") %></td>
<td><%=objRS("Tipo_Contratto") %></td>
<td><%=objRS("Tipo_Offerta") %></td>
<td><%=objRS("Metodo_Pagamento") %></td>
<td><%=objRS("Numero_Pod") %>
</td>
<td><%=objRS("Matricola_Contatore") %>
 </td>
<td><%=objRS("Codice_Fiscale_Partita_Iva") %></td>
<td><%=objRS("Cellulare") %></td>
<td><%=objRS("Telefono") %></td>
<td><%=objRS("Codice_Agente") %></td>
<td><%=objRS("Note_OeRre_Communication") %></td>
</tr>
<%
objRS.MoveNext
Loop
%>
<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%></table>
</body>

</html>

Le 2 query mi fanno impazzire non riesco ad estrarre i record per agenzia se Id_Agenzia=11 mi estrae i dati anche dell'agenzia 1 e di tutte le agenzie che iniziano per 1 idem per contare mi conta i record di tutte le agenzie e non solo di quella richiesta dalla querystring.

Mi date una bella dritta vi sarei grato se mi riscrevete la giusta sintassi delle 2 query

**optime** · 04-06-2011, 19:31

certo, finché continui ad usare LIKE... devi usare =

**Riccardo980** · 04-06-2011, 20:30

Mi scrivi la sintassi per favore ??

**Riccardo980** · 04-06-2011, 21:40

Alèèèèèèèèè risolto ecco il file con la sintassi aggiustata:

<%
Dim Id_Agenzia
Id_Agenzia=Request.QueryString("Id_Agenzia")
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Stato Contratti</title>
</head>

<body>


[img]01.gif[/img]
Stato attivazione contratti:



<table border="1" width="100%">
<tr>

<td colspan="14">

<%
Dim sc, cn, rs

sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};"
sc = sc & "dbq=" & Server.MapPath("/mdb-database/Database.mdb")

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open sc

%>
<table border="1" width="100%">
<tr>
<td width="285" bgcolor="NAVY" align="center">

<% sql = "SELECT COUNT(*) FROM Infostrada WHERE Id_Agenzia = '"& Id_Agenzia &"' AND Stato_Attivazione = 'ATTIVA'"
set rs = Cn.Execute(sql)
Response.Write "ATTIVATI: " & rs(0) & " "
%></td>
<td width="339" bgcolor="YELLOW" align="center">
<%
sql = "SELECT COUNT(*) FROM Infostrada WHERE Id_Agenzia = '"& Id_Agenzia &"' AND Stato_Attivazione = 'IN ATTESA'"

set rs = Cn.Execute(sql)
Response.Write "IN ATTESA " & rs(0) & " "
%>

</td>
<td width="293" bgcolor="GREEN" align="center">
<% sql = "SELECT COUNT(*) FROM Infostrada WHERE Id_Agenzia ='"& Id_Agenzia &"' AND

Stato_Attivazione = 'OK'"
set rs = Cn.Execute(sql)
Response.Write "OK: " & rs(0) & " "
%></td>
<td bgcolor="RED" align="center"> <% sql = "SELECT COUNT(*) FROM Infostrada WHERE Id_Agenzia

='"& Id_Agenzia &"' AND Stato_Attivazione = 'KO'"
set rs = Cn.Execute(sql)
Response.Write "KO: " & rs(0) & " "
%>

<%
set rs = nothing
set cn = nothing

%></td>
</tr>
</table>

</td>

</tr>
<tr>
<td>Stato Attivazione:</td>
<td>Data inserimento:</td>
<td width="91">Cognome ragione sociale:</td>
<td width="35">Nome:</td>
<td width="52">Indirizzo:</td>
<td>Tipo Contratto:</td>
<td>Tipo offerta:</td>
<td>Metodo di pagamento:</td>
<td>Codice migrazione:</td>
<td width="103">Codice fiscale/Partita Iva:</td>
<td width="56">Cellulare:</td>
<td>Telefono:</td>
<td>Codice Agente:</td>
<td width="89">Note OeRre Communication:</td>
</tr>
<tr>
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/Database.mdb")'(*.mdb);dbq=barz.mdb"
objConn.Open
%><%
Dim strSQL
strSQL= "select * from Infostrada Where Id_Agenzia = '"& Id_Agenzia &"' ORDER BY Id_pda DESC"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
Do While Not objRS.EOF
%>
<td bgcolor="<%=objRS("Colore_Stato_Attivazione") %>"><

%=objRS("Stato_Attivazione") %></td>
<td><%=objRS("Data_PDA") %></td>
<td><%=objRS("Cognome_Ragione_Sociale") %></td>
<td><%=objRS("Nome") %></td>
<td><%=objRS("Indirizzo") %></td>
<td><%=objRS("Tipo_Contratto") %></td>
<td><%=objRS("Tipo_Offerta") %></td>
<td><%=objRS("Metodo_Pagamento") %></td>
<td><%=objRS("Codice_Migrazione") %></td>
<td><%=objRS("Codice_Fiscale_Partita_Iva") %></td>
<td><%=objRS("Cellulare") %></td>
<td><%=objRS("Telefono") %></td>
<td><%=objRS("Codice_Agente") %></td>
<td><%=objRS("Note_OeRre_Communication") %></td>
</tr>
<%
objRS.MoveNext
Loop
%>
<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%></table>

</body>

</html>

Grazie mille...........................!!!!

Discussione: Query maledetta

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio