I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Many
Many
il 12 settembre 2001 alle 18:27
7 messaggi dal 12 luglio 2001
Risalve a tutti!!

Questo è un'altro errore che mi si genera con altro codice simile all'altro:

Errore di run-time di Microsoft VBScript error '800a01b6'

Proprietà o metodo non supportati dall'oggetto: 'MaxRecords'

Il codice è:

<%


dim sql1
dim RecordsPerPagina
dim sql
dim rs2
dim rs1

'Connessione al database

dim Conn

set Conn = Server.CreateObject("ADODB.Connection")

Conn.open "Rassegna"

'Setta le preferenze

sql1="SELECT Parametri.MaxPagina FROM Parametri"

Set rs1=Conn.Execute(sql1)

RecordsPerPagina=rs1("MaxPagina")

sql="SELECT Articoli.Data, Articoli.Testata, Articoli.Link FROM Articoli order by 1 desc"
Set rs2=Conn.Execute(sql)

'Genero una variabile per stipare il contenuto della mia interrogazione
Dim rsDocTrovati
Set rsDocTrovati = Server.CreateObject("ADODB.Recordset")
rsDocTrovati=Conn.Execute(sql)

'Prendo solo il numero di risultati massimi per pagina
rsDocTrovati.MaxRecords = CInt(RecordsPerPagina)


'Setto le propietà del recordsets trovato (include ADOVBS.inc per la definizione delle constanti)
rsDocTrovati.CursorType = adForwardOnly



Dim rsTotalRecords
dim stmSQL
dim stmSQL1

stmSQL = "SELECT COUNT(*) FROM Articoli"

Set rsTotalRecords = Conn.Execute(stmSQL)


'Verifichiamo quanti risultati massimi possiamo avere

Dim rsMax
'dim stmSQL1

stmSQL1 = "SELECT MAX FROM Articoli"
Set rsMax = Conn.Execute(stmSQL1)

%>

<html>
<head>
<title>Articoli</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<BODY background=../../pagina_assoc/sfondo_logo2.jpg bgColor=#cccccc
bgproperties="fixed" text="#000000" link="#000000" vlink="#000000" alink="#000000">

<table width="100%" border="0" cellspacing="2" cellpadding="0">


<% if rsDocTrovati.EOF then 'Nessuna corrispondenza trovata
%>
<tr><td height="59"></td></tr>
<tr><td align="CENTER" valign="TOP">
<font size="+1">Nessun articolo o pagina HTML è stata trovata.</font><P>
<A HREF="javascript:history.back(-1)"><font size="+1">Torna alla pagina precedente</font></A>
</td></tr>
<tr><td height="59"></td></tr>
<% Else
Dim IDCorrente
%>
<tr>
<td width="30%" align="CENTER"><font color="#000000"><b>Data</b></font></td>
<td width="30%" align="CENTER"><font color="#000000"><b>Titolo</b></font></td>
<td align="CENTER"><font color="#000000"><b>Testata</b></font></td>
</tr>
<tr><td height="10" colspan="2"></td></tr>
<%
While Not rsDocTrovati.EOF
IDCorrente = rs2("ID")
%>
<tr>
<td><font size="2"><%=rsDocTrovati("Data")%></font></td>
<td align="LEFT" valign="TOP"><A HREF='<%=rs2("Link")%>'>
<font size="2"><%=rsDocTrovati("Titolo")%></font></A></td>
<td><font size="2"><%=rsDocTrovati("Testata")%></font></td>
</tr>
<tr><td height="10" colspan="2"></td></tr>
<% rsDocTrovati.MoveNext
Wend %>

<tr><td height="10" colspan="2" align="CENTER">
<% If rsTotalRecords(0)=1 then %>
<b><font color="White">La ricerca sul database ha portato alla luce <b><strong>un
solo</strong></b> articolo</font></b>
<% Else %>
<font color="#000000"><b>La ricerca sul database ha portato alla luce <%=rsTotalRecords(0)%> articoli.</b></font>
<% End If %>

</td></tr>
<tr><td height="35" colspan="2"></td></tr>
<tr><td colspan="2" align="CENTER"></td></tr>
</table>

<% if IDCorrente < rsMax(0) then %>

<!-- Se sono più di Max documenti produco un tasto per la visualizzazione degli altri documenti -->


<FORM METHOD=POST ACTION='<%= Request.ServerVariables("SCRIPT_NAME") %>'>
<input type="Hidden" name="ID" value='<%=IDCorrente%>'>
<INPUT TYPE=SUBMIT VALUE="Successivi Articoli">
</FORM>
<% end if
end if

'Fine dello script
%>

</body>
<%
rs1.Close
rsDocTrovati.close
Conn.Close
%>
</html>

Rigrassie!!!



RispondiQuoting
ras78
ras78
il 12 settembre 2001 alle 18:29
3.091 messaggi dal 05 marzo 2001
www.agency.com
1° Non postare codici così lunghi (leggi le faq)
2° Apri la connessione con un recorset esplicito tipo:

rs.open connessione, , 1, 3

Importante sono gli ultimi due parametri che ti permettono di muoverti avanti e indietro nel recordset. Nel tuo caso ti serve 1, 3

"This message was written using 100% recycled electrons"
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.