Considerate che la prima select la fa sempre. E sulla seconda che non mi ritorna nulla:
codice:
<%
hid=Request.Form("ppcc")
hidconv = Right("00000" & hid, 5)
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("prezziario.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
Squert1="SELECT arcimcode, arcimdesc FROM prezzo WHERE arcimcode LIKE '"&hid&"' group by arcimdesc,arcimcode ;"
set rs=server.createobject("adodb.recordset")
rs.open Squert1,Conn
Do until Rs.eof=True
%>
<table whidth="70%" border="1">
<tr><td width="60%" border="0" ><font size="4" color=#006000><%response.write rs("arcimcode")%></font></td><td width="100%" ><font size="4" color=#006000><%response.write rs("arcimdesc")%></font></td></tr></table>
<%
rs.movenext
loop
%>
[/B]</FONT>
<%
rs.close
Set rs=Nothing
conn.close
set Conn=Nothing
%>
------------
<%
hid=Request.Form("ppcc")
hidconv = Right("00000" & hid, 5)
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("intranet.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
Squert="SELECT tardesc, arcimcode, arcimdesc, itpprice FROM prezzo WHERE arcimcode LIKE '"&hid&"';"
set rs=server.createobject("adodb.recordset")
rs.open Squert,Conn
Do until Rs.eof=True
%>
<table whidth="100%" border="1">
<tr><td width="80%" border="0" ><font size="4" color=BLU ><%response.write rs("tardesc")%></font></td><td width="8%" ></td><td width="20%" ><font size="4" color=gold><%response.write rs("itpprice")%></font><td></td></tr></table>
<%
rs.movenext
loop
%>
[/B]</FONT>
<%
rs.close
Set rs=Nothing
conn.close
set Conn=Nothing
%>