malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 2007
-
4 févr. 2005 à 09:48
malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 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