<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
SR= trim(request.form("SR")) 'trim pulisce la stinga da spazi all'interno e alla fine
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/trunkstock.mdb")
sql="SELECT T_RICERCA.part_number, T_RICERCA.SR FROM T_RICERCA WHERE (((T_RICERCA.SR)=))"&SR
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn
%>
<table width="755" align="center" border="0">
<tr>
<td align="center" colspan="2">[img]logo.jpg[/img]</td>
</tr>
<tr>
<td width="755" colspan="2" bgcolor="E4E4E4" align="right">
<a href="trunkstock.asp">
<font color="#006633" size="+1">
.:torna all'elenco:.
</font>
</a>
<a href="AreaRiservata.asp">
<font color="#006633" size="+1">
.:area riservata:.
</font>
</a>
</td>
</tr>
<tr>
<td align="center"> <font color="#006633" size="+1">
risultati ricerca
trunkstock </font> </td>
</tr>
<tr>
<td>
<table border="0" width="755">
<tr>
<td height="20">
SR</td>
<td height="20">
Part number</td>
<%
i=1
do until (rs.eof)
If i Mod 2=0 Then
bg="#EAEAEA" 'colore sfondo
ft="#000000" 'colore carattere
Else
bg="#FFFFFF"
ft="#000000"
end if
%>
<tr bgcolor="<%= bg %>">
<td height="20"><font color="<%= ft %>"><%= rs("SR") %></font></td>
<td height="20"><font color="<%= ft %>"><%= rs("part_number") %></font></td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
<tr>
<td>1</td>
</tr>
</table>
</body>
</html>