I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Gabbro
Gabbro
l'1 maggio 2002 alle 20:22
11 messaggi dal 14 luglio 2001
Ciao Ragazzi,
volevo sapere se secondo voi questo script è scritto male ...
Se si ... potreste dirmi come dovrei modificarlo ? grazie :)

<%
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("mdb-database/foto.MDB")
set rs=cn.execute ("Select count(*) as quanti from foto")
response.write "Iscritti: "&rs("quanti")

%>
<%
Dim cnf,cmf
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("mdb-database/foto.MDB")
set rs=cn.execute ("Select count(*) as quantif from foto where sesso='F'")
response.write " - Donne: "&rs("quantif")
cn.close

%>
<%
Dim cnm,cmm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("mdb-database/foto.MDB")
set rs=cn.execute ("Select count(*) as quantim from foto where sesso='M'")

response.write " - Uomini: "&rs("quantim")

cn.close
Set cn = NOTHING
Set rs = Nothing
%>

-----------------
www.novellanet.it
La nuova comunità virtuale
-----------------
-----------------
www.novellanet.it
La nuova comunità virtuale
-----------------
RispondiQuoting
pepito74
pepito74
l'1 maggio 2002 alle 22:27
45 messaggi dal 01 maggio 2002
ciao,
innanzi tutto visto che è tutto codice renderizzato apri un unico tag asp all'inizio e chiudilo alla fine..visto che dentro non c'è alcun tag html ma solo codice asp...
<%
blocco di istruzioni
%>

inoltre ti basta una sola chiamata al database, è inutile che ne fai 3 nella stessa pagina riferendoti sempre allo stesso; così come per il recordset, crealo una volta, lo usi, lo chiudi e lo riapri con una nuova query...
io utilizzo l'oggetto recordset che tu non usi...la tua pagina verrebbe così:

<%
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("mdb-database/foto.MDB")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open ("Select count(*) as quanti from foto") , conn

response.write "Iscritti: "&rs("quanti")

rs.Close

rs.Open("Select count(*) as quantif from foto where sesso='F'"), conn

response.write " - Donne: "&rs("quantif")

rs.Close

rs.Open("Select count(*) as quantim from foto where sesso='M'") , conn

response.write " - Uomini: "&rs("quantim")

rs.Close
cn.Close
%>


RispondiQuoting
Gabbro
Gabbro
il 9 maggio 2002 alle 01:04
11 messaggi dal 14 luglio 2001
Ciao,
ho provato il tuo script ma mi dà il seguente errore :

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/foto/conta.asp, line 6


e la riga 6 è la seguente:
rs.Open ("Select count(*) as quanti from foto") , conn


Cosa ho sbagliato?
Scusami per la scocciatura

-----------------
www.novellanet.it
La nuova comunità virtuale
-----------------
-----------------
www.novellanet.it
La nuova comunità virtuale
-----------------
RispondiQuoting
albis
albis
il 9 maggio 2002 alle 16:29
1.605 messaggi dal 06 settembre 2002
forse ti conviene fare così

<%
Dim cn,cm
dim rs
dim lngQuantDonne
dim lngQuantUomini

lngQuantDonne = 0
lngQuantUomini = 0


Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("mdb-database/foto.MDB")
set rs=cn.execute ("Select ucase(sesso),count(*) as quanti from foto group by sesso")

while rs.EOF = false
if rs("sesso") = "M" then
lngQuantUomini = rs("quanti")
end if
if rs("sesso") = "F" then
lngQuantDonne = rs("quanti")
end if
wend

response.write "Iscritti: "& lngQuantDonne + lngQuantUomini


response.write " - Donne: " & lngQuantDonne
cn.close



response.write " - Uomini: " & lngQuantUomini

cn.close
Set cn = NOTHING
Set rs = Nothing
%>



in questo modo esegui solo una select

FORZA LA MAGICA ROMA
FORZA LA MAGICA ROMA
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.