danyllo.franco

Valeu Jonathan, Voltar tentar alguma coisa aqui caso consiga sucesso, contribuo o resoltado no tópico. Obrigado mesmo. Abs, Danyllo

Através de uma página html com <a href....> Jonathan. Eu acho que as pessoas vão deixá-las minimizadas, eu queria que a janela tipo restaura-se automaticamente assim que fosse resgistrada uma nova mensagem. Como js é possível ? tem algum modelo pra eu implementar na página ASP.

beleza Pessoal, Podem me ajudar ? Tenho um CHAT em ASP e queria que quando chegassem novas mensagens ele fosse restaurado (se minizado) da barra de iniciar com a atualização das mensagens. Abs, Danyllo

Olá galera. Consegui resolver o problema abaixo e gostaria de compartilhar com vocês. Um código que localizei no seguinte link: http://www.macoratti.net/asp_xls2.htm Valeu mesmo pela ajuda....... Abs, Danyllo

Então jow está, mas a string "conteudo" do response.write "conteudo" é escrita dentro do arquivo xls. Eu não sei como incluir dentro do xls os dados que são exibidos na página (que retorna valores mediante a um motor de busca). Olha, os dados estão sendo retornados dentro dessa tabela: <table width="900" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF"> <% Do While Not rstSearch.EOF %> <tr> <td bgcolor="#FFFFE6"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("matricula").Value %></font></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("nome").value %></font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("admissao").value %></font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("cargo").Value %></font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("centro_custo").Value %></font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("site").Value %></font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("empresa").Value %></font></div></td> <td width="66" height="2" align="center" bgcolor="#FFFFE6"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <input type="radio" name="radio" value="<%=rstSearch(0)%>"> </font> </b></font></div> </td> </tr> <% rstSearch.MoveNext Loop %> </table>

Olá novamente !!!!........:blush: Olha eu aí enchendo o saco de vocês de novo...rsrsrsrs Pessoal, preciso exportar uma tabela (tabela entre as tags <table> mesmo) de dados que é exibida ao usuário. Vasculhei os tópicos do fórm e encontrei um code do cyberalexxx (abaixo). Eu consegui exportar, mas os dados que eu quero não são exibidos no arquivo do excel, nesta parte do código 'conteudo da pagina response.write "conteudo" eu tento substituir o conteúdo pelo html <table> onde estão sendo mostrados os dados, mas ocorre um erro. Peço desculpas se as vezes meus posts são de coisas básicas, é que eu estou aprendendo ASP na raça.........rs......Valewww Abs, Danyllo

:lol: HaHa !!!!!! você é o cara bareta, nosso Internet Explorer está me decepcionando cada vez mais...........rodou belezinha no Mozilla....... Valewww..........

Bareta, mas no caso alí o erro só poderá ocorrer quando eu chamar a ação no botão alterar, não é ?

:huh: Você seleciona o funcionario na lista pelo radio, e ao clicar em alterar é direcionado a página de alteração. Tentei tirar esse rádio, mas não é esse o problema. Ah! detalhe, a página é de intranet não sei se a informação ajuda.

Bom dia Galera ! :lol: estou precisando de uma força. Estou desenvolvendo um sistema de cadastro de funcionários que está dividido em três parte: inclusão, busca e listagem de todos os cadastrados. Meu banco já possui 2389 registros que estavam em .xls e utilizei um conversor para passá-lo para MDB. Quando estou na página onde são listados todos os registros ao clicar no link para inclusão o Internet Explorer fecha automaticamente. Alguém tem alguma do que pode estar acontecendo. Desculpe não usar o codebox porque pra mim não está funcionando. Segue código da página listar todos.....ValeWWW !!! <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, strConnection 'Conectando com o banco de dados contato.mdb Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Seleciona da tabela contato strQuery = "SELECT * FROM contato" Set ObjRs = objConn.Execute(strQuery) %> <html> <LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"> <head> <title>:: Banco de talentos - Alteração de dados ::</title> </head> <body bgcolor="#FFFFFF"> <div align="center" style="width: 756; height: 119"> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="1" align="center"> <tr> <td width="448" valign="top" height="136"> <table border="0" cellpadding="0" cellspacing="0" width="100%" align="center"> <tr bgcolor="ffffff"> <td colspan="3"> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_inclusao.asp" class="menu">Incluir</a></font></b></font></div> </td> <td bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="procura.asp" class="menu"><font color="#000099">Buscar</font></a></font></b></font></div> </td> <td bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Visualizar/Alterar</font></b></font></div> </td> </tr> </table> </td> </tr> <tr> <td colspan="3"> <table width="736" border="0" cellspacing="0" cellpadding="0" height="18"> <tr> <td align="center" height="1" width="734"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br> Selecione o(s) &iacute;ten(s) a ser(em) excluido(s)</b></font></td> </tr> </table> <form method="GET" action="form_altera.asp"> <table width="950" border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="center" width="734"> <table border="0" width="950" height="63" cellpadding="2" align="center"> <tr bgcolor="#0099FF"> <td width="50" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Mat.:</font></b> </font></td> <td width="600" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Nome:</font></b> </font></td> <td colspan="2" height="2" align="center"> <font size="1" color="FFFFFF"><b></b> </font> <font size="1" color="FFFFFF"><b><font face="Verdana">Admissão:</font></b> </font></td> <td width="162" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Cargo:</font></b> </font></td> <td width="261" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Centro de Custo:</font></b> </font></td> <td width="800" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Site:</font></b> </font></td> <td width="50" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Empresa:</font></b> </font></td> <td width="50" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Consultoria:</font></b> </font></td> <td width="50" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Notas:</font></b> </font></td> <td width="66" height="2" align="center"> <font size="1" color="FFFFFF"> <input type="submit" name="Submit" value="Alterar"> </font></td> </tr> <%While Not objRS.EOF %> <tr bgcolor="#ffffd0"> <td width="22" height="2" align="center"> <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("matricula")%> </font> </b></font></div> </td> <td width="151" height="2" align="center"> <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("nome")%> </font> </b></font></div> </td> <td colspan="2" height="2" align="center"> <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> </font> </b></font> <font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%Response.write objRS("admissao")%> </font></b></font></div> </td> <td width="162" height="2" align="center"> <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%Response.write objRS("cargo")%> </font></b></font></div> </td> <td width="261" height="2" align="center"> <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("centro_custo")%></font></b></font></div> </td> <td width="261" height="2" align="center"> <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("site")%></font></b></font></div> </td> <td width="261" height="2" align="center"> <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("empresa")%></font></b></font></div> </td> <td width="66" height="2" align="center"> <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("consultoria")%></font></b></font></div> </td> <td width="66" height="2" align="center"> <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("notas")%></font></b></font></div> </td> <td width="66" height="2" align="center"> <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <input type="radio" name="radio" value="<%=objRS(0)%>"> </font> </b></font></div> </td> </tr> <% 'Move para o próximo registro objRS.MoveNext Wend 'Fechando as conexões objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </table> </td> </tr> </table> </form> </td> </tr> </table> </td> </tr> </table> </div> </body> </html>

Valeu!!!!! Funcionou do modo que o MLeandroJr! comentou, inseri o print() no final da função de validação do form. Brigadão !!!!!!! Abs, Danyllo

Bom dia pra todos ! Alguém sabe dizer se é possível e como seria chamar duas funções em onclick. Estou desenvolvendo um form e quero que o usuário ao clicar no botão imprimir, primeiro valide os campos e depois abra o print(). Já tentei separar as duas ações por ";" e não funcionou............alguém tem uma idéia......... :ninja: Abs; Danyllo

Valeu Rafael, Obrigado. :Danyllo

Os Componentes que tenho instalados são : ADODB FileSystemObject ASPMail Persits Upload Pretenso usar o Aspmail (já instalado). Configurei o arquivo ASPMAIL.asp (Fiz download do ASPMAIL 4): <html> <head><title>ASP Mailer Test</title><head> <body> <H3>ASP Mailer Test</H3> <% rem ------------------------------------ rem - Instantiate the SMTP mailer object rem ------------------------------------ Set Mailer = Server.CreateObject("SMTPsvg.Mailer") rem ------------------------------------ rem - Get the internal version number rem ------------------------------------ rem strVer = Mailer.Version rem ------------------------------------ rem - Set the FromName and FromAddress rem - WARNING: These are REQUIRED FIELDS rem ------------------------------------ Mailer.FromName = "Danyllo" Mailer.FromAddress = "danyllo.franco@gmail.com.br" rem ------------------------------------ rem - Set the Remote Host (SMTP) Host rem - that we'll send this mail thru rem ------------------------------------ strMailHost = "smtp" if strMailHost = "smtp.ggg.com.br" then Response.Write "<h2 align=center>Error: You need to change the mailhost to your SMTP server address</h2>" end if Mailer.RemoteHost = strMailHost rem ------------------------------------ rem - Set the recipient's address rem - that this message will go to rem ------------------------------------ Mailer.AddRecipient "Danyllo", "danyllo.franco@gmail.com.br" rem ------------------------------------ rem - Set the Carbon Copy addresses rem ------------------------------------ rem Mailer.AddCC "Danyllo", "danyllo.franco@gmail.com.br" rem ------------------------------------ rem - Set the Blind Carbon Copy addresses rem ------------------------------------ rem Mailer.AddBCC "Danyllo", "danyllo.franco@gmail.com.br" rem ------------------------------------ rem - Set the ReturnReceipt flag rem - If this is set to true AND the rem - recipients SMTP server supports rem - this feature (and it is enabled) rem - the recipients SMTP server will rem - send a notice back to the FromAddress rem - confirming that this email has been rem - delivered. rem ------------------------------------ Mailer.ReturnReceipt = false rem ------------------------------------ rem - Set the ConfirmReading flag rem - If this is set to true AND the rem - recipients email program supports rem - this feature (and it is enabled) rem - the recipients email program will rem - send a notice back to the FromAddress rem - confirming that this email has been rem - read. rem ------------------------------------ Mailer.ConfirmRead = false rem ------------------------------------ rem - Set the subject line rem ------------------------------------ Mailer.Subject = "Teste" rem ------------------------------------ rem - Set the message body text rem - rem - To optionally clear the text once rem - you have set it use the ClearBodyText rem - method (e.g. Mailer.ClearBodyText rem ------------------------------------ strBody = "Olá" & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Isso é um teste " strBody = strBody & "não liguem" & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "é verdade" & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Tá bom (" & Now & ")" Mailer.BodyText = strBody rem ------------------------------------ rem - Clear the attachments and add a rem - couple of files. Make sure that rem - the IUSR_XYZ IIS user has security rem - rights that allow the component rem - to read the necessary files! rem - (optional) rem - Attachments are not supported in rem - the eval version rem ------------------------------------ rem Mailer.ClearAttachments rem Mailer.AddAttachment "c:autoexec.bat" rem Mailer.AddAttachment "c:config.sys" rem ------------------------------------ rem - Set the encoding type (default is MIME) rem - 1 = UUEncoded rem - 2 = MIME rem - (optional) rem ------------------------------------ rem Mailer.Encoding = 2 rem ------------------------------------ rem - If you need to debug the session rem - give a log file name here. Make rem - sure the IUSR_XYZ IIS user has rem - security that allows the component rem - to write to this file rem - (optional) rem - rem - *** WARNING *** *** WARNING *** rem - do not use this setting in situations rem - where multiple users can acess this rem - component at the same time. This is rem - for single user debugging ONLY! rem - *** WARNING *** *** WARNING *** rem ------------------------------------ rem Mailer.SMTPLog = "c:smtp.log" rem ------------------------------------ rem - Set priority and if message is rem - urgent. Prioritys are 1, 3, 5 and rem - are reflected in the X-Priority rem - header rem - 1 = High, 3 = Normal, 5 = Low rem - (optional) rem ------------------------------------ rem Mailer.Priority = 1 rem Mailer.Urgent = false rem ------------------------------------ rem - Set the character set rem - By default the char set is US Ascii rem - rem - Valid values: rem - 1 = US Ascii rem - 2 = ISO-8859-1 rem ------------------------------------ rem Mailer.CharSet = 1 rem ------------------------------------ rem - Set the TimeOut rem Default timeout is 60 rem ------------------------------------ rem Mailer.Timeout = 30 rem ------------------------------------ rem - Send the message rem ------------------------------------ rem SendMail returns a true or false rem success result you can optionally rem test for if Mailer.SendMail then Response.Write "Mail sent..." else Response.Write "Mail failure. Check mail host server name and tcp/ip connection...<br>" Response.Write Mailer.Response end if %> </body> </html> Pessoal é mais eficaz ou mais fácil de configurar o ASPMAIL ou CDONTS, ou caso alguém conheça uma forma um pouco mais rápido e menos complexa (conheço pouco ASP). Valeu Abs, Danyllo

:wacko: Bom dia galera ! Preciso muito da ajuda de vocês. Estou criando um formulário para envio de mensagens diretamente para um endereço de email. Utilizo o código do CarlTom Form Mail, mas altero os dados necessário para meu servidor e nada acontece, o formulário funciona corretamente, mas não recebo a mensagem em meu email pessoal...........podem me ajudar ???? Abs, Danyllo

Boa Tarde galera, No Windows Vista Starter eu consigo configurar o IIS ? valeu !!!!!

Rafael, muito obrigado......... Vou seguir a orientação para criação do ranking, e no caso das perguntas que nunca acabam..........segue abaixo o script da página quiz.asp onde o usuário responde a questão, será que é possível eu delimitar a quantidade de questões para resposta ? Meu db tem 4.000 perguntas e eu queria que o usuário respondesse por exemplo 5 questões das 4.000 existentes: <!--#include file="config.inc" --> <% Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" if Session("brquiz") <> "logado" then Response.Redirect("login.asp") else Session.TimeOut = "1" strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "SELECT * FROM perguntas" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = 3 rs.CursorLocation = 3 rs.LockType = 3 rs.Open sql, conn 'if NOT rs.eof then 'Randomize 'perg_id = array(Int((rs.recordcount * Rnd) + 1)) 'end if 'perg = Spit(perg_id, ",", -1, 1) Dim Arr() Dim i, RowCount RowCount = RS.RecordCount Redim Arr(RowCount - 1) For i = 0 To RowCount - 1 Arr(i) = RS("id") rs.movenext Next Randomize perg_id = Arr(Int((Ubound(arr) + 1) * rnd)) rs.close sql2 = "SELECT * FROM perguntas WHERE id = "& perg_id & "" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open sql2, conn ' Verifica se o existe a pergunta selecionada aleatoreamente, não houver a página será recarregada... ' Então evite deletar perguntas do banco de dados do quiz! if rs2.eof then response.redirect("quiz.asp") end if %> :blush:

:) Boa Tarde a todos. Pessoal alguém pode me ajudar, estou tentando desenvolver um quiz...............consegui o código do BrQuiz disponível na net, mas as perguntas são infinitas e não tem um sistema de ranking.......estou aprendendo ASP e gostaria muito da ajuda de você's............Valeu..............