io ho provato con questo codice, ma mi dice "Proprietà o metodo non supportati dall'oggetto" indicando come errore la riga che ti indico... AIUTO!!
dim objConn
dim objRs
dim strCognome
dim strNome
dim strCodice
dim Codice_Skills
set objConn = Server.CreateObject("ADODB.Connection")
objConn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=C:\inetpub\wwwroot\ecdl\ecdl.mdb"
objConn.Open
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "Kw_Registrati", objConn, adLockOptimistic, adCmdTable
objRs.AddNew
objRs("Cognome")=trim(request.form("Cognome"))
objRs("Nome")=trim(request.form("Nome"))
objRs("Indirizzo")=trim(request.form("Indirizzo"))
objRs("Cap")=trim(request.form("Cap"))
objRs("Città")=trim(request.form("Citta"))
objRs("Provincia")=trim(request.form("Provincia"))
objRs("Nazione")=trim(request.form("Nazione"))
objRs("Telefono")=trim(request.form("Telefono"))
objRs("E-mail")=trim(request.form("E-mail"))
objRs("Scolarità")=trim(request.form("Scolarita"))
objRs("Data_Nascita")=trim(request.form("Data_Nascita"))
objRs("Luogo_Nascita")=trim(request.form("Luogo_Nascita"))
objRs("occupazione")=trim(request.form("Occupazione"))
Set objRs("Codice_Skills")=objConn.execute("SELECT Codice FROM Codici_Nuovi WHERE utilizzato=False") --> [L'ERRORE INDICATO E' QUI]
IF Codice_Skills.EOF THEN
Response.Write "Si è verificato un errore"
ELSE
END IF
Set Codice_Skills = Nothing
objRs.Update
objRs.Close
set objRs=Nothing
objConn.Close
set objConn=Nothing
strCognome=request.form("Cognome")
strNome=request.form("Nome")
strCodice=objRs("Codice_Skills")
%>
<html>
<head><title>Pagina di conferma</title></head>
<body bgcolor="#3399FF">
<p>
Congratulazioni <%=strNome%> <%=strCognome%>, la fase di registrazione è andata a buon fine, ora puoi entrare nel pannello principale.
<p>
Ti ricordiamo che per la Skill card che hai appena acquistato è gratuita e che per il ritiro di essa dovrai_________________
<p>
<b>
Il tuo codice Skill Card è<%=strCodice%></b>
<p>
<a href="elenco_sedi.asp">Entra</a>
</body>
</html>
