Decio

Como você esta pegando o nome do arquivo?? Basta jogar o nome do arquivo selecionado para uma variavel, tipo: Session("Arquivo") Dai bastaria usar a sua váriavel: objCDO.AttachFile "d:\" & Session("Arquivo") Fui claro??

Se o formulário esta no mesmo projeto, uma váriavel publica resolve o problema , como disse nosso colega.Mas se for entre outra aplicação já é mais complicado.

Tenta fazer como no velho DOS: mova a pasta inteira para a nova pasta. assim a anterior é apagada e sera criada outra com o novo nome.

Eu preciso saber se a impressora esta on-line/off-line/qual tipo de erro..etc... Como refêrencia , estava tentando usar as API´s do Windows, da qual não obtive muito sucesso.Peguei várias informações sobre a impressora , mas faltou o status geral. da uma olhada neste site : http://www.merrioncomputing.com/Programming/PrintStatus.htm Se alguém já usou esta API e teve sucesso, me explique como. Abraços.

Abaixo o seu código corrigido: Obs: Note que só arrumei a 1º validadção, o resto é com você. <script LANGUAGE="JavaScript"> <!--// function valida_form() { var Form; //Form = document.leilao; if (document.frmLeilao.nome.value == "") { alert("Por favor, preencha seu nome."); Form.nome.focus(); return false;} if (Form.email.value.length == 0) { alert("Por favor, preencha seu e-mail."); Form.email.focus(); return false;} if (Form.telefone.value.length == 0) { alert("Por favor, preencha o telefone para contato."); Form.telefone.focus(); return false;} if (Form.modelos.value.length == 0) { alert("Por favor, preencha o modelo que deseja."); Form.modelos.focus(); return false;} return true;} //--> </script> '----------formulário----------&nbsp; <FORM name = "frmLeilao " action="http://www.carroecia.com.br/contato/leilao2003c.asp" onSubmit="return valida_form()" method="POST"> <div align="center"> <TABLE width="535" border=0 align="center" cellpadding="0" cellspacing="0" bordercolor="#000000"> <TR> <TD width="529" height="67" align="center" valign="bottom" bordercolor="#000000" bgcolor="#cc0000" halign="CENTER"> <p><font color="#FFFFCC" size="5" face="Arial, Helvetica, sans-serif"><B>Pesquisa ao Contrário</B></font><font color="#FFFFCC" size="5" face="Arial, Helvetica, sans-serif"><font size="3"><I><br> Voc&ecirc; diz qual carro est&aacute; interessado e a Carro e Cia envia as ofertas <br> para seu e-mail.</i></font></font></p></TD> </TR> </TABLE> <TABLE width="87%" border=0 cellspacing="0" cellpadding="0"> <TR> <TD bgcolor="WHITE" valign="TOP" halign="CENTER" align="CENTER"> <table width="542" border="0" align="center"> <tr> <td width="70%" height="13" align="center" valign="TOP" bgcolor="#E6E6E6"> <table width="535" border="0" align="center" cellspacing="2" bgcolor="#FFFFFF"> <tr> <td width="108" bgcolor="#E6E6E6"> <div align="right"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome:<font color="#FF0000">*</font></font></strong></div></td> <td colspan="2" bgcolor="#E6E6E6"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <input name="nome" type="TEXT" id="nome" size="30" maxlength="30"> </font></strong></td> </tr> <tr> <td bgcolor="#E6E6E6"> <div align="right"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">E-mail:<font color="#FF0000">*</font></font></strong></div></td> <td colspan="2" bgcolor="#E6E6E6"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <input name="email" type="TEXT" id="email" size="30" maxlength="30"> </font></strong></td> </tr> <tr> <td bgcolor="#E6E6E6"> <div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Telefone:<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#FF0000">*</font></font></strong></font></div></td> <td colspan="2" bgcolor="#E6E6E6"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <input name="telefone" type="TEXT" id="telefone" size="30" maxlength="30"> </font></strong></td> </tr> <tr> <td height="23" bgcolor="#E6E6E6"> <div align="right"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Automóvel:<font color="#FF0000">*</font></font></strong></div></td> <td colspan="2" bgcolor="#E6E6E6"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <input name="modelos" type="TEXT" id="modelos" size="35" maxlength="24"> </font></strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><em><font face="Arial, Helvetica, sans-serif">(&Eacute; permitido mais de um modelo separados por v&iacute;rgula).</font></em> </font></td> </tr> <tr> <td height="9" bgcolor="#E6E6E6"> <div align="right"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Cor:<i> </i></font></strong></div></td> <td colspan="2" bgcolor="#E6E6E6"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><i> <input type="TEXT" name="cor" size="20" maxlength="20"> </i> </font></strong></td> </tr> <tr bgcolor="#E6E6E6"> <td height="23"> <div align="right"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Tipo de Automóvel: </font></strong></div></td> <td width="264"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <input type="radio" name="Tipo" value="Novo"> NOVA <input type="radio" name="Tipo" value="Usado"> USADA <input type="radio" name="Tipo" value="Tanto Faz" checked> Tanto Faz </font></strong></td> <td width="149"><strong>Qual ano? &nbsp; <input type="TEXT" name="Ano" size="10" maxlength="10"> </strong></td> </tr> <tr> <td bgcolor="#E6E6E6">&nbsp;</td> <td colspan="2" bgcolor="#E6E6E6"><b> <% if Carroecia = 1 then Session("NewsletterCarroecia") = 1 %> <input type="checkbox" name="Carroecia" value="1"> <% else Session("NewsletterCarroecia") = 0 %> <input name="Carroecia" type="checkbox" value="1" checked> <% end if %> </b><i><b>&quot;Desejo receber newsletter: Carro e Cia&quot;</b></i> <b></b></td> </tr> <tr> <td height="26" colspan="3" bgcolor="#E6E6E6"><div align="right"><strong></strong></div> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Melhor forma de contato:</font></strong>&nbsp;</font> <select name="Contato"> <option value="1" selected>pelo E-Mail</option> <option value="2">pelo Celular</option> <option value="3">por Telefone</option> <option value="4">por qualquer jeito</option> </select> </td> </tr> </table> <p><i></i><font size="2"><font size="3"> <i>Outras informa&ccedil;&otilde;es pertinentes</i><b>:</b></font><b><br> <textarea name="info" cols="50" rows="4"></textarea> </b></font></p> <p> <input type="submit" name="enviar" value="Enviar" > </p></td> </tr> </table></TD> </TR> </TABLE> </div> </FORM>

