Inserimento record db Access

[oscarlogoteta]

Ciao ragazzi, ho un problema per quanto riguarda l'inserimento di un record all'interno di un database.

Database='users.mdb'
Campi=UserName, UserPass

nota: Questo inserimento record mi serve per la fase di registrazione per un'area riservata. Il controllo dei campi e il database stesso, lo scaricato da un prezippato di Negatyve.

Io utilizzo questa pagina asp (registrazione.asp)per l'inserimento dei dati. Avendola fatto a spizzichi e bocconi non so se sia giusta:

-----------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%
'Dimension variables
Dim adoCon
Dim rsAddComments
record to be added to the database

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("users.mdb")

'adoCon.Open "DSN=test0"
Set rsAddComments = Server.CreateObject("ADODB.Recordset")

rsAddComments.CursorType = 2

rsAddComments.LockType = 3

rsAddComments.AddNew

rsAddComments.Fields("UserName") = Request("un")
rsAddComments.Fields("UserPassword") = Request("up")
rsAddComments.Update

rsAddComments.Close
Set rsAddComments = Nothing
Set adoCon = Nothing
%>
-----------------------------------------------------
Nel flash ho due campi input che si chiamano user e pass, un bottone di invio dove ho messo:
on (release) {
un=user; //metto nella variabile un il campo user
up=pass; //metto nella variabile up il campo password
loadVariables("registrazione.asp", this, "POST");
}
------------------------------------------------------

Il tutto non funziona.
E' lo script asp sbagliato?
Il flash dovrebbe essere giusto, anche se non ne sono sicuro.
Sono ancora alle prime armi d'interfacciamento, e mi perdo ancora probabilmente nelle stupidate.

Grazie anticipatamente!

[GunraY]

prova a puntare direttamente alla pagina asp, invece che testarla da flash, e vedi se ti da qualche errore...

[oscarlogoteta]

Errore di compilazione di Microsoft VBScript error '800a03ea'

Errore di sintassi

/oscarlogoteta/login/register_unpw.asp, line 6

record to be added to the database
-------^

:master: Effettivamente questa stringa a che serve...
record to be added to the database
-------^

[GunraY]

manca l'apice davanti, quella riga dovrebbe essere un commento.
mettici un apice davanti:
'record to be added to database

[oscarlogoteta]

ok.

Ora non da più errori, e non so perchè, ma non avevo messo la variabile con l'sql per indirizzare l'inserimento dei record.
Ma non funziona ancora.
A sto punto, se si presume che lo script sia giusto, si va al flash.
E' giusto il metodo di invio dati che ho utilizzato?

on (release) {
un=user; //metto nella variabile un il campo user
up=pass; //metto nella variabile up il campo password
loadVariables("registrazione.asp", this, "POST");
}

Riposto il codice corretto
<%@LANGUAGE="VBSCRIPT"%>
<%
'Dimension variables
Dim adoCon
Dim rsAddComments
Dim strSQL

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("users.mdb")

'adoCon.Open "DSN=test0"
Set rsAddComments = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT users.UserName, users.UserPassword FROM users;"

rsAddComments.CursorType = 2

rsAddComments.LockType = 3
rsAddComments.Open strSQL, adoCon

rsAddComments.AddNew

rsAddComments.Fields("UserName") = Request("un")
rsAddComments.Fields("UserPassword") = Request("up")
rsAddComments.Update

rsAddComments.Close
Set rsAddComments = Nothing
Set adoCon = Nothing
%>

[oscarlogoteta]

Un aiuto?

[oscarlogoteta]

Dunque, ci son riuscito.
La fretta è una cattivissima consigliera.
Per tutti quelli che avranno bisogno di questo script, lo riposto corretto sia il file ASP sia il l'SWF:

[Registrazione.asp]

<%@LANGUAGE="VBSCRIPT"%>
<%
'Dimension variables
Dim adoCon
Dim rsAddComments
Dim strSQL

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("users.mdb")

'adoCon.Open "DSN=test0"
Set rsAddComments = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT users.UserName, users.UserPassword FROM users;"

rsAddComments.CursorType = 2

rsAddComments.LockType = 3
rsAddComments.Open strSQL, adoCon

rsAddComments.AddNew

rsAddComments.Fields("UserName") = request.form("username")
rsAddComments.Fields("UserPassword") = request.form("password")
rsAddComments.Update

rsAddComments.Close
Set rsAddComments = Nothing
Set adoCon = Nothing
%>

[Registrazione.swf]

on (release) {
//nello stage si mettono due campi che
//abbiano nome variabile
//username
//password

loadVariablesNum("registrazione.asp", 0, "POST");
}



Ora credo comunque di aver veramente capito la logica e (finalmente anche se a grandi linee) la sintassi.

Cmq grazie a GunraY.