visualizzare valore zero

[SuperMariano81]

consiglio 1: togli il caps loc quando digiti...

prova così

<% 
Dim Recordset1__MMColParam 
Recordset1__MMColParam = "1" 
if (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 
%>

[lupo1978]

non si scioda stesso errore

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (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
%>

[SuperMariano81]

Che errore ti da? :master:
prova così:
if not (Recordset1.Fields.Item("usernamevenditore").Value ).eof then

non capisco questa parte qui:
Recordset1.Fields.Item ("usernamevenditore").Value

prova a vedere così
if not Recordset1.("usernamevenditore").eof then

[lupo1978]

1 prova

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if not (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
%>
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
la famosa linea 7


2 prova
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if not Recordset1.("usernamevenditore").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
%>
Errore di compilazione di Microsoft VBScript (0x800A03F2)
Previsto identificatore
/marinodiprinzio/TMP5av124r6hq.asp, line 7, column 18
if not Recordset1.("usernamevenditore").eof then
aiuto sono blocato...

[seafarer]

la sintassi corretta sarebbe

Recordset1("usernamevenditore")

SENZA PUNTI Nè NIENTE, solo nome oggetto recordset e tra apici doppi e parentesi tonde il nome del campo

Xò nn so se così funge con le connessioni di DW (quelle che mi sembra stai usando tu) usa un'interrogazione db del genere:

strconn="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/db.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open strconn
sql = " SQL "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

rs.close
set rs = nothing
conn.close
set conn = nothing

io mi ci trovo meglio e la sintassi che ti ho suggerito funziona sicuramente, poi fai tu...

[lupo1978]

grazie per la risposta ma il valore usernamevenditore dove andrebbe sostituito?poi quella che mi hai scritto tu va ad sostituire gli script precedenti provati?basta questo per far si che quando il valore e' assente nel database a video stampi "nessunovalore e' presente"?

[seafarer]

allora:

'definisco dove si trova il database
strconn="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/db.mdb")
'inizializzo l'oggetto conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open strconn
'seleziono tutti i record dalla tabella di nome nome_tabella
sql = "select * from nome_tabella"
'inizializzo l'oggetto rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

'qui faccio tutti i porci comodi miei
if not rs.bof and not rs.eof then
'qua definisco una procedura nel caso esistano dei record
else
'qui definisco una procedura nel caso NON esista alcun record
end if

'in ogni caso se un tuo record si chiama ciauz puoi richiamarlo così
variabile=rs("ciauz")
'se ciauz è alla posizione 0 (zero) cioè la prima puoi richiamarlo anche così
variabile=rs(0)

'libero risorse
rs.close
set rs = nothing
conn.close
set conn = nothing

qualcosa non è chiaro?

[lupo1978]

grazie seafer ancora non posso provare sei gentilissimo,ma in rs devo sostituirlo con un campo el database?nella fatti specie usernamevenditore?vorrei che se l'username "a"siccome appena registrato avesse nei suoi dati una dicitura del tipo"nessun oggetto hai comprato"in quanto i dati provenienti dalla query collegata al database "oggetti comprati" non presenta nessun campo con quel nome..se non so no chiaro per favore fammelo notare grazie mille ....

[seafarer]

nono! rs è un "oggetto" lo puoi chiamare come vuoi ma deve restare com'è coerentemente a come l'hai chiamato!
dire response.write rs("nomerecord") equivale a dire
vai nel database tramite l'oggetto rs e trovami nella riga in cui stai (questo dipende dal where nell'sql o da altri fattori) e stampa a video il valore contenuto nella colonna di nome nomerecord. è un approccio al database di tipo "matriciale" (access per intenderci)
per fare quello che ti serve fai una select del tipo
select * from tabella where username='iltuousername'
con lo script
if not rs.bof and not rs.eof then ...
vedo se il risultato è un record esistente (e in questo caso prelevo il valore che c'è) oppure no (allora stampo a video "0" oppure nulla)...nn so se sono stato chiaro, cmq nelle guide di freeasp ci sono molti esempi del genere (per quel che ricordo)