cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Tudo que cyberalexxx postou
-
veja as funções: Month() - devolve o mes de uma data Monthdate() - Devolve o nome do mes correspondente a uma data
-
Voce já deu um response.writa na variavel SQL pra ver c ta certo?? Que erro esta dando???
-
O script que tem aqui no forum para verificar componentes, não verifica se o Dundas Upload esta instaldo. Voce adaptou o script??? Caso não rode o script que eu adaptei: <% @ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(12) Dim theComponentName(12) ' componentes theComponent(0) = "ADODB.Connection" theComponent(1) = "SoftArtisans.FileUp" theComponent(2) = "AspHTTP.Conn" theComponent(3) = "AspImage.Image" theComponent(4) = "LastMod.FileObj" theComponent(5) = "Scripting.FileSystemObject" theComponent(6) = "SMTPsvg.Mailer" theComponent(7) = "CDONTS.NewMail" theComponent(8) = "Jmail.smtpmail" theComponent(9) = "SmtpMail.SmtpMail.1" theComponent(10) = "Persits.Upload.1" theComponent(11) = "UnitedBinary.AutoImageSize" theComponent(12) = "Dundas.Upload.2" ' apelido do componente! theComponentName(0) = "ADODB" theComponentName(1) = "SA-FileUp" theComponentName(2) = "AspHTTP" theComponentName(3) = "AspImage" theComponentName(4) = "LastMod" theComponentName(5) = "FileSystemObject" theComponentName(6) = "ASPMail" theComponentName(7) = "CDONTS" theComponentName(8) = "JMail" theComponentName(9) = "SMTP" theComponentName(10) = "Persits Upload" theComponentName(11) = "AutoImageSize" theComponentName(12) = "Dundas Upload" Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %> <html> <head> <title>O q tem aqui?</title> </head> <body> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes instalados:</b></font></td> </tr> <tr> <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <% Dim i For i=0 to UBound(theComponent) If Not IsObjInstalled(theComponent(i)) Then Else Response.Write "<tr>" & vbCrLf Response.Write "<td width=""100%"">" & vbCrLf Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf Response.Write "</td>" & vbCrLf Response.Write "</tr>" & vbCrLf End If Next %> </table> </font> </td> </tr> </table> </body> </html>
-
O que eu percebi no seu codigo: A maneira que você cria o objeto (mailer) você não informa que tipo de objeto esta sendo criado set mailer = server.createobject A depois voce passa todos os parametros para o objeto Mailer, mais em momento algum voce pede para que o email seja enviado. T+
-
É meu caro, ai a coisa fica mais complexa e sem conhecer a sua estrutura fica mais dificil ainda. Alguns toques: - Criação de uma tabela de usuarios para armazenar dos dados do apostador e sua pontuação - Identificação do concurso na tabela de apostas - Criar uma pagina de administração para cadastro dos resultados e solicitação de processamento dos pontos dos apostadores. Cara, como eu disse sem conhecer o sistema é complicado. Mais fica a vontade pra voltar a cada duvida que for surgindo
-
Da uma olhada se isso da certo: apostas.asp <% data = request.form("data") vdata = split(data,",") time1 = request.form("time1") vtime1 = split(time1,",") time2 = request.form("time2") vtime2 = split(time2,",") resultado1 = request.form("resultado1") vresultado1 = split(resultado1,",") resultado2 = request.form("resultado2") vresultado2 = split(resultado2,",") for x = 0 to UBound(vdata) sql = "insert into apostas (data,time1,time2,resultado1,resultado2,nome,email,cidade,estado,time_coracao) values ('"& vdata(x) &"','"& vtime1(X) &"','"& vtime2(X) &"','"& vresultado1(x) &"','"& vresultado2(x) &"','"& request.form("nome") &"','"& request.form("email") &"','"& request.form("cidade") &"','"& request.form("estado") &"','"& request.form("time_coracao") &"')" conexao.execute(sql) next conexao.close set conexao = nothing %>
-
Olha um exemplo aqui: <%@ Language=VBScript %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <% Dim myMail Dim HTML Set myMail = CreateObject("CDONTS.NewMail") HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<meta name=""GENERATOR""" HTML = HTML & " content=""Microsoft Visual Studio 6.0"">" HTML = HTML & "<title>HTMLMail</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""FFFFFF"">" HTML = HTML & "<IMG SRC=""http://www.microsoft.com/library/" HTML = HTML & "images/gifs/homepage/microsoft.gif"" BORDER=0 " HTML = HTML & "WIDTH=167 HEIGHT=36 ALT=""Microsoft Corporation"">" HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>" HTML = HTML & "Microsoft Exchange CDONTS Example</strong></p>" HTML = HTML & "<p><font size =""2"" face=""Tahoma"">" HTML = HTML & "CDO for NTS allows an easy way to send mail.<br>" HTML = HTML & "This example shows how the content can be " HTML = HTML & "an HTML page<br>" HTML = HTML & "which allows you to send rich text and" HTML = HTML & "inline graphics.</p>" HTML = HTML & "</body>" HTML = HTML & "</html>" myMail.From="someone@microsoft.com" myMail.To="someone@microsoft.com" myMail.Subject="Sample CDONTS HTML Message" myMail.BodyFormat=0 myMail.MailFormat=0 myMail.Body=HTML myMail.Send set mymail=nothing Response.Write "Message Sent" %> </HEAD> <BODY> </BODY> </HTML>
-
Valeu!!! Vo "pindura" uma na conta do Dark hoje!!! e a segunda vou tomar em homenagem a galera do Forum!!! Só pra constar: A galera que programa em progress faria assim: é mais facil: <% data = "15/10/2005,16/11/2004,13/08/2004,31/08/2004" vdata = split(data,",") For each valor in Vdata response.write (valor) & "<br>" next %> Até +
-
Concordo que realmente confunde. O que eu quiz foi até mesmo tentar deixar menos confuso, para outros usuários que as vezes tenham menos experiencias com variaveis vetoriais. Continuo achando que a contrução abaixo ignora o ultimo valor da array portanto não é adaptavel ao caso proposto neste Post. For I = 0 To UBound(Data)-1 Mas para finalizar, a solução mais segura seria: for I = LBound(vdata) to UBound(vdata) Abraços T+
-
21 itens Por que?? pois de 0 a 20 são 21 elementos obviamente. Só não entendi o que você quiz demonstrar com isso, acho que um não esta entendendo o outro.
-
Só pra deixar esclarecido o questionamento levanto pelo ursolouco, o contador não pode ser até Ubound(data) - 1. Vejamos o conceito da fução UBound: UBound() = Devolve o maior valor da dimensão de um array ou seja se a array data tem 20 elementos o valor de UBound(data) sera 19 que é o numero do ultimo elemento e não 20 que é o total de elementos.
-
A prinicipio concordei com o raciocionio do ursolouco Mais fazendo um teste pratico percebi que usando a logica dele no exemplo que dou abaixo, o ultimo valor da array não é pego. <% data = "15/10/2005,16/11/2004,13/08/2004,31/08/2004" vdata = split(data,",") for a = 0 to ubound(vdata) - 1 sql = "insert into apostas (data) values ('"& vdata(a) &"')" response.write (sql) & "<br>" next %>
-
Estranho!!! Fiz esse teste aqui e funcionou: <% data = "15/10/2005,16/11/2004,13/08/2004,31/08/2004" vdata = split(data,",") for a = 0 to ubound(vdata) sql = "insert into apostas (data) values ('"& vdata(a) &"')" response.write (sql) & "<br>" next %> Voce tem ideia do tamanho do looping?? da uma olhada no valor de ubound(vdata)
-
Ele deve estar dando time out por ter entrado em loop infinito.
-
o erro que esta dando agora é do objeto Adrotator que você colocou no codigo. Tava dando uma olhada em um material e o arquivo global.asa deve ficar no raiz do diretorio virtual. Acredito que fazendo isso e voltando ao codigo original que te passei deva funcionar.
-
Vamos descobrir o erro!!! altere o arquivo parceiros.asp temporariamente para a seguinte forma: <% 'função para trocar de parceiro sub trocaparceiro() if application("parceiro") = 6 then application("parceiro") = 1 else application("parceiro") = application("parceiro") + 1 end if end sub response.write"O valor da variavel que controla os parceiros é: " response.write(application("parceiro")) if application("parceiro") > 6 then application("parceiro") = 1 end if 'exibição dos dados select case application("parceiro") case 1%> mostrando dados parceiro 1 <%trocaparceiro()%> <%case 2%> mostrando dados parceiro 2 <%trocaparceiro()%> <%case 3%> mostrando dados parceiro 3 <%trocaparceiro()%> <%case 4%> mostrando dados parceiro 4 <%trocaparceiro()%> <%case 5%> mostrando dados parceiro 5 <%trocaparceiro()%> <%case 6%> mostrando dados parceiro 6 <%trocaparceiro()%> <% end select %> ALtere e me passe o resultado!! T+
-
O global asa deve ficar no diretório da aplicação e não no raiz do servidor, pois assim você pode ter um global.asa para cada aplicação sua Onde esta o seu global.asa???
-
1 - Coloque o arquivo global.asa que eu te passei no servidor 2 - No arquivo parceiros.asp onde eu coloquei: mostrando dados parceiro x, você substitui essa linhas com os dados que você quer que aparece para cada parceiro. 3 - coloque uma linha de include no seu default.asp chamando a pagina parceiros.asp, seu codigo fica assim:
-
Não sei se é a melhor maneira. mais funciona, da uma olhada: Arquivo Global.asa <script LANGUAGE=VBSCRIPT RUNAT=SERVER> Sub Application_OnStart() Application("Parceiro")=1 End Sub </SCRIPT> arquivo parceiros.asp <% 'função para trocar de parceiro sub trocaparceiro() if application("parceiro") = 6 then application("parceiro") = 1 else application("parceiro") = application("parceiro") + 1 end if end sub 'exibição dos dados select case application("parceiro") case 1%> mostrando dados parceiro 1 <%trocaparceiro()%> <%case 2%> mostrando dados parceiro 2 <%trocaparceiro()%> <%case 3%> mostrando dados parceiro 3 <%trocaparceiro()%> <%case 4%> mostrando dados parceiro 4 <%trocaparceiro()%> <%case 5%> mostrando dados parceiro 5 <%trocaparceiro()%> <%case 6%> mostrando dados parceiro 6 <%trocaparceiro()%> <% end select %>
-
Tenta assim: if len(objRS.fields("tel2_for")) = 0 then Response.write("<td><font size=2>vazio</td>") end if
-
São muitos parceiros??? se não for muito me fala que te passo uma idéia via Application/Session, só que é meio braçal então só é viavel com poucos anunciantes.
-
Da uma olhada na documentação do componente, que tem como pegar os outros campos do formulario sim, só não da via request
-
Acabei de fazer no meu outlook e deu certo com PrintScreen. Detalhe: Verifique se o tipo de mensagem esta como HTML ou texto sem formatação, pois só funciona em HTML
-
Da algum erro?? As configurações de servidor de saida (SMTP) estão corretas??? Explica melhor pra gente tentar te ajudar
-
Como diria jack "o estripador" vamos por partes: 1 - voce pode passar os dados para uma outra pagina sim usando ASP, atraves da opção action do formulario onde voce indica a pagina para qual os dados serão enviadas e que metodo de envio sera usado (GET ou POST) 2 - voce recupera os dados do formulario através de request.form("campo") ou request.QueryString("campo") 3 - o botão para imprimir voce pode fazer assim: <input type="button" value="Imprimir" onclick="javascript:window.print()"> 4 - Só sera necessário um banco de dados, caso voce queira armazenar os dados do formulário. Pegue algum tutorial basico de ASP que voce tera como fazer isso