<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="stile.css" rel="stylesheet" type="text/css">
<title>STA Solution - Offerte</title>
<style type="text/css">
<!--
.Stile1 {
color: #006633;
font-weight: bold;
}
.Stile2 {
color: #006634;
font-weight: bold;
}
-->
</style>
</head>
<body class="testo">
<%
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/db.mdb")
sql="select * from T_PRODOTTI where Scadenza >=" & cdbl (date()) & " ORDER BY Codice_prodotto"
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 height="10" colspan="2">
<table border="0">
<tr>
<td height="10" colspan="2">
<table border="0" bgcolor="#EAEAEA">
<tr>
<td width="180" align="center">
<a href="form_richiesta.htm" target="_blank" class="Stile1">
<font size="3">.:Richiedi prodotto:. </font> </a> </td>
<td width="215" align="center">
<a href="form_richiesta_prodotto.htm" target="_blank" class="Stile1">
<font size="3">.:Richiedi altri prodotti:. </font> </a> </td>
<td> <a href="scelta_newsletter.html" class="Stile2">
<font size="3">.:Newsletter:.</font> </a></td>
<td width="200" align="right"><a href="XXX.htm" class="Stile1">
<font size="3">.:indietro:. </font>
</a>
</td>
<td align="right">
<a href="index.htm" class="Stile1">
<font size="3">.:home:.</font> </a> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<font color="#006633" size="3">
PER INFORMAZIONI info@miosito.it
TUTTE LE OFFERTE SONO VALIDE FINO A ESAUTIMENTO SCORTE
O FINE DEL PERIODO DI PROMOZIONE</font>
</td>
</tr>
<tr>
<td valign="top">
<table border="0">
<tr>
<td height="20" align="center">
Codice</td>
<td height="20" align="center">
Descrizione</td>
<td height="20" align="center">
Scadenza</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("Codice_prodotto") %></font></td>
<td height="20"><font color="<%= ft %>"><%= rs("Descrizione") %></font></td>
<td height="20"><font color="<%= ft %>"><%= rs("Scadenza") %></font></td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
</table>
</body>
</html>
Rispondi quotando
