Jump to content

  2. → regitronic's Content

regitronic's Content

There have been 23 items by regitronic (Search limited from 28/04/2023)


Tipos

See this member's

Ordernar por                Order  

#995869 Firewall Outpost Pro

Posted by regitronic on 03/03/2010, 14:23 in IIS & PWS

Pessoal alguem sabe me falar quais são os arquivos que preciso desbloquear do IIS? A empresa que trabalho comprou o outpost Pro 2009 para instalar no servidor, antes de instalar o IIS rodava tudo certo mas agora o OutPost ta bloqueando. Alguem consegue me ajuda?


#993995 Ler Txt E Atualizar Banco

Posted by regitronic on 09/02/2010, 07:21 in ASP

então, este terceiro eu tentei usar, beleza ele mostro o conteudo do txt mas eu não sei como selecionar a primeira linha, para atualizar o bd, se eu selecionar a primeira linha e colocar ela numa variavel e so dar split depois para seleconar antes e depois do | correto!?


#993958 Ler Txt E Atualizar Banco

Posted by regitronic on 08/02/2010, 15:30 in ASP

Pessoal Estou tentando fazer um campo de atualização no banco de dados desta forma:

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

Boa noite pessoal,
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

claro,
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 um sistema em aspe um bd em access, estou com um problema.
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

fala humberto então, após muito quebrar a cabeça vi que estava no nome que atribui a variavel mail.body que no caso é mail, após alterar para corpo o e-mail foi enviado com um pequeno porem, ele não está recuperando os valores no bd, na celula da tabela onde deveriam aparece os valores do bd estão aparecendo response.write rs("nome")....sabe como resolver isso? o codigo completo ficou assim.

<!--#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&"          &nbsp;</td>"
corpo = corpo&"<td>"
corpo = corpo&"                     response.Write rs(""nome"")"
corpo = corpo&"&nbsp;</td>"
corpo = corpo&"       <td>"
corpo = corpo&"           	   response.Write rs(""quantidade"")"
corpo = corpo&"         &nbsp;</td>"
corpo = corpo&" <td>"
corpo = corpo&" response.Write 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 = "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

cara eu fiz assim mas num deu certo:
<!--#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&"          &nbsp;</td>"
mail = mail&"        <td><% response.Write rs("nome") %>"
mail = mail&"          &nbsp;</td>"
mail = mail&"        <td><% response.Write rs("quantidade") %>"
mail = mail&"          &nbsp;</td>"
mail = mail&"        <td><% response.Write rs("valor") %>"
mail = mail&"          &nbsp;</td>"
mail = mail&"      </tr>"
mail = mail&"      <tr>"
                   <% rs.MoveNext 	
				   loop %>
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"      </tr>"
mail = mail&"    </table></td>"
mail = mail&"  </tr>"
mail = mail&"  <tr>"
mail = mail&"    <td height="19" bgcolor="#003466">&nbsp;</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")&&"
          &nbsp;</td>
<td>"
mail = mail&        response.Write rs("nome")&&"
&nbsp;</td>
       <td>"
mail = mail&	   response.Write rs("quantidade")&&"
         &nbsp;</td>
 <td>"
mail = mail& response.Write rs("valor")&&"
       &nbsp;</td>
 </tr>
<tr>"
                   rs.MoveNext 	
				   loop 
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"        <td>&nbsp;</td>"
mail = mail&"      </tr>"
mail = mail&"    </table></td>"
mail = mail&"  </tr>"
mail = mail&"  <tr>"
mail = mail&"    <td height=""19"" bgcolor=""#003466"">&nbsp;</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

vo quer criar um sistema de autenticação é isso?


#987584 Inserir Dados No Aspmail

Posted by regitronic on 26/11/2009, 09:56 in Componentes relacionados a ASP

Gente eu num sei como inserir dados recuperados do BD no body do AspMail. Olha so eu tenho este codigo de envio.

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") %>
            &nbsp;</td>
          <td><% response.Write rs("nome") %>
            &nbsp;</td>
          <td><% response.Write rs("quantidade") %>
            &nbsp;</td>
          <td><% response.Write rs("valor") %>
            &nbsp;</td>
        </tr>
        <tr><% rs2.MoveNext
		loop %>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table></td>
    </tr>
    <tr>
      <td height="19" bgcolor="#003466">&nbsp;</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

Gente eu to tentando enviar um form por aspmail, o problema e q eu preciso enviar uma copia para um e-mail e uma copia para outro e-mail sendo que um e-mail e fixo e um e-mail retorna de uma text field. Quando mando um response.write(request.form("mail")) beleza ele imprime na tela o valor que ta dentro da text mail, mas quando do nome a variavel destino = request.form("mail") dai num vai, so manda o e-mail para o e-mail fixo o codigo está a baixo:

<%

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

aewwwwwwwwwwwwwwwww valeuuu cara! adaptei o seu codigo pro meu deu certinhoo abraçoss e brigadoo


#986437 [Resolvido] Select Max NãO Passa Do 10

Posted by regitronic on 17/11/2009, 15:43 in ASP

sim, o valor que e gerado no select é mostrado em uma text field que e inserida no banco em outra pagina, o porem e que quando é gerado o valor na text box quando chega no 10 ele num gera mais, ele gera normal 1,2,3,4,5,6,7,8,9,10 mas num gera 11,12,13,14..... tendeu?


#986427 [Resolvido] Select Max NãO Passa Do 10

Posted by regitronic on 17/11/2009, 14:34 in ASP

Gente usei o select max para gerar numero sequenciais e gravar no BD mas quando chega no 10 ele so grava 10,10,10,10 num passa pro 11 alguem sabe pq?
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

tente dar nomes diferentes as SQL, tive um problema semelhante a esse e o meu codigo esta assim com as SQL no msm nome ai troquei por SQL1 SQL2 e etc e foi


#986112 Retornar Todos Os Valores Encontrados No Select Sem Criar Paginação

Posted by regitronic on 13/11/2009, 09:01 in ASP

galera seguinte
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") %>&nbsp;</td>
			<td><% response.Write rs("nome") %>&nbsp;</td>
			<td><% response.Write rs("quantidade") %>&nbsp;</td>
			<td><% response.Write rs("valor") %>&nbsp;</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

então diego deu certo aqui consegui fazer agora estou com uma outra dúvida vou postar em um outro topico. brigadãoo cara


#986026 [Resolvido] Gerar Numero Sequencial

Posted by regitronic on 12/11/2009, 13:04 in ASP

mas como ficaria? eu coloquei no meu codigo aqui mas ta dando erro "O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado."


#985921 [Resolvido] Gerar Numero Sequencial

Posted by regitronic on 11/11/2009, 16:09 in ASP

Boa Tarde pessoal,

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

Gente um dilema grande aqui
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

vlwss
consegui brigado


#985246 [Resolvido] Comando Update NãO Funciona

Posted by regitronic on 04/11/2009, 12:44 in ASP

Gente estou tentando atualizar campos em um banco de dados so que não vai. O codigo não da erro nem nda mas não atualiza tb

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

Bom dia pessoal,

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&"'")

%>



  1. Fórum WMO
  2. → regitronic's Content
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq