il mio contatore,al momento del click e' gia' arrivato in fondo...
...non sono sicuro di aver capito comunque provo a mandarti il modulo...
codice:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd"
METADATA TYPE ="TYPELIB" FILE="E:\WINNT\SYSTEM32\SCRRUN.DLL" >
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<FRAME SCROLLING = "YES">
<body bgcolor="aquamarine">
<p align="center"> <b> <font face="verdana" size="2"
color="#003399"> </font> </p>
<meta http-equiv="content-Language" content="it">
<meta http-equiv="content-Type" content="text/html; charset=windows-1525">
<META NAME =<META NAME = "keywords" CONTENT = "fotovoltaico,energie rinnovabili,celle solari,pannelli fotovoltaici,biodegradabile,ecologia,led,risparmio energetico,
lampade led,corsi,fai da ta,fai-da-te,autocostruzione,autocostruito,auto costruzione,auto costruito,filtro acqua,riuso,riciclo,riciclabile,decrescita">
</head>
<body>
<br>
<br>
<%
dim vfilename
dim strsql
dim cn1
dim rs1
dim aaa
dim bbb
dim tabart(100,5)
redim tabart(100,5)
dim swit
swit=0
dim comodo
on error resume next
'leggo i dati trasmessi dal programma che ha lanciato la pagina...
' NICKNAME del nuovo cliente da registrare...
' E-MAIL del nuovo cliente da registrare...
dim eredita
dim eredita2
eredita=session("nuovocod")
eredita2=session("nuovocod2")
'response.write(eredita & "<br>")
'response.write(eredita2 & "<br>")
'connessione al db ecom1...
vfilename="/mdb-database/ecom1.mdb"
set cn1 = server.createobject("ADODB.connection")
cn1.provider="microsoft.jet.oledb.4.0"
cn1.open server.mappath(vfilename)
'definizione di un recordset...
'ed apertura dello stesso...
set rs1=server.CreateObject("ADODB.recordset")
'compilo il recordset...
strsql="SELECT * FROM articoli WHERE codicearticolo >= '2000' and codicearticolo <= '2999'"
'leggo il recordset
rs1.Open strsql,cn1,1,3
'Questa riga potrebbe generare un errore
If err.number <> 0 Then
With Response
.Write "ERRORE N. " & err.number & "<br><br>"
.Write err.Description & "<br><br>"
.Write err.Source & "<br><br>"
End With
swit=1
'chiudo tutto...
rs1.Close
set rs1=nothing
cn1.Close
set cn1=nothing
%>
<br><br><br>
<A HREF = index.html> AVANTI </A>
<br><br>
<%
End If
'qui mostro gli articoli...
'stampo il recordcount
'response.write("n.righe=" & rs1.recordcount & "<br><br>")
%>
<TABLE BORDER="5" width="100%">
<caption>FOTOVOLTAICO:...(clicca sull'immagine per una descrizione dettagliata)</caption>
<TH align="center">Codice articolo</TH><TH>Immagine</TH><TH>Descrizione</TH><TH>Prezzo Euro</TH><TH>Nel carrello</TH></TR>
<%
rs1.movefirst
for aaa = 1 to 100
if rs1.eof then exit for
bbb=rs1("filefoto")
tabart(aaa,1)=rs1("codicearticolo")
tabart(aaa,2)=rs1("descrizionearticolo")
tabart(aaa,3)=rs1("filefoto")
tabart(aaa,4)=rs1("prezzoarticolo")
tabart(aaa,5)=rs1("annotazioni")
next
%>
<tr heigth="20%" align="center">
<td width="16%">
<%=rs1("codicearticolo")%>
</td>
<td onclick="location.href='pagdes4.asp'"
width="16%">
<img src="<%=bbb%>">
</td>
<td width="36%">
<%=rs1("descrizionearticolo")%>
</td>
<td width="16%">
<%=rs1("prezzoarticolo")%>
</td>
<td width="16%">
<img src="carrello.jpg">
</td>
</tr>
<br>
<%
'response.write("art." & rs1("codicearticolo") & " " & rs1("descrizionearticolo") & "<br><br>")
rs1.movenext
next
%>
</TABLE>
<%
'response.write("n.rec.=" & rs1.recordcount & "<br><br>")
'provvisoriamente*********************
'chiudo tutto...
rs1.Close
set rs1=nothing
cn1.Close
set cn1=nothing
%>
<br><br><br>
<a href="javascript:window.close();" >TORNA ALLA PAGINA PRECEDENTE</a>
<br><br>
<A HREF = vedicarrello.asp>VEDI CARRELLO</A>
<br><br>
<A HREF = vedicarrello.asp>COMPLETA ACQUISTO</A>
<br><br>
</body>
<%
'questo e solo un esempio di funzione...
function filtraapicini(stringa)
dim a1,a2,a3
for a2 = 1 to 100
a1=instr(stringa,"'")
if a1 = 0 then exit for
stringa=mid(stringa,1,a1-1) & " " & mid(stringa,a1+1)
next
filtraapicini=stringa
end function
%>
</html>