visualizzare valore zero

[lupo1978]

salve a tutti,vorrei avere una informazione:
io ho una pagina asp che contiene delle statistiche sugli utenti riguardante gli acquisti effettuati.Bene con una query visualizzo il numero di acquisti fatti dall'utente "A",pero ho un problema:
siccome nella query entrano solamente quegli utenti che hanno gia effettuato degli acquisti, un utente che entra per la prima volta e quindi non ha effettuato acquisti non appare ovviamente nel database e di conseguenza al momento di stampare il valore non trova nulla e mi errore.
Volevo sapere se e possibile in asp far visualizzare il valore 0 quando non e' presente nessun valore nella query,mettere una condizione in base alla quale se non e' presente nessun valore sull'utente b stampare a video il valore 0 invece dell'errore:

"Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente."
grazie

[seafarer]

se hai chiamato rs l'oggetto recordset basta controllare il flusso così:

if rs.bof and rs.eof then
response.write "Non ci sono record"
else
response.write "Ci sono record"
end if

[SuperMariano81]

Corretto il suggerimento di seafarer nel tuo caso (ciao Lupo ) prova a fare così:

if rs.bof and rs.eof then
response.write "Non ci sono record"
else
##############tua procedura di estrazione
end if

[lupo1978]

Ciao supermariano81! Grazie seafarer per la risposta ho questo adesso


<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Recordset1.Fields.Item("ConteggioDitesto").Value) .bof and (Recordset1.Fields.Item("usernamevenditore").Value ).eof then
response.write "Non ci sono record"
else
if(Session("mm_username") <> "") Then
Recordset1__MMColParam = Session("mm_username")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cerca_STRING
Recordset1.Source = "SELECT * FROM Query1risultati WHERE usernamevenditore = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
errore

Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'
.....grazie

[SuperMariano81]

qua dentro ti manca un "end if":

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Recordset1.Fields.Item("ConteggioDitesto").Value) .bof and (Recordset1.Fields.Item("usernamevenditore").Value ).eof then
response.write "Non ci sono record"
else
if(Session("mm_username") <> "") Then
Recordset1__MMColParam = Session("mm_username")
End If
end if
%>

prova a vedere.
PS non sono sicuro che la posizione del secondo end if sia corretta, al più spostalo alla fine di questo if qua:
if(Session("mm_username") <> "") Then
Recordset1__MMColParam = Session("mm_username")

[lupo1978]

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Recordset1.Fields.Item("ConteggioDitesto").Value) .bof and (Recordset1.Fields.Item("usernamevenditore").Value ).eof then
response.write "Non ci sono record"
else
if(Session("mm_username") <> "") Then
Recordset1__MMColParam = Session("mm_username")
End If
End If
%>
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
if (Recordset1.Fields.Item("ConteggioDitesto").Value) .bof and
INVECE DI SCROVERE NON HAI OGGETTI OVVIAMENTE NON TROVA NULLA..

[SuperMariano81]

prova a vedere se ti entra nel secondo if così:

<% 
Dim Recordset1__MMColParam 
Recordset1__MMColParam = "1" 
if (Recordset1.Fields.Item("ConteggioDitesto").Value).bof and (Recordset1.Fields.Item("usernamevenditore").Value).eof then 
response.write "Non ci sono record" 
else 
if(Session("mm_username") <> "") Then
response.write "il record è presente" 
Recordset1__MMColParam = Session("mm_username") 
End If 
End If 
%>

E dimmi che ti scrive a video

[lupo1978]

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Recordset1.Fields.Item("ConteggioDitesto").Value) .bof and LINEA7(Recordset1.Fields.Item("usernamevenditore") .Value).eof then
response.write "Non ci sono record"
else
if(Session("mm_username") <> "") Then
response.write "il record è presente"
Recordset1__MMColParam = Session("mm_username")
End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cerca_STRING
Recordset1.Source = "SELECT * FROM Query1risultati WHERE usernamevenditore = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
IDEM NON TROVA L'OGGETTO LINEA 7.....

[SuperMariano81]

qual'è la linea 7?
questa?
if(Session("mm_username") <> "") Then

mm_username viene dichiarato precedentemente (nelle pagine prima?)

[lupo1978]

LA RIGA 7 E'
'if (Recordset1.Fields.Item("ConteggioDitesto").Value) .bof and (Recordset1.Fields.Item("usernamevenditore").Value ).eof then
,POI ANCHE SE LO DICHIARO NELLA PAGINA PRIMA NON SERVE PERCHE TANTO IL PROBLEMA RIMANE PERCHE IL VALORE E' ASSENTE NEL DATABASE, NELLA PAGINA PRECEDENTE DAREBBE LO STESSO RISULTATO,VORREI CHE VISUALIZASSE "NESSUN VALORE"QUANDO NON TROVA NESSUN CAMPO PER L'UTENTE LOGGATO