così ?
codice:
<% 
dim model
modulation=request.querystring("modulation")
strSQL="SELECT MODEL FROM [Wireless product] WHERE modulation = '" & replace(modulation,"'","''") & "' "
set rs=server.CreateObject("ADODB.recordset")
rs.Open strSQL, objConn
while not rs.EOF
%>

<%
model = rs("MODEL") 
Response.write Replace(testo,VbCrLF,",")
%>