<%@ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(14) Dim theComponentName(14) ‘ Lista dos 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) = "aspSmartUpload.SmartUpload" theComponent(13) = "DAO.DBEngine.35" ‘ Apelido dos Componentes theComponentName(0) = "ADODB" theComponentName(1) = "SA-FileUp" theComponentName(2) = "AspHTTP" theComponentName(3) = "AspImage" theComponentName(4) = "LastMod" …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Precisa verificar a velocidade do seu site? Um ótimo site para verificar a velocidade de abertura do site, uma boa indicação para que acha que o site ou sistema está lento. Ele verifica a velocidade de cada arquivo executado pela página inicial e até mesmo por alguma pasta, a depender do projeto… Verifica a taxa de Byte de cada arquivo! acesse e confira… http://www.octagate.com/service/sitetimer/ Dica: Acesse também http://www.webly.com.br/
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
<%‘ACCESS – ODBC Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\pasta\banco.mdb;Uid=Admin;Pwd=; ‘———————————————————————– ‘———————————————————————– ‘Access 2007 – ACE OLEDB 12.0 Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\pasta\banco.accdb;Persist Security Info=False; ‘———————————————————————– ‘———————————————————————– ‘MySQL – ODBC Driver={mySQL};Server=localhost;Option=16834;Database=Nome_Base; ‘ou Driver=MySQL ODBC 3.51 Driver;DataBase=Nome_Base;Server=localhost;Uid=;PassWord=; ‘———————————————————————– ‘———————————————————————– ‘Oracle Driver={Microsoft ODBC for Oracle};Server=localhost;Uid=;Pwd=; ‘ou versão old Driver={Microsoft ODBC Driver for Oracle};ConnectString=OracleServer.world;Uid=myUsername;Pwd=myPassword; ‘———————————————————————– ‘———————————————————————– ‘SQL Server – ODBC Driver={SQL Server};Server=localhost;Database=Nome_Base;Uid=;Pwd=; ‘———————————————————————– ‘———————————————————————– ‘Postgre SQL ‘Standard Driver={PostgreSQL};Server=localhost;Port=5432;Database=Nome_Base;Uid=;Pwd=; ‘ANSI Driver={PostgreSQL ANSI};Server=localhost;Port=5432;Database=Nome_Base;Uid=;Pwd=; ‘———————————————————————– ‘———————————————————————– …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
<select name="Combo_Paises"> <option value="África do Sul">África do Sul</option> <option value="Albânia">Albânia</option> <option value="Alemanha">Alemanha</option> <option value="Andorra">Andorra</option> <option value="Angola">Angola</option> <option value="Anguilla">Anguilla</option> <option value="Antigua">Antigua</option> <option value="Arábia Saudita">Arábia Saudita</option> <option value="Argentina">Argentina</option> <option value="Armênia">Armênia</option> <option value="Aruba">Aruba</option> <option value="Austrália">Austrália</option> <option value="Áustria">Áustria</option> <option value="Azerbaijão">Azerbaijão</option> <option value="Bahamas">Bahamas</option> <option value="Bahrein">Bahrein</option> <option value="Bangladesh">Bangladesh</option> <option value="Barbados">Barbados</option> <option value="Bélgica">Bélgica</option> <option value="Benin">Benin</option> <option value="Bermudas">Bermudas</option> <option value="Botsuana">Botsuana</option> <option value="Brasil">Brasil</option> <option value="Brunei">Brunei</option> <option value="Bulgária">Bulgária</option> <option value="Burkina Fasso">Burkina Fasso</option> <option value="botão">botão</option> <option value="Cabo Verde">Cabo Verde</option> <option value="Camarões">Camarões</option> <option value="Camboja">Camboja</option> <option value="Canadá">Canadá</option> <option value="Cazaquistão">Cazaquistão</option> <option value="Chade">Chade</option> <option value="Chile">Chile</option> …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Esse é uma das várias séries desse projeto. Quem não gosta de nada pronto? Então segue um combo em HTML das siglas de todos os estados brasileiros, é usar e abusar!!! <select name="Combo_Estados"> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AM">AM</option> <option value="AP">AP</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="MG">MG</option> <option value="MS">MS</option> <option value="MT">MT</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="PR">PR</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="RS">RS</option> <option …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Mais um randomize de Imagens adaptado para as necessidade básicas <%@ Language="VBScript" %> <% Option Explicit %> <% Function RandomDeImagens(strPath,strDefault) On Error Resume Next Randomize Timer Dim ObjDeFSO, objFolder, ObjDaPasta, ObjPasta02 Dim StrPastas, StrImagens, StrBase, StrPasta Const strValid = ".gif.jpg.png" If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) StrBase = Server.MapPath(strPath) Set ObjDeFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = ObjDeFSO.GetFolder(StrBase) Set ObjDaPasta = objFolder.Files For Each ObjPasta02 In ObjDaPasta StrPasta = LCase(ObjPasta02.Name)If …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Para o bem de todos segue a Paginação que funciona no MySQL, Testada e Aprovada LEGENDAS: TedkDados => RS TedKBanco => Conn TedkDados.Pagesize = 30 => Quantidade de linhas! <% TedkBanco.CursorLocation = 3 Set TedkDados = Server.CreateObject( "Adodb.RecordSet") TedkDados.Pagesize = 30 TedkDados.Open "Select NomeNewsletterEMail, EMailNewsletterEMail From adminNewsletterEMail Order By NomeNewsletterEMail Asc",TedkBanco If TedkDados.Eof Then Response.Write("") Else PaginaAtual = CInt(Request.Querystring( "Pages")) If PaginaAtual = 0 Then PaginaAtual = 1 End If TedkDados.AbsolutePage = PaginaAtual Num = …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Nesse caso vamos criar três arquivos básico para o envio do E-Mail, um em HTML, outro JSP e um das classes do JAVA! Arquivo: formulario.html <html> <body> <form name="FormEnvio" method="post" action="enviar.jsp"> <table border="0" align="center"> <tr> <td width="82"><strong>Para:</strong></td> <td width="197"><input type="text" name="para" size="30"></td> </tr> <tr> <td><strong>De:</strong></td> <td><input type="text" name="de" size="30"></td> </tr> <tr> <td><strong>Assunnto:</strong></td> <td><input type="text" name="assunto" size="30"></td> </tr> <tr> <td colspan="2"><textarea name="mensagem" rows="6" cols="45"></textarea></td> </tr> <tr> <td colspan="2" align="center"><input type="Submit" name="Enviar" value="Enviar Email"></td> </tr> </table> </form> </body> </html> …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Peguei partes de tutorias para todas as definições possíveis do que é Streaming Nesse tutorial você vai ter noção de como se faz para fazer esse tipo de transmissão que está tendo mais espaço na internet! Vamos lá então: Streaming é a tecnologia que permite o envio de informação multimídia através de pacotes, utilizando redes de computadores, sobretudo a Internet. Quando a ligação de rede é banda larga, a velocidade de transmissão da informação é elevada, dando a sensação de …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais