Buongiorno,
è possibile creare una pagina di dettaglio ottenuta tramite l'invio di due parametri url invece di uno solo?
grazie

Se trovi un attimo di tempo, un attimo piuttosto lungo, ti propongo il codice finora scritto.
cosa non va?
se è un caso disperato, lascia pure perdere.
grazie comunque
ciao

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/caldaie.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (request.querystring("TXTComune") <> "") then Recordset1__MMColParam = request.querystring("TXTComune")
%>
<%
Dim Recordset1__par1
Recordset1__par1 = "manca libretto di centrale"
if (request.querystring("desc_anomalia") <> "") then Recordset1__par1 = request.querystring("desc_anomalia")
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_caldaie_STRING
Recordset1.Source = "SELECT * FROM dbo.ASP_conteggio_anomalie_tutte WHERE desc_anomalia = '" + Replace(Recordset1__par1, "'", "''") + "' or TXTComune = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0

response.write recordset1_par1
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
Recordset1_numRows = 1
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1

' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total
If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total
If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total
End If
%>
<%
Set MM_rs = Recordset1
MM_rsCount = Recordset1_total
MM_size = Recordset1_numRows
MM_uniqueCol = "desc_anomalia"
MM_paramName = "desc_anomalia"
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Specific Record: handle detail parameter

If (MM_paramIsDefined And MM_rsCount <> 0) Then

' get the value of the parameter
param = Request.QueryString(MM_paramName)

' find the record with the unique column value equal to the parameter value
MM_offset = 0
Do While (Not MM_rs.EOF)
If (Cstr(MM_rs.Fields.Item(MM_uniqueCol).Value) = param) Then
Exit Do
End If
MM_offset = MM_offset + 1
MM_rs.MoveNext
Loop

' if not found, set the number of records and reset the cursor
If (MM_rs.EOF) Then
If (MM_rsCount < 0) Then MM_rsCount = MM_offset
If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM_offset
MM_offset = 0

' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Close
MM_rs.Open
End If
End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page
i = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
MM_rs.MoveNext
i = i + 1
Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = i
If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
End If

' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If

' move the cursor to the selected record
i = 0
While (Not MM_rs.EOF And i < MM_offset)
MM_rs.MoveNext
i = i + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Recordset1_first = MM_offset + 1
Recordset1_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (Recordset1_first > MM_rsCount) Then Recordset1_first = MM_rsCount
If (Recordset1_last > MM_rsCount) Then Recordset1_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<html>
<head>
<title>impianti anomali</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="685" border="1" height="100%" align="center">
<tr>
<td valign="top">
<p><img src="images/top.GIF" width="685" height="122" usemap="#Map" border="0" align="top">
<map name="Map">
<area shape="rect" coords="3,96,41,119" href="logout.asp" alt="pagina di logout" title="pagina di logout">
<area shape="rect" coords="44,97,113,118" href="ricerca.asp" alt="pagina di ricerca" title="pagina di ricerca">
<area shape="rect" coords="116,96,218,118" href="stat.asp">
</map>
</p>
<table width="80%" border="1" class="unnamed1" align="center">
<tr bgcolor="#336699">
<td>
<div align="center"><b><font color="#FFFFFF">Impianto</font></b></div>
</td>
<td width="20%">
<div align="center"><b></b></div>
</td>
</tr>
</table>
<table width="80%" border="0" align="center">
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td><%=(Recordset1.Fields.Item("ID").Value)%></td>
<td> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<p> </p>
<p align="center"> </p>
</td>
</tr>
<tr>
<td valign="top" height="28"><img src="images/base.gif" width="685" height="28"></td>
</tr>
</table>
<div align="center"></div>
</body>
</html>
<%
Recordset1.Close()
%>