Condizioni in asp

[Giasti]

Ciao a tutti, sto tentando di adattare uno script asp ma non essendo un mago (ma neanche una mezza cippa) ho bisogno del vostro aiuto. Questo script che allego riceve e manda dati a flash per rimuovere record da database access. Se però in flash inserisco un record che è inesistente, la risposta da parte dello script è ugualmente di successo! Vorrei fare in modo che se il record non esiste lo script lo dica a flash. In tal senso, come posso modificare lo script che allego qui sotto?
Grazie mille a tutti anticipatamente!
Giasti

Script:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
on error resume next
username = request("username")
password = request("password")
realname = request("realname")
Set RS = Server.CreateObject("ADODB.Recordset")
sqlString = "DELETE *FROM Users where username ='"&username&"'"
objConn.Execute sqlString
if err.Number then
Response.write "risposta="&err.description
else
Response.write "risposta=ok"
end if
%>

[marco_c]

è giusto così, perchè tu fai una query con una WHERE, la WHERE non trova nessun record. punto. non è un errore.

fai un controllo ad hoc tu.
prima di fare la delete fai una select con la stessa where
a questo punto:

if NOT rs.EOF then
- fai la delete
else
- messaggio d'errore
end if

[Giasti]

Grazie per la risposta, ho capito la tua spiegazione. Ma non ho capito come faccio a implementare le righe seguenti che mi metti nel resto dello script. Prima di postare ho provato un sacco di volte con altri esempi, ma con asp (soprattuitto se non o conosci) ho notato che basta che sbagli un apice per non far funzionare nulla...

Pensavo ad una cosa così, correggimi se sbaglio:

Script:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
on error resume next
username = request("username")
password = request("password")
realname = request("realname")
Set RS = Server.CreateObject("ADODB.Recordset")
sqlString = "DELETE *FROM Users where username ='"&username&"'"
objConn.Execute sqlString
if NOT rs.EOF then
Response.write "risposta=ok"
else
Response.write "risposta=no"
end if
%>
Grazie...

[marco_c]

sql1 = "SELECT * FROM Users WHERE username ='"&username&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql1, conn, 1, 3

if not rs.EOF then
sql2 = "DELETE * FROM Users WHERE username ='"&username&"'" 
ObjConn.Execute sql2
else
Response.Write "record not found"
end if

rs.Close
set rs = Nothing

[Giasti]

OK!!! Adesso provo, poi ti dico
Grazie!

[Giasti]

Sì funziona Grazie mille! Però per l'interfaccia che ho in flash si comporta al contrario. Mi spiego meglio. Come da script orginario, flash riceveva la variabile ok nel caso di buon fine, con il tuo ricevo invece la variabile di not found. Si potrebbe invertire la cosa? Dimmi se è corretta una sintassi del genere:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
on error resume next
username = request("username")
sql1 = "SELECT * FROM Users WHERE username ='"&username&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql1, conn, 1, 3

if not rs.EOF then
sql2 = "DELETE * FROM Users WHERE username ='"&username&"'"
ObjConn.Execute sql2
else
Response.Write "record not found"
else
Response.Write "ok"
end if

rs.Close
set rs = Nothing
%>

Grazie

[marco_c]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

 
<% 
on error resume next 
username = request("username") 
sql1 = "SELECT * FROM Users WHERE username ='"&username&"'" 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql1, conn, 1, 3 

if not rs.EOF then 
sql2 = "DELETE * FROM Users WHERE username ='"&username&"'" 
ObjConn.Execute sql2 
Response.Write "ok" 
else 
Response.Write "record not found" 
end if 

rs.Close 
set rs = Nothing 
%>

c'era un else di troppo nel tuo codice
adesso esegue la DELETE e stampa ok
altrimenti stampa record not found

NB: non ci sono variabili passate, sono semplici scritte a video

[Giasti]

Adesso c'é qualcosa che si è corrotto, non capisco...
Abuso ancora un pò della tua pazienza, ti posto il codice flash e lo script asp per confrontare insieme, anche se non capisco sinceramente cosa non vada...

Script ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
on error resume next
username = request("username")
sql1 = "SELECT * FROM Users WHERE username ='"&username&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql1, conn, 1, 3

if not rs.EOF then
sql2 = "DELETE * FROM Users WHERE username ='"&username&"'"
ObjConn.Execute sql2
Response.Write "risposta=ok"
else
Response.Write "risposta=no"
end if

rs.Close
set rs = Nothing
%>

Script Flash
campog = new LoadVars();
campog.username = _root.username_txt.text;
_root.statusbar_txt.text = "Attendere prego...";
}
campog.onLoad = function(success) {
if (success) {
if (this.risposta == "ok") {
_root.statusbar_txt.text = "Cancellazione effettuata con successo!";
_root.username_txt.text = "";
Selection.setFocus(username_txt);
} else if (this.risposta == "no") {
_root.statusbar_txt.text = "Nessun utente con questo nome!";
_root.username_txt.text = "";
Selection.setFocus(username_txt);
}
} else {
_root.statusbar_txt.text = "Problemi di collegamento al database!";
_root.username_txt.text = "";
Selection.setFocus(username_txt);
}
};
campog.sendAndLoad("script.asp", campog, "POST");

Le due condizioni risposta=ok e risposta=no mi sembra che siano rispettate. Ma siamo tornati al vecchio problema, comunica la cancellazione di dati non inseriti come certa. Per favore dedicami ancora qualche minuto...
Grazie

[marco_c]

ma te l'avevo detto anche prima

quando nel codice che ti ho postato io fai

Response.Write "risposta=ok"
e
Response.Write "risposta=no"

NON SETTI ALCUNA VARIABILE
semplicemente scrivi a video quello che c'è tra gli apici

quindi poi non ha alcun senso fare
if (this.risposta == "no")
e
if (this.risposta == "ok"

[Giasti]

Beh.. però nel mio script iniziale del primo post c'era già una cosa del genere.
Esisteva una riga con:

Response.write "risposta=ok"

e in flash esisteva già una riga di comando come:
if (this.risposta == "ok")

E questo funzionava, semplicemente avrei voluto che in caso di non esistenza di user così come il sistema mi diceva "cancellazione effettuata!" avrei voluto in caso contrario che dicesse "user non esistente"!
Non ho creato da zero questo sistema, c'era già e funzionava...