Newsgroup: it.comp.www.asp
Titolo: transazione(provo non si sa mai)

Scusate provo anche qui di solito a queste domande difficilmente si ottiene
risposta,
cmq,se dovesse esserci qualche anima buona....lo script gira senza errori
fino alla fine ma quando vado a vedere il db è completamente vuoto.
<%
response.expires=0
response.buffer=false
dim errori,rsUser,dbPath,JetProvider,rsCard,JetConn,NewUserID
'*** PARTE 1 - Assegnazione campi ***
username=request("username")
Pass=request("Pass")
Pass2=request("Pass2")
nome=request("nome")
cognome=request("cognome")
nascita=split(request("data_nascita"),"/")
data_nascita=dateserial(nascita(2),nascita(1),nascita(0))
citta=request("citta")
tel=request("tel")
email=request("email")
urlsite=request("urlsite")
General_argo=request("General_argo")
Dett_argo=request("dett_argo")
Commento=request("commento")
'*** PARTE 2 - Verifica data di nascita ***
if not isDate(DATA_NASCITA) then setErrore("*** La DATA DI NASCITA non è
valida! ***")
%>
<script language=vbscript runat=server>
sub setErrore(msg)
response.clear
response.redirect "register.asp?errore=" & server.urlencode(msg)
end sub
sub RollBackTask(errorMsg)
JetConn.rollbacktrans
JetConn.close
set rsUser=nothing
set rsCard=nothing
set JetConn=nothing
errorMsg="<font size=1 color=black>" & errorText & "</font><br>"
setErrore "*** Si è verificato un errore di registrazione ***<br>" &
errorMsg
end sub
</script>
<html>
<body style="font-family:verdana">
<font size=+2 color=darkred><b>Stato registrazione</b></font>
<hr size=1><br>
<font size=2><b>Registrazione in corso...</b></font><br>
<%
set JetConn=server.createobject("adodb.connection")
set rsUser=server.createobject("adodb.recordset")
set rsCard=server.createobject("adodb.recordset")
adOpenKeySet=1
adLockOptimistic=3
adOpenForwardOnly=0
dbPath=server.mappath("/ml_antipro/dati/siteusers.mdb")
JetProvider="Provider=Microsoft.Jet.Oledb.4.0"
on error resume next
JetConn.connectionString=JetProvider & ";data source=" & dbPath
JetConn.open
set rsUser.activeconnection=JetConn
set rsCard.activeconnection=JetConn
rsUser.open "UTENTI",,adOpenKeySet,adLockOptimistic
rsCard.open "COMPETENZE",,adOpenForwardOnly,adLockOptimistic
JetConn.begintrans
rsUser.addNew
rsUser("username")=username
rsUser("pass")=pass
rsUser("nome")=nome
rsUser("cognome")=cognome
rsUser("data")=now()
rsUser("data_nascita")=data_nascita
rsUser("citta")=city
rsUser("tel")=tel
rsUser("email")=email
rsUser("urlsite")=urlsite
rsUser.update
if err.number<>0 then RollBackTask(err.description)
NewUserID=rsUser("ID")
rsCard.addnew
rsCard("id_utente")=NewUserID
rsCard("General_argo")=General_argo
rsCard("Dett_argo")=dett_argo
rsCard("Commento")=Commento
rsCard.update
if err.number<>0 then RollBackTask(err.description)
JetConn.committrans
%>
<br><font size=3 color=red><b>Registrazione avvenuta con
successo!</b></font><br>
</body>
</html>
ciao grazie
--
Tools Antipro
Brand your Brain [-\|-||\||)|
http://asp4free.ravenna2000.it/ml_antipro


Moderatore di it.comp.www.asp
Sito di supporto: 
http://www.aspitalia.com/newsgroup/
La più grande community italiana di sviluppatori!

non so se viene apprezzato......
cmq, la prima cosa che mi viene in mente è che non ci sono i permessi di
scrittura sul DB
-- 
Posted from [213.156.59.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 prova a toglierlo e vedi che errore ti restituisce.
cmq ho risolto , ho cancellato il record che c'era e ora va non ho fatto
niente altro boh.
ciao


 niente altro boh.
misteri dell'informatica.
