I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2 3
conidi
conidi
il 31 luglio 2001 alle 06:25
499 messaggi dal 14 luglio 2001
si va bene....e scusami, ma avevo visto che mancavano delle cose e non ero sicuro, come in effetti ti ho postato , se le avevi omesse per chiarezza di listato o no, comunque i diversi consigli che ti abbiamo dato risolveranno al 100% il tuo problema...


:-))

ciao


enzo
www.dnetware.it
enzo
www.dnetware.it
RispondiQuoting
principessaleila
principessaleila
il 6 agosto 2001 alle 22:11
50 messaggi dal 28 maggio 2001
Riciao a tutti
sono Mary ovvero Foggy80 in incognito..hehe..
volevo ringraziare per le vostre risposte: ho provato tutti i modi che mi avete suggerito, uno solo mi ha funzionato e bene: quello di Davide (grazie hai vinto tu!). Solo ora mi si presenta il problema successivo: la paginazione. Ho provato tutte le paginazioni asp che il web mette a disposizione ( e ovviamente anche quelle di aspitalia) ma almeno, in locale, non mi funziona: mi da un mare di errori, il piu' delle volte dice di non accettare rs.absolutepage: secondo me dipende dal fatto che le paginazioni avvengono su query normali dove si richiede di far vedere tutti i record un po alla volta. Io invece vorrei solo i record immessi negli ultimi 5 o 10 o 15 ecc giorni, quindi in dabe alla data...e allora il codice non capisce...o non capisco io....vi allego il codice, forza miei genietti:

<!--#include file="adovbs.inc"-->
<html><head ecc....
<body>
'includo la connessione al db
<!--#include file="databaseconnect.asp"-->
<%
'meno acquisisce da un form quanti giorni deve 'retrocedere' con la data( ultmi 5 o 10 o 15 gioni)
meno= request.Querystring("numerogiorni")

'seleziona tutto dove data e' > o = a oggi - var meno

sql="select * from scott where data >=now-" & meno
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, Conn
do while not rs.eof=true

datamsg = rs("data")
strId = rs("id")
strNomeagente = rs("nomeagente") ecc ecc
%>
'parte che visualizza i risultati
<%
rs.Movenext 'salta al prossimo record
loop
%>
e file incluso di chiusura rs e connessione
</html>

Mi scuso per la lunghezza, spero possiate aiutarmi di nuovo
grazie a tutti Mary


RispondiQuoting
conidi
conidi
il 6 agosto 2001 alle 22:21
499 messaggi dal 14 luglio 2001
Ciao Mary, a pagina 10 c'è Diaz che prende fuoco, dagli una occhiata e fammi sapere....

se non ci riesci ti do una mano....

non prendere il codice per intero, perchè la prima parte , levando le varibili page, fanno altre cose....

dagli una occhiata....


ciao

enzo
www.dnetware.it
enzo
www.dnetware.it
RispondiQuoting
principessaleila
principessaleila
il 7 agosto 2001 alle 04:10
50 messaggi dal 28 maggio 2001
Carissimo Conidi
rieccomi qui :ho ripreso il codice che hai scritto per il motore di Diaz ho cercato di estrapolarne quello che interessava a me,
ma non mi funzia. Ecco il codice che ne ho "cavato".

<!--#include file="adovbs.inc"-->
<HTML>
<!-- CREATION DATE: 06/08/2001 -->
<HEAD>
</HEAD>
<BODY>
' la mia connessione e' la stessa dell'altra volta col server.MapPath
<!--#include file="databaseconnect.asp"-->
da qui ho "rubato" da te
<%
RecordsPerPagina=7
page=Request("page")
' qui c'e' la mia query sulla data
dim meno
meno= request.Querystring("numerogiorni")
sql="select * from scott where data >=now-" & meno
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, Conn, 3 ,3 ,1
If rs.EOF=True Or rs.BOF=True Then
Response.Write "<p><font face=""arial"">Nessun risultato
trovato</p>"
Else
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
TotalRecords = rs.recordcount
%><Table Align="Center" Width="100%" Height="600"
Border=0>
<Th Height="30">Agente</Th>
<Th>mittente</Th>
<Th>messaggio</Th><%
For i = 1 to RecordsPerPagina%>
<Tr Height="30">
<%if Not rs.EOF then
Response.Write("<Td Height='30'>" & rs("nomeagente") &
"</Td>")
Response.Write("<Td>" & rs("nomemit") & "</Td>")
Response.Write("<Td>" & rs("messaggiomit") & "</Td>")
rs.movenext%>
<%
end if%>
</Tr>
<%Next%>
</Table>
<%End if
Response.Write("N° PAgine " & objrs.PageCount & " : ")
For pag=1 to rs.PageCount
Response.Write "<A href='lastfivedays.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
%>
<hr>
'chiudo la connessione
<!--#include file="databaseclose.asp"-->
</BODY>
</HTML>
Ora dopo una lunga sequenza di errori (miei) che ho risolto mi si e' alla fine ripresentato il solito messaggio di errre che ho incontrato in tutti gli altri innumerevoli tentativi di paginazione:
ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/demo/amministrazione/lastfivedays.asp, line 37
La linea 37 altro non e' che:
rs.AbsolutePage = page
Conidi mio genio della lampada ma dove caspiterina sbaglio?
mi sto scraniando per sta cosa...Mi aiuti..di nuovo?
grazie
Mary

