eliminarla o sostituirla?

Quanta grazia!
non sono abituato a tanta gentilezza
Ti ringrazio ancora, questo finesettimana proverò ad adattarlo e vediamo cosa viene fuori.

Buona giornata

Il codice che hai postato tu serve per la paginazione.

Quando dice recupero la pagina intende il numero della pagina, cioè se io faccio

result.asp?page=3

vuol dire che volgio la terza pagina dei risultati.

Connessione e query sono due cose diverse, la connessione ti permette di accedere al database e fare le query.

Infine quando parla di dimensione intende il numero di risultati da visualizzare in ogni pagina, rappresentato dalla variabile perpage.

@partisan75 said:

Tanto per cominciare queste sono le cose che non capisco:

<%
'recupero la pagina (QUALE PAGINA? QUESTO CODICE NON VA MESSO NELLA STESSA PAGINA DELLA QUERY?)
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 10

'connessione al db (PERCHE LA CONNESISONE AL DB? L?HO Già FATTA CON LA MIA QUERY)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("percorso/database.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM messaggi ORDER BY id"
Rs.Open sql, Conn, 1, 3

'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if

'imposto la dimensione della pagina
Rs.PageSize = perpage (DI QUALE DIMENSIONE PARLA)
' mi sposto all'ultima pagina
Rs.AbsolutePage = page

Grazie in anticipo a chi vorrà aiutarmi.

asp.html.it/script/vedi/884/impaginare-i-risultati-di-un-recordset/

Dai un'occhiata è molto utile e semplice

F

Ciao Dubbio, allora mi hai abbandonato?

questo è il codice della pagina che mi chiama a video tutti i record della tabella:

<%
QSOrdinaPer = Request.QueryString("ordinaper")
If QSOrdinaPer = "" then
QSOrdinaPer = "Prodotto"
End If

SQL = " SELECT * FROM Prodotti WHERE ID AND Cancellato = False ORDER BY " & QSOrdinaPer
Set RS = Conn.Execute(SQL)

If Not RS.Eof Then RS.MoveFirst
Do While Not RS.EoF
%>
<tr>
<td valign="top"><b><%=RS("ID")%></b></td>
<td valign="top"><%=RS("Codice")%></td>
<td valign="top"><%=RS("Prodotto")%></td>
<td valign="top">
<a href="modifica_prodotti.asp?id=<%=RS("ID")%>">Mod</a> |
<a href="elimina_prodotti.asp?id=<%=RS("ID")%>&tabella=prodotti&descrizione=<%=RS("Prodotto")%>">Canc</a>
</td>
</tr>
<%
RS.MoveNext
Loop
RS.Close
%>

potresti dirmi per favore come posso duplicare?
grazie in anticipo.

Ciao ragazzi come dicevo prima funziona tutto bene ma volendo aggiungere un altro destinatario all'invio automatico e-mail è possibile?
ho provato a fare in questo modo ma non mi funziona, ossia manda due mail alla prima colonna di destinatari....

'---Recupero gli ultimi X prodotti dal database e li stampo a video
query = "SELECT MailCom,MailChiefEng FROM Utenti WHERE Data='"& mydata &"'"

Set rstmp = objConn.Execute (query)

'assegno il risultato a un vettore
vettore=rstmp.getrows
'controllo se esistono risultati effettivi
if(isarray(vettore)) then
'scorro il vettore
for indice=0 to ubound(vettore,2)
'assegno a delle variabili temporanee i valori che mi interessono come mailcom e mailchiefeng
tmpmailcom=vettore(0,indice)
tmpmailchiefeng=vettore(1,indice)
tmptestomail="Ciao auguri da parte nostra"

Set MiaMail = Server.CreateObject("CDO.Message") MiaMail.From = UrlEcom MiaMail.To= tmpmailcom MiaMail.Bcc= tmpmailchiefeng MiaMail.Subject = "Prova !" MiaMail.HTMLBody =tmptestomail MiaMail.Fields.Update() MiaMail.Send() Set MiaMail = Nothing

Grazie in anticipo a chi vorrà aiutarmi!