Alguém já fez algo ou sabe onde eu possa achar informações sobre como usar impressora USB com o VB?? Obs: Não quero usar as funções de impressão do VB.

Tenta colocar a tag "<p><\p>" após alterar a sua string e antes de mostrar com o response.write.

Eu não testei o código, mas acho que assim deve funcionar: Call Shell("explorer.exe " & CD_ROM) Não é preciso dar o caminho fisico do Explorer.exe .

Para colocar em label: labe1.caption= "isto é um " & vbcrlf & "teste" & vbcrlf & "Fim do teste" Para criar o formulario que você quer , crie um projeto novo, depois você tem que adicionar um MdiForm. Após isso ,todos form que você adicionar, tem que mudar a propriedade "MDICHILD" para True. Espero ter sido claro.

Eu copiei e executei este código no BC3.1 e funcionou (em C). O erro deve estar nas configurações do compilador. Da uma olhada em OPTION-DIRECTORIES e verifique se o caminho para as libs e includes estão corretos.

Tente o código abaixo para retornar a letra do drive de CD: Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Const DRIVE_REMOVABLE = 2 Private Const DRIVE_FIXED = 3 Private Const DRIVE_REMOTE = 4 Private Const DRIVE_CDROM = 5 Private Const DRIVE_RAMDISK = 6 Private Sub Form_Load() Dim r&, allDrives$, JustOneDrive$, pos%, DriveType& Dim CDfound As Integer Dim Search As Boolean 'pad the string with spaces allDrives$ = Space$(64) 'call the API to get the string containing all drives r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$) 'trim off trailing chr$(0)'s. AllDrives$ 'now contains all the drive letters. allDrives$ = Left$(allDrives$, r&) 'begin a loop Do 'find the first separating chr$(0) pos% = InStr(allDrives$, Chr$(0)) 'if there's one, then... If pos% Then 'extract the drive up to the chr$(0) JustOneDrive$ = Left$(allDrives$, pos%) 'and remove that from the Alldrives string, 'so it won't be checked again allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$)) 'with the one drive, call the API to 'determine the drive type DriveType& = GetDriveType(JustOneDrive$) 'check if it's what we want If DriveType& = DRIVE_CDROM Then 'got it (or at least the first one, 'anyway, if more than one), so set 'the found flag... CDfound% = True 'we're done, so get out Exit Do End If End If Loop Until allDrives$ = "" Or DriveType& = DRIVE_CDROM 'display the appropriate message If CDfound% Then CD_ROM = Left$(UCase$(JustOneDrive$), 3) MsgBox "Unidade de CD é " & CD_ROM Else MsgBox "Não foi detectado um drive de CD-ROM em seu sistema.", vbCritical End End If Exit Sub End Sub

Não sei se eu estou certo, mas no VB 3 , para se declarar uma váriavel Comum a todos os formularios , se declarava uma variavel como Global pois não existia o "Public". Depois em versões mais recentes ,é que se implementou esta nova forma de se declarar uma variavel como Public , que tem o mesmo efeito de se declarar como Global.

Eu fiz o teste com o BC3.1 também , e funcionou. Tenta colocar o EGAVGA.BGI no mesmo diretorio do seu fonte ou executavel. Fora isso tenta olhar para as váriaveie de ambiente para ver se tá tudo ok.

Bom , enquanto o Urso não responde, tenta isso aqui: <% Palavra = "Aqui vai seu texto com Mais De 45 Caracteres que deve ser quebrado" For i = 1 To Len(palavra) NovaString = NovaString & Mid(palavra, i, 1) If i = 45 Then NovaString = NovaString & "<br>" Next Response.Write NovaString %>

isto é só um exemplo ou CIRCLE esta escrito em maiúscula no seu programa? O correto é circle(int x, int y, int r);

Para apagar o cookie, basta você usar o mesmo comando que usou para gravar o valor antigo , com o novo valor. O cookie anterior sera substituido.

Tenta fazer isto para ver no que dá: senha=Cstr(request.form("senha")) session("usuario") = Cstr(request.form("usuario"))

Porque você não tenta redirecionar? ex: Select Case link Case "contato" : Response.Redirect("login.asp") Case "busca" : Response.Redirect("adm.asp")

Só um lembrete: você precisa saber se o modelo da impressora térmica aceita imprimir códigos de barras, caso contrario, você pode até conseguir imprimir , mas não vai conseguir ler nenhum código impresso. Alguns fabricantes tem até dll's para seus produtos, e que já tem até funções para imprimir códigos de barras. Não custa pesquisar.

Não vou dizer que é impossivel, mas é bem dificil fazer isso. O teclado por exemplo, o sistema operacional só verica a conexão durante a inicialização do sistema.Depois disso só se você fizer uma rotina para ficar enviando comando para o teclado e esperando resposta, o que não é fácil de se fazer.

Acho que você vai ter que usar o FileSystemObject, dá uma olhada aqui mesmo no fórum que já foi dito muito a respeito. Um abraço.

Não seria usar o .Path ??? Dai bastaria você separar as informações que lhe interessa.

Como você esta distribuindo o seu programa?? O correto é criar um instalador para registrar todos os componentes do seu programa.

Tenta asssim: mail= Request.form("mail") nome= Request.form("nome") cidade= Request.form("cidade") idade= Request.form("idade") set email = Server.CreateObject("Cdonts.newmail") email.from = mail email.to = "meu e-mail" email.Subject = "Cadastro" email.body = "Nome:"&nome& " <br> Cidade:"&cidade&" <br> Idade:"&idade&" <br> email:"&mail objMail.BodyFormat = 0 objMail.MailFormat = 0 email.send

Chame a função desta forma: SetWindowPos Me.hWnd, HWND_NOTOPMOST , 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE