Ir para conteúdo
Fórum Script Brasil

arldin

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    278

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que arldin postou

  1. arldin
    Boa tarde amigos, estou precisando de uma pequena ajuda Montei uma sala de chat para o meu site Esta funcionado bem A ajuda que estou precisabdo e o sequinte: Quando sai da sala ela da mensagem de fecha a janela O que eu quero e o sequinte Que depois que ela feche seja rediricionado de volta para o meu site <% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "cache-control", "private" Response.AddHeader "Pragma","No-Cache" Response.CacheControl = "no-cache" %> <!-- #include file="../fcs_text.inc" --> <!-- #include file="../fcs_data.inc" --> <% Dim intGrupo, strApelido, intNum, arrNomes, blnAchou Dim intAtual, arrMsgs, arrDe, arrPara, arrPVT, strTexto Dim intUsers, arrTimes intGrupo = Session("Grupo") strApelido = Session("Nick") blnAchou = False Application.Lock intAtual = CInt(Application("Atual" & intGrupo)) intAtual = intAtual + 1 If intAtual = 30 Then intAtual = 0 arrMsgs = Application("Msgs" & intGrupo) arrDe = Application("De" & intGrupo) arrPara = Application("Para" & intGrupo) arrPVT = Application("PVT" & intGrupo) arrTimes = Application("Time" & intGrupo) If Not IsArray(arrMsgs) Then Redim arrMsgs(29) If Not IsArray(arrDe) Then Redim arrDe(29) If Not IsArray(arrPara) Then Redim arrPara(29) If Not IsArray(arrPVT) Then Redim arrPVT(29) If Not IsArray(arrTimes) Then Redim arrTimes(29) strTexto = "<FONT CLASS=""Menor"">(" & PrepareDAT(Now, 3) & ")</FONT> <B>" & PrepareEncod(strApelido & " saiu da sala...") & "</B>" arrDe(intAtual) = strApelido arrPara(intAtual) = "Todos" arrMsgs(intAtual) = strTexto arrPVT(intAtual) = 0 Application("Atual" & intGrupo) = intAtual Application("De" & intGrupo) = arrDe Application("Para" & intGrupo) = arrPara Application("Msgs" & intGrupo) = arrMsgs Application("PVT" & intGrupo) = arrPVT arrNomes = Application("Nicks" & intGrupo) For intNum = 0 To 29 If arrNomes(intNum) = strApelido Then blnAchou = True If blnAchou Then If intNum < 29 Then arrNomes(intNum) = arrNomes(intNum + 1) arrTimes(intNum) = arrTimes(intNum + 1) Else arrNomes(intNum) = "" arrTimes(intNum) = "" End If End If Next intUsers = CInt(Application("Users" & intGrupo)) - 1 If intUsers < 0 Then intUsers = 0 Application("Users" & intGrupo) = intUsers Application("Nicks" & intGrupo) = arrNomes Application("Time" & intGrupo) = arrTimes Application.Unlock %> <HTML> <HEAD> <TITLE>3D Chat: Saída</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> </HEAD> <BODY BGCOLOR="#FFFFFF" TEXT="#000000" OnLoad="window.close()"> </BODY> </HTML> Este e o script desde já agradeço a todos
  2. arldin
    Oi amigos estou passando um script em asp que quando passa o mouse a imagem aparece <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <script> var w=1 var h=1 if (document.getElementById || document.all) document.write('<div id="trailimageid" style="position:absolute;visibility:hidden;left:0px;top:-1000px;width:1px;height:1px;border:1px solid #888888;background:#DDDDDD;"><img id="ttimg" src="http://www.arldinartfest.com.br/fotos/baby_lunne_tuner.gif" /></div>')(aqui você coloca o seu site o caminho e a imagem que vai fazer a visualização,retire este comentario depois) function gettrailobj() { if (document.getElementById) return document.getElementById("trailimageid").style else if (document.all) return document.all.trailimagid.style } function truebody() { return (!window.opera && document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body } function hidetrail() { document.onmousemove="" document.getElementById('ttimg').src='/img/s.gif' gettrailobj().visibility="hidden" gettrailobj().left=-1000 gettrailobj().top=0 } function showtrail(width,height,file) { if(navigator.userAgent.toLowerCase().indexOf('opera') == -1) { w=width h=height // followmouse() document.getElementById('ttimg').src=file document.onmousemove=followmouse gettrailobj().visibility="visible" gettrailobj().width=w+"px" gettrailobj().height=h+"px" } } function followmouse(e) { if(navigator.userAgent.toLowerCase().indexOf('opera') == -1) { var xcoord=20 var ycoord=20 if (typeof e != "undefined") { xcoord+=e.pageX ycoord+=e.pageY } else if (typeof window.event !="undefined") { xcoord+=truebody().scrollLeft+event.clientX ycoord+=truebody().scrollTop+event.clientY } var docwidth=document.all? truebody().scrollLeft+truebody().clientWidth : pageXOffset+window.innerWidth-15 var docheight=document.all? Math.max(truebody().scrollHeight, truebody().clientHeight) : Math.max(document.body.offsetHeight, window.innerHeight) if (xcoord+w+3>docwidth) xcoord=xcoord-w-(20*2) if (ycoord-truebody().scrollTop+h>truebody().clientHeight) ycoord=ycoord-h-20; gettrailobj().left=xcoord+"px" gettrailobj().top=ycoord+"px" } } </SCRIPT> <!-- image thumbs by Israel Guido --> <META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD> <BODY> <DIV class=thumb_img><A onmouseover="showtrail(373,228,'http://www.arldinartfest.com.br/fotos/baby_lunne_tuner_a.jpg');" (aqui você coloca o seu site e o caminho e a nome da imagem que você que que apareça,retire este comentario depois) onmouseout=hidetrail(); href="#"><IMG style="PADDING-TOP: 10px" height=52 alt="" hspace=0 src="http://www.arldinartfest.com.br/fotos/baby_lunne_tuner.gif"(aqui você coloca o seu site o caminho e a imagem que vai fazer a visualisação,retire este comentario depois) width=40 border=0> </A></DIV> <!-- Finish thumbnail --></BODY></HTML> Espero te colabora com os amigos Amigos neste script tem um pequeno erro que este <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <script> E so colocar assim <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <script> Desculpe por este erro
  3. arldin

    Busca interna no site

    uma questão postou arldin ASP

    Amigos eu estou temtando ussar um script de busca interna com db mais quando eu tento cadastra as paginha ele me da este erro Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified /busca/doadd.asp, line 22 Tradução do erro Fornecedor Microsoft OLE DB para controladores ODBC erro'80004005 ' [Microsoft] [ODBC Driver Manager] Dados fonte nome não encontrado e nenhum driver padrão especificados / busca / doadd.asp, linha 22 o script que e este <HTML><HEAD><TITLE>Lowe*Software SiteSearch - Added Page</TITLE></HEAD> <BODY BGCOLOR=#ffffff MARGINWIDTH="0" MARGINHEIGHT="0" LEFTMARGIN=0 TOPMARGIN=0> <!-- #include file="common/mainnav.asp" --> <% addURL = Request.QueryString( "AddURL" ) addTitle = Request.QueryString( "AddTitle" ) addDescription = Request.QueryString( "AddDescription" ) addKeywords = Request.QueryString( "AddKeywords" ) ' Return if not all data entered If addTitle = "" or addURL = "" or addDescription = "" Then Response.Redirect( "addpage.asp" ) End If Session.timeout = 2 If IsObject(Session("sitesearch_conn")) Then Set conn = Session("sitesearch_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "sitesearch","","" Set Session("sitesearch_conn") = conn End If ' Setup SQL sql = "INSERT INTO [URLIndex] ( [URL], [Title], [Description], [Keywords] )" sql = sql + "VALUES ( '" & addURL & "', '" & addTitle & "', '" & addDescription & "', '" & addKeywords & "' )" ' Execute the statement conn.Execute sql ' Print the URL Response.Write "<BR><B> URL: </B> " & addURL ' Print the Title Response.Write "<BR><B> Title: </B> " & addTitle ' Print the Description Response.Write "<BR><B> Description: </B> " & addDescription ' Print the Keywords Response.Write "<BR><B> Keywords: </B> " & addKeywords ' Print the SQL String Response.Write "<BR><B> SQL String : </B> " & sql %> </BODY> </HTML> a linha que ele se refere e esta 20 Else 21 Set conn = Server.CreateObject("ADODB.Connection") 22 conn.open "sitesearch","","" 23 Set Session("sitesearch_conn") = conn 24 End If alguém poderia me auxiliar de como corrigi este erro
  4. arldin

    (Resolvido) Envio de Email

    pergunta respondeu ao arldin de arldin em ASP

    Resolviddo foi so tira a tag <P> E funcionou Muito obrigado a todos Resolvido
  5. arldin

    (Resolvido) Envio de Email

    pergunta respondeu ao arldin de arldin em ASP

    <% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.arldinartfest.com.br" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "arldin@arldinartfest.com.br" cdoConfig.Fields.Item(sch & "sendpassword") = "ar592409" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = request.Form("responder") cdoMessage.To = request.Form("destino") cdoMessage.Subject = "Formulario de Pedido" strBody = "<strong><p>FORMULARIO DE PEDIDOS</strong>" & vbCrLf & vbCrLf & _ "<strong><p>HOMEM ARANHA QUANT: </strong> "& Request("quant1") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total1") & vbCrLf & _ "<strong><p>FLAMENGO QUANT: </strong> "& Request("quant2") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total2") & vbCrLf & _ "<strong><p>VASCO QUANT: </strong> "& Request("quant3") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total3") & vbCrLf & _ "<strong><p>BOTAFOGO QUANT: </strong> "& Request("quant4") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total4") & vbCrLf & _ "<strong><p>FLUMINENSE QUANT: </strong> "& Request("quant5") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total5") & vbCrLf & _ "<strong><p>CORINTIANS QUANT: </strong> "& Request("quant6") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total6") & vbCrLf & _ "<strong><p>SÃO PAULO QUANT: </strong> "& Request("quant7") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total7") & vbCrLf & _ "<strong><p>SANTOS QUANT: </strong> "& Request("quant8") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total8") & vbCrLf & _ "<strong><p>PALMEIRAS QUANT: </strong> "& Request("quant9") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total9") & vbCrLf & _ "<strong><p>ATLÉTICO MG QUANT: </strong> "& Request("quant10") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total10") & vbCrLf & _ "<strong><p>CRUZEIRO QUANT: </strong> "& Request("quant11") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total11") & vbCrLf & _ "<strong><p>ATLÉTICO PR QUANT: </strong> "& Request("quant12") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total12") & vbCrLf & _ "<strong><p>CORITIBA QUANT: </strong> "& Request("quant13") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total13") & vbCrLf & _ "<strong><p>PARANÁ QUANT: </strong> "& Request("quant14") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total14") & vbCrLf & _ "<strong><p>INTERNACIONAL QUANT: </strong> "& Request("quant15") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total15") & vbCrLf & _ "<strong><p>GRÊMIO QUANT: </strong> "& Request("quant16") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total16") & vbCrLf & _ "<strong><p>SEL. BRASILEIRA QUANT: </strong> "& Request("quant17") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total17") & vbCrLf & _ "<strong><p>BABY DISNEY QUANT: </strong> "& Request("quant18") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total18") & vbCrLf & _ "<strong><p>BRANCA DE NEVE QUANT: </strong> "& Request("quant19") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total19") & vbCrLf & _ "<strong><p>CINDERELA QUANT: </strong> "& Request("quant20") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total20") & vbCrLf & _ "<strong><p>TURMA DA MÔNICA QUANT: </strong> "& Request("quant21") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total21") & vbCrLf & _ "<strong><p>PALHAÇO QUANT: </strong> "& Request("quant22") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total22") & vbCrLf & _ "<strong><p>BATMAM QUANT: </strong> "& Request("quant23") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total23") & vbCrLf & _ "<strong><p>BABY LOONEY TUNER QUANT: </strong> "& Request("quant24") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total24") & vbCrLf & _ "<strong><p>SHEREK QUANT: </strong> "& Request("quant25") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total25") & vbCrLf & _ "<strong><p>NEMO QUANT: </strong> "& Request("quant26") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total26") & vbCrLf & _ "<strong><p>BARBIE QUANT: </strong> "& Request("quant27") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total27") & vbCrLf & _ "<strong><p>PICA PAU QUANT: </strong> "& Request("quant28") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total28") & vbCrLf & _ "<strong><p>OS INCRIVEIS QUANT: </strong> "& Request("quant29") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total29") & vbCrLf & _ "<strong><p>FÁMILIA DINOSSAURO QUANT: </strong> "& Request("quant30") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total30") & vbCrLf & _ "<strong><p>URSINHOSO CARINHOSOS QUANT: </strong> "& Request("quant31") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total31") & vbCrLf & _ "<strong><p>URSINHO PULF QUANT: </strong> "& Request("quant32") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total32") & vbCrLf & _ "<strong><p>JOVENS TITÃS QUANT: </strong> "& Request("quant33") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total33") & vbCrLf & _ "<strong><p>REI LEÃO QUANT: </strong> "& Request("quant34") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total34") & vbCrLf & _ "<strong><p>HELLO KITY QUANT: </strong> "& Request("quant35") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total35") & vbCrLf & _ "<strong><p>OS DÁLMATAS QUANT: </strong> "& Request("quant36") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total36") & vbCrLf & _ "<strong><p>MORANGUINHO QUANT: </strong> "& Request("quant37") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total37") & vbCrLf & _ "<strong><p>X-MEM QUANT: </strong> "& Request("quant38") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total38") & vbCrLf & _ "<strong><p>O MASCARA QUANT: </strong> "& Request("quant39") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total39") & vbCrLf & _ "<strong><p>TOTAL GERAL: </strong> "& Request("totalgeral") & vbCrLf & _ "<strong><p>COMPRADOR: </strong> "& Request("nome") & vbCrLf & _ "<strong><p>CEP: </strong> "& Request("cep") & vbCrLf & _ "<strong><p>LOGADOURO: </strong> "& Request("rua") & vbCrLf & _ "<strong><p>NUMEROE: </strong> "& Request("num") & vbCrLf & _ "<strong><p>BAIRRO: </strong> "& Request("bairro") & vbCrLf & _ "<strong><p>CIDADE: </strong> "& Request("cidade") & vbCrLf & _ "<strong><p>ESTADO: </strong> "& Request("estado") & vbCrLf & _ "<strong><p>TELEFONE: </strong> "& Request("tel") & vbCrLf & _ "<strong><p>FAX: </strong> "& Request("fax") & vbCrLf & _ "<strong><p>SEU E-MAIL: </strong> "& Request("responder") & vbCrLf & _ "<strong><p>OPCÕES:</strong> "& Request("pag") & vbCrLf & _ "<strong><p>OPCÔES DE PAGAMENTO:</strong> "& Request("oppg") & vbCrLf & _ "<strong>CHEQUE NUM:</strong> "& Request("numch") & vbCrLf & _ "<strong><p>BANCO NUM:</strong> "& Request("bcnum") & vbCrLf & _ "<strong>CONTA NUM: </strong> "& Request("cc") & vbCrLf & _ "<strong>BOM PARA:</strong> "& Request("dta") & vbCrLf & _ "<strong><p>COLOQUE OUTROS TEMAS QUE NÃO TENHA NESTE FORMULARIO </strong></p> "& Request("mensagem") strBody = strBody & "." cdoMessage.HTMLBody = strBody cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.redirect "envio.htm" %> Este e o codico completo
  6. arldin

    (Resolvido) Envio de Email

    pergunta respondeu ao arldin de arldin em ASP

    Tambem assim continua dando o mesmo erro
  7. arldin

    (Resolvido) Envio de Email

    pergunta respondeu ao arldin de arldin em ASP

    Quando eu retirei deu o sequinte erro Pagina não pode se exibida
  8. arldin
    Boa noite amigos gostaria de uma ajuda Eu tenho um script em asp de envio de email, ele funciona bem, o que eu estou querendo e o sequinte: Quando eu recebo a mensagem ela vem desta forma HOMEM ARANA QUANT: 10 TOTAL R$ 100,00 o que eu gostaria de saber e o sequinte tem como ela ficar deste cheito HOMEM ARANHA QUANT: 10 TOTAL R$ 100,00 Este e uma parte do code "<strong><p>HOMEM ARANHA QUANT: </strong> "& Request("quant1") & vbCrLf & _ "<strong><p>TOTAL: </strong> "& Request("total1") & vbCrLf & _ Desde já agradeço a todos
  9. arldin

    Usuario Online

    pergunta respondeu ao arldin de arldin em ASP

    So depois de 20 minutos e que ele atualiza, se por um acaso falta energia e em 3 minuto volta e eu me loga ele conta como um novo. Ele so ira atualizar depois de 20 minutos Tem como colocar o global.asa no efresh
  10. arldin

    Usuario Online

    pergunta respondeu ao arldin de arldin em ASP

    Não entendi o que você quiz dizer
  11. arldin

    Usuario Online

    uma questão postou arldin ASP

    Amigos gostaria de pedi um esclarecimento Primeiro e o sequinte: Eu tenho um script de Usuario online, funciona perfeitamente, o que eu quero saber e o sequinte: Se tem como coloacar no arquivo global.asa um refresh, para que ele faça a atualização mais rapido,ou se tem como colocar no proprio arquivos Os code sâo: global.asa &lt;script LANGUAGE=VBScript RUNAT=Server> ' O aplicativo iniciou Sub Application_OnStart ' Aplicativo é fechado para não haver conflitos Application.Lock ' Contagem de usuarios online e total é zerado Application("UsuariosOnline") = 0 Application("Total") = 0 ' Aplicativo aberto novamente Application.UnLock End Sub ' Iniciada a sessão do usuário Sub Session_OnStart ' O aplicativo é fechado novamente Application.Lock ' A variavel Application("UsuariosOnline") é somada mais um ' quando o visitante acessa o site Application("UsuariosOnline") = Application("UsuariosOnline") + 1 ' Application("Total") é somado mais um Application("Total") = Application("Total") + 1 Application.UnLock End Sub ' Sessão foi finalizada pelo usuário Sub Session_OnEnd Application.Lock ' Application("UsuariosOnline") é subtraido um valor ' Pois o usuário que setava online fechou o browser, ' mudou de site ou a sessão expirou Application("UsuariosOnline") = Application("UsuariosOnline") - 1 Application.UnLock End Sub </SCRIPT> O arquivo que aparece o usuario e este: online.asp <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Sothink HTML Editor"> </HEAD> <BODY> <IMG SRC="http://www.arldinartfest.com.br/gif1/computador1.gif" ALT="" ><FONT FACE="Arial" SIZE="3" COLOR="#0000ff"><% response.write "Usuários Online: " & Application("UsuariosOnline") %> </FONT> </BODY> </HTML> Desde já agraddeço a todos
  12. arldin

    Preciso de uma pequena ajuda

    pergunta respondeu ao arldin de arldin em ASP

    Vamos ve se agora eu consigo exolicar melhor o qual e a minha duvida Este script de estatistica, funciona, mais ele não esta fazendo a atualização no arquivo DB O primeio script que esta na pagina estatistica e este conexao.asp <% way = server.MapPath("estatistica.mdb") strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & way SET CONN = SERVER.CREATEOBJECT("ADODB.CONNECTION") CONN.OPEN strConn 'Response.Write conn.State 'Response.End ' 1 = aberto ' 0 = fechado %> O segundo e este contador.asp <%@ Language=VBScript %> <!--#include file="conexao.asp" --> <% '-------------------------------------------------------------------------------------------------- ' Autor : Alexander Luiz Marinho da Silva ' Versão : 1.1 ' dúvidas e sugestões : zz2ale@ig.com.br ' Data : 06/12/2004 ' Descrição : Sistema de gerenciamento de estatística ' obs. : Este arquivo destina-se a gerenciar as visitas feitas num site. ' Este gerenciamento é feito guardando em um Banco Acess os ' visitantes do dia, do mês e do ano. ' e a cada ano novo na db_dia é inserido mais um grupo de dias de ' todos os meses do novo ano que se inicia. '--------------------------------------------------------------------------------------------------- '------------------------------------------------ ' 1 - esta session serve para traduzir o calendário do ' servidor de inglês para português se for o caso. Session.LCID = 1046 '------------------------------------------------ dim RsRevisitas, RsVisitas, RsMes, RsDia, RsTotalMes, RsTotalDia, RsIn, vSQL dim vData, aData, vDia, vMes, vAno, totalMes, totalDia, totalAno, x vData = FormatDateTime(Date(), 2) aData = Split(vData, "/") vDia = Trim(aData(0)) vMes = Trim(aData(1)) vAno = Trim(aData(2)) sub executa '-------------------------------------------------------------------------------------------------- ' 1.2 - aqui estes selects pegarão a quantidade de visitantes por mes e dia respectivamente. vSQL = "select * from db_mes order by ano desc" set RsTotalMes = conn.execute(vSQL) totalAno = RsTotalMes(1) + RsTotalMes(2) + RsTotalMes(3) + RsTotalMes(4) + RsTotalMes(5) + RsTotalMes(6) +_ RsTotalMes(7) + RsTotalMes(8) + RsTotalMes(9) + RsTotalMes(10) + RsTotalMes(11) + RsTotalMes(12) vSQL = "select * from db_dia where "& vDia &" = "& vDia &" and mes = "& vMes & " and ano = '" & vAno &"' " set RsTotalDia = conn.execute(vSQL) '--------------------------------------------------------------------------------------------------- ' 1.3 - se o ano atual(vAno) for maior do que o que está sendo selecionado na tb_mes.ano ' o código insere mais um grupo de doze(12) linhas representando o novo ano que se inicia na db_dia ' para fazer a contagem de visitantes por dias do mês ' e insere também mais uma linha na db_mes para fazer a contagem dos visitantes de um determinado mês. if vAno > RsTotalMes("ano") then for x = 1 to 12 vSQL = "insert into db_dia ( "&_ " 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, "&_ " 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, "&_ " 23, 24, 25, 26, 27, 28, 29, 30, 31, mes, ano) "&_ "values( "&_ " 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "&_ " 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "&_ " 0, 0, 0, 0, 0, 0, 0, "& x &", "& vAno &")" set RsIn = conn.execute(vSQL) set RsIn = nothing next vSQL = "insert into db_mes ( "&_ " 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, ano) "&_ "values( "&_ " 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "& vAno &")" set RsIn = conn.execute(vSQL) end if '---------------------------------------------------------------------------------------------------- ' 1.4 - após pegar a quantidade de visitantes por mes e dia no ítem 1.2 ' aqui é feito o incremento de mais um visitante e ao mesmo tempo ' as db_mes e db_dia são atualizadas com os novos valores de acordo com o dia atual. totalMes = RsTotalMes(vMes) + 1 vSQL = "update db_mes set "& vMes &" = "& totalMes &" where ano = '"& RsTotalMes("ano") &"' " set RsMes = conn.execute(vSQL) totalDia = RsTotalDia(vDia) + 1 vSQL = "update db_dia set "& vDia &" = "& totalDia &" where mes = "& vMes &" and ano = '"& vAno &"' " set RsDia = conn.execute(vSQL) '----------------------------------------------------------------------------------------------------- end sub sub detona set RsRevisitas = nothing set RsVisitas = nothing set RsTotalMes = nothing set RsTotalDia = nothing set RsMes = nothing set RsIn = nothing set RsDia = nothing set RsUpd = nothing conn.close() end sub %> <html> <head> <title>TESTE</title> </HEAD> <BODY style="font-family:verdana; font-size:8pt;text-decoration:none;color:#333333"> <P>PAGINA DE TESTE DE VISITANTES...</P> <% executa detona %> Total dia <b><%=vDia%></b>: <%=totalDia%> <br> Total do mes <b><%=UCase(MonthName(vMes, false))%></b>: <%=totalMes%> <br> Total do ano de <b><%=vAno%></b>: <%=totalAno%> <br><br> Para ver a estatística do ano clique abaixo:<br> <a href="ContadorResultado.asp" style="text-decoration:none">Estatísticas</a> <br><br><br><br><br><br><br><br><br><br><br><br><br><br> Autor: Alexander Luiz Marinho da Silva<br> Versão: 1.1<br> dúvidas e sugestões : zz2ale@ig.com.br </BODY> </HTML>
  13. arldin

    Preciso de uma pequena ajuda

    pergunta respondeu ao arldin de arldin em ASP

    Amigos eu estou com este script de estatisticas mais não estou consequindo fazer com que ele faza a leitura a atualização. Estes são os escipts conexao.asp <% way = server.MapPath("estatistica.mdb") strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & way SET CONN = SERVER.CREATEOBJECT("ADODB.CONNECTION") CONN.OPEN strConn 'Response.Write conn.State 'Response.End ' 1 = aberto ' 0 = fechado %> Contador.asp <%@ Language=vb script:history.go(-1) vti_cachedsvcrellinks:VX|SHUS|java script:history.go(-1) vti_cachedbodystyle:SR|<BODY style="font-family:verdana; font-size:8pt;text-decoration:none;color:#333333;margin:0"> vti_cachedhasbots:BR|false vti_cachedhastheme:BR|false vti_cachedhasborder:BR|false Ele abre mais não faz a atualização da estatistica que esta no arquivo Estatistica.mdb alguém poderia me informa onde esta o erro Desde já agradeço a todos Mais este scripts ContadorResultado.asp <%@ Language=vb script:history.go(-1)" style="text-decoration:none">VOLTAR</a> <br><br><br><br><br><br><br><br><br><br><br><br><br><br> Autor: Alexander Luiz Marinho da Silva<br> Versão: 1.1<br> dúvidas e sugestões : zz2ale@ig.com.br </BODY> </HTML> <%detona%> E tem a pasta _vti_cnf com este dois scripts Contador.asp vti_encoding:SR|utf8-nl vti_timelastmodified:TR|06 Dec 2004 16:32:56 -0000 vti_extenderversion:SR|4.0.2.8912 vti_filesize:IR|4891 vti_title:SR|TESTE vti_backlinkinfo:VX| vti_nexttolasttimemodified:TR|06 Dec 2004 16:32:55 -0000 vti_author:SR|IUSR_ANGHOST vti_modifiedby:SR|IUSR_ANGHOST vti_timecreated:TR|06 Dec 2004 16:32:33 -0000 vti_cacheddtm:TX|06 Dec 2004 16:32:56 -0000 vti_cachedlinkinfo:VX|H|ContadorResultado.asp vti_cachedsvcrellinks:VX|FHUS|anneh/estatisticas/ContadorResultado.asp vti_cachedtitle:SR|TESTE vti_cachedbodystyle:SR|<BODY style="font-family:verdana; font-size:8pt;text-decoration:none;color:#333333"> vti_cachedhasbots:BR|false vti_cachedhastheme:BR|false vti_cachedhasborder:BR|false ContadorResultado.asp vti_encoding:SR|utf8-nl vti_timelastmodified:TR|06 Dec 2004 16:33:22 -0000 vti_extenderversion:SR|4.0.2.8912 vti_backlinkinfo:VX|index.htm vti_filesize:IR|6649 vti_metatags:VR|GENERATOR Microsoft\\ Visual\\ Studio\\ 6.0 vti_generator:SR|Microsoft Visual Studio 6.0 vti_nexttolasttimemodified:TR|06 Dec 2004 16:21:59 -0000 vti_author:SR|IUSR_ANGHOST vti_modifiedby:SR|IUSR_ANGHOST vti_timecreated:TR|06 Dec 2004 16:33:22 -0000 vti_cacheddtm:TX|06 Dec 2004 16:33:22 -0000 vti_cachedlinkinfo:VX|H|java script:history.go(-1) vti_cachedsvcrellinks:VX|SHUS|java script:history.go(-1) vti_cachedbodystyle:SR|<BODY style="font-family:verdana; font-size:8pt;text-decoration:none;color:#333333;margin:0"> vti_cachedhasbots:BR|false vti_cachedhastheme:BR|false vti_cachedhasborder:BR|false O script ContadorResultado e este aqui, desculpe pelo erro de cima <!--#include file="conexao.asp" --> <% '-------------------------------------------------------------------------------------------------- ' Autor : Alexander Luiz Marinho da Silva ' Versão : 1.0 ' dúvidas e sugestões : zz2ale@ig.com.br ' Data : 02/12/2004 ' Descrição : Sistema de visualização de estatística ' obs. : Este arquivo destina-se a monitorar as visitas feitas na página index.htm ' Seu uso é livre, mas favor deixar o crédito. '--------------------------------------------------------------------------------------------------- Session.LCID = 1046 dim RsDia, RsMes, RsAno, vSQL, totalMes, totalAno, cor dim vData, vDia, vMes, vAno vAno = Request.QueryString("ano") if vAno = "" then vAno = "2009" end if vSQL = "select a.*, b.* from db_dia a, db_mes b where a.ano = b.ano and a.ano = '"& vAno &"' " set RsDia = conn.execute(vSQL) vSQL = "select * from db_mes where ano = '"& vAno &"' " set RsMes = conn.execute(vSQL) totalAno = RsMes(1) + RsMes(2) + RsMes(3) + RsMes(4) + RsMes(5) + RsMes(6) +_ RsMes(7) + RsMes(8) + RsMes(9) + RsMes(10) + RsMes(11) + RsMes(12) vSQL = "select ano from db_mes" set RsAno = conn.execute(vSQL) sub detona set RsMes = nothing set RsDia = nothing conn.close() end sub %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <style> .tabela { font-family:verdana; font-size:8pt;text-decoration:none;color:#333333; border-top:1px solid #000000; border-left:1px solid #000000; border-right:1px solid #000000; border-bottom:1px solid #000000; } </style> <script LANGUAGE=javascript> function BuscaAno(){ frmBusca.action = "ContadorResultado.asp" frmBusca.submit(); } function adicionaCor(param){ if (param.style.backgroundColor == ""){ param.style.backgroundColor = "#fbe9dd"; } } function retiraCor(param){ if (param.style.backgroundColor != "#fbe999"){ param.style.backgroundColor = ""; } } </SCRIPT> <BODY style="font-family:verdana; font-size:8pt;text-decoration:none;color:#333333;margin:0"> <P>&nbsp;</P> <form name="frmBusca"> Ano: <select name="ano" onChange="BuscaAno()"> <option value=""> -- </option> <%do while not RsAno.eof%> <option value="<%=RsAno("ano")%>"><%=RsAno("ano")%></option> <% RsAno.movenext loop %> </select> </form> <br><br> Estatística das visitas do ano de: <%=vAno%> <table border="0" width="780" cellspacing="1" cellpadding="0" class="tabela"> <tr align="center" bgcolor="#eeeeee"> <th align="right">dias =></th> <th>1</th> <th>2</th> <th>3</th> <th>4</th> <th>5</th> <th>6</th> <th>7</th> <th>8</th> <th>9</th> <th>10</th> <th>11</th> <th>12</th> <th>13</th> <th>14</th> <th>15</th> <th>16</th> <th>17</th> <th>18</th> <th>19</th> <th>20</th> <th>21</th> <th>22</th> <th>23</th> <th>24</th> <th>25</th> <th>26</th> <th>27</th> <th>28</th> <th>29</th> <th>30</th> <th>31</th> <th>Total mes</th> </tr> <% do while not RsDia.eof if cor = "bbcedf" then cor = "" else cor = "bbcedf" end if totalMes = RsDia(0) + RsDia(1) + RsDia(2) + RsDia(3) + RsDia(4) + RsDia(5) + RsDia(6) + RsDia(7) + RsDia(8) + RsDia(9) +_ RsDia(1) + RsDia(11) + RsDia(12) + RsDia(13) + RsDia(14) + RsDia(15) + RsDia(16) + RsDia(17) + RsDia(18) + RsDia(19) +_ RsDia(20) + RsDia(21) + RsDia(22) + RsDia(23) + RsDia(24) + RsDia(25) + RsDia(26) + RsDia(27) + RsDia(28) + RsDia(29) + RsDia(30) %> <tr align="center" bgcolor="<%=cor%>" onMouseOver="adicionaCor(this);" onMouseOut="retiraCor(this);"> <td bgcolor="#cccccc"><b><%=MonthName(RsDia(31), true)%>.</b></td> <td><%if RsDia(0) = "0" then%> - <%else%><%=RsDia(0)%><%end if%></td> <td><%if RsDia(1) = "0" then%> - <%else%><%=RsDia(1)%><%end if%></td> <td><%if RsDia(2) = "0" then%> - <%else%><%=RsDia(2)%><%end if%></td> <td><%if RsDia(3) = "0" then%> - <%else%><%=RsDia(3)%><%end if%></td> <td><%if RsDia(4) = "0" then%> - <%else%><%=RsDia(4)%><%end if%></td> <td><%if RsDia(5) = "0" then%> - <%else%><%=RsDia(5)%><%end if%></td> <td><%if RsDia(6) = "0" then%> - <%else%><%=RsDia(6)%><%end if%></td> <td><%if RsDia(7) = "0" then%> - <%else%><%=RsDia(7)%><%end if%></td> <td><%if RsDia(8) = "0" then%> - <%else%><%=RsDia(8)%><%end if%></td> <td><%if RsDia(9) = "0" then%> - <%else%><%=RsDia(9)%><%end if%></td> <td><%if RsDia(10) = "0" then%> - <%else%><%=RsDia(10)%><%end if%></td> <td><%if RsDia(11) = "0" then%> - <%else%><%=RsDia(11)%><%end if%></td> <td><%if RsDia(12) = "0" then%> - <%else%><%=RsDia(12)%><%end if%></td> <td><%if RsDia(13) = "0" then%> - <%else%><%=RsDia(13)%><%end if%></td> <td><%if RsDia(14) = "0" then%> - <%else%><%=RsDia(14)%><%end if%></td> <td><%if RsDia(15) = "0" then%> - <%else%><%=RsDia(15)%><%end if%></td> <td><%if RsDia(16) = "0" then%> - <%else%><%=RsDia(16)%><%end if%></td> <td><%if RsDia(17) = "0" then%> - <%else%><%=RsDia(17)%><%end if%></td> <td><%if RsDia(18) = "0" then%> - <%else%><%=RsDia(18)%><%end if%></td> <td><%if RsDia(19) = "0" then%> - <%else%><%=RsDia(19)%><%end if%></td> <td><%if RsDia(20) = "0" then%> - <%else%><%=RsDia(20)%><%end if%></td> <td><%if RsDia(21) = "0" then%> - <%else%><%=RsDia(21)%><%end if%></td> <td><%if RsDia(22) = "0" then%> - <%else%><%=RsDia(22)%><%end if%></td> <td><%if RsDia(23) = "0" then%> - <%else%><%=RsDia(23)%><%end if%></td> <td><%if RsDia(24) = "0" then%> - <%else%><%=RsDia(24)%><%end if%></td> <td><%if RsDia(25) = "0" then%> - <%else%><%=RsDia(25)%><%end if%></td> <td><%if RsDia(26) = "0" then%> - <%else%><%=RsDia(26)%><%end if%></td> <td><%if RsDia(27) = "0" then%> - <%else%><%=RsDia(27)%><%end if%></td> <td><%if RsDia(28) = "0" then%> - <%else%><%=RsDia(28)%><%end if%></td> <td><%if RsDia(29) = "0" then%> - <%else%><%=RsDia(29)%><%end if%></td> <td><%if RsDia(30) = "0" then%> - <%else%><%=RsDia(30)%><%end if%></td> <td align="right"><%=totalMes%></td> </tr> <% RsDia.movenext loop %> <tr bgcolor="#eeeeee" align="center"> <td colspan="33" bgcolor="000000" height="1"></td> </tr> <tr bgcolor="#eeeeee" align="center" style="color:red"> <td colspan="32"> Total do ano de <%=RsMes(13)%> </td> <td align="right"> <%=totalAno%> </td> </tr> </table> <br><br><br><br><br> <a href="java script:history.go(-1)" style="text-decoration:none">VOLTAR</a> <br><br><br><br><br><br><br><br><br><br><br><br><br><br> Autor: Alexander Luiz Marinho da Silva<br> Versão: 1.1<br> dúvidas e sugestões : zz2ale@ig.com.br </BODY> </HTML> <%detona%> Esquece o primeiro code de ContadorResultado.asp pois ele esta incompleto o que eu me referi e o terceiro ContadorResultado.asp Seque abaixos os code certo pois na hora de copia-los acabei copiando pela metade Seque os code certo Conexão.asp <% way = server.MapPath("estatistica.mdb") strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & way SET CONN = SERVER.CREATEOBJECT("ADODB.CONNECTION") CONN.OPEN strConn 'Response.Write conn.State 'Response.End ' 1 = aberto ' 0 = fechado %> Contador.asp <%@ Language=vb script:history.go(-1)" style="text-decoration:none">VOLTAR</a> <br><br><br><br><br><br><br><br><br><br><br><br><br><br> Autor: Alexander Luiz Marinho da Silva<br> Versão: 1.1<br> dúvidas e sugestões : zz2ale@ig.com.br </BODY> </HTML> <%detona%> Os que estão na pasta _vti_cnf Contador.asp vti_encoding:SR|utf8-nl vti_timelastmodified:TR|06 Dec 2004 16:32:56 -0000 vti_extenderversion:SR|4.0.2.8912 vti_filesize:IR|4891 vti_title:SR|TESTE vti_backlinkinfo:VX| vti_nexttolasttimemodified:TR|06 Dec 2004 16:32:55 -0000 vti_author:SR|IUSR_ANGHOST vti_modifiedby:SR|IUSR_ANGHOST vti_timecreated:TR|06 Dec 2004 16:32:33 -0000 vti_cacheddtm:TX|06 Dec 2004 16:32:56 -0000 vti_cachedlinkinfo:VX|H|ContadorResultado.asp vti_cachedsvcrellinks:VX|FHUS|anneh/estatisticas/ContadorResultado.asp vti_cachedtitle:SR|TESTE vti_cachedbodystyle:SR|<BODY style="font-family:verdana; font-size:8pt;text-decoration:none;color:#333333"> vti_cachedhasbots:BR|false vti_cachedhastheme:BR|false vti_cachedhasborder:BR|false ContadorResultado.asp vti_encoding:SR|utf8-nl vti_timelastmodified:TR|06 Dec 2004 16:33:22 -0000 vti_extenderversion:SR|4.0.2.8912 vti_backlinkinfo:VX|index.htm vti_filesize:IR|6649 vti_metatags:VR|GENERATOR Microsoft\\ Visual\\ Studio\\ 6.0 vti_generator:SR|Microsoft Visual Studio 6.0 vti_nexttolasttimemodified:TR|06 Dec 2004 16:21:59 -0000 vti_author:SR|IUSR_ANGHOST vti_modifiedby:SR|IUSR_ANGHOST vti_timecreated:TR|06 Dec 2004 16:33:22 -0000 vti_cacheddtm:TX|06 Dec 2004 16:33:22 -0000 vti_cachedlinkinfo:VX|H|java script:history.go(-1) vti_cachedsvcrellinks:VX|SHUS|java script:history.go(-1) vti_cachedbodystyle:SR|<BODY style="font-family:verdana; font-size:8pt;text-decoration:none;color:#333333;margin:0"> vti_cachedhasbots:BR|false vti_cachedhastheme:BR|false vti_cachedhasborder:BR|false Desculpe pela bagunça de cima Amigos desculpe mais não sei o que esta acontecendo eu copio os code mais quando colo ele não esta colando por inteiro
  14. arldin
    Boa Tarde a todos, desejo um otimo ano novo. Amigos e o sequinte, abachei um script de asp para estatistica aqui mesmo no site e estalei, Mais ao acessar ele, me da o sequinte erro Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x2cf0 Thread 0x1268 DBC 0x1963304 Jet'. Alquem poderia me ajuda como resolver Desde já agradeço a todos
  15. arldin
    Amigo agradeço o seu empenho, mais o poblena e justamente com o UolHost, so por esta com mensalizade em aberto Obrigadão
  16. arldin
    Então que dizer se eu não tiver instalado no meu pc, e outros que tambem não tiver instalado, tente enviar tambem não consequiram e isto? Por acasso você sabe de agum script para esta função, pois este eu pequei aqui,e todos que eu testei daqui, este foi o unico que deu este pequeno erro
  17. arldin
    Bem amigos eu deixei aquele script de lado e agora eu estou ussando este, mais esta dando um pequeno erro. Esta e pafina de exemplo <html><head> </head><body> <a href="#" onClick="window.open('indique.asp?pagina=<%="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")%>','indique','height=250,width=250,left=50,top=50')"><IMG SRC="http://www.arldinartfest.com.br/gif1/carta_a.gif" ALT="" ><FONT FACE="@Arial Unicode MS" SIZE="2" COLOR="#ff0000">Indique a um amigo(a)</FONT></a> </body></html> E este e o script <html><head> </head><body> <% Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function if Not IsEmpty(Request.QueryString("acao")) Then rmt_nome = Trim(Request.QueryString("rmt_nome")) rmt_email = Trim(Request.QueryString("rmt_email")) dest_nome = Trim(Request.QueryString("dest_nome")) dest_email = Trim(Request.QueryString("dest_email")) pagina = Request.QueryString("pagina") If (IsEmpty(rmt_nome) OR rmt_nome = "" OR IsEmpty(rmt_email) OR rmt_email = "" OR IsEmpty(dest_nome) OR dest_nome = "" OR IsEmpty(dest_email) OR dest_email = "" OR IsEmpty(pagina)) OR pagina = "" Then %> <b style="color:#FF0000">Todos campos devem <br>ser preenchidos</b><br><br> Clique <a href="java script:history.back()">aqui</a> para Voltar <% Response.End End If If Not (IsValidEmail(rmt_email) OR IsValidEmail(dest_email)) Then %> <b style="color:#FF0000">Endereço de<br>e-mail inválido.</b><br><br> Clique <a href="java script:history.back()">aqui</a> para Voltar <% Response.End End If str_mensagem = "Oi " & dest_nome & ",<br>Acessei este site e achei interessante este Veículo:<br><a href=" & pagina & ">" & pagina & "</a>" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = rmt_nome & "<" & rmt_email & ">" objCDOMail.To = dest_email objCDOMail.Importance = 1 objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Subject = "Site Indicado por " & rmt_nome objCDOMail.Body = str_mensagem objCDOMail.Send %> Mensagem enviada com sucesso para <br><b><%=dest_nome%>(<%=dest_email%>)!</b><br><br> <a href="java script:window.close()">Clique aqui para fechar</a> <% End IF if IsEmpty(Request.QueryString("acao")) Then %> <form action="<%=Request.ServerVariables("URL")%>" method="get"> <input type="hidden" name="pagina" value="<%=Request.QueryString("pagina")%>"> <input type="hidden" name="acao" value="envia"> <b>Preencha os campos para <br>indicar essa página a um amigo</b><br> <fieldset> <legend>Seus dados</legend> Nome: <input type="text" size="20" name="rmt_nome"><br> E-mail: <input type="text" size="20" name="rmt_email"><br> </fieldset> <br> <fieldset> <legend>Dados do seu amigo</legend> Nome: <input type="text" size="20" name="dest_nome"><br> E-mail: <input type="text" size="20" name="dest_email"><br> </fieldset> <input type="submit" value="Enviar"> <a href="java script:window.close()">Clique aqui para fechar</a> </form> <% End If %> </body></html> Ta tudo legal, mais depois que prencho os dados da o sequinte erro "Todos campos devem ser preenchidos" alguém poderia me informa o que eu estou dexando de informa Desde já agradeço a todos
  18. arldin
    Valeu pela diga Rafael Spilki como sempre você me da bons esclarecimento Obrigadão
  19. arldin
    Verifiquei e realmente não esta estalado,procurei para baixar mais não tem um que rode no Windows Vista
  20. arldin
    Não sei se esta estalado, como faço para ver?
  21. arldin
    Boa noite amigos eu coloquei este script de indique,mais esta dando um erro. alguém poderia me dizer a onde estou errando? Este eu coloquei na página que eu querro que seja indicada. <% 'caso a pagina a ser indicada tenha strings (Ex.: www.site.com.br?produto=12), utilize este. 'pagina ="http://www."& Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("url")&"?"& request.ServerVariables("QUERY_STRING") 'este é usado para a pagina basica(ex.: www.site.com.br/produtos.asp) pagina ="http://"& Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("url") %> Este e para chama a página de indique <a href="indica_amigo.asp?link=<%= pagina%>">indique.</a> </a> Este e o script de nome indica_amigo.asp <form name="form1" method="post" action=""> <table width="400" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="130">Seu email:</td> <td width="270"><input name="email1" type="text" id="email1"></td> </tr> <tr> <td>Nome Amigo(a)</td> <td><input name="nome2" type="text" id="nome2"></td> </tr> <tr> <td>Email Amigo:(a)</td> <td><input name="email2" type="text" id="email2"></td> </tr> <tr> <td> </td> <td><input type="submit" name="Submit" value="Enviar"></td> </tr> </table> </form> <% 'Aqui chamamos a sub enviar quando o formulário for enviado. if request.Form("Submit")="Enviar" then Call enviar() End if 'Aqui montamos a sub enviar ( é a sintaxe do envio de email com cdonts) Sub enviar() Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = request.form("email1") ' e-mail de quem esta enviando a mensagem Mailer.To = request.form("email2") ' e-mail de quem vai receber a mensagem Mailer.BodyFormat=0 Mailer.MailFormat=0 Mailer.Subject = "Site do seu interesse" 'aqui montamos a mensagem Mailer.Body = "Olá " & request.form("nome2") &" achei este site do seu interesse:" &"<p><a href="& request.QueryString("link")&">"&request.QueryString("link")&"</a></p>" Mailer.Send Set Mailer = Nothing 'confirmação do envio. msg = "Email enviado com sucesso!" response.Write("&lt;script language = 'javascript'>") response.Write("alert('" & msg &"');") response.Write("</script>") end sub %> E o erro que esta dando e este Microsoft VBScript runtime error '800a01ad' ActiveX component can't create object: 'CDONTS.NewMail' /indica_amigo.asp, line 63
  22. arldin

    Uma ajuda nets sript

    pergunta respondeu ao arldin de arldin em ASP

    E que eu faço, mais gostaria de saber se tem um geito de isto ser feito sem que eu tenha que ficar saindo e entrando
  23. arldin

    Uma ajuda nets sript

    uma questão postou arldin ASP

    Olha amigos estou precidando de uma ajuda, eu tenho este script de global.asa, para usuario online, a ajuda que eu estou precisando e a sequinte. O script funciona bem, so que ele so faz a atualização depois de 1(um) minuto, gostaria de saber se tem como altera-lo para que guando o usuario entrar e sair ele atualiza de imediato Aqui esta o script Desde já agradeço a todos
  24. arldin
    Obrigado pela dica mais do jeito que eu fiz esta funcionando bem
  25. arldin
    E quase igual a um que eu tenho no meu site, so que este ele da um refhes a cada 5 seg, e dentro desde 5 seg se alguém entrar ou sair ira aparecere, este e um pouco diferente ele so informar novo numero de usuario depois de 10 minutos, se por acasso você sair antes ele so irar fazer a nova atualização depois de 10 minutos, nçao importando se caiu a energia na sua casa, o que irar prevalecer e o que esta no script,agora se por acasso a sua energia voltar antes e você se conctar no site ele ira contar como novo usuario e so depois de 10 minutos e que ele vai fazer a atualização na pagina
×
×
  • Criar Novo...