- Fórum WMO
- → regitronic's Content
regitronic's Content
There have been 23 items by regitronic (Search limited from 28/04/2023)
#995869 Firewall Outpost Pro
Posted by regitronic on 03/03/2010, 14:23 in IIS & PWS
#993995 Ler Txt E Atualizar Banco
Posted by regitronic on 09/02/2010, 07:21 in ASP
#993958 Ler Txt E Atualizar Banco
Posted by regitronic on 08/02/2010, 15:30 in ASP
Tenho um arquivo do tp TXT da seguinte maneira
codigo_do_produto|valor
Eu preciso que o sistema leia esse TXT e atualize a base de dados.
Eu tentei ja de varias formas mas não consegui, eu nunca fiz isso então se alguem puder ajudar.
#991192 Duvidas Sobre Banco De Dados
Posted by regitronic on 02/01/2010, 22:23 in ASP
Mais uma vez recorro a vocês para solucionar uma duvida, na verdade duvidas:
1- Tenho um banco de dados em access, eu consigo conectar nele externamente. Seria mais ou menos assim, tenho o IIS no meu pc e o banco ficaria armazenado em um servidor online digamos que www.meudominio.com.br. Eu consigo realizar uma conexão com esse banco de dados? Li em algums lugares que não, seria somente possível com MySql ou SQL Server. Alguem sabe me dizer com certeza??
2-Caso seja so possivel com MySql e Sql Server, terei de fazer muitas modificações no meu sistema para utilizar outra base se dados (No caso sair do Access e ir para o MYSQL)?
3-Caso seja possivel apenas em MySql ou Sql Server como seria essa conexão?
#991191 [Resolvido] Checkbox
Posted by regitronic on 02/01/2010, 22:17 in ASP
e essa checkbox habilitava a função inadimplencia, quando marcada ela deveria bloquear a criação de pedidos. Quando você pede para uma checkbox gravar o seu valor no bd quando ela está habilitada (checked) ela grava o valor "on" sem aspas no bd. Quando desmarcada (unchecked) ela não grava nda.
Então o que fiz foi uma consição if que segue abaixo
if response.write rs("inadi") = "on" response.redirect("cod_abrecliente.asp?msg=Cadastro de pedidos bloqueados, cliente com pendências financeiras." end if
OBS: Não coloquei uma função else pois se estiver desmarcada ela grava um valor NULL então para simplificar fiz apenas assim, caso o valor seja num o codigo passa para a pagina de pedidos normalmente.
#991005 [Resolvido] Checkbox
Posted by regitronic on 30/12/2009, 08:52 in ASP
Tenho uma checkbox no meu formulario e ela precisa gravar um valor para checked e outro para unchecked, e depois preciso recupera-la e não tenho a minima ideia de como fazer isso.
Por exemplo se checked gravar 1 e se unchecked gravar 2. E como faço depois para recupera-la?
resolvido pessoal consegui atraves de uma condição if
#987773 Inserir Dados No Aspmail
Posted by regitronic on 27/11/2009, 08:21 in Componentes relacionados a ASP
<!--#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=""top.jpg"" 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&" response.Write rs(""codigo"")" corpo = corpo&" </td>" corpo = corpo&"<td>" corpo = corpo&" response.Write rs(""nome"")" corpo = corpo&" </td>" corpo = corpo&" <td>" corpo = corpo&" response.Write rs(""quantidade"")" corpo = corpo&" </td>" corpo = corpo&" <td>" corpo = corpo&" response.Write rs(""valor"")" corpo = corpo&" </td>" corpo = corpo&" </tr>" corpo = corpo&"<tr>" corpo = corpo&" 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.host = "smtp.meuserver.com.br" mail.username = "teste@meuserver.com.br" mail.password = "minha senha" mail.from = " nome@meuserver.com.br" mail.fromname = "Meu Nome" mail.addAddress request.Form("mail") mail.addAddress "e-mail@meuserver.com.br" mail.Subject = "meu assunto" 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 %>
#987637 Inserir Dados No Aspmail
Posted by regitronic on 26/11/2009, 13:29 in Componentes relacionados a ASP
<!--#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")&"'") %> mail = mail&" <style type="text/css"> " mail = mail&" <!--" mail = mail&" .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }" mail = mail&" -->" mail = mail&" </style>" mail = mail&"<table width="800" height="529" border="0" align="center" cellpadding="0" cellspacing="0">" mail = mail&" <tr>" mail = mail&" <td height="135"><img src="top.jpg" width="800" height="135" /></td>" mail = mail&" </tr>" mail = mail&" <tr>" mail = mail&" <td height="347"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">" mail = mail&" <tr>" mail = mail&" <td width="13%"><div align="center" class="style2">CODIGO</div></td>" mail = mail&" <td width="59%"><div align="center" class="style2">NOME</div></td>" mail = mail&" <td width="17%"><div align="center" class="style2">QUANTIDADE</div></td>" mail = mail&" <td width="11%"><div align="center" class="style2">VALOR</div></td>" mail = mail&" </tr>" mail = mail&" <tr>" mail = mail&" <td><% do while not rs.eof %>" mail = mail&" <% response.Write rs("codigo") %>" mail = mail&" </td>" mail = mail&" <td><% response.Write rs("nome") %>" mail = mail&" </td>" mail = mail&" <td><% response.Write rs("quantidade") %>" mail = mail&" </td>" mail = mail&" <td><% response.Write rs("valor") %>" mail = mail&" </td>" mail = mail&" </tr>" mail = mail&" <tr>" <% rs.MoveNext loop %> mail = mail&" <td> </td>" mail = mail&" <td> </td>" mail = mail&" <td> </td>" mail = mail&" <td> </td>" mail = mail&" </tr>" mail = mail&" </table></td>" mail = mail&" </tr>" mail = mail&" <tr>" mail = mail&" <td height="19" bgcolor="#003466"> </td>" mail = mail&" </tr>" mail = mail&" </table>" <% strHost = "smtp.regitronic.com.br" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = "diniz@regitronic.com.br" Mail.FromName = "Atacado Regitronic" Mail.AddAddress Request.form("mail") Mail.AddCC "diniz@regitronic.com.br" Mail.Subject = "Seu pedido no Atacado Regitronic foi Recebido" Mail.Body = mail Mail.Send Response.Write "Sucesso!" End If %>fica cheio de mail = mail&" a pagina
correção fiz assim agora
<!--#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")&"'") %> <% mail = mail&" <style type=""text/css""> " mail = mail&" <!--" mail = mail&" .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }" mail = mail&" -->" mail = mail&" </style>" mail = mail&" <table width=""800"" height=""529"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" mail = mail&" <tr>" mail = mail&" <td height=""135""><img src=""top.jpg"" width=""800"" height=""135"" /></td>" mail = mail&" </tr>" mail = mail&" <tr>" mail = mail&" <td height=""347""><table width=""100%"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">" mail = mail&" <tr>" mail = mail&" <td width=""13%""><div align=""center"" class=""style2"">CODIGO</div></td>" mail = mail&" <td width=""59%""><div align=""center"" class=""style2"">NOME</div></td>" mail = mail&" <td width=""17%""><div align=""center"" class=""style2"">QUANTIDADE</div></td>" mail = mail&" <td width=""11%""><div align=""center"" class=""style2"">VALOR</div></td>" mail = mail&" </tr>" mail = mail&" <tr>" mail = mail&" <td>" do while not rs.eof mail = mail& response.Write rs("codigo")&&" </td> <td>" mail = mail& response.Write rs("nome")&&" </td> <td>" mail = mail& response.Write rs("quantidade")&&" </td> <td>" mail = mail& response.Write rs("valor")&&" </td> </tr> <tr>" rs.MoveNext loop mail = mail&" <td> </td>" mail = mail&" <td> </td>" mail = mail&" <td> </td>" mail = mail&" <td> </td>" mail = mail&" </tr>" mail = mail&" </table></td>" mail = mail&" </tr>" mail = mail&" <tr>" mail = mail&" <td height=""19"" bgcolor=""#003466""> </td>" mail = mail&" </tr>" mail = mail&" </table>" %> <% strHost = "com.br" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = "" Mail.FromName = "" Mail.AddAddress Request.form("mail") Mail.AddAddress "" Mail.Subject = "" Mail.Body = mail Mail.Send Response.Write "Sucesso!" End If %>
aparece:
Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado
/enviamail.asp, line 26, column 51
mail = mail& response.Write rs("codigo")&&"
--------------------------------------------------^
#987599 Autenticação Via Formulário
Posted by regitronic on 26/11/2009, 10:33 in ASP
#987584 Inserir Dados No Aspmail
Posted by regitronic on 26/11/2009, 09:56 in Componentes relacionados a ASP
Codigo de Envio:
<% strHost = "smtp.meuserver.com.br" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "diniz@meuserver.com.br" Mail.FromName = "Assunto" Mail.AddAddress Request.form("mail") Mail.AddCC "diniz@meuserver.com.br" Mail.Subject = "Seu pedido no Atacado Regitronic foi Recebido" Mail.Body = "Dados" Mail.Send Response.Write "Sucesso!" End If %>
e eu preciso que no e-mail sejam enviados os dados recuperados por esta pagina:
pagina:
<!--#include file="conecta.asp"--> <% on error resume next %> <% pedido = request.Form("pedido") set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&pedido&"'") %> <style type="text/css"> <!-- .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; } --> </style> <form id="form1" name="form1" method="post" action="mailto: diniz@regitronic.com.br, "> <table width="800" height="529" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="135"><img src="top.jpg" width="800" height="135" /></td> </tr> <tr> <td height="347"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <td width="13%"><div align="center" class="style2">CODIGO</div></td> <td width="59%"><div align="center" class="style2">NOME</div></td> <td width="17%"><div align="center" class="style2">QUANTIDADE</div></td> <td width="11%"><div align="center" class="style2">VALOR</div></td> </tr> <tr> <td><% do while not rs2.eof %> <% response.Write rs("codigo") %> </td> <td><% response.Write rs("nome") %> </td> <td><% response.Write rs("quantidade") %> </td> <td><% response.Write rs("valor") %> </td> </tr> <tr><% rs2.MoveNext loop %> <td> </td> <td> </td> <td> </td> <td> </td> </tr> </table></td> </tr> <tr> <td height="19" bgcolor="#003466"> </td> </tr> </table> </form>Como faço para fazer os dados recuperados nesta pagina serem enviados para o e-mail?
#986514 Asp Mail
Posted by regitronic on 18/11/2009, 12:55 in Componentes relacionados a ASP
<% destino = request.Form("mail") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "smtp.meuservidor.com.br" Mailer.FromName = "Nome" Mailer.FromAddress = "meuemail@meuservidor.com.br" Mailer.AddRecipient "destino", "e-mail fixo@meuservidor.com.br" Mailer.Subject = "Pedido" Mailer.BodyText = "teste" IF Mailer.SendMail Then response.Write("Pedido Enviado") else response.Write("Erro") & Mailer.Response End If %> <%set Mailer = Nothing%>
o componente está instalado certinho, tanto que para o e-mail que é fixo ele recebe normal. Outra Dúvida como eu faço o e-mail body? pois preciso inserir uma tabela que vai retomar valores do bd. A tabela eu consegui faze ja mas não sei como coloca-la no corpo da msg!
#986485 [Resolvido] Select Max NãO Passa Do 10
Posted by regitronic on 18/11/2009, 09:00 in ASP
#986437 [Resolvido] Select Max NãO Passa Do 10
Posted by regitronic on 17/11/2009, 15:43 in ASP
#986427 [Resolvido] Select Max NãO Passa Do 10
Posted by regitronic on 17/11/2009, 14:34 in ASP
abaixo está o codigo:
<% If IsEmpty(Session("login")) Then Response.redirect("index.asp") End if constr=server.mappath("bd1.mdb") banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}" set conexao=server.createobject("adodb.connection") conexao.open banco set ri = conexao.execute("INSERT INTO controle_acesso (usuario, data, hora, pagina) VALUES ('"&request.QueryString("nome")&"', '"&date&"', '"&time&"', 'cod_abrecliente.asp')") rs2 = conexao.execute("SELECT max(num_pedido) +1 AS cod FROM pedidos") %>
#986425 [Resolvido] Query String
Posted by regitronic on 17/11/2009, 14:29 in ASP
#986112 Retornar Todos Os Valores Encontrados No Select Sem Criar Paginação
Posted by regitronic on 13/11/2009, 09:01 in ASP
tenho uma página que busca ums valores num banco de dados e pelo select ele retorna cerca de 8 valores mas eu coloquei o response.write e ele so retorna 1 valor como faço para mostrar todos os valores encontrados no select?
minha pagina ta assim:
conexão e select 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 rs = conexao.execute("SELECT * FROM pedidos WHERE cod_cliente='"&request.querystring("cod") &"' AND num_pedido='"&request.QueryString("num_pedido")&"' AND vendedor='"&request.QueryString("nome")&"'") %>
retomando valores:
<td><% response.Write rs("codigo") %> </td> <td><% response.Write rs("nome") %> </td> <td><% response.Write rs("quantidade") %> </td> <td><% response.Write rs("valor") %> </td>
não ta dando erro nda mas so ta retornando um valor
#986099 [Resolvido] Gerar Numero Sequencial
Posted by regitronic on 13/11/2009, 08:40 in ASP
#986026 [Resolvido] Gerar Numero Sequencial
Posted by regitronic on 12/11/2009, 13:04 in ASP
#985921 [Resolvido] Gerar Numero Sequencial
Posted by regitronic on 11/11/2009, 16:09 in ASP
Seguinte eu precisava que o sistema gerasse um numero seguencial (1,2,3,4,5,6,7....) sem repetir, mas sem repetir assim, se ele já tiver gerado o numero 1 ele num pode gerar novamente o numero 1 pode ser 11 mas 1 não, eu estou usando um banco de dados, como eu faço isso alguma ideia?
#985651 Insert Com Select
Posted by regitronic on 09/11/2009, 09:56 in Outros Bancos de Dados
Tenho uma tabela com o nome produtos e uma com o nome pedidos.
Tenho uma pagina na qual o vendedor digita o codigo e a quantidade, então o sistema a partir do codigo digitado pelo vendedor tem de buscar o nome e o valor do produto na tabela produtos e inserir estes dados (codigo, nome, quantidade e valor) na tabela pedidos.
Tentei fazer assim mas não deu
<% tabela = request.form("vend") cliente = request.form("cod") produto = request.form("prod") quantidade = request.form("qtd") data = day(now)/month(now)/year(now) nome = ("select nome FROM produtos WHERE codigo='"&produto&"'") valor = ("select valor FROM produtos WHERE codigo='"&produto&"'") set conexao = createobject("AdoDb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("bd1.mdb") conexao.open constr set rs = conexao.execute("insert into pedidos (data, cod_loja, pedido, nome, quantidade, valor) values ("&data&", "&produto&", 1, "&nome&", "&quantidade&", "&valor&"") %>
#985265 [Resolvido] Comando Update NãO Funciona
Posted by regitronic on 04/11/2009, 15:05 in ASP
consegui brigado
#985246 [Resolvido] Comando Update NãO Funciona
Posted by regitronic on 04/11/2009, 12:44 in ASP
Segue abaixo o codigo
<% nome = request.Form("nome") codigo = request.Form("cod") endereco = request.Form("ender") numero = request.Form("numero") bairro = request.Form("bairro") cep = request.Form("cep") cnpj = request.Form("cnpj") constr=server.mappath("bd1.mdb") banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}" set conexao=server.createobject("adodb.connection") conexao.open banco set rs = conexao.execute("Update clientes SET nome=nome, endereco=endereco, numero=numero, bairro=bairro, cep=cep, cnpj=cnpj where codigo=codigo") response.Redirect("inicial.asp") %>
#984878 Busca No Banco De Dados
Posted by regitronic on 30/10/2009, 11:27 in ASP
Sou iniciante nesta area e estou com um problema, eu tenho um banco de dados no qual tem a coluna cod_loja, a coluna nome e a coluna valor, preciso criar um sisteminha de busca que o usuario digite o codigo do produto e retorne na tela o nome do produto e o valor, tentei fazer assim mas não deu certo alguem pode me ajudar?:
<% codigo = request.Form("cod") constr=server.mappath("bd1.mdb") banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}" set conexao=server.createobject("adodb.connection") set rs=server.createobject("adodb.recod") conexao.open banco set rs = conexao.execute("SELECT * nome, codigo FROM produtos WHERE codigo='"&codigo&"'") %>
- Fórum WMO
- → regitronic's Content
- Privacy Policy
- Regras ·