regitronic

Queria tirar uma duvida! Tenho o IIS e arquivos asp que acessam banco de dados local. Ate ai tudo bem. Porem agora preciso que ao invez do banco de dados ser local o banco de dados ser online, ou seja em outra maquina. O servidor do banco de dados eu tenho acesso fisico, está com Windows Server 2008 e Sql Server 2008. Eu consigo conectar de qualquer lugar com o banco atraves do Managemente Studio, mas com o asp não consegui. Tendei da seguinte forma: SET Conexao = Server.CreateObject("ADODB.Connection") Conexao.open "Provider=SQLOLEDB.1;Password=***;Persist Security Info=True;User ID=login;Initial Catalog=base;Data Source=ipdoservidor\Instancia SQL

Bom dia Pessoal, Estou com um problema aqui, olha so preciso rodar um sistema offline para que possa ser emitidos pedidos sem a utilização de internet. Inicialmente minha ideia foi Deixar um banco de dados online em SQL Server, sei que é possivel fazer uma conexao remota (IIS no computador e conectar em um BD online) E deixar um banco de dados offline em Access pois e um banco que não exige instalar basicamente nada no computador e atenderia o que eu preciso. Porem estou com um problema: Agora tentei estabelecer uma conexao com os dois bancos para puxar os dados do SQL para o ACCESS e está dando erro na hora de gravar no access estou fazendo da seguinte maneira: Conexão com ACCESS (arquivo: conecta.asp): <% constr=server.mappath("bd1.mdb") banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}" set conexao=server.createobject("adodb.connection") conexao.open banco %> Conexão com SQL Server (arquivo: sql.asp): <%SET sql = Server.CreateObject("ADODB.Connection") sql.open "Provider=SQLOLEDB.1;Password=010203;Persist Security Info=True;User ID=login;Initial Catalog=base;Data Source=INTERNET-1\REGITRONIC"%> Arquivo de transação: <!--#include file="sql.asp"--> <% set bc = sql.execute("SELECT cod_loja,valor FROM preco62")%> <!--#include file="conecta.asp"--> <% do while not bc.eof codigo = bc.Fields("cod_loja").Value valor = bc.Fields("valor").Value set rs = conexao.execute("UPDATE FROM preco62 SET valor='"&valor&"' WHERE cod_loja="&codigo&"") bc.movenext loop %> ERRO: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE. /atualiza.asp, line 9

consegui pessoal, eu tinha me esquecido de colocar soma = soma +...... então o valor não somava com o valor anterior agora deu certo

Bom dia Pessoal, Estou com um treco pra faze e num tenho ideia de como, Olha so tenho uma tabela no BD na qual a pessoa faz pedidos de produtos. Nessa tabela tenho a coluna quantidade (valor exato) e valor (3,75 - 4,25 - 4 - 4,01 etc..) eu preciso pegar estes valores e na hora que a pessoa for inserir o produto aparece uma tela de confirmação, se a pessoa confirmar o sistema insere no bd o codigo do produto o nome do produto o vendedor a quantidade e o valor, eu preciso que nesse momento ele multiplique os valores quantidade e valor e insira estes valores na coluna totaliza do BD... alguém pode me ajudar?

olha so eu fiz exatamente assim: <% set pr = conexao.execute("SELECT * FROM area_restrita WHERE login='"&request.QueryString("nome")&"'") vl = pr.Fields("tabela").Value set valor = conexao.execute("SELECT * FROM "&vl&" WHERE cod_loja=('"& request.Form("cd") &"')") set nome = conexao.execute("SELECT * FROM produtos WHERE cod_loja=('"& request.Form("cd") &"')") set ri = conexao.execute("INSERT INTO controle_acesso (usuario, data, hora, pagina) VALUES ('"&request.QueryString("nome")&"', '"&date&"', '"&time&"', 'ADICIONOU PRODUTO AO PEDIDO')") %> erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /insereproduto.asp, line 40 Coloquei aspas simples: erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na consulta. Cláusula de consulta incompleta. /insereproduto.asp, line 40 Mandei um response.write no pr e o valor veio certo mas não consigo coloca-lo dentro da outra SQL

Gente tem com eu fazer um select tp assim, se o usuario 1 estiver logado selecionar a tabela X, se o usuario 2 estiver logado seleciona a tabe Y? porque tp no meu bd de usuarios tem umas condições, o usuario login na coluna tabela do bd tem o valor preço1 Se eu fizer: tabela = response.write rs("tabela") SELECT * FROM '"&tabela&"' WHERE codigo='"&codigo&"' mas deu erro!

