Ir para conteúdo
Fórum Script Brasil
  • 0

Me Ajudem Por Favor

illescas

Perguntado por illescas,

 Share

Pergunta

illescas

illescas

Postado
Postado

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

Link para o comentário
Compartilhar em outros sites

25 respostass a esta questão

Posts Recomendados

  • 0
illescas

illescas

Postado
  • Autor
Postado

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í

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

troque isso:

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)

por isso:

sSQL = "insert into produto (ref, categoria, nome, descr, medidas, preço, foto)

sSQL = sSQL & " 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)

tente aí..

t+

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado 

sSQL = "insert into produto (ref, categoria, nome, descr, medidas, preço, foto) values ('"&sRef&"', '"&sCategoria&"', '"&sNome&"', '"&sDescr&"', '"&sMedida&"', '"&sPreco&"', '"&sFoto&"')

Caso tenha mais alguma dúvida, poste ai, espero ter ajudado, qualquer coisa to ae!!! wink.gif

[]'s

Victor

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - illescas -

Guest - illescas -

Postado
Postado

Victor e Dark0, fiz as mudanças sugeridas sem sucesso aparece outro 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

Na linha sugerida (63) tem o seguinte:

set objRS = objConn.Execute(sSQL)

acredito que não esteja executando a instrução. O que eu acho interessante é que o script rodava sem problemas antes e de repente começou a dar este erro. Como não entendo de ASP, relamente não sei oque fazer. Continuo aguardando ajuda. O que mais posso tentar?

Obrigado,

Lehí

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

po

sabe que erro que esta dando?

TIPO DE DADOS INCOMPATIVEIS!

sabe o que é isso?

Do modo que estamos inserindo os dados (a estrutura de aspas das variaveis) é para CAMPOS DO TIPO TEXTO!

No seu banco está tudo como texto? ou tem algum outro tipo?

esse erro é por causa disso!

veja seu banco!

ate mais

Link para o comentário
Compartilhar em outros sites
  • 0
poirot

poirot

Postado
Postado

não quero me intrometer com os feras de asp, mas serah que o banco não ta protegido contra gravacao?

digo isso, porque uma vez tive problema semelhante, (na epoca postava no super asp) e quando fui ver era isso

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado
não quero me intrometer com os feras de asp, mas serah que o banco não ta protegido contra gravacao?

digo isso, porque uma vez tive problema semelhante, (na epoca postava no super asp) e quando fui ver era isso

Pelo codigo retornando na página do cara não é isso não, vou pesquisar um pouco, pois comigo nunca deu esse erro blink.gif

[]'s

Victor

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

bem lembrado poirot!

todos que ajudam aqui são mestres!

você tb é um deles tongue.gif

Claro que todos os que são ajudados tb são mestres

uahauhauah laugh.gif

t+

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Guest

Guest Guest

Postado
Postado

A página que está dando erro está bem acima na 3ª janela, se é que é isto, é do arquivo incluir_script.asp.

Quanto ao BD, não está protegido. Um amigo disse que o contador MID, da parte do código abaixo:

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

dá erro quando retorna ao "0", porque ele é inválido para o segundo parâmetro.

Então troquei a parte do código com o MID, ficando assim:

troquei as linhas 23 e 24 pelo código abaixo:

For nI = Len(nome_foto) to 1 step -1

If Mid(nome_foto, nI , 1) = "\" Then Exit For

e a linha 26:

sFoto = Mid(nome_foto, nI+1, Len(nome_foto)) ,

mas também não adiantou, retornando outro erro.

Também já refiz o BD e não adiantou.

Talvez isto tudo ajude.

Obrigado,

Lehí

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado

Use esse:

conecta.asp

<%
local=Request.ServerVariables("SERVER_NAME")

if local="www.site.com.br" or local="site.com.br" then
	conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\inetpub\site\site.com.br\data\bd.mdb;Persist Security Info=False"
end if

if local="localhost" or local="nome_do_pc" then
	conexao= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\pasta\bd.mdb;Persist Security Info=False"
end if

set conn = Server.CreateObject("adodb.connection")
conn.open conexao
%>
incluir_script.asp 
<!--#include file="conecta.asp"-->
<%set RecSet = server.createobject("adodb.recordset")
if request.form("acao") <> "" then
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")&"')"
response.write "cadastrado"
else
%>
<script language="JavaScript">
<!--
function verificar()
{
var fcad = document.forms[0];
if(fcad.ref.value==0)
{
window.alert("Favor especificar uma REF.");
fcad.ref.focus();
return false;
}

}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#ffffff" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<form method="post" action="incluir_script.asp" enctype="MULTIPART/FORM-DATA" onSubmit="return verificar();">
<input type=hidden name="hdn_submit" value="1">
<table width="440" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="94" height="30"> <div align="center"> 
<p align="center"><img src="logo_pq.jpg" width="84" height="105"><font color="#000080"><b><font face="Arial, Helvetica, sans-serif" size="2"> 
</font></b></font></p>
</div></td>
<td width="350" height="30"><div align="center"><font color="#000080"><b><font face="Arial, Helvetica, sans-serif" size="2">Formul&aacute;rio 
de Inclus&atilde;o de Produtos</font></b></font><br>
<font color="#000080"><b><font face="Arial, Helvetica, sans-serif" size="1">(Administrativo)</font></b></font></div></td>
</tr>
<tr> 
<td height="17" colspan="2"> <div align="right"><a 
href="javascript:history.back()"><font color="#000000"><b><font size="1" face="Verdana, 
Arial, Helvetica, sans-serif">VOLTAR</font></b></font></a></div></td>
</tr>
<tr> 
<td height="20" colspan="2"><font color="#000000">_______________________________________________________</font>
<p></td>
</tr>
<tr> 
<td height="25" colspan="2"> <table width="440" border="0" cellspacing="0" cellpadding="0" height="25">
<tr> 
<td width="188" height="25" align="right"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#000000">ref.:&nbsp; 
</font></b></td>
<td width="252" height="25" align="left"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> 
<input type="text" name="ref" size="10" maxlength="15">
</font></b></td>
</tr>
<tr> 
<td width="188" height="25" align="right"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2">&nbsp;</font><font face="Arial, Helvetica, sans-serif" size="2" color="#000000">&nbsp;Nome 
do Produto:</font></b></font><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2"> 
</font></b></font></td>
<td width="252" height="25" align="left"><font color="#000000"><b></b></font><font color="#000000"><b><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2"> 
</font><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> 
<input type="text" name="nome" size="20" maxlength="30">
</font><font face="Arial, Helvetica, sans-serif" size="2"> </font></b></font><font face="Arial, Helvetica, sans-serif" size="2"> 
</font></b></font></td>
</tr>
</table></td>
</tr>
<tr> 
<td height="25" colspan="2"> <table width="440" border="0" cellspacing="0" cellpadding="0" height="25">
<tr> 
<td width="188" height="25" align="right"><font color="#000000">&nbsp;<b><font size="2" face="Arial, Helvetica, sans-serif">Linha:</font></b> 
</font></td>
<td width="252" height="25"><font color="#000000"> 
<select name="categoria">
<option value="aparadores">Aparadores</option>
<option value="balc&otilde;es">Balc&otilde;es</option>
<option value="banqueta cl&aacute;ssica">Banqueta Cl&aacute;ssica</option>
<option value="banqueta contempor&acirc;nea">Banqueta Contempor&acirc;nea</option>
<option value="cl&aacute;ssica">Cadeira Cl&aacute;ssica</option>
<option value="cadeira escrit&oacute;rio">Cadeira Escrit&oacute;rio</option>
<option value="cadeira madeira">Cadeira Madeira</option>
<option value="cadeira metal">Cadeira Metal</option>
<option value="equipe">Equipe</option>
<option value="estofados">Estofados</option>
<option value="home theater">Home Theater e Racks</option>
<option value="jardim">Jardim</option>
<option value="lazer">Lazer</option>
<option value="acess&oacute;rios lumin&aacute;ria">Lumin&aacute;rias</option>
<option value="mesa apoio">Mesa Apoio/Auxiliar</option>
<option value="mesa centro">Mesa Centro</option>
<option value="mesa jantar">Mesa Jantar</option>
<option value="acess&oacute;rios objetos">Objetos</option>
<option value="piscinas">Piscinas</option>
<option value="poltrona cl&aacute;ssica">Poltrona Cl&aacute;ssica</option>
<option value="poltrona contempor&acirc;nea">Poltrona Contempor&acirc;nea</option>
<option value="sala de estar">Sala de Estar</option>
<option value="sala de jantar">Sala de Jantar</option>
<option value="acess&oacute;rios tapete">Tapetes</option>
</select>
</font></td>
</tr>
<tr> 
<td width="188" height="25" align="right"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2">Medidas:</font></b></font></td>
<td width="252" height="25"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2"> 
<input type="text" name="medida" size="20" maxlength="30">
</font></b></font><font color="#FFFFFF"><b></b></font> <font color="#000000">&nbsp; 
</font></td>
</tr>
</table></td>
</tr>
<tr> 
<td height="25" colspan="2"> <div align="center"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2">Selecione 
a Imagem para Upload:</font></b></font></div></td>
</tr>
<tr> 
<td align="center" height="25" colspan="2"> <font color="#000000"> 
<% If sFoto <> "" Then %>
<a href="mostrar_foto.asp?foto=<%=sFoto%>" target=_blank><%= sFoto %></a>.<br>
<input type="radio" name="manter_enviar" value="M" checked>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Manter ou 
<input type="radio" name="manter_enviar" value="E">
Enviar outra</font>.<br>
<input type="hidden" name="path_foto_server" value="<%= sFoto %>">
<%End If %>
<input type="file" name="foto" maxlength="50" size="25" value="">
</font> </td>
</tr>
<tr> 
<td height="25" colspan="2"> <div align="center"><font color="#000000">&nbsp;<b><font face="Arial, Helvetica, sans-serif" size="2">Descri&ccedil;&atilde;o</font></b></font></div></td>
</tr>
<tr> 
<td height="60" colspan="2"> <div align="center"><font face="Verdana" size="1" color="#000000"> 
<textarea rows="5" name="descr" cols="40"></textarea>
</font></div></td>
</tr>
<tr> 
<td height="25" colspan="2"> </td>
</tr>
<tr> 
<td height="25" colspan="2"> <div align="center"> <font color="#000000"> 
<input type="hidden" name="acao" value="submit"><input type="submit" name="Submit" value="Incluir">
</font></div></td>
</tr>
<tr> 
<td height="25" colspan="2"><font color="#000000">_______________________________________________________</font></td>
</tr>
<tr> 
<td height="25" colspan="2"> <div align="right"><font color="#000000"><a href="javascript:history.back()"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">VOLTAR</font></b></a></font></div></td>
</tr>
</table>
</form>
<%end if
set RecSet = nothing%>

Pegue esse dai...Espero ter ajudado!!! Caso tenha mais alguma dúvida, poste ae que te ajudaremos!!!! wink.gif

[]'s

Victor

Link para o comentário
Compartilhar em outros sites
  • 0
illescas

illescas

Postado
  • Autor
Postado

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í

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado
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í

Esse nome dos campos de texto, estão certos com os request...Certo? huh.gif

[]'s

Victor

Link para o comentário
Compartilhar em outros sites
  • 0
illescas

illescas

Postado
  • Autor
Postado

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í - sad.gif

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado
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í - sad.gif

Tenta isso ae:

<!--#include file="conecta.asp"-->
<%set RecSet = server.createobject("adodb.recordset")
if request.form("acao") <> "" then
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")&"')"
response.write "cadastrado"
else
%>
<script language="JavaScript">
<!--
function verificar()
{
var fcad = document.forms[0];
if(fcad.ref.value==0)
{
window.alert("Favor especificar uma REF.");
fcad.ref.focus();
return false;
}

}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#ffffff" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<form method="post" action="incluir_script.asp" enctype="MULTIPART/FORM-DATA" onSubmit="return verificar();">
<input type=hidden name="hdn_submit" value="1">
<table width="440" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="94" height="30"> <div align="center"> 
<p align="center"><img src="logo_pq.jpg" width="84" height="105"><font color="#000080"><b><font face="Arial, Helvetica, sans-serif" size="2"> 
</font></b></font></p>
</div></td>
<td width="350" height="30"><div align="center"><font color="#000080"><b><font face="Arial, Helvetica, sans-serif" size="2">Formul&aacute;rio 
de Inclus&atilde;o de Produtos</font></b></font><br>
<font color="#000080"><b><font face="Arial, Helvetica, sans-serif" size="1">(Administrativo)</font></b></font></div></td>
</tr>
<tr> 
<td height="17" colspan="2"> <div align="right"><a 
href="javascript:history.back()"><font color="#000000"><b><font size="1" face="Verdana, 
Arial, Helvetica, sans-serif">VOLTAR</font></b></font></a></div></td>
</tr>
<tr> 
<td height="20" colspan="2"><font color="#000000">_______________________________________________________</font>
<p></td>
</tr>
<tr> 
<td height="25" colspan="2"> <table width="440" border="0" cellspacing="0" cellpadding="0" height="25">
<tr> 
<td width="188" height="25" align="right"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#000000">ref.:&nbsp; 
</font></b></td>
<td width="252" height="25" align="left"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> 
<input type="text" name="ref" size="10" maxlength="15">
</font></b></td>
</tr>
<tr> 
<td width="188" height="25" align="right"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2">&nbsp;</font><font face="Arial, Helvetica, sans-serif" size="2" color="#000000">&nbsp;Nome 
do Produto:</font></b></font><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2"> 
</font></b></font></td>
<td width="252" height="25" align="left"><font color="#000000"><b></b></font><font color="#000000"><b><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2"> 
</font><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"> 
<input type="text" name="nome" size="20" maxlength="30">
</font><font face="Arial, Helvetica, sans-serif" size="2"> </font></b></font><font face="Arial, Helvetica, sans-serif" size="2"> 
</font></b></font></td>
</tr>
</table></td>
</tr>
<tr> 
<td height="25" colspan="2"> <table width="440" border="0" cellspacing="0" cellpadding="0" height="25">
<tr> 
<td width="188" height="25" align="right"><font color="#000000">&nbsp;<b><font size="2" face="Arial, Helvetica, sans-serif">Linha:</font></b> 
</font></td>
<td width="252" height="25"><font color="#000000"> 
<select name="categoria">
<option value="aparadores">Aparadores</option>
<option value="balc&otilde;es">Balc&otilde;es</option>
<option value="banqueta cl&aacute;ssica">Banqueta Cl&aacute;ssica</option>
<option value="banqueta contempor&acirc;nea">Banqueta Contempor&acirc;nea</option>
<option value="cl&aacute;ssica">Cadeira Cl&aacute;ssica</option>
<option value="cadeira escrit&oacute;rio">Cadeira Escrit&oacute;rio</option>
<option value="cadeira madeira">Cadeira Madeira</option>
<option value="cadeira metal">Cadeira Metal</option>
<option value="equipe">Equipe</option>
<option value="estofados">Estofados</option>
<option value="home theater">Home Theater e Racks</option>
<option value="jardim">Jardim</option>
<option value="lazer">Lazer</option>
<option value="acess&oacute;rios lumin&aacute;ria">Lumin&aacute;rias</option>
<option value="mesa apoio">Mesa Apoio/Auxiliar</option>
<option value="mesa centro">Mesa Centro</option>
<option value="mesa jantar">Mesa Jantar</option>
<option value="acess&oacute;rios objetos">Objetos</option>
<option value="piscinas">Piscinas</option>
<option value="poltrona cl&aacute;ssica">Poltrona Cl&aacute;ssica</option>
<option value="poltrona contempor&acirc;nea">Poltrona Contempor&acirc;nea</option>
<option value="sala de estar">Sala de Estar</option>
<option value="sala de jantar">Sala de Jantar</option>
<option value="acess&oacute;rios tapete">Tapetes</option>
</select>
</font></td>
</tr>
<tr> 
<td width="188" height="25" align="right"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2">Medidas:</font></b></font></td>
<td width="252" height="25"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2"> 
<input type="text" name="medida" size="20" maxlength="30">
</font></b></font><font color="#FFFFFF"><b></b></font> <font color="#000000">&nbsp; 
</font></td>
</tr>
</table></td>
</tr>
<tr> 
<td height="25" colspan="2"> <div align="center"><font color="#000000"><b><font face="Arial, Helvetica, sans-serif" size="2">Selecione 
a Imagem para Upload:</font></b></font></div></td>
</tr>
<tr> 
<td align="center" height="25" colspan="2"> <font color="#000000"> 
<% If sFoto <> "" Then %>
<a href="mostrar_foto.asp?foto=<%=sFoto%>" target=_blank><%= sFoto %></a>.<br>
<input type="radio" name="manter_enviar" value="M" checked>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Manter ou 
<input type="radio" name="manter_enviar" value="E">
Enviar outra</font>.<br>
<input type="hidden" name="path_foto_server" value="<%= sFoto %>">
<%End If %>
<input type="file" name="foto" maxlength="50" size="25" value="">
</font> </td>
</tr>
<tr> 
<td height="25" colspan="2"> <div align="center"><font color="#000000">&nbsp;<b><font face="Arial, Helvetica, sans-serif" size="2">Descri&ccedil;&atilde;o</font></b></font></div></td>
</tr>
<tr> 
<td height="60" colspan="2"> <div align="center"><font face="Verdana" size="1" color="#000000"> 
<textarea rows="5" name="descr" cols="40"></textarea>
</font></div></td>
</tr>
<tr> 
<td height="25" colspan="2"> </td>
</tr>
<tr> 
<td height="25" colspan="2"> <div align="center"> <font color="#000000"> 
<input type="hidden" name="acao" value="submit"><input type="submit" name="Submit" value="Incluir">
</font></div></td>
</tr>
<tr> 
<td height="25" colspan="2"><font color="#000000">_______________________________________________________</font></td>
</tr>
<tr> 
<td height="25" colspan="2"> <div align="right"><font color="#000000"><a href="javascript:history.back()"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">VOLTAR</font></b></a></font></div></td>
</tr>
</table>
</form>
<%end if
set RecSet = nothing%>

[]'s

Victor

Link para o comentário
Compartilhar em outros sites
  • 0
illescas

illescas

Postado
  • Autor
Postado

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í

Link para o comentário
Compartilhar em outros sites
  • 0
illescas

illescas

Postado
  • Autor
Postado

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í

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

certo amigo..

sempre é bom começar de novo

hehehe

bom, faça o que você sabe..

depois, a gente te ajuda

t+

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...