- Fórum WMO
- → cidadao_cane's Content
cidadao_cane's Content
There have been 94 items by cidadao_cane (Search limited from 29/04/2023)
#339443 Desabilitar Um Input Type="text"
Posted by cidadao_cane on 12/04/2004, 14:42 in ASP
ai vai,
disabled="disabled"
valeu
#337870 Session (como Fazer Isso?)
Posted by cidadao_cane on 10/04/2004, 16:24 in ASP
só que os itens selecionados vão para uma session e não para um BD.
Quando o visitante fecha o navagedor os itens desaparecem, por isso acho que seu exemplo não daria para o que quero, ou dá?
valeu hein!
#337689 Session (como Fazer Isso?)
Posted by cidadao_cane on 10/04/2004, 14:06 in ASP
quero é selecionar os itens ( todos ou alguns) e depois de clicado o item fica marcado como selecionado. Sem a opção de selecionar novamente.
isso numa paginação.
Valeu
#337577 Session (como Fazer Isso?)
Posted by cidadao_cane on 10/04/2004, 10:49 in ASP
eu estou precisando fazer o seguinte:
O visitante faz uma busca e aparece os resultados e aí tem um check box para ele selecionar os itens, quando ele clica no check box o item que ele selecionou é enviado para uma session e um response.redirect mostra no lugar do check box "item selecionado" e assim com todos os itens selecionados naquela página, até ai tudo bem, só que quando ele vai para a próxima página e retorna volta o check box e não "item selecionado".
Como fazer para que o item que ele selecinou fique mostrando "item selecionado" e só mostrar o check box (do item selecionado) quando ele encerrar a session (fechar o navegador)?
Acho que é isso.
Valeu
#334564 Configurar O Iis 5 No Xo Profissional
Posted by cidadao_cane on 06/04/2004, 17:55 in ASP
bom, o que está acontecendo é que essa sua aplicação esta tentando enviar e-mail. E se você não configurar o smtp do IIS e sua aplicação não usar o CDONTS, você não vai conseguir.
Testa o arquivo nos seu server que não dará esse erro ( a menos claro que seu srever não tenha suporte para o componente de e-mail que sua aplicação esta usando.)
Esta tudo funcionando beleza com seu BD, abra seu BD e verá que esta lá o que esta tentando postar(a menos que sua aplicação precise de comfirmação do e-mail para cadastrar o post no BD).
Obs: sempre que tiver dúvidas e/ou problema, poste o erro, assim resolverá seu problema mais rapidinho.
ValeuPara instalar o CDONTS siga os passos abaixo, não tem erro.
retirado do site aspbrasil.com.br
CDONTS - instalação
por: Silvio Mota Lima
Eu tive problemas com página asp para envio de email (dava a msg: seqüência de classes inválidas na linha do objeto CDONTS). Vi em diversos foruns e não consegui a resposta e, também, vi que a dúvida é geral, espero poder ter ajudado.
Obtenha a CDONTS.DLL no link:
http://crt.doce.lsu..../Lesson29a.html
Download CDONTS.DLL into: c:\windows\system32
BAixar CDONTS.DLL na pasta: c:\windows\system32
Registor cdonts.dll
Registro da cdonts.dll
Go in to DOS (Start->All Programs->Accessories->Command Prompt)
Vá para o prompt do DOS (iniciar/arquivo de programas/acessórios/Comando do prompt)
Go to the System32 Folder (at the blinking cursor type: CD \windows\system32 and hit [Enter])
Vá para a pasta System32 (no cursor piscante digite: CD\Windows\system32 e tecle enter
At the blinking cursor type: RegSvr32 cdonts.dll
No cursor digite regsvr32 cdonts.dll
Your Done!
Pronto! Você conseguiu.
#334424 Configurar O Iis 5 No Xo Profissional
Posted by cidadao_cane on 06/04/2004, 15:24 in ASP
Os scripts asp funcionam deste que não tenha bd envolvido, mas pra que alguém quer asp sem DB?
Desculpe não tinha visto esta parte do tópico. Bom se o problema é BD, deve estar dando algum erro. Veja o caminho para o BD.
Tem que funcionar, no meu, não mexi em nada de permissões e funciona legal, muito bom e bem melhor que o PWS.
O BD esta na mesma pasta dos arquivos?
Espero estar contrubuindo,
valeu
#334416 Configurar O Iis 5 No Xo Profissional
Posted by cidadao_cane on 06/04/2004, 15:16 in ASP
tem certeza que IIS esta instalado?
painel de controle>adicionar...>adicionar remover componentes Windows>IIS
se ja estiver instalado, veja isso>
veja se ele esta iniciado ou parado Meu computador...>gerenciar>IIS>propriedades> e veja se esta INICIAR ou PARAR
valeu
#334400 Configurar O Iis 5 No Xo Profissional
Posted by cidadao_cane on 06/04/2004, 14:55 in ASP
bom, considerando que IIS esta instalado, faz assim (eu faço assim)
Na pasta que estão os arquivos clique com botão direito e escolha > compartilhamento e segurança>clique na aba compartilhamento na web> selecione COMPARTILHAR ESTA PASTA > dê um nome. Va no navegador e digite http://localhost/nome que colocou/default.asp.
Não é necessário colocar no WWWROOT. Aí é so apontar o caminho do BD para a pasta onde esta os arquivos e o BD (dentro da pasta em que compartilha).
Continunado....
para configurar clique com botao direito em MEU COMPUTADOR escolha gerenciar va em INTERNTE INFORMATION SERVICE e em SITES da WEB clique em propriedades e defina algums coisas.como: ativar documento padrão(default.asp, index.sp, default.html, index.html...) erros , permissões enfim!
Quer enviar e-mail do PC?, instale a DLL do CDONTS (acho que no aspbrasil.com.br tem um passo-a-passo infalível) no smtp padrão já instalado junto com IIS botão direito propriedades e faça as configurações do IP...
Acho que é isso!
valeu
#331714 Select Para Selecionar Por Data
Posted by cidadao_cane on 03/04/2004, 17:03 in ASP
Brigadão pela ajuda.
Bom, eu quero mostrar dados de um BD, por data postada ou seja. Ultimos 03 dias, 02 dias e etc. O DateDiff faz isso, certo?
como eu coloco ele no select.
Esse é meu select
objRs.Open "SELECT * FROM dados WHERE dadosDate, objConn, 3, 1,
eu tenho dois campo da data no BD o dadosdate e mostrardata, onde entra o DateDiff.
Valeu
#331608 Select Para Selecionar Por Data
Posted by cidadao_cane on 03/04/2004, 15:40 in ASP
Ola Killing,o esquema da data, use o DateDiff() para fazer últimos dias etc...
a do Cyber eh de hj...
tem como me passar um exemplo?
Valeu
#331395 Select Para Selecionar Por Data
Posted by cidadao_cane on 03/04/2004, 10:41 in ASP
Data/Hora
Aproveitando: quero fazer um request de um imput de name= "mail"
e um de name= "headline" num form que name= "dados"
basta fazer Request.Form("mail")? ou tem que colocar o nome do form tb? não esta dando certo aqui!!!
Bom, eu consegui mostrar os dados de hoje, mas os dados de 03, 10,30 dias não estou conseguindo.
Valeu
#331389 Select Para Selecionar Por Data
Posted by cidadao_cane on 03/04/2004, 10:20 in ASP
deu esse erro:
Tipo de erro:
Microsoft JET Database Engine (0x80040E07)
Tipo de dados imcompatível na expressão de critério.
Linha do erro:
objRs.Open "SELECT * FROM dados WHERE dadosDate = ' " & date() & "'", objConn, 3, 1
Valeu
#331354 Select Para Selecionar Por Data
Posted by cidadao_cane on 03/04/2004, 08:49 in ASP
como fazer um select para selecionar por data? tipo ultimos 02 dias, 10 dias, HOJE e por ai afora...
Valeu
#329327 Como Consertar Esse Erro?
Posted by cidadao_cane on 31/03/2004, 13:16 in ASP
sim, retornou o mesmo erro.
aproveitando, isso não esta certo, não é?
rsMail.Open "SELECT * FROM MailingList WHERE MailingAddy='" & eAddy & "' AND Mailingsim='" & eSim & "'", conn
mailSQL = "INSERT into MailingList (MailingAddy, Mailingsim) VALUES ('" & eAddy & eSim & "');"
Dá este erro "Microsoft JET Database Engine (0x80040E14)
Número de valores da consulta e campos de destino não coincidem."
Valeu
#329268 Como Consertar Esse Erro?
Posted by cidadao_cane on 31/03/2004, 11:27 in ASP
não deu certo. Se você quiser pegar o codigo e ver se resolve, é uma newsletter bem legal.
Igluon Newsletter
Valeu
#329221 Como Consertar Esse Erro?
Posted by cidadao_cane on 31/03/2004, 10:31 in ASP
Olá cybermixo erro esta ocorrendo porque a conexao esta fechada.
qual o valor de my_conn?
este é o connection onde tem o my_conn
<%
Dim my_Conn, dbPath
dbPath = "C:\novo\teste\news\1\newsletter\igluonnewsletter.mdb"
Set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
'Uncheck the remark if you are using a dsnless connection
'my_Conn.Open "igluon1"
%>
Agora, quando coloca a opção para enviar para todos os e-mails ele envia, o problema é quando escolhe o grupo para enviar, aí dá o erro acima.
Valeu
#329048 Como Consertar Esse Erro?
Posted by cidadao_cane on 30/03/2004, 21:44 in ASP
Não estou conseguindo resolver esse problema. O componente original do scripts para envio de e-mail é o CDONTS, só que o server não dá suporte, então tive que colocar o JMAIL. Esta dando erro abaixo.
Error Type:
(0x80004005)
Unspecified error
/newsletter/send.asp, line 103
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = my_conn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockPessimistic
Rs.Source = "News_History"
Rs.Open
' Add a new record
Rs.AddNew
Rs("Sentto") = Request.Form("Group_Number")
Rs("Message") = Session("message")
' Update the record
Rs.Update
Rs.movelast
' Retrive the ID
Dim newsletterID
newsletterID = Rs("ID")
' Close the RecordSet
Rs.Close
Set Rs = Nothing
%>
<font size="2" face="Arial">
<B><%=newsletterID%></B>
<%="<br><bR>"%>
<%
' Declaring variables
Dim rs_sendmail, mail, subject, static_message, sql_select, no, sql_condition
If request.form("Group_number") = 0 then
sql_select = "select * from Newsletter"
Else
sql_condition = request.form("Group_Number")
sql_select = "Select * from newsletter where Section = " & sql_condition
End if
no = 0
subject = Request.Form("subject")
message = Session("message")
' Adding a link to all messages by which users can delete their emails
' if they want later
static_message = "<a href=""http://yourdomain.co...del.asp?email="
Set rs_sendmail = Server.CreateObject("ADODB.Recordset")
linha 103> rs_sendmail.Open sql_select, my_conn
While Not rs_sendmail.EOF
Set Mail = Server.CreateObject("JMail.SMTPMail")
Mail.ServerAddress = "smtp.qual.com.br"
Mail.Sender = "contato@qual.com.br"
Mail.AddRecipient rs_sendmail("email")
Mail.Subject = Request.Form("subject")
Mail.Body = session("message") & "<BR>" & static_message & rs_sendmail("email") & """" & ">To remove your self from our mailing list please click here</a>"
Mail.Execute
Response.Write "Email sent to : " & rs_sendmail("email") & "<br>"
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "Emails sent to " & no & " users."
rs_sendmail.Close
Set rs_sendmail = Nothing
my_Conn.Close
Set my_Conn = Nothing
Session.abandon
%>
ESta aqui é parte com CDONTS, que é original do código.
<%
' Declaring variables
Dim rs_sendmail, mail, subject, static_message, sql_select, no, sql_condition
If request.form("Group_number") = 0 then
sql_select = "select * from Newsletter"
Else
sql_condition = request.form("Group_Number")
sql_select = "Select * from newsletter where Section = " & sql_condition
End if
no = 0
subject = Request.Form("subject")
message = Session("message")
' Adding a link to all messages by which users can delete their emails
' if they want later
static_message = "<a href=""http://yourdomain.co...del.asp?email="
Set rs_sendmail = Server.CreateObject("ADODB.Recordset")
rs_sendmail.Open sql_select, my_conn
While Not rs_sendmail.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = "youremail@yourdomain.com"
mail.To = rs_sendmail("email")
mail.Subject = Request.Form("subject")
Mail.BodyFormat = 0
Mail.MailFormat = 0
mail.Body = session("message") & "<BR>" & static_message & rs_sendmail("email") & """" & ">To remove your self from our mailing list please click here</a>"
mail.Send
Set mail = Nothing
Response.Write "Email sent to : " & rs_sendmail("email") & "<br>"
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "Emails sent to " & no & " users."
rs_sendmail.Close
Set rs_sendmail = Nothing
my_Conn.Close
Set my_Conn = Nothing
Session.abandon
%>
Se alguém puder me ajudar.
valeu
#326392 Como Cruzar Informações Entre Bds?
Posted by cidadao_cane on 27/03/2004, 09:52 in ASP
bom, mas as informações estão em BDs diferentes. Tipo:
por ex: as infomações do candidato esta em um BD e as das empresas estão em outro.
Valeu ae
#325783 Como Cruzar Informações Entre Bds?
Posted by cidadao_cane on 26/03/2004, 14:23 in ASP
Tenho dois BDs Acess, como fazer para cruzar as informações e mostrar o resultado de acordo com a busca. Tipo:
BD1 Fulano é vendedor ,25 anos, e tem experiência em informática
BD2 empresa precisa de um vendedor com idade acima de 25 anos e com experiencia em informática.
Como cruzar essas informações e avisar para Fulano que empresa tal busca candidato com seu perfil e vice-versa?
É muito complicado, ou uma incrementação na busca resolve?
Alguém poderia me dar uma luz?
P.S. Fiz uma busca no fórum por: cruzar dados, comparar dados e comparar perfil e não retornou nada.
Valeu
#325174 If No Response.write
Posted by cidadao_cane on 25/03/2004, 20:36 in ASP
Ih, então não tem jeito?
Bom, o quero (queria) é algo assim:
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
conteudo = split(session("selecao"), "-")
for each item in conteudo
sql = "SELECT * FROM class where id = " & item
set rs = objConn.execute(sql)
response.write "<table width=95% border=0 cellspacing=1 cellpadding=0 bgcolor=>"
response.write "<tr>"
response.write "<td bgcolor=#FF9600>" & item & "<BR>" & rs("empresa") & "<BR>" & rs("texto") & "<BR>" & rs("data") & "If rs("Yes")= "" Then "<a href='mailto:" & ObjRs("mail") & " ' > Else & "não autorizado" End If
response.write "</td>"
response.write "</tr>"
response.write "</table>"
next
%>
Vou expicar o que quero: O visitante seleciona o que quer(o que achou mais interessante), dai que selecionou vai uma SESSION (ver.asp), nesta pagina gostaria de colocar os emails disponiveis (autorizados), so teria os e-emails autorizados. Tenho no BD a opção de mostar ou não o e-mail. por isso preciso do IF, dentro da minha ignorância ASP, deduzi que isso só seria possivel dentro do RESPONSE.WRITE acima.
Já vi que não dá! Tudo bem.
valeu
#325121 If No Response.write
Posted by cidadao_cane on 25/03/2004, 19:41 in ASP
Olá cybermix,o certo seria assim amigo
If rs("Yes")= "" Then response.write "<a href='mailto:" & ObjRs("mail") & " ' >" Else response.write "não autorizado" End If
na verdade eu tava querendo fazer no proprio response.write, dentro daquele script de session que me passou.
Valeu
#325059 If No Response.write
Posted by cidadao_cane on 25/03/2004, 18:02 in ASP
Cmo colocar o If no response.write? tipo:
response.write "If rs("Yes")= "" Then "<a href='mailto:" & ObjRs("mail") & " ' > Else & "não autorizado" End If
Valeu
#324714 Adicionar Varios Itens Em Em Session
Posted by cidadao_cane on 25/03/2004, 12:13 in ASP
Perfeito. Muito obrigado!!!!
valeu
#324687 Adicionar Varios Itens Em Em Session
Posted by cidadao_cane on 25/03/2004, 11:34 in ASP
Olá cybermix,ai vai a ver.asp melhorada =D
ve se vai funcionar. e qq duvida é só perguntar<!--#include file="config5.asp"--> <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn conteudo = split(session("selecao"), "-") for each item in conteudo "SELECT * FROM class where id = " & item set rs = conexao.execute(sql) response.write "<table width=95% border=0 cellspacing=1 cellpadding=0 bgcolor=>" response.write "<tr>" response.write "<td bgcolor=#FF9600>" & item & "<BR>" & rs("empresa") & "<BR>" & rs("texto") & "<BR>" & rs("data") response.write "</td>" response.write "</tr>" response.write "</table>" next %>
deu esse erro:
Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0400)
Instrução esperada
/vagas/novo/ver_.asp, line 9
"SELECT * FROM class where id = " & item
valeu
#324669 Adicionar Varios Itens Em Em Session
Posted by cidadao_cane on 25/03/2004, 11:17 in ASP
Olá cybermix,em vez de colocar todo o conteudo na secao como eu fiz:
coloca o id
da na pagina de exibir voce da um select no banco de dados e exibe os dados selecionados como faz uma exibicao normal dos dados de um banco de dados ok?
Muito obrigado. O resultado já esta bom pra mim.
Mas como quero aprender um pouco mais, vou colocar o que fiz para sua apreciação:
add.asp?selecao=<%=ObjRs("ID")%>
e na pagina VER.ASP coloquei assim:
<!--#include file="config5.asp"-->
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open strConn
objRs.Open "SELECT ID, Titulo, empresa, data, texto FROM class ORDER BY Data DESC, ID DESC", objConn, 3, 1
conteudo = split(session("selecao"), "-")
for each item in conteudo
response.write "<table width=95% border=0 cellspacing=1 cellpadding=0 bgcolor=>"
response.write "<tr>"
response.write "<td bgcolor=#FF9600>" & item
response.write "</td>"
response.write "</tr>"
response.write "</table>"
next
%>
Só que aparece somente o numero do ID e não todo conteudo. Deu certo assim:
add.asp?selecao=<%=ObjRs("ID")%><br><%=ObjRs("empresa")%><br><%=ObjRs("texto")%><br><%=ObjRs("data")%>
<%
conteudo = split(session("selecao"), "-")
for each item in conteudo
response.write "<table width=95% border=0 cellspacing=1 cellpadding=0 bgcolor=>"
response.write "<tr>"
response.write "<td bgcolor=#FF9600>" & item
response.write "</td>"
response.write "</tr>"
response.write "</table>"
next
%>
Como quero aprender, se quiser continuar me ajudando.
Já sou muito grato.
Valeu.
- Fórum WMO
- → cidadao_cane's Content
- Privacy Policy
- Regras ·