ursolouco

Eleito o novo moderador, tópico Fechado!! Obrigado e desculpa à todos!!!

Rezo!! Brother, procurei como um louco, mas não achei a documentação sobre este CDOSYS na web. Por a imagen ser um objeto que vai ser exibido no corpo do News, ao meu parecer, não vejo nada de mal em você coloca-la na corpo da mensagem, referenciando com Http://. Mas se sua necessidade é a propriedade, ainda estaremos a procurar... Abraços!! [ursão]

É, pode até ser, mas é que sou um "inergumeno" em javascript. Se fosse asp, dava um reques.form(checkbox), pegava, os valores selecionados, separava com Split(), formatava e montava a string na boa, mas tem que rolar essa parada ai do lado cliente. Mas tá valendo, já ajudou um pouco, valeu diraol. Abraços!! [urso]

Brother!! Diga lá, este *.gif esta sendo puxando de uma pasta (./img/aviso.gif) ou você esta colocando o endereço alocado no servidor (http://www.site.com.br/news/img/aviso.gif) ?

Aspers!!! Se não errei na contagem, acho que é isso acima. Dark0 8 x 8 Victor = Empate Tecnico!! Minerva: Dark0 1 x 0 Victor. Abraços!!

Até sei disso Brother!! Mas acho que não me expressei direito: É tipo asim, ou acho que é: Tem lá um montão de CheckBox...... Os valores selecionados, tem que ser jogados para uma Array(JavaScript) Depois, vou lá e formato os valores, no seguinte estilo: ele formatado, bonitinho, usando aquele esquema e jogo os valores... Compreendes ? ou tenho que chamar o Super 15 (cuéca por cima das calças.... ) ? Abraços!! [urso]

Membros!!! Segundo a votação para ser eleito o novo membro para o cargo de moderador ASP, houve um empate tecnico (seguindo os critérios tecnico [só contado votos dos membros acima de 100 POST] definido pela administração do forum). Como acompanho a seção diaraiamente e estou com muito serviços e afazeres, preciso eleger hoje um novo Moderador e tenho a dificil decisão de dar o voto de 'Minerva' (decidir quem vai ficar no cargo). Se muito a dizer e não vou alterar minha opinião, meu voto de minerva vai para o 'Dark0', justificando que seja maduro, assiduo e possui conhecimentos suficientes para ocupar o cargo. Abraços a todos e 'Victor', muito obrigado pela sua indicação e espero contar com sua ajuda aqui na seção. OBS: Se errei na contagem dos votos (como qualquer ser humano erra) não deixe de postar dizendo e mostrando onde esta meu erro, por favor. Sem mais... [ursolouco]

Antes de encerrar a votação, meu voto vai para Dark0!!! Acredito que seja maduro, assiduo e possui conhecimentos suficientes para ocupar o cargo.

E ai Diraol!! Brother, o que eu sei mesmo é a estrutura, por exemplo: Montei o Form com os Checks e seus respectivos valores, não sei joga-los numa array, não sei sei como (via JavaScript) formatar os valores (tipo: one@one.com, two@two.com, sei@la.com, e assim...) e depois, muito menos ainda, passar os valores com JavaScript.. Eu to fuzilando o cerebro, pesquisando mais nada de achar os manos... Tem algo aí semelhante ?

Se não funciona, qual erro que dá ?

Já posso fechar o tópico ?

É mais ou menos isso aqui: Há uma pagina com listas de endereços de e-mails que precisa ser selecionada e passar valores para um campo de formulario de outra pagina. Sei que são varios checkbox, cada um vai ter seu valor vindo de um banco de dados, e preciso recuperar estes valores (que na verdade são os endereços de e-mail) distribui-los numa Array (JavaScript) e inserir-los no campo (Para:) de uma outra pagina. alguém manja como faço para selecionar os CheckBox, coloca-los numa Array e depois enviar os valores para o campo de outra pagina ? Nem sei por onde começar isso, é muito treta esta linguagen. Agradeços desde já.;; Abraços [ursão]

Brother!! Onde ensina eu não sei cara, é mais na base da politica aplicada no e-commerce que o mesmo é feito (eu não sei ao certo, pois nunca fiz um). Vá na pagina do SuperASP e faça uma pesquisa em todo site por Loja que você vai encontrar vários e bons exemplos de e-commerce. Abraços! [urso]

Srºs!! Como a maioria pediu , 'alguns POSTS' (quase duas páginas) foram deletado sobre discução o assuntos não pertinentes. Se por acaso, deletei algun POST que havia voto, por favor, responda este tópico com objetivo de passar seu voto, o esclarecimento, me procure via PM. Boa Sorte!!! [ursolouco]

<% user = request.form("user") email = request.form("email") Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DBQ=" & Server.Mappath("./database/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};","Administrador","teste" rs.open "SELECT pass FROM users WHERE pass='"&PassworTemp&"' OR user='"&user& "'",Conn,2,3 if rs.eof then rs.addnew RS("user")=user RS("email")=email Rs("pass")=PassworTemp RS.update End If Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>

