Categoria Atual: ASP
<%@ 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
<%‘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
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
Registro aleatório no Access: SELECT * FROM tabela order by Rnd(Int(Now()*[ID])-Now()*[ID]); ID é o campo de indentificação de sua tabela.
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
There is no excerpt because this is a protected post.
Agência OFF, desenvolvimento de soluções web para as Agências Digitais