TBANet

Cara um Kbyte corresponde a não sei como fazer isso aqui mas equivale a dois elevado a 10 bytes ou seja, 1024 bytes resumindo: 1-kbyte tem 1024 bytes

por que você não usa o aspemail ele é bem mais rapido e seguro na minha opinião que o cdonts o codigo não muda praticamente nada e você pode colocar mensagens em formato html

Cara posso estar errado mas na minha opinião era melhor você ir procurar uns scripts prontos para isso.

muito obrigado.Era o q eu estva procurando.

Cara eu não testei esses código porém ele parece ser bom... da uma olhada ai. http://www.macoratti.net/vb_email.htm

Gostaria de saber c não tem jeito mesmo de no mesmo formulário eu Inserir,editar e excluir um registro de um banco de dados access apenas chamando essas funções por botões diferentes?

que isso cara só estava comentando também......rsrsrs

eu tava dando uma procurado na net e achei-o e então coloquei aqui...nem sabia que já tinha.....

Valeu eu não sabia onde posta-lo...

Este código mostra quais componentes estão instalados ou não no seu servidor achei muito bom e então decide postar aqui para vocês. <% Dim arrListaComponentes(47) arrListaComponentes(0) = Array( "AB Mailer","ABMailer.Mailman" ) arrListaComponentes(1) = Array( "ABC Upload","ABCUpload4.XForm" ) arrListaComponentes(2) = Array( "ActiveFile","ActiveFile.Post" ) arrListaComponentes(3) = Array( "ActiveX Data Object","ADODB.Connection" ) arrListaComponentes(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" ) arrListaComponentes(5) = Array( "ASP DNS", "AspDNS.Lookup" ) arrListaComponentes(6) = Array( "ASP HTTP","AspHTTP.Conn" ) arrListaComponentes(7) = Array( "ASP Image","AspImage.Image" ) arrListaComponentes(8) = Array( "ASP Mail","SMTPsvg.Mailer" ) arrListaComponentes(9) = Array( "ASP NNTP News", "AspNNTP.Conn" ) arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" ) arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" ) arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" ) arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" ) arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" ) arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" ) arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" ) arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" ) arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" ) arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" ) arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" ) arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" ) arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" ) arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" ) arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" ) arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" ) arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" ) arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2") arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1") arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer") arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" ) arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" ) arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" ) arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" ) arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" ) arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" ) arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" ) arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" ) arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" ) arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" ) arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" ) arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" ) arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" ) arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" ) arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" ) arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" ) arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" ) arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" ) ' Rotina que verifica o componente do array é um objeto. Function VerificaObjeto(pComponente) Dim objComponente On Error Resume Next VerificaObjeto = False Err.Clear Set objComponente = Server.CreateObject(pComponente) If Err = 0 Then VerificaObjeto = True Set objComponente = Nothing Err.Clear End Function Public Function VerificaComponentes() Dim intCont, strTxt Dim intIndex, strProv intCont = 0 strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>" For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes) strProv = intIndex strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='1'>" & arrListaComponentes(intIndex)(0) & "</font></td>" If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='1'>Instalado</font></td>" intCont = intCont + 1 Else strTxt = strTxt & "<td align='center'><font face='tahoma' size='1'>Não Instalado</font></td>" End If strTxt = strTxt & "</tr>" Next strTxt = strTxt & "</table><p align='center'><font face='tahoma' size='2'><b>" & intCont & "</b> componentes instalados de " strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> no provedor.</font> </p>" VerificaComponentes = strTxt End Function Response.Write VerificaComponentes %> é bem grandinho mas funciona muito bem....

use a função Drawtext do windows Veja o Declare nas APIs do VB. Caso o paragrafo da 1ª linha for maior que os das próximas inclua brancos na posição inicial da 1ª linha.

veja com o administrador da rede se a pasta não esta protegida.

depende de qual linguagem você estiver usando para abrir o xml se você estiver usando asp ai você vai precisar de um servidor que o suporte caso contrario a maioria do servidor tem suporte para ele.

uso desta forma: Call DrawText(printer.hdc, variavel, -1, lpRect, DT_SINGLELINE + DT_RIGHT + DT_VCENTER) *** DECLARE´S Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Global lpRect As RECT Public Const DT_SINGLELINE = &H20 Public Const DT_VCENTER = &H4 Public Const DT_LEFT = &H0 Public Const DT_RIGHT = &H2

porque eu não sei fazer, será que você poderia me dar uns exemplos ou explicar como se faz.....

Deividy muito obrigado pelo site ele me ajudou em outras coisas mas não no que eu preciso eu preciso abrir um arquivo xml com 30 registors e mostrar somente de 5 em 5 eu só consigo fazer ele mostrar de 1 em 1...