Ripiego 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
