Jump to content


cidadao_cane's Content

There have been 94 items by cidadao_cane (Search limited from 29/03/2023)



Ordernar por                Order  

#339443 Desabilitar Um Input Type="text"

Posted by cidadao_cane on 12/04/2004, 14:42 in ASP

Ola,


ai vai,

disabled="disabled"



valeu



#337870 Session (como Fazer Isso?)

Posted by cidadao_cane on 10/04/2004, 16:24 in ASP

Olá,


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

Olá,


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

Pessoal,

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

Olá,

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.

Para 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.

Valeu



#334424 Configurar O Iis 5 No Xo Profissional

Posted by cidadao_cane on 06/04/2004, 15:24 in ASP

Olá,

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

Olá,

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

Olá,

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

Olá killing

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

o esquema da data, use o DateDiff() para fazer últimos dias etc...
a do Cyber eh de hj...

Ola Killing,


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

Ola cybermix,



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

Olá cybermix,


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

Olá pessoal,

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

Ola,


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

olá cybermix,


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

o erro esta ocorrendo porque a conexao esta fechada.

qual o valor de my_conn?

Olá cybermix

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

Pessoal,

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

Olá pessoal,


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

Pessoal,

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

Olá pessoal,


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

o certo seria assim amigo

If rs("Yes")= "" Then 
  response.write "<a href='mailto:" & ObjRs("mail") & " ' >"
Else 
  response.write "não autorizado" 
End If

Olá cybermix,


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

Pessoal,


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

Olá cybermix,


Perfeito. Muito obrigado!!!!






valeu



#324687 Adicionar Varios Itens Em Em Session

Posted by cidadao_cane on 25/03/2004, 11:34 in ASP

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
%>

Olá cybermix,


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

em vez de colocar todo o conteudo na secao como eu fiz:


http://www.seusite.c....asp?nome=carla


coloca o id

http://www.seusite.c...ona.asp?id=5020


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?

Olá cybermix,

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.




IPB Skin By Virteq