- Fórum WMO
- → Viewing Profile: Posts: regitronic
PostagensCommunity Stats
- Group Usuários
- Active Posts 23
- Profile Views 3331
- Member Title Novato no fórum
- Age Age Unknown
- Birthday Birthday Unknown
-
Sexo
Não informado
0
Neutral
User Tools
Friends
regitronic hasn't added any friends yet.
Latest Visitors
Posts I've Made
In Topic: Ler Txt E Atualizar Banco
09/02/2010, 07:21
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!?
In Topic: [Resolvido] Checkbox
02/01/2010, 22:17
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
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.
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.
In Topic: Inserir Dados No Aspmail
27/11/2009, 08:21
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&" </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
%>
In Topic: Inserir Dados No Aspmail
26/11/2009, 13:29
cara eu fiz assim mas num deu certo:
correção fiz assim agora
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")&&"
--------------------------------------------------^
<!--#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 paginacorreçã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")&&"
--------------------------------------------------^
In Topic: Autenticação Via Formulário
26/11/2009, 10:33
vo quer criar um sistema de autenticação é isso?
- Fórum WMO
- → Viewing Profile: Posts: regitronic
- Privacy Policy
- Regras ·
