[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<% 'insere usuario
Dim conexao, rs, sql, usuario, matricula, dsn, rs2, sql2, id_dep, rsVerifica, hora_completa, hora, minuto, data_completa, dia, mes,
ano, solicitacao, descricao
usuario= TRIM(request.form("usuario"))
matricula= TRIM(request.form("matricula"))
solicitacao= TRIM(request.form("solicitacao"))
id_dep= TRIM(request.Form("departamento"))
descricao= TRIM(request.Form("descricao"))
hora=Hour(now)
minuto=Minute(now)
dia=Day(date)
mes=Month(now)
ano=Year(now)
hora_completa=hora & ":" & minuto
data_completa=dia & "/" & mes & "/" & ano
sql="insert into solicitacao(num_sol,hr_1,dt_1,desc) values('"&solicitacao&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
sql2="insert into solicitacao_usuario(num_sol,matricula,nm_func,id_dep,hr_1,dt_1,desc) values('"&solicitacao&"','"&matricula&"','"&usuario&"','"&id_dep&"','"&hora_completa&"','"&data_completa&"','"&descricao&"')"
Set conexao= server.CreateObject("ADODB.Connection")
dsn = "d:\web\insite3d\dados\sigesa.mdb"
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dsn& ";"
Set rsVerifica = conexao.Execute("Select matricula from lotacao Where matricula= "+matricula+" AND nm_func='"+usuario+"' AND id_dep='"+id_dep+"' ")
If rsVerifica.EOF <> True Then
set rs=conexao.execute(sql)
set rs=Nothing
set rs2=conexao.execute(sql2)
set rs2=Nothing
response.Redirect("confirmacao_solicitacao.htm")
Else
Response.write "<p> </p>"
response.write "<p><center><img src='http://www.aspecto.net/sigesa/imagens/logopeq.gif'></center>"
response.write "<br>"
Response.Write "<center><strong><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Dados incorretos!</font></strong></center><p><center><img src='http://www.aspecto.net/sigesa/imagens/gif/fechar.gif'</img></center>"
Response.End
End If
%>
Parece estar certinho, mas tá dando erro.
Edição feita por: Lengrat, 17/10/2003, 00:08.