<% categoria = Request.querystring("categoria") set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={microsoft access driver (*.mdb)};dbq=" & Server.MapPath("..\diadb.mdb") sql1 = "select * from articoli where categoria=" & categoria Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql1,conn %> DIA - Catalogo Prodotti <% do while not rs.eof%> <% rs.movenext loop%>
');">" border="0" width="81" height="81" hspace="10" border="1">

<%=rs("codice") & Chr(13)%>: <%=rs("nome")%>

<% str=rs("descr") limite_T=instr(1,str,"Taglie") if limite_T=0 then limite_T=instr(1,str,"Taglia") end if limite_C=instr(1,str,"Colori") if limite_C=0 then limite_C=instr(1,str,"Colore") end if if limite_C=0 then if limite_T>0 then%>

<%=left(str,limite_T-1)%>
<%=" Taglie "%> <%=right(str,len(str) - limite_T - 6)%>

<%else%>

<%=str%>

<%end if%> <% else if limite_T=0 then%>

<%=left(str,limite_C-1)%>
<%=" Colori "%> <%=right(str,len(str) - limite_C - 6)%>

<%else %>

<%=left(str,limite_T-1)%>
<%=" Taglie "%><%=left(right(str,len(str)-limite_T-6), limite_C-limite_T-7)%>
<%=" Colori: "%><%=right(str,len(str) - limite_C - 6)%>

<%end if%> <%end if%>

<%="Prezzo: . " & rs("prezzo")%>


<%conn.close%>