Boa Tarde Pessoal, Olha so, tenho em uma tela uma tabela assim PEDIDO Nº l STATUS l 45 l Aguardando Transmição l TRANSMITIR 48 l Aguardando Transmição l TRANSMITIR 51 l Aguardando Transmição l TRANSMITIR 54 l Aguardando Transmição l TRANSMITIR os números dos pedidos estão inseridos em uma text field (de nome pedido1) disabled, e em uma text field tipo texto so que hidden(de nome pedido), e a palavra TRANSMITIR, é um botão tipo subimit, tudo isso inserido dentro de uma form, porem as linhas de baixo da tabela são geradas por repetição, do while, então todas as text fields saem com o mesmo nome.O que acontece e que quando a pessoa clica no botão de TRANSMITIR o sistema busca todos os pedidos que tem o status ="Aguardando Transmição", o que preciso é que, quando a pessoa clique no TRANSMITIR da primeira linha, o sistema busque os dados referentes ao pedido da primeira linha (no caso 45) e assim por diante, coloquei o codigo ARQUIVO DE CONEXAO COM O BANCO <% constr=server.mappath("bd1.mdb") banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}" set conexao=server.createobject("adodb.connection") conexao.open banco %> ARQUIVOS QUE MOSTRA OS PEDIDOS: <!--#include file="conecta.asp"--> <% on error resume next %> <% If IsEmpty(Session("login")) Then Response.redirect("index.asp") End if %> <% set rs = conexao.execute("SELECT * FROM pedidos_arquivados WHERE status='Aguardando Transmição'") %> <style type="text/css"> <!-- .style20 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; } .style21 {font-size: 10px} --> </style> <title>Sistema de Pedidos Regitronic</title><table width="800" height="408" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="1" rowspan="26" bgcolor="#003466"><div align="right"></div></td> <td height="135" colspan="3"><img src="top.jpg" width="800" height="135" /></td> <td width="4" rowspan="26" bgcolor="#003466"> </td> </tr> <tr> <td width="36"><div align="center"></div></td> <td width="725"><div align="center"> <!--#include file="menu.asp"--> </div></td> <td width="39"><div align="center"><a href="logout.asp"></a></div></td> </tr> <tr> <td> </td> <td> </td> <td> </td> </tr> <tr> <td height="57" colspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="23%" class="style20"><div align="center">PEDIDO Nº </div></td> <td width="46%" class="style20"><div align="center">STATUS</div></td> <td width="31%" class="style20"><div align="center">TRANSMITIR</div></td> </tr> <tr> <% do while not rs.eof%> <td colspan="3"><form id="form1" name="form1" method="post" action="body.asp?nome=<% response.Write(request.querystring("nome")) %>"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <td width="23%"><div align="center"> <label> <input name="pedidov" type="text" disabled="on" class="style21" id="pedidov" value="<% response.write rs("pedido") %>" size="10" /> </label> <input name="pedido" type="hidden" class="style21" id="pedido" value="<% response.write rs("pedido") %>" size="10" /> </div></td> <td width="46%"><div align="center"> <% response.Write rs("Status") %> </div></td> <td width="31%"><label> <div align="center"> <input name="Submit" type="submit" class="style20" value="Transmitir" /> </div> </label></td> </tr> <% rs.movenext loop %> <tr> <td> </td> <td> </td> <td> </td> </tr> </table> </form> <label></label> <div align="center"></div></td> </tr> </table> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> </tr> <tr> <td height="19" colspan="3" bgcolor="#003466"> </td> </tr> <tr> <td height="19" colspan="3" bgcolor="#003466"> </td> </tr> </table> <% set rs=nothing set rc=nothing%> ARQUIVO QUE ENVIA O E-MAIL: <!--#include file="conecta.asp"--> <% on error resume next %> <% pedido = request.Form("pedido") set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&pedido&"'") corpo = corpo&"<style type=""text/css"">" corpo = corpo&"<!--" corpo = corpo&".style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }" corpo = corpo&".style3 {" corpo = corpo&" color: #FFFFFF;" corpo = corpo&" font-family: Verdana, Arial, Helvetica, sans-serif;" corpo = corpo&" font-weight: bold;" corpo = corpo&" font-size: 36px;" corpo = corpo&"}" corpo = corpo&".style5 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; }" corpo = corpo&"-->" corpo = corpo&"</style>" corpo = corpo&" <table width=""800"" height=""529"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" corpo = corpo&" <tr>" corpo = corpo&" <td height=""135"" bgcolor=""#003466""><div align=""center""><span class=""style3"">ATACADO REGITRONIC </span></div></td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>" corpo = corpo&" <td height=""347""><table width=""100%"" border=""1"" align=""center"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">" corpo = corpo&" <tr>" corpo = corpo&" <td width=""13%""><div align=""center"" class=""style2"">CODIGO</div></td>" corpo = corpo&" <td width=""59%""><div align=""center"" class=""style2"">NOME</div></td>" corpo = corpo&" <td width=""17%""><div align=""center"" class=""style2"">QUANTIDADE</div></td>" corpo = corpo&" <td width=""11%""><div align=""center"" class=""style2"">VALOR</div></td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>" corpo = corpo&" <td>"& do while not rs.eof corpo = corpo&rs("codigo") corpo = corpo&" </td>" corpo = corpo&" <td>"&rs("nome") corpo = corpo&" </td>" corpo = corpo&" <td>"&rs("quantidade") corpo = corpo&" </td>" corpo = corpo&" <td>"&rs("valor") corpo = corpo&" </td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>"&rs.MoveNext corpo = corpo& loop corpo = corpo&" <td> </td>" corpo = corpo&" <td> </td>" corpo = corpo&" <td> </td>" corpo = corpo&" <td> </td>" corpo = corpo&" </tr>" corpo = corpo&" </table></td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>" corpo = corpo&" <td height=""19"" bgcolor=""#003466""> </td>" corpo = corpo&" </tr>" corpo = corpo&" </table>" set mail = server.createObject("Persits.MailSender") mail.from = " mail" mail.fromname = "nome" mail.addAddress request.Form("mail") mail.addAddress "mail" mail.Subject = "titulo" Mail.Body = corpo mail.ishtml = true On Error Resume Next mail.send if Err ><0 then response.write "Erro, não pode completar a operação" else response.redirect("inicial.asp") end if set mail = nothing %>

