Newsgroup: it.comp.www.asp
Titolo: Correggetemi questo codice....

Se uso solo la seconda parte del codice qui riportato con il campo From non
messo come commento il codice va bene... ma se tento, con la prima parte, di
dare un valore a From.. non va piu niente..
Aiutatemi, sono alle prime armi
blasfemo (buona pasqua)
<%
Set connessione = Server.CreateObject("ADODB.Connection")
database = Server.MapPath("/Public/Statcountex/stats.mdb")
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & database
&";"
Set recordset = Server.CreateObject("ADODB.Recordset")
SQL="SELECT StartCounter FROM Config"
recordset.open sql
From = recordset("StartCounter")
recordset.Close
connessione.Close
set recordset=nothing
set connessione=nothing
'From=100
Set statconn = Server.CreateObject("ADODB.Connection")
statconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.Mappath("/Public/Statcountex/stats.mdb") & ";"
Set statrs = Server.CreateObject("ADODB.Recordset")
sql="SELECT SUM(Total) as TotVisits FROM TopIpsPerDay"
statRs.Open sql,statconn
Visits=From+statRs("TotVisits")
Response.Write Visits
statRs.Close
StatConn.Close
set statrs=nothing
set statconn=nothing
%>

Cosa vuol dire "non va più niente"???
Almeno l'errore o la riga d'errore potresti postarla, non trovi?

 Cosa vuol dire "non va piů niente"???
da questo errore:
ADODB.Recordset errore "800a0e7d'
L'applicazione ha richiesto l'esecuzione di un'operazione su un oggetto
contenente un riferimento a un oggetto Connection chiuso o non valido.
scusate se non l'ho indicato prima...
blasfemo

boh, non vedo niente che non va bene, così ad occhio
Perché distruggi e ricrei la connection e il recordset se lo riusi subito
dopo?


prima di dire cavolate (visto che sono un prinipiante in asp) ti dico che
dovrebbe fare lo script  (lo riposto per semplicità)
<%
Set connessione = Server.CreateObject("ADODB.Connection")
database = Server.MapPath("/Public/Statcountex/stats.mdb")
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & database
&";"
Set recordset = Server.CreateObject("ADODB.Recordset")
SQL="SELECT StartCounter FROM Config"
recordset.open sql
From = recordset("StartCounter")
recordset.Close
connessione.Close
set recordset=nothing
set connessione=nothing
Questo primo pezzo dovrebbe far si che in FROM io abbia il valore che ho
messo nel campo StartCounter di Config del database stats.mdb  (es. se nel
db ho messo 7000, From deve valere 7000)
Set statconn = Server.CreateObject("ADODB.Connection")
statconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.Mappath("/Public/Statcountex/stats.mdb") & ";"
Set statrs = Server.CreateObject("ADODB.Recordset")
sql="SELECT SUM(Total) as TotVisits FROM TopIpsPerDay"
statRs.Open sql,statconn
Visits=From+statRs("TotVisits")
Response.Write Visits
statRs.Close
StatConn.Close
set statrs=nothing
set statconn=nothing
%>
Questo secondo pezzo, è uno "script" che da solo funziona e da a video il
numero di pagine visitate...
Io volevo modificarlo facendo in modo che non parta a contare da zero ma
comincia a contare dal valore From, qindi ho appunto fatto
Visits=From+statRs("TotVisits")
Ritornando alla tua domanda penso che sia la mia inesperienza a fare si che
distruggo e ricreo la connection e il recordset se lo riuso subito...
Ho provato a "ricaricare" il codice non mettendo le ultime quattro righe del
primo pezzo.. ma l'errore che mi da è lo stesso
blasfemo
p.s. se non ci arriviamo in fondo qui, posso, se vuoi, spedirti il db + il
file in mail...

