§§§§§ AIDEZ MOI JE VOUS EN PRIS §§§§§

malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 - 4 févr. 2005 à 09:48
malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 - 4 févr. 2005 à 09:49
Je n'arrive pas a faire passé la valeur d'une de mes variable d'une page a l'autre. G essayé la methode post evidemen mé rien ni change, ell s'entete a ne pa vouloir bougé....
Je vous colle le code de mes 2 pages, vous arriverai pe etre a trouvé la solution

Page1.asp
<%


idlog = Request("idlog")


' connexion
Set Conn = server.CreateObject ("ADODB.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Inetpub\wwwroot\base.mdb"
sql = "SELECT * FROM T1 WHERE idlog like '" & idlog & "'"
Set Rsbase = Server.CreateObject("ADODB.Recordset")
Rsbase.Open sql, Conn, 3, 3



' vérification de l'existence d'un compte :
if Rsbase.recordcount < 1 then


' s'il n'y en a pas :
Rsbase.Close
sql2 = "SELECT * FROM T1"
Rsbase.Open sql2, Conn, 3, 3


' création de l'enregistrement
Rsbase.Addnew
Rsbase("idlog") = Request("idlog")
Rsbase("K1") = "0"
Rsbase("K2") = "0"
Rsbase.Update


else
end if


%>
avec ">

page2.asp
<%


idlog = Request("idlog")


' connexion
Set Conn = server.CreateObject ("ADODB.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Inetpub\wwwroot\base.mdb"
sql = "SELECT * FROM T1 WHERE idlog like '" & idlog & "'"
Set Rsbase = Server.CreateObject("ADODB.Recordset")
Rsbase.Open sql, Conn, 3, 3
%>
avec ">


celui ki m'aidera m'evitera je pens de cassé mon ordi d'ici 2h...
Merci a tous

++

1 réponse

malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 1
4 févr. 2005 à 09:49
ps : c la valeur de la page 1 a la page 2, qui est idlog que je n'arriv pa a faire bougé


++
0
Rejoignez-nous