conrollo dati esistenti

[KiKkO_helpME]

<%
dim Nome
Nome = request.form("Nome")

dim Cognome
Cognome = request.form("Cognome")

dim Data
Data = request.form("Data")

dim Luogo
Luogo = request.form("Luogo")

dim strCode
strCode="kikko"


Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db\db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

sql = "SELECT * FROM Tabella1"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

esiste=false
do while not rs.eof
exist=rs("Nome")

if (Nome = Exist) then esiste=true
rs.movenext
loop
end if


if not esiste then


rs.addnew
rs(1) = Nome
rs(2) = Cognome
rs(3) = Data
rs(4) = Luogo
rs.update

End If

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

response.Redirect("inserito.asp")
%>

[burruchaga]

si, allora era quello

cancella quell'end if in grassetto

if (Nome = Exist) then esiste=true
rs.movenext
loop
end if

[KiKkO_helpME]

adesso è quasi perfetto ma..
se metto un dato che NON esiste nn me lo scrive

[burruchaga]

allora campia quel

if (Nome = Exist) then esiste=true

in

if (lcasr(Nome) = lcase(Exist)) then esiste=true

(cioè non fa differenza fra maiuscole e minuscole)

[KiKkO_helpME]

mi spiace continuare a rompere ma nn funziona ancora...ho fatto cm hai detto ma nn viene memorizzato un record anche se è diverso da quello esistente..
:master: VVoVe: VVoVe:

[burruchaga]

vuoi un codice + semplice?

la connessione AL DB e il recupero dei dati immessi nel form rimane la stessa, ma creati una funzione per gli apici.

function apici(str)
   apici=replace(request.form(str),"'","''")
end function
 
dim Nome 
Nome = apici("Nome") 

dim Cognome 
Cognome = apici("Cognome") 

dim Data 
Data = apici("Data") 

dim Luogo 
Luogo = apici("Luogo") 

dim strCode 
strCode="kikko" 


Set Conn=Server.CreateObject("ADODB.Connection") 
strConn="driver={Microsoft Access Driver (*.mdb)}; " 
strConn=strConn & " DBQ=" & Server.MapPath("db\db.mdb") 
strConn=strConn & ";pwd=" & strCode 
Conn.Open strConn 

set rs=conn.execute("SELECT * FROM Tabella1 where nome='"&"nome"&'")
'intanto definisci la query di insert
' che se il recordset è vuoto la fai eseguire

sql="INSERT INTO tabella1 (nome,cognome,data,luogo) VALUES('"&NOme&"','"&Cognome&"','"&data&"','"&luogo&"')"
'Ammesso che siano questi i nomi dei campi

'ora controlli se il nome è già presente:
if rs.eof then conn.execute(sql)

rs.Close 
set rs = Nothing 
conn.Close 
set conn = Nothing

FINE