illescas

Oi, pessoal, estou de volta. Bem tentei outras alternativas para resolver o problema e não consegui. Pensei muito a respeito do assunto e acho melhor reescrever a parte do código que grava as informações no Banco de Dados. Se alguém puder me ajudar. Lehí

Victor, te enviei um e-mail ontem, com um arquivo zipado com os arquivos das páginas do script. T+, Lehí

Victor, desculpe, mas continua retornando o mesmo erro: Microsoft VBScript compilation error '800a0401' Expected end of statement /incluir_script.asp, line 5 conn.execute "insert into produto (ref, categoria, nome, descr, medidas, preço, foto) values ('"&request.form("sRef")&"', '"&request.form("sCategoria")&"', '"&request.form("sNome&")"', '"&request.form("sDescr&")"', '"&request.form("sMedida")&"', "&request.form("sPreco")&", '"&request.form("sFoto")&"')" Você não quer verificar direto no próprio site, se quiser posso te passar para o teu e-mail o site e as páginas para você fazer um teste. Lehí

conn.execute "insert into produto (ref, categoria, nome, descr, medidas, preço, foto) values ('"&request.form("sRef")&"', '"&request.form("sCategoria")&"', '"&request.form("sNome&")"', '"&request.form("sDescr&")"', '"&request.form("sMedida")&"', '"&request.form("sPreco")&"', '"&request.form("sFoto")&"')" Esse nome dos campos de texto, estão certos com os request...Certo? Os campos do BD são: COD - REF - CATEGORIA - NOME - DESCR - MEDIDAS - preço - FOTO O "COD" está definido com auto-numeração; "REF - CATEGORIA - NOME - MEDIDAS - FOTO" estão definidos como texto; "DESCR" está definido como memorando; "preço" está definido como número. Lehí -

Oi Victor, beleza, coloquei as alterações que você sugeriu e deu este resultado: Microsoft VBScript compilation error '800a0401' Expected end of statement /incluir_script.asp, line 5 conn.execute "insert into produto (ref, categoria, nome, descr, medidas, preço, foto) values ('"&request.form("sRef")&"', '"&request.form("sCategoria")&"', '"&request.form("sNome&")"', '"&request.form("sDescr&")"', '"&request.form("sMedida")&"', '"&request.form("sPreco")&"', '"&request.form("sFoto")&"')" Infelizmente ainda não deu, mas acredito que agora deva estar mais fácil, para você que entende bem do assunto. Obrigado, aguardo seu parecer, Lehí

Olá pessoal, eu acho que está difícil de resolver desta forma se alguém se habilitar e quiser cobrar para me ajudar a resolver o problema, vamos conversar. Obrigado, Lehí

O sistema já rodava, o servidor é ASP e aceita BD Access. Já foi feito teste no provedor e está tudo ok. Ele lê o BD, mas não consegue gravar. Veja o script incluir_script.asp: <%@ Language=VBScript %> <% Option Explicit Response.Expires = -1500 Dim upl, caminho, nome_foto, nI Dim sFoto Set upl = Server.CreateObject("SoftArtisans.FileUp") upl.OverWriteFiles = True caminho = "/fotos" upl.Path = Server.MapPath(caminho) If (upl.IsEmpty = 0) and (trim(upl.form("manter_enviar")) <> "M") Then upl.Save If trim(upl.form("hdn_submit")) = "1" then If trim(upl.form("manter_enviar")) = "" or trim(upl.form("manter_enviar")) = "E" Then If (upl.IsEmpty = 0) Then nome_foto = upl.UserFileName For nI = Len(nome_foto) to 0 step -1 If Mid(nome_foto, nI - 1, 1) = "\" Then Exit For Next sFoto = Mid(nome_foto, nI, Len(nome_foto)) Else sFoto = "" End If Else sFoto = upl.Form("path_foto_server") End If End If Dim sRef, sNome, sCategoria, sDescr, sMedida, sPreco sRef = trim(ucase(upl.form("ref"))) sNome = trim(ucase(upl.form("nome"))) sCategoria = trim(ucase(upl.form("categoria"))) sDescr = trim(ucase(upl.form("descr"))) sMedida = trim(ucase(upl.form("medida"))) sPreco = trim(ucase(upl.form("preço"))) Dim strConn, sSQL, objRS, objConn set objConn = Server.CreateObject ("ADODB.Connection") strConn = "DSN=acasadascadeiras; Database=cadeiras" objConn.Open strConn sSQL = "insert into produto (ref, categoria, nome, descr, medidas, preço, " sSQL = sSQL & "foto) values (" sSQL = sSQL & "'" & sRef & "', " sSQL = sSQL & "'" & sCategoria & "', " sSQL = sSQL & "'" & sNome & "', " sSQL = sSQL & "'" & sDescr & "', " sSQL = sSQL & "'" & sMedida & "', " sSQL = sSQL & "'" & sPreco & "', " sSQL = sSQL & "'" & sFoto & "')" set objRS = objConn.Execute(sSQL) Set upl = Nothing response.redirect("admin.asp") response.end %> Não foi mudado nada neste arquivo Lehí

Preciso de ajuda no código de acesso ao BD de uma loja virtual, quando tento inserir informações e imagem para o BD dá o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /incluir_script.asp, line 63. O script está certo, não mexi nele quando alterei o design, só alterei na página de inclusão as categorias que acrescentei, sendo que no código geral não restringe as categorias. Não sei o que fazer consultei alguém que entende bem de ASP e ele não cnseguiu resolver o problema. Preciso disso urgente. Lehí Illescas