dall'errore sembra che il recordset sia chiuso,cmq a scanso di equivoci
potresti provare
ad aprire la connessione una sola volta e ad aprire due recordset, ed alla
fine chiudi tutto; casomai metti dei response.write uqa e la per testare le
variabili.
Fammi sapere
ciao, Alberto
"blasfemo" <infoToglimi...@blasfemo.cjb.netToglimiPerScrivermi> ha
scritto nel messaggio news:dagp8.92769$%g7.29...@twister2.libero.it.......

 ciao, Alberto
ciao scusa la mia alta ignoranza.. ma mi potresti dire che parte del codice
devo eliminare o modificare e se si con che cosa.
grazie
blasfemo

prova un pò
<%
Set connessione = Server.CreateObject("ADODB.Connection")
database = Server.MapPath("/Public/Statcountex/stats.mdb")
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & database
&";"
Set recordset = Server.CreateObject("ADODB.Recordset")
SQL="SELECT StartCounter FROM Config"
recordset.open sql
F1 = recordset("StartCounter")
'recordset.Close
'connessione.Close
'set recordset=nothing
'set connessione=nothing
'Set statconn = Server.CreateObject("ADODB.Connection")
'statconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
'Server.Mappath("/Public/Statcountex/stats.mdb") & ";"
Set statrs = Server.CreateObject("ADODB.Recordset")
sql="SELECT SUM(Total) as TotVisits FROM TopIpsPerDay"
statRs.Open sql,statconn
Visits=F1+statRs("TotVisits")
Response.write "variabile f1: " & F1 &"<br>"
'vedi se ti riempie la variabile
Response.Write "Visits: " &visits
statRs.Close
recordset.close
connessione.Close
set statrs=nothing
set recordset=nothing
set connessione=nothing
%>

 ha scritto nel messaggio
news:a8ch8i$5q0$1...@canarie.caspur.it...
 prova un pò
 <%
 Set connessione = Server.CreateObject("ADODB.Connection")
 database = Server.MapPath("/Public/Statcountex/stats.mdb")
 connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & database
 &";"
 Set recordset = Server.CreateObject("ADODB.Recordset")
 SQL="SELECT StartCounter FROM Config"
 recordset.open sql
 F1 = recordset("StartCounter")
 'recordset.Close
 'connessione.Close
 'set recordset=nothing
 'set connessione=nothing
 'Set statconn = Server.CreateObject("ADODB.Connection")
 'statconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
 'Server.Mappath("/Public/Statcountex/stats.mdb") & ";"
 Set statrs = Server.CreateObject("ADODB.Recordset")
 sql_2="SELECT SUM(Total) as TotVisits FROM TopIpsPerDay"
 statRs.Open sql_2,connessione


 no no due sql non vanno bene
???
blasfemo

 recordset.open sql
scusa ma quando apri la connessione non sarebbe il caso di indicargli pure,
oltre alla tua stringa SQL anche la connessione
quindi :
invece di:   recordset.open sql
recordset.open sql, connessione
Un saluto


guarda ho inserito questo codice nella pagina :
<%
Set connessione = Server.CreateObject("ADODB.Connection")
database = Server.MapPath("/Public/Statcountex/stats.mdb")
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & database
&";"
Set recordset = Server.CreateObject("ADODB.Recordset")
SQL="SELECT StartCounter FROM Config"
recordset.open sql, connessione
From = recordset("StartCounter")
recordset.Close
connessione.Close
set recordset=nothing
set connessione=nothing
Set statconn = Server.CreateObject("ADODB.Connection")
statconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & database
&";"
Server.Mappath("/Public/Statcountex/stats.mdb") & ";"
Set statrs = Server.CreateObject("ADODB.Recordset")
sql="SELECT SUM(Total) as TotVisits FROM TopIpsPerDay"
statRs.Open sql,statconn
Visits=From+statRs("TotVisits")
Response.Write Visits
statRs.Close
StatConn.Close
set statrs=nothing
set statconn=nothing
%>
ma mi da ancora errore, precisamente questo :
Server.MapPath() errore "ASP 0173 : 80004005'
Carattere non valido nel percorso
Il parametro Path del metodo MapPath contiene un carattere non valido.
blasfemo