RispondiQuoting
conidi
conidi
il 7 agosto 2001 alle 04:40
499 messaggi dal 14 luglio 2001
Devi inserire questa riga in questa parte del tuo codice:

........
.........
RecordsPerPagina=7
page=Request("page")

' qui inserisci riga----------

If page="" Then page=1

'----------------------------

' qui c'e' la mia query sulla data
dim meno
meno= request.Querystring("numerogiorni")
sql="select * from scott where data >=now-" & meno
........
.....

con questa riga dovrebbe funzionare bene...

ciao..



Modificato - conidi - 06 Ago 2001 23:39:42
enzo
www.dnetware.it
RispondiQuoting
principessaleila
principessaleila
il 7 agosto 2001 alle 07:26
50 messaggi dal 28 maggio 2001
Ciao Conidi
alùra..hehe..grazie , aggiungendo la stringa di cui sopra mi funzia ..quasi..nel senso che la prima pagina la vedo con tutti i dati ecc, ma se clicco sulla seconda pagina da visualizzare mi da l' errore:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/demo/amministrazione/lastfivedays.asp, line 73
che corrisponde alla chiusura di connessione che ho impostato cosi:
rs.close
set rs= nothing
Conn.Close
set Conn= nothing
E' sempre andata bene...come mai?
Senti Conidi, lo so che ti sto scocciando ma se risolvo sta cosa ti pago una cena....prometto...
grazie Ciao



RispondiQuoting
conidi
conidi
il 7 agosto 2001 alle 16:14
499 messaggi dal 14 luglio 2001
Sicura che dentro l'include non ci sia anche qualche altro oggetto?....

Questo tipo di errore loda quando si tenta di chiudere un oggetto che non c'è, controlla bene nell'include, se nell'include ci sono solo le quattro righe che hai scritto il file include è giusto, al limite controlla le lettere, (magari un piccolo errore di ortografia...)....

fammi sapere se risolvi...

nel frattempo mi accontento di un aperitivo...

Se risolviamo... passiamo alla cena

:-))))

ciao


enzo
www.dnetware.it

Modificato - conidi - 07 Ago 2001 10:18:43
enzo
www.dnetware.it
RispondiQuoting
principessaleila
principessaleila
il 7 agosto 2001 alle 17:26
50 messaggi dal 28 maggio 2001
Uff Conidi non capisco proprio...eccoti il codice con le connessioni dentro...secondo me l'errore sta nella parte finale quella per la navigazione da una pagina all'altra, gia' ma quale errore?...non mandarmi al diavolo...
<!--#include file="adovbs.inc"-->
<HTML>
<!-- CREATION DATE: 06/08/2001 -->
<HEAD>
</HEAD>
<BODY>

<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../database/scottmsg.mdb")

RecordsPerPagina=7
page=Request("page")
If page="" Then
page=1

dim strNomeagente
dim strMessaggio
dim strNomemit
dim meno
meno= request.Querystring("numerogiorni")
sql="select * from scott where data >=now-" & meno
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, Conn, 3 ,3 ,1
If rs.EOF=True Or rs.BOF=True Then
Response.Write "<p><font face=""arial"">Nessun risultato trovato</p>"
Else
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
TotalRecords = rs.recordcount
%><Table Align="Center" Width="100%" Height="600"
Border=0>
<Th Height="30">Agente</Th>
<Th>mittente</Th>
<Th>messaggio</Th><%
For i = 1 to RecordsPerPagina%>
<Tr Height="30">
<%if Not rs.EOF then
Response.Write("<Td Height='30'>" & rs("nomeagente") & "</Td>")
Response.Write("<Td>" & rs("nomemit") & "</Td>")
Response.Write("<Td>" & rs("messaggiomit") & "</Td>")
rs.movenext%>
<%
end if%>
</Tr>
<%Next%>
</Table>
<%End if
Response.Write("N° PAgine " & rs.PageCount & " : ")
For pag=1 to rs.PageCount
Response.Write "<A href='lastfivedays.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
end if
%>
<hr>
<%
rs.Close
set rs= nothing
conn.Close
set Conn= nothing
%>
</BODY>
</HTML>

Ecco come vedi sia la connessione che la chiusura vanno bene ma alla visualizzazione della seconda pagina mi da l' errore di run-time di vbscript, necessario oggetto:" ...forse che siamo queste virgolette?
sforzino finale.... spero
:-)))
ciao Mary

RispondiQuoting
1 2 3

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.