E aiw pessoal, fiz um form pra manda por e-mail porem o codigo está dando erro, é assim ele busca dados no bd e envia por e-mail, quando eu tiro o do while not e o loop beleza o e-mail vai certinho porem mostra so o primeiro registro do bd e eu preciso q ele envie todos os registros encontrados, o codigo é o a abaixo: <!--#include file="conecta.asp"--> <% set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&request.QueryString("num_pedido")&"' AND cod_cliente='"&request.QueryString("cod")&"' AND vendedor='"&request.QueryString("nome")&"'") corpo = corpo&" <style type=""text/css""> " corpo = corpo&" <!--" corpo = corpo&" .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }" corpo = corpo&" -->" corpo = corpo&" </style>" corpo = corpo&" <table width=""800"" height=""529"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" corpo = corpo&" <tr>" corpo = corpo&" <td height=""135""><img src=""http://www.regitronic.com.br/config/imagens_conteudo/padrão/logo.gif"" width=""800"" height=""135"" /></td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>" corpo = corpo&" <td height=""347""><table width=""100%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">" corpo = corpo&" <tr>" corpo = corpo&" <td width=""13%""><div align=""center"" class=""style2"">CODIGO</div></td>" corpo = corpo&" <td width=""59%""><div align=""center"" class=""style2"">NOME</div></td>" corpo = corpo&" <td width=""17%""><div align=""center"" class=""style2"">QUANTIDADE</div></td>" corpo = corpo&" <td width=""11%""><div align=""center"" class=""style2"">VALOR</div></td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>" corpo = corpo&" <td>" corpo = corpo& do while not rs.eof corpo = corpo&rs("codigo") corpo = corpo&" &nbsp;</td>" corpo = corpo&"<td>" corpo = corpo&rs("nome") corpo = corpo&"&nbsp;</td>" corpo = corpo&" <td>" corpo = corpo&rs("quantidade") corpo = corpo&" &nbsp;</td>" corpo = corpo&" <td>" corpo = corpo&rs("valor") corpo = corpo&" &nbsp;</td>" corpo = corpo&" </tr>" corpo = corpo&"<tr>" corpo = corpo&rs.MoveNext corpo = corpo& loop corpo = corpo&" <td>&nbsp;</td>" corpo = corpo&" <td>&nbsp;</td>" corpo = corpo&" <td>&nbsp;</td>" corpo = corpo&" <td>&nbsp;</td>" corpo = corpo&" </tr>" corpo = corpo&" </table></td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>" corpo = corpo&" <td height=""19"" bgcolor=""#003466"">&nbsp;</td>" corpo = corpo&" </tr>" corpo = corpo&" </table>" set mail = server.createObject("Persits.MailSender") mail.host = "smtp.meuserver.com.br" mail.username = "contato@meuserver.com.br" mail.password = "123" mail.from = "e-mail@meuserver.com.br" mail.fromname = "Meu Nome" mail.addAddress request.Form("mail") mail.addAddress "e-mail@meuserver.com.br" mail.Subject = "assnto" Mail.Body = corpo mail.ishtml = true On Error Resume Next mail.send if Err ><0 then response.write "Erro, não pode completar a operação" else response.redirect("inicial.asp") end if set mail = nothing %> ERRO: