Newsletter, objMail.To

[pablomare]

Grazie Roby, ora funziona!

[pablomare]

Ciao Roby, ho preso questo codice per la paginazione da una tua risposta.
Qualcosa però non funziona. Riesci ad aiutarmi?
-----------------------------------------------------
<%
id = request("id")
pag=request("p")
if pag="" then pag="1"
numXpag=3

Set Conn= Server.CreateObject("Adodb.connection")
Conn.Open "provider=microsoft.jet.oledb.4.0; data source="& Server.MapPath("asp/db/offerte.mdb")
sql =" select * from prodotti where idprodotto='"&id&"' ORDER BY prezzo ASC "
set rs = conn.execute(sql)
rs.pagesize=numXpag
'rs.open sql, Conn ,3,3
if not rs.eof then
numpagine=rs.pagecount
rs.absolutepage=cint(pag)
%>
<%
While NOT rs.EOF
%>
<table width="560" border="0" cellspacing="0" cellpadding="0">
<%for i=1 to numXpag %>
<tr>
<td colspan="5" ></td>
</tr>
<tr>
<td colspan="5" >[img]../img/icn/pixel.gif[/img] <%= rs("linea") %></td>
</tr>
<tr>
<td colspan="5" class="tdDottet"></td>
</tr>
<tr bgcolor="#f7f7f7" onMouseOver="style.backgroundColor='#ffffff'" onMouseout="style.backgroundColor=''">
<td width="1%" >[img]<%= rs([/img]" alt="" width="90" height="50" hspace="0" vspace="0" border="0" /></td>
<td width="98" class="tdOffer"><%= rs("prodotto") %></td>
<td width="150" valign="middle" class="tdOffer"><%= rs("descrizione") %></td>
<td width="57" valign="middle" class="tdOffer"><%= rs("durata") %></td>
<td width="95" valign="middle" class="tdOffer">
<div align="center">">€ <%= rs("prezzo") %>,00</div></td>
</tr>
<tr>
<td colspan="5" class="tdDottet"></td>
</tr>
<tr align="right">
<td colspan="5" class="tdOffer">">Dettaglio offerta[img]img/icn/arrow_go.gif[/img]</a></td>
</tr>
<tr align="right">
<td colspan="5" class="tdfiletto" ></td>
</tr>
</table>
<%
rs.MoveNext
Wend
%>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<%
for i=1 to numpagine
%>
<%=i%>
<%
next
%>

<%
end if
%>

[Roby_72]

Se non mi dici "cosa" non funziona, io "cosa" ne so?

Roby

[pablomare]

Mi dà questo errore: |52|800a0400|Expected statement

[Roby_72]

Ma dove?

[pablomare]

Puoi passarmi il codice che genera errori?

[pablomare]

Ciao Roby, non riesco a capire perché
il seguente codice per la paginazione mi apre di default
la pagina 3. Record in tot nel db sono 22.
================================================== ===
<%

'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 7

'connessione al db
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "provider=microsoft.jet.oledb.4.0; data source="& Server.MapPath("asp/db/pablomare.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql =" select * from prodotti ORDER BY prezzo ASC "
Rs.Open sql, Conn, 1, 2

'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
' mi sposto all'ultima pagina
Rs.AbsolutePage = page
%>


<%
'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs.EOF then
if Rs("idprodotto") < 7 then
Response.Write "<table width='580' border='0' cellspacing='0' cellpadding='0'><tr> <td colspan='5' ></td></tr><tr>"
Response.Write "<td colspan='5' >[img]../img/icn/pixel.gif[/img]" & Rs("linea") & "</td>"
Response.Write "</tr>"
Response.Write "<tr><td colspan='5' class='tdDottet'></td></tr>"
Response.Write "<tr bgcolor='#f7f7f7'>"
Response.Write "<td width='1%' >[img] " & Rs("immagine") & " [/img]</td>"
Response.Write "<td width='98' class='tdOffer'>" & Rs("prodotto") & "</td>"
Response.Write "<td width='150' valign='middle' class='tdOffer'>" & Rs("descrizione") & "</td>"
Response.Write "<td width='57' valign='middle' class='tdOffer'>" & Rs("durata") & "</td>"
Response.Write "<td width='95' valign='middle' class='tdOffer'><div align='center'>€ " & Rs("prezzo") & ",00</div></td>"
Response.Write "</tr>"
Response.Write "<tr><td colspan='5' class='tdDottet'></td> </tr>"
Response.Write "<tr align='right'> <td colspan='5' class='tdOffer'>Dettaglio offerta[img]img/icn/arrow_go.gif[/img]</a></td></tr>"
Response.Write "<tr align='right'><td colspan='5' class='tdfiletto'></td></tr>"
Response.Write "</table>"
else
Response.Write "<table width='580' border='0' cellspacing='0' cellpadding='0'><tr> <td colspan='5' ></td></tr><tr>"
Response.Write "<td colspan='5' >[img]../img/icn/pixel.gif[/img]" & Rs("linea") & "</td>"
Response.Write "</tr>"
Response.Write "<tr><td colspan='5' class='tdDottet'></td></tr>"
Response.Write "<tr bgcolor='#f7f7f7'>"
Response.Write "<td width='1%' >[img] " & Rs("immagine") & " [/img]</td>"
Response.Write "<td width='98' class='tdOffer'>" & Rs("prodotto") & "</td>"
Response.Write "<td width='150' valign='middle' class='tdOffer'>" & Rs("descrizione") & "</td>"
Response.Write "<td width='57' valign='middle' class='tdOffer'>" & Rs("durata") & "</td>"
Response.Write "<td width='95' valign='middle' class='tdOffer'><div align='center'>€ " & Rs("prezzo") & ",00</div></td>"
Response.Write "</tr>"
Response.Write "<tr><td colspan='5' class='tdDottet'></td> </tr>"
Response.Write "<tr align='right'> <td colspan='5' class='tdOffer'>Dettaglio offerta[img]img/icn/arrow_go.gif[/img]</a></td></tr>"
Response.Write "<tr align='right'><td colspan='5' class='tdfiletto'></td></tr>"
Response.Write "</table>"
end if
Rs.MoveNext
end if
next
%>


<%

'scrivo i numeri delle pagine
Response.Write "<div align='right'>Pagine: "

For pag= 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='offerte.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='offerte.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next

Response.Write "</div>"

rs.close
set rs = nothing
conn.close
set conn = nothing
%>