Renata!! Mil desculpas pelo ocorrido!!!

Desculpe, falta de atenção. Era para fechar outro tópico Srª Renata!!!:wub: Vou reabri-lo... Boa Sorte!!! [urso]

Salve André!! Já foi pedido junto aos Administradores, mas não temos posição sobre o assunto. Mas pasciência, estamos engatinhando na SB e logo que a comunidade crescer e aumentar em grandes porpoções, acredito que sera aberta uma sub-seção dentro do forum. Mas fica aqui, registrada sua opinião... Abraços!! [urso]

E não esqueça de pedir para fechar o tópico.!

Conexao.asp <% Dim Conn, cBanco, strConn Set Conn = Server.CreateObject("Adodb.Connection") cBanco = Server.MapPath("Northwind.mdb") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = "& cBanco &";" Conn.Open(strConn) %> index2.asp <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Sistema de Busca - Formulario de Pesquisa</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .texto1 { font-family: Verdana; font-size: 9px; font-weight: bold; color: #000000; text-transform: capitalize; } .caixa { font-family: Verdana; font-size: 10px; font-weight: bold; color: #000099; background-color: #F8F8F8; border: 1px solid #000000; } .nt { font-family: Verdana; font-size: 10px; color: #000000; } table { border: 1px solid #333333; } --> </style> </head> <body> <form name="form1" method="post" action="busca2.asp"> <table width="430" border="0" align="center" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="17" height="29">&nbsp;</td> <td width="397"></td> <td width="14"></td> </tr> <tr> <td height="15" colspan="3" valign="top"> <p align="center"><b><font size="2" face="Verdana">Sistema de Busca - David Ramires</font></b></p></td> </tr> <tr> <td height="17"></td> <td></td> <td></td> </tr> <tr> <td height="30" colspan="3" valign="top"> <p align="center" class="nt"><font size="2" face="Verdana">Digite o nome da empresa que deseja consultar ou selecione a letra do Alfabeto !</font></p></td> </tr> <tr> <td height="28">&nbsp;</td> <td></td> <td></td> </tr> <tr> <td height="17" colspan="3" valign="middle"> <p align="center"> <input name="empresa" type="text" class="caixa" id="empresa" size="55" maxlength="70"> </p></td> </tr> <tr> <td height="23">&nbsp;</td> <td></td> <td></td> </tr> <tr> <td height="30">&nbsp;</td> <td valign="top"> <p align="center" class="texto1"><font size="2" face="Verdana"><a href="busca2.asp?letra=A&inicio=0&fim=2">A</a> | <a href="#">B</a> | <a href="#">C</a> | <a href="#">D</a> | <a href="#">E</a> | <a href="#">F</a> | <a href="#">G</a> | <a href="#">H</a> | <a href="#">I</a> | <a href="#">J</a> | <a href="#">K</a> | <a href="#">L</a> | <a href="#">M</a> | <a href="#">N</a> | <a href="#">O</a> | <a href="#">P</a> | <a href="#">Q</a> | <a href="#">R</a> | <a href="#">S</a> | <a href="#">T</a> | <a href="#">U</a> | <a href="#">V</a> | <a href="#">W</a> | <a href="#">X</a> | <a href="#">Y</a> | <a href="#">Z</a></font></p></td> <td>&nbsp;</td> </tr> <tr> <td height="21">&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td height="24" colspan="3" valign="top"> <p align="center"> <input type="submit" name="Submit" value="Buscar !!!"> </p></td> </tr> <tr> <td height="18"></td> <td></td> <td></td> </tr> </table> </form> </body> </html> busca2.asp <%@LANGUAGE="VBSCRIPT"%> <!--#include file="conexao.asp" --> <html> <head> <title>Resultado da Busca</title> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <style type="text/css"> <!-- .pedro { font-family: Verdana; font-size: 10px; color: #000000; } --> </style> </head> <% Registro = 2 Letra = CStr(Request.QueryString("Letra")) inicio = Request.QueryString("Inicio") final = Request.QueryString("Fim") If Not isNumeric(Inicio) Then Inicio = 0 Else Inicio = Cint(Inicio) End if If Not isNumeric(Final) Then Final = 2 Else Final = CInt(Final) End If Set Rs = Server.CreateObject("Adodb.RecordSet") LSQL = "SELECT * FROM Fornecedores WHERE NomeDaEmpresa Like '" & Letra & "%'" Rs.Open LSQL, Conn, 3, 3 If Rs.Eof Then Response.Write("Não há empresas cadastradas") Else Empresa = Rs.GetRows Rs.Close Conn.Close Set Rs = Nothing Set Conn = Nothing End if nColunas = UBound(Empresa, 1) nLinhas = UBound(Empresa, 2) For L = 0 To Final -1 Response.Write(Empresa(1,L) & "<br>") Next %> <body> <p class="pedro"><% If Inicio => Registro Then%><a href="busca2.asp?Letra=A&Inicio=<%=Inicio - Registro %>&Fim=<%=Final - Registro%>">&lt;- Voltar</a> |<%End if%> <%If Final < nLinhas Then%><a href="busca2.asp?Letra=A&Inicio=<%=Inicio + Registro %>&Fim=<%=Final + Registro%>"> Avan&ccedil;ar -&gt;</a><%End if%></p> </body> </html> Veja se pode lhe ajudar ?

<% defina o número de células desejadas dim s(9) for i = 1 to 9 do Randomize() Valor = Rnd(1) Valor2 = int(Valor * cont) if not testa_matriz(s,valor2) then exit do end if loop s(i) = valor2 next função para a criação da matriz function testa_matriz(m,v) for j = 1 to 8 if m(j) = v then testa_matriz = true exit function end if next testa_matriz = false end function %> Talvez lhe ajude... Ou se preferir... Artigo: Gerando números aleatórios

Salve à todos!! Encerrado o prazo para os candidatos darem seus motivos para ocuparem o cargo de moderador, vou deixar aqui, a lista (1) das pessoas que demonstraram seu interesse. - dark0 Foi o membro que se demonstrou mais ativo e envio a PM solicitando sua candidatura, informando que se mantém ativo no forum, possui conhecimento e se mantem a disposição para o cargo. - Victor Havia me esquecido da sua indicação para o cargo, me desculpe Esta aberta a votação aos membros que se colocam a disposição do cargo. Boa Sorte à todos!! [ursolouco]

Bom, tempo encerrado. Vou fechar o tópico e pendurar um novo na seção com os cadidatos para serem eleitos.

Teste este script: <%Option Explicit %> <% Dim Mensagem Mensagem = "Olá Mundo" Mensagem = CStr(Mensagem) Response.Write(Mensagem) Response.End() %> Veja se escreve algo na tela, lembrando que você deve salva-lo dentro do seu diretorio e depois abrir no I.E. o seguinte: http://localhost/seuAliasVirtual/Arquivo.asp Abraços!!!

Qualquer coisa, grita ai, mas antes, registre-se!!!