% 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 %>
');">" 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)%> <%=str%> <%end if%> <% else if limite_T=0 then%><%=left(str,limite_C-1)%>
<%=left(str,limite_T-1)%> <%="Prezzo: €. " & rs("prezzo")%> |