'-------- MOSTRA MENSAGEM DA FUNÇÃO EXECUTADA --------------
IF enviado="true" THEN
file = "../imagem/" & arquivo
'VERIFICA SE EXISTE ARQUIVO
Set fs = server.CreateObject("Scripting.FileSystemObject")
'Set Lista = fs.GetFolder(server.MapPath(file))
If fs.FileExists(file) THEN
SQL2 = "UPDATE DISTINCTROW jogos SET imagem='"&arquivo&"' WHERE id="&id&""
Set RS2 = Conn.Execute(SQL2)
Set RS2 = Nothing
Else
SQL3 = "INSERT INTO jogos (imagem) VALUES '"&arquivo&"' WHERE id="&id&""
Set RS3= Conn.Execute(SQL3)
325 Set RS3 = Nothing
END IF
RESPONSE.WRITE "<font color=""#0000ff"">Imagem do Jogo "&id&" enviado com Sucesso</font>"
END IF
'----------------------------------------------------------------------------
Pergunta
AlexCT
Estou com este erro que não consigo resolver!
Microsoft JET Database Engine error '80040e14'
Syntax error in INSERT INTO statement.
/alexct/admin/jogoupload.asp, line 325
'-------- MOSTRA MENSAGEM DA FUNÇÃO EXECUTADA -------------- IF enviado="true" THEN file = "../imagem/" & arquivo 'VERIFICA SE EXISTE ARQUIVO Set fs = server.CreateObject("Scripting.FileSystemObject") 'Set Lista = fs.GetFolder(server.MapPath(file)) If fs.FileExists(file) THEN SQL2 = "UPDATE DISTINCTROW jogos SET imagem='"&arquivo&"' WHERE id="&id&"" Set RS2 = Conn.Execute(SQL2) Set RS2 = Nothing Else SQL3 = "INSERT INTO jogos (imagem) VALUES '"&arquivo&"' WHERE id="&id&"" Set RS3= Conn.Execute(SQL3) 325 Set RS3 = Nothing END IF RESPONSE.WRITE "<font color=""#0000ff"">Imagem do Jogo "&id&" enviado com Sucesso</font>" END IF '----------------------------------------------------------------------------Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados