Salut!
Bon voila, j'ai ce petit bout de code qui a l'air de marcher, sauf que dans un cas, il ajoute un "1, " au début de la variable qu'il ajoute à la bdd.
Démonstration:
Code :
- [...]
- if request("process" ) <> "" then
- 'Lets update table. Go go go!
- dim rs2
- set conn = Server.CreateObject("ADODB.Connection" )
- set rs = Server.CreateObject("ADODB.RecordSet" )
- set rs2 = Server.CreateObject("ADODB.RecordSet" )
- conn.ConnectionString = "DSN=SMQ"
- conn.Open
- rs.Open "SELECT lword FROM " & sqlreplace(request("tbl_name" )) & "", conn
- do until rs.eof
- rs2.Open "UPDATE " & sqlreplace(request("tbl_name" )) & " SET ltrans='" & sqlreplace(request(rtrim(sqlreplace(rs.fields(0))))) & "' WHERE lword='" & sqlreplace(rtrim(rs.fields(0))) & "'", conn
- response.write(rtrim(sqlreplace(rs.fields(0))) & " " & sqlreplace(request(rtrim(sqlreplace(rs.fields(0))))) & "<br />" & chr(10))
- rs.MoveNext
- loop
- rs.close
- conn.close
- set rs = nothing
- set rs2 = nothing
- set conn = nothing
- response.write("Language edited successfully.<br />" )
- end if
- [...]
|
Le Response.write nous retourne:
welcome Accueil
policy Politique SMQ
process 1, Processus
indicators Indicateurs
anomaly Remontées d''anomalie
audits Audits
quality manual Manuel Qualité
procedures Procédures
suggestions Suggestions
action Suivis d''actions
administration Administration
Language edited successfully.
Merci par avance de votre aide!
Message édité par bob007 le 16-11-2004 à 11:01:56