Wnagot

Amigo, obrigado! Funcionou.

Amigo, mesmo colocando o ; não funcionou. O mais engraçado é que este código funciona no provedor Osasco Telecom e agora que o site foi migrado para Locaweb não funciona mais.

Amigos, estou tendo dificuldade com o comando abaixo em uma pag ASP, poderiam me ajudar? Muito Obrigado! Código: <% Dim Conn Dim RS Set Conn = Server.CreateObject("ADODB.Connection") ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\massacritica\dados\massa.mdb;" Conn.Open ConnString InstrucaoSQL = "UPDATE cadastro set semestre = '"&semestre&"', nome = '"&nome&"', rg = '" & rg & "', telefone ='" & telefone & "', celular = '" & celular & "', email = '" & email & "', id_controle = "& id_controle", destino ='" & destino & "', prihorario ='" & prihorario & "', dia_1 ='" & dia_1 & "', seghorario ='" & seghorario & "', dia_2 ='" & dia_2 & "', prisaida ='" & prisaida & "', dia_3 ='" & dia_3 & "', segsaida ='" & segsaida & "', dia_4 ='" & dia_4 & "', tersaida ='" & tersaida & "', dia_5 = '" & dia_5 & "', observacao = '" & observacao & "' WHERE id ="& id Set RS = Conn.Execute (InstrucaoSQL) Conn.Close Set RS = Nothing Set Conn = Nothing Response.redirect("atualiza_ok.asp") %> ERRO: Microsoft VBScript compilation error '800a0401' Expected end of statement /grava_altera.asp, line 36 InstrucaoSQL = "UPDATE cadastro set semestre = '"&semestre&"', nome = '"&nome&"', rg = '" & rg & "', telefone ='" & telefone & "', celular = '" & celular & "', email = '" & email & "', id_controle = "& id_controle", destino ='" & destino & "', prihorario ='" & prihorario & "', dia_1 ='" & dia_1 & "', seghorario ='" & seghorario & "', dia_2 ='" & dia_2 & "', prisaida ='" & prisaida & "', dia_3 ='" & dia_3 & "', segsaida ='" & segsaida & "', dia_4 ='" & dia_4 & "', tersaida ='" & tersaida & "', dia_5 = '" & dia_5 & "', observacao = '" & observacao & "' WHERE id ="& id ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

Amigos, estou tendo dificuldade com o comando abaixo em uma pag ASP, poderiam me ajudar? Muito Obrigado! Código: <% Dim Conn Dim RS Set Conn = Server.CreateObject("ADODB.Connection") ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\massacritica\dados\massa.mdb;" Conn.Open ConnString InstrucaoSQL = "UPDATE cadastro set semestre = '"&semestre&"', nome = '"&nome&"', rg = '" & rg & "', telefone ='" & telefone & "', celular = '" & celular & "', email = '" & email & "', id_controle = "& id_controle", destino ='" & destino & "', prihorario ='" & prihorario & "', dia_1 ='" & dia_1 & "', seghorario ='" & seghorario & "', dia_2 ='" & dia_2 & "', prisaida ='" & prisaida & "', dia_3 ='" & dia_3 & "', segsaida ='" & segsaida & "', dia_4 ='" & dia_4 & "', tersaida ='" & tersaida & "', dia_5 = '" & dia_5 & "', observacao = '" & observacao & "' WHERE id ="& id Set RS = Conn.Execute (InstrucaoSQL) Conn.Close Set RS = Nothing Set Conn = Nothing Response.redirect("atualiza_ok.asp") %> ERRO: Microsoft VBScript compilation error '800a0401' Expected end of statement /grava_altera.asp, line 36 InstrucaoSQL = "UPDATE cadastro set semestre = '"&semestre&"', nome = '"&nome&"', rg = '" & rg & "', telefone ='" & telefone & "', celular = '" & celular & "', email = '" & email & "', id_controle = "& id_controle", destino ='" & destino & "', prihorario ='" & prihorario & "', dia_1 ='" & dia_1 & "', seghorario ='" & seghorario & "', dia_2 ='" & dia_2 & "', prisaida ='" & prisaida & "', dia_3 ='" & dia_3 & "', segsaida ='" & segsaida & "', dia_4 ='" & dia_4 & "', tersaida ='" & tersaida & "', dia_5 = '" & dia_5 & "', observacao = '" & observacao & "' WHERE id ="& id ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^