Problemas Com Bd...

[Ghosty]

eu n entendo, eu crio o código supondo q seja uma coisa simples e na hora de rodar da erro, ele tava funcionando tranquilamente tudo q eu fiz foi adicionar mais uns termos na string de sql e nada mais!

a minha string sql ficou bem extensa isso é a unica coisa q me passa pela cabeça...

eu quiz fazer um código q armazena os campos de um formulário no bd e depois envia via e-mail, tava tudo funcionando...

ai vai o código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Expires = 0 
Dim objConn, objRs, strQuery, strConnection,nomerep,nomecli,cnpj,data,radio,check,frut,cons,bac,vin,tem,mon,tipoo,bor,out,nome,qtd,qtdcx,valor,un,des,desconto,investimento,inv,investotal,invtot,fattotal,fatliquido,jus,menu,corpo,conprod1,conmar1,conpre1,conprod2,conmar2,conpre2,conprod3,conmar3,conpre3, loja, emb
loja=request.form("loja")
emb=request.Form("emb")
conprod2=request.Form("conprod2")
conmar2=request.Form("conmar2")
conpre2=request.Form("conpre2")
conprod3=request.Form("conprod3")
conmar3=request.Form("conmar3")
conpre3=request.Form("conpre3")
conprod1=request.Form("conprod1")
conmar1=request.Form("conmar1")
conpre1=request.Form("conpre1")
tipoo=request.Form("tipoo")
radio=request.Form("radiobutton")
menu=request.Form("menu")
nomerep=request.Form("nomerep")
nomecli=request.Form("nomecli")
cnpj=request.Form("cnpj")
data=request.Form("data")
check=request.Form("check")
frut=request.Form("frut")
cons=request.Form("cons")
bac=request.Form("bac")
vin=request.Form("vin")
tem=request.Form("tem")
mon=request.Form("mon")
bor=request.Form("bor")
out=request.Form("out")
nome=request.Form("nome")
qtd=request.Form("qtd")
qtdcx=request.Form("qtdcx")
un=request.Form("un")
valor=request.Form("valor")
des=request.Form("des")
des=Round(des,2)
des=replace(des,".",",")
desconto=request.Form("desconto")
investimento=request.Form("investimento")
inv=request.Form("inv")
inv=Round(inv,2)
inv=replace(inv,".",",")
investotal=request.Form("investotal")
investotal=Round(investotal,2)
investotal=replace(investotal,".",",")
invtot=request.Form("invtot")
invtot=Round(invtot,2)
invtot=replace(invtot,".",",")
fattotal=request.Form("fattotal")
fattotal=Round(fattotal,2)
fattotal=replace(fattotal,".",",")
fatliquido=request.Form("fatliquido")
fatliquido=Round(fatliquido,2)
fatliquido=replace(fatliquido,".",",")
jus=request.Form("jus")
cond=request.Form("cond")
if menu="Outro - Escrever ao lado -->" then
menu=tipoo
else
menu=menu
end if

'Cria o objeto RecordSet e atribui a variável 
Set objConn =  Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("/c/invbd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Insere os dados na tabela aberta
strQuery = "INSERT INTO pedido (nomerep,desconto,investimento,menu,fatliquido,jus,nome,loja,emb,conprod2,conmar2,conpre2,conprod3,conmar3,conpre3, conprod1,conmar1,conpre1,tipoo,radio,nomecli,cnpj,data,check,frut,cons,bac,vin,tem,mon,bor,out,qtd,qtdcx,un,valor,des,inv, investotal,invtot,fattotal,cond) VALUES ('"&nomerep&"','"&desconto&"','"&investimento&"','"&menu&"', '"&fatliquido&"', '"&jus&"', '"&nome&"', '"&loja&"', '"&emb&"', '"&conprod2&"', '"&conmar2&"', '"&conpre2&"', '"&conprod3&"', '"&conmar3&"', '"&conpre3&"', '"&conprod1&"', '"&conmar1&"', '"&conpre1&"', '"&tipoo&"', '"&radio&"', '"&nomecli&"', '"&cnpj&"', '"&data&"', '"&check&"', '"&frut&"', '"&cons&"', '"&bac&"', '"&vin&"', '"&tem&"', '"&mon&"', '"&bor&"', '"&out&"', '"&qtd&"', '"&qtdcx&"', '"&un&"', '"&valor&"', '"&des&"', '"&inv&"', '"&investotal&"', '"&invtot&"', '"&fattotal&"', '"&cond&"')"
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa a inserção no Banco de Dados 
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Página enviada com Sucesso!</title>

<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style></head>

<body>
<%
Set objMail = Server.CreateObject("Persits.MailSender")
loja=request.form("loja")
emb=request.Form("emb")
conprod2=request.Form("conprod2")
conmar2=request.Form("conmar2")
conpre2=request.Form("conpre2")
conprod3=request.Form("conprod3")
conmar3=request.Form("conmar3")
conpre3=request.Form("conpre3")
conprod1=request.Form("conprod1")
conmar1=request.Form("conmar1")
conpre1=request.Form("conpre1")
tipoo=request.Form("tipoo")
radio=request.Form("radiobutton")
menu=request.Form("menu")
nomerep=request.Form("nomerep")
nomecli=request.Form("nomecli")
cnpj=request.Form("cnpj")
data=request.Form("data")
check=request.Form("check")
frut=request.Form("frut")
cons=request.Form("cons")
bac=request.Form("bac")
vin=request.Form("vin")
tem=request.Form("tem")
mon=request.Form("mon")
bor=request.Form("bor")
out=request.Form("out")
nome=request.Form("nome")
qtd=request.Form("qtd")
qtdcx=request.Form("qtdcx")
un=request.Form("un")
valor=request.Form("valor")
des=request.Form("des")
des=Round(des,2)
des=replace(des,".",",")
desconto=request.Form("desconto")
investimento=request.Form("investimento")
inv=request.Form("inv")
inv=Round(inv,2)
inv=replace(inv,".",",")
investotal=request.Form("investotal")
investotal=Round(investotal,2)
investotal=replace(investotal,".",",")
invtot=request.Form("invtot")
invtot=Round(invtot,2)
invtot=replace(invtot,".",",")
fattotal=request.Form("fattotal")
fattotal=Round(fattotal,2)
fattotal=replace(fattotal,".",",")
fatliquido=request.Form("fatliquido")
fatliquido=Round(fatliquido,2)
fatliquido=replace(fatliquido,".",",")
jus=request.Form("jus")
cond=request.Form("cond")
strlista="vendas@uniagro-ind.com.br;logistica@uniagro-ind.com.br;comercial@uniagro-ind.com.br"
email="logistica@uniagro-ind.com.br"
if menu="Outro - Escrever ao lado -->" then
menu=tipoo
else
menu=menu
end if
if frut=checkbox then
frut=""
else
frut="Sim"
end if
if cons=checkbox then
cons=""
else
cons="Sim"
end if
if bac=checkbox then
bac=""
else
bac="Sim"
end if
if vin=checkbox then
vin=""
else
vin="Sim"
end if
if tem=checkbox then
tem=""
else
tem="Sim"
end if
if mon=checkbox then
mon=""
else
mon="Sim"
end if
if bor=checkbox then
bor=""
else
bor="Sim"
end if
if out=checkbox then
out=""
else
out="Sim"
end if
corpo = "<!DOCTYPE HTML PUBLIC "& chr(34) &"-//W3C//DTD HTML 4.01 Transitional//EN"& chr(34) &" "& chr(34) &"http://www.w3.org/TR/html4/loose.dtd"& chr(34) &"><html><head><meta http-equiv="& chr(34) &"Content-Type"& chr(34) &" content="& chr(34) &"text/html; charset=iso-8859-1"& chr(34) &">"
corpo = corpo & "<title>Sucesso!</title></head><body><div align="& chr(34) &"center"& chr(34) &"><font face="& chr(34) &"Verdana, Arial, Helvetica, sans-serif"& chr(34) &" size="& chr(34) &"+2"& chr(34) &" color="& chr(34) &"#666666"& chr(34) &">Investimento"& data &" </font></div>"
corpo = corpo & "<hr><table width="& chr(34) &"624"& chr(34) &" border="& chr(34) &"0"& chr(34) &" align="& chr(34) &"center"& chr(34) &"><tr><td width="& chr(34) &"207"& chr(34) &"><strong>Nome do Representante:</strong></td><td colspan="& chr(34) &"5"& chr(34) &">"& nomerep &"</td></tr><tr><td><strong>Nome do Cliente: </strong></td>"
corpo = corpo & "<td colspan="& chr(34) &"5"& chr(34) &">"& nomecli &"</td></tr><tr><td><strong>Lojas:</strong></td><td width="& chr(34) &"57"& chr(34) &">"& loja &"</td><td width="& chr(34) &"114"& chr(34) &"><strong>Check-outs:</strong></td><td width="& chr(34) &"106"& chr(34) &">"& check &"</td><td width="& chr(34) &"50"& chr(34) &"><strong>CNPJ:</strong></td>"
corpo = corpo & "<td width="& chr(34) &"152"& chr(34) &">"& cnpj &"</td></tr></table><div align="& chr(34) &"center"& chr(34) &"></div><hr><div align="& chr(34) &"center"& chr(34) &"><font size="& chr(34) &"+1"& chr(34) &"><strong>Produtos Cadastrados</strong><br></font></div><font size="& chr(34) &"2"& chr(34) &"><table width="& chr(34) &"632"& chr(34) &" border="& chr(34) &"0"& chr(34) &" align="& chr(34) &"center"& chr(34) &">"
corpo = corpo & "<tr><td width="& chr(34) &"88"& chr(34) &"><strong>Frutas Secas: </strong></td><td width="& chr(34) &"74"& chr(34) &">"& frut &"</td><td width="& chr(34) &"83"& chr(34) &"><strong>Temperos:</strong></td><td width="& chr(34) &"76"& chr(34) &">"& tem &"</td><td width="& chr(34) &"77"& chr(34) &"><strong>Conservas:</strong></td>"
corpo = corpo & "<td width="& chr(34) &"68"& chr(34) &">"& cons &"</td><td width="& chr(34) &"64"& chr(34) &"><strong>Borges:</strong></td><td width="& chr(34) &"68"& chr(34) &">"& bor &"</td></tr><tr><td><strong>Bacalhau:</strong></td><td>"& bac &"</td><td><strong>Monde:</strong></td><td>"& mon &"</td>"
corpo = corpo & "<td><strong>Vinhos:</strong></td><td>"& vin &"</td><td><strong>Outros:</strong></td><td>"& out &"</td></tr></table></font><hr><table width="& chr(34) &"631"& chr(34) &" border="& chr(34) &"0"& chr(34) &" align="& chr(34) &"center"& chr(34) &"><tr><td width="& chr(34) &"132"& chr(34) &"><strong>Nome do Produto: </strong></td>"
corpo = corpo & "<td width="& chr(34) &"182"& chr(34) &">"& nome &"</td><td width="& chr(34) &"146"& chr(34) &"><strong>Embalagem:</strong></td><td width="& chr(34) &"153"& chr(34) &">"& emb &"</td></tr><tr><td><strong>Pre&ccedil;o do Produto: </strong></td><td>"&"R$"& valor &"</td><td><strong>Qtd:</strong></td>"
corpo = corpo & "<td>"& qtd &"</td></tr><tr><td><strong>Unidades:</strong></td><td>"& un &"</td><td><strong>Condi&ccedil;&atilde;o:</strong></td><td>"& radio &"</td></tr><tr><td><strong>Desconto(%):</strong></td><td>"& desconto &"%"&"</td><td><strong>Desconto(R$):</strong></td>"
corpo = corpo & "<td>"&"R$"& des &"</td></tr><tr><td><strong>Investimento(%):</strong></td><td>"& inv &"%"&"</td><td><strong>Investimento(R$):</strong></td><td>"&"R$"& investimento &"</td></tr><tr><td><strong>Invest. Total(%):</strong></td><td>"& invtot &"%"&"</td><td><strong>Invest. Total(R$):</strong></td>"
corpo = corpo & "<td>"&"R$"& investotal &"</td></tr><tr><td><strong>Fat. Bruto:</strong></td><td>"&"R$"& fattotal &"</td><td><strong>Fat. L&iacute;quido: </strong></td><td>"&"R$"& fatliquido &"</td></tr><tr><td>&nbsp;</td><td><div align="& chr(34) &"center"& chr(34) &"><strong>Tipo de Investimento: </strong></div></td>"
corpo = corpo & "<td colspan="& chr(34) &"2"& chr(34) &">"& menu &"</td></tr></table><hr><div align="& chr(34) &"center"& chr(34) &"><font size="& chr(34) &"+1"& chr(34) &"><strong>Justificativa do Investimento</strong></font></div><br><center><textarea name="& chr(34) &"textarea"& chr(34) &" cols="& chr(34) &"80"& chr(34) &" rows="& chr(34) &"4"& chr(34) &" readonly>"& jus &"</textarea>"
corpo = corpo & "</center><hr><div align="& chr(34) &"center"& chr(34) &"><strong><font size="& chr(34) &"+1"& chr(34) &">Dados da Concorr&ecirc;ncia</font></strong></div><br><table width="& chr(34) &"622"& chr(34) &" border="& chr(34) &"0"& chr(34) &"align="& chr(34) &"center"& chr(34) &"><tr><td width="& chr(34) &"61"& chr(34) &">&nbsp;</td><td width="& chr(34) &"184"& chr(34) &"><div align="& chr(34) &"center"& chr(34) &"><strong>Produto 1 </strong></div></td>"
corpo = corpo & "<td width="& chr(34) &"212"& chr(34) &"><div align="& chr(34) &"center"& chr(34) &"><strong>Produto 2 </strong></div></td><td width="& chr(34) &"223"& chr(34) &"><div align="& chr(34) &"center"& chr(34) &"><strong>Produto 3 </strong></div></td></tr><tr><td height="& chr(34) &"26"& chr(34) &"><strong>Nome:</strong></td><td><div align="& chr(34) &"center"& chr(34) &">"& conprod1 &"</div></td>"
corpo = corpo & "<td><div align="& chr(34) &"center"& chr(34) &">"& conprod2 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conprod3 &"</div></td></tr><tr><td><strong>Marca:</strong></td><td><div align="& chr(34) &"center"& chr(34) &">"& conmar1 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conmar2 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conmar3 &"</div></td></tr>"
corpo = corpo & "<tr><td><strong>Pre&ccedil;o:</strong></td><td><div align="& chr(34) &"center"& chr(34) &">"& conpre1 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conpre2 &"</div></td><td><div align="& chr(34) &"center"& chr(34) &">"& conpre3 &"</div></td></tr></table><hr><div align="& chr(34) &"center"& chr(34) &"><p><strong><font size="& chr(34) &"3"& chr(34) &">Parecer &Aacute;rea Comercial Uniagro</font></strong></p>"
corpo = corpo & "<p><strong><font size="& chr(34) &"3"& chr(34) &">(___) Aprovado Autoriza&ccedil;&atilde;o/Supervis&atilde;o_______________________________Data:___/___/___</font></strong></p><p><strong><font size="& chr(34) &"3"& chr(34) &">(___) Reprovado Autoriza&ccedil;&atilde;o/Gerencia_______________________________Data:___/___/___</font></strong></p></div></body></html>"
  objMail.Host = "mail.sulweb.com.br"
    objMail.Subject = nomeres &" "& data
    objMail.From = "Informatica@uniagro-ind.com.br"
    objMail.FromName = "Web - investimento"
    objMail.AddAddress "informatica@uniagro-ind.com.br"
    objMail.IsHTML = True 
    objMail.Body = corpo
    objMail.Send 
  set objMail = nothing
  if error <> 0 then
response.Redirect("ver.asp")
end if
%>
<center><img src="sent_.gif" width="800" height="400" border="0" usemap="#Map">
  <map name="Map">
    <area shape="poly" coords="259,290,356,220,522,224,525,323,335,335" href="index.asp" target="_self">
  </map>
</center>
</body>
</html>

se alguém puder me ajudar eu agradeço!

[dark0]

Cade a descrição do erro?

[Ghosty]

desculpa esqueci de mensionar...

isso é q é estranho, n da nenhum erro! ele simplesmente fica na página como se nada de errado tivesse acontecido!

[dark0]

Bem, vamos por partes então.

Se você rodar qualquer outro codigo aí, funciona?

Isso, é pra saber se o servidor tá ok.

Depois.. o que seu codigo faz? (ou melhor, o que era pra ele fazer?)

[Ghosty]

o servidor ta tranquilo porque eu rodo outras páginas asp nele, inclusive como você pode perceber esse form tb é enviado via e-mail, e nisso n deu nenhum problema o e-mail chega sem problemas, o q n acontece é a inclusão o banco de dados.

o q eu quero fazer é: armazenar todos aqueles dados no bd e tb enviá-los por e-mail, esse formulário é uma solicitação de investimento, então eu quero q todas as solicitações de investimento sejam guardadas para consulta da área comercial da empresa.

tava funcionando tranquilo ateh eu adicionar outros vários campos na instrução sql.

ai no código houve uma quebra de linha no comando sql, mas no meu arquivo eu n fiz nenhuma quebra de linha foi tudo corrido, sera q pode ser isto??

desde já muito obrigado!