Recuperare dato

[Mattatore2]

Gentili utenti, ho un problema, voglio recuperare un dato "id" dell' utente che si è registrato dal database "dbcollezione" per poi utilizzarlo in "idutente". Questo è il codice che ho scritto, ma ho controllato nel database non mi da niente.
Cmq..volevo dire in + ...che mi trovo in un'altra pagina e voglio recuperare il dato id dal database che precedentemente ho riempito. Ovviamente deve appartenere alla persona che si era reggistrata precedentemete...come faccio a recuperarlo l'id dell' utemte anche se non si trova in quella pagina di registrazione ma in altre...come faccio?

<%
Dim idutente
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbcollezione.mdb")
Set rs=server.CreateObject("ADODB.Recordset")
rs.Open "tabdbcollezione",conn,3,3
rs.AddNew
idutente=Request.QueryString("ID")
rs.update
rs.Close
stato=request.form("stato")
 'apro la connessione
Set conn2 = Server.CreateObject("ADODB.Connection")
   conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbstati.mdb")

Set rs2=server.CreateObject("ADODB.Recordset")
rs2.Open "tabstati",conn2,3,3
rs2.AddNew
rs2("stato")=stato
rs2("idutente")=idutente
rs2.update
rs2.Close
sSQL2 = "SELECT ID " 
sSQL2 = sSql &" FROM tabstati" 
sSQL2 = sSql &" WHERE stato ='"& stato &"' " 
sSQL2 = sSql &" AND idutente ='"& id&"' " 
set RS2 = server.createobject("adodb.recordset") 
RS2.open sSql2, conn2, 1, 1  <--------------------
ID = rs2("idutente")
conn2.Close
%> 
<% Response.Redirect("primapagina2.asp?ID="&ID&"") %>

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.
/collezioni/inseriscidatistato.asp, line 801

La linea è quella della freccia.
GRAZIE MILLE

[adrianaoliveira]

nella pagina che inserisce i dati nel DB

Session("IDUtente") = ID

nella seconda pagina

ID = session("IDUTENTE")

Ciao

[Mattatore2]

Io ho due pagine una con scritto i form e l'altra dove mi va ad inserire i nella tabella.


Session("IDUtente") = ID dove lo inserisco?

il campo Idutente all'inizio è vuoto gli devo copiare dentro l'id dell'utente ce si è registrato (ma in un precedente form)

devo inerire Session("IDUtente") = ID all'inizio della registrazione, sena aprire niente?
GRaZIE

[Mattatore2]

Ripeto meglio...ho fatto 2 pagine di registrazione utente (una con il form e l'altra per mandare i dati), quella per mandare i dati è questa...ho inserito anche la session:

<%
utente=request.form("utente")
password=request.form("password")
nome=request.form("nome")
cognome=request.form("cognome")
titolo=request.form("titolo")
descrizione=request.form("descrizione")
email=request.form("email")
 'apro la connessione
Set conn = Server.CreateObject("ADODB.Connection")
   conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbcollezione.mdb")

Set rs=server.CreateObject("ADODB.Recordset")
rs.Open "tabdbcollezione",conn,3,3
rs.AddNew
rs("utente")=utente
rs("password")=password
rs("nome")=nome
rs("cognome")=cognome
rs("titolo")=titolo
rs("descrizione")=descrizione
rs("email")=email
rs.update
rs.Close
sSQL = "SELECT ID " 
sSQL = sSql &" FROM tabdbcollezione" 
sSQL = sSql &" WHERE utente ='"& utente &"' " 
sSQL = sSql &" AND password='"& password&"' " 
sSQL = sSql &" AND nome='"& nome&"' " 
sSQL = sSql &" AND cognome='"& cognome &"' " 
sSQL = sSql &" AND titolo='"& titolo &"' " 
sSQL = sSql &" AND descrizione='"& descrizione&"' " 
sSQL = sSql &" AND email='"& email &"' " 

set RS = server.createobject("adodb.recordset") 
RS.open sSql, conn, 1, 1 
ID = rs("ID")
conn.Close
%> 
<% Session("idutente") = ID %>
<% Response.Redirect("primapagina2.asp?ID="&ID&"") %>

il tutto va nell asua pagina personale..fin qui tutto bene.
Ora gli ho dato all'utente la possibilità di inserire un dato "stato" (è un sito sulle banconote) nella sua pagina personale. Quindi ho creato altre 2 pagine..una con il form e l'altra che manda i dati...ma visto che il dato deve andare nella pagina personale ho bisogno dell' "id" (dell'utente) che vada a finire nell' "idutente" di un'altro database così tutto funzionerebbe (ho provato io inserendo manualmente nel database), questa è la pagina che inseriste il dato "stato" nel suo database:

 <%
stato=request.form("stato")
 'apro la connessione
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbstati.mdb")
Set rs2=server.CreateObject("ADODB.Recordset")
rs2.Open "tabstati",conn2,3,3
rs2.AddNew
rs2("stato")=stato
rs2.update
rs2.Close
sSQL2 = "SELECT ID " 
sSQL2 = sSql &" FROM tabstati" 
sSQL2 = sSql &" WHERE stato ='"& stato &"' " 
sSQL2 = sSql &" AND idutente ='"& idutente&"' " 
set RS2 = server.createobject("adodb.recordset") 
RS2.open sSql2, conn2, 1, 1 <-----------
conn2.Close
%> 
<% ID = session("idutente") %>
<% Response.Redirect("primapagina2.asp?ID="&ID&"") %>

Qui vorrei oltre a prendere il dato mi si riporti alla pagina dell'utente con Redirect!

Il dato stato va nel database ma in id utente non compare niente. Inoltre mi da l'errore dove c'è la freccia :

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.

/collezioni/inseriscidatistato

[Mattatore2]

Ho risolto!!!!!!

così:

<% ID = session("idutente") %>
<%
stato=request.form("stato")
'apro la connessione
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbstati.mdb")
Set rs2=server.CreateObject("ADODB.Recordset")
rs2.Open "tabstati",conn2,3,3
rs2.AddNew
rs2("stato")=stato
rs2("idutente")=ID
rs2.update
rs2.Close

conn2.Close
%>

<% Response.Redirect("primapagina2.asp?ID="&ID&"") %>



Perchè non ci ho pensato prima.... :master: