Salut je voudrais asvoir si on peut m'aider a faire l'insertion des 3 champs dans ma base de donnee en recuperant l'id et en allant d'un point precis a un autre. et qu'il m'affiche le nombre de record traites. Merci d'avance
<%
Dim count, user, name,id
count = "0"
id = "15524"
set rs = server.CreateObject ("ADODB.connection")
set Req = server.CreateObject ("ADODB.connection")
Set con = Server.CreateObject("ADODB.connection")
con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath ("./DB/DataBase.mdb")
Req = "INSERT INTO main (Username, Pass, Date) "
Req = Req & "VALUES (' & user & ', 1234, 04/08/2005)"
rs.Open "SELECT * FROM Main WHERE ID LIKE '%"& id &"%'"
Do while not rs("id")=22332
rs.Open Req,Con ,3,2,3
name= rs.Fields (CompanyName)
user=RIGHT(" & name & ",5)
Req.Open, con ,3,2,3
Con.Execute
rs.Movenext
count = count+1
exit DO
Set rs = Nothing
Loop
Response.write (count)
%><%
Dim count, user, name,id
count = "0"
id = "15524"
set rs = server.CreateObject ("ADODB.connection")
set Req = server.CreateObject ("ADODB.connection")
Set con = Server.CreateObject("ADODB.connection")
con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath ("./DB/DataBase.mdb")
Req = "INSERT INTO main (Username, Pass, Date) "
Req = Req & "VALUES (' & user & ', 1234, 04/08/2005)"
rs.Open "SELECT * FROM Main WHERE ID LIKE '%"& id &"%'"
Do while not rs("id")=22332
rs.Open Req,Con ,3,2,3
name= rs.Fields (CompanyName)
user=RIGHT(" & name & ",5)
Req.Open, con ,3,2,3
Con.Execute
rs.Movenext
count = count+1
exit DO
Set rs = Nothing
Loop
Response.write (count)
%>