Gracias a los que han respondido a mis dudas.
Bueno, colocando el codigo el usuario en la tabla y haciendo las consultas para cada usuario en especifico como indico MsTech.DotNet he solucionado el primero de los problemas.
He seguido a lo largo de las subrutinas como va pasando la variable codigo del aticulo y llega bien, pero en la insercion obviamente pasa algo.
Aqui les muestro el codigo de la funcion que hace la insercion y/o actualizacion de los datos del pedido en la tabla.
Sub AdicionarPed
Dim RS, SQL, Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open "DSN"
SQL="Select * from pedido where codigoz like '" & codigo &"' and codusu like '" & codusu &"' "
RS.Open SQL, Conn, 1,2
If not RS.EOF then
RS("t36c") = t36c
RS("t37c") = t37c
RS("t38c") = t38c
RS("t39c") = t39c
RS("t40c") = t40c
RS("t41c") = t41c
RS("t42c") = t42c
RS("t43c") = t43c
RS("t44c") = t44c
RS("t45c") = t45c
RS("t46c") = t46c
RS("t47c") = t47c
RS("t48c") = t48c
RS("total") = total
RS.Update
End If
If RS.EOF then
SQL = "Insert Into pedido (codigoz, codusu, t36c, t37c, t38c, t39c, t40c, t41c, t42c, t43c, t44c, t45c, t46c, t47c, t48c, total) Values ("& codigo &"," & codusu & ", "& t36c &", "& t37c &", "& t38c &", "& t39c &", "& t40c &", "& t41c &", "& t42c &", "& t43c &", "& t44c &", "& t45c &", "& t46c &", "& t47c &", "& t48c &", "& total &")"
Set RS = Conn.Execute(SQL)
End If
Conn.Close
Set Conn = Nothing
End Sub
Saludos