Marcio Alves Vieira

Caro Kuroi, grato pela dica !

Ola pessoal ! Eu procurei por dois dias e não consegui achar, na verdade não programo em VB, estou começando a agora. Tenho o seguinte form: Private Sub Form_Load() Shell ("C:\Arquivos de programas\WinRAR\rar a -r -d -m5 -ag -t mssql.rar C:\Temp"), vbNormalFocus End Sub Até ai nada demais, ele roda certinho. O que eu quero é que quando o aplicativo rar.exe terminar, o Form que deu origem a ele feche sozinho.

Pagina 01: <form id="form1" name="form1" method="post" action="pagina02.asp"> <input name="campo01" type="text" id="campo01" size="10" /> <input name="campo02" type="text" id="campo02" size="10" /> <input type="submit" name="button" id="button" value="Submit" /> </form> Pagina 02: <% Option Explicit Dim campo01,campo02 campo01 = Request.Form("campo01") campo02 = Request.Form("campo02") %> <form id="form2" name="form2" method="post" action="pagina03.asp"> <input name="campo03" type="text" id="campo03" size="10" /> <input name="campo04" type="text" id="campo04" size="10" /> <input name="campo01" type="hidden" id="campo01" value="<% =campo01 %>" size="10" /> <input name="campo02" type="hidden" id="campo02" value="<% =campo02 %>" size="10" /> <input type="submit" name="button2" id="button2" value="Submit" /> </form> Pagina 03: <% Option Explicit Dim objConn, ObjRs01 Dim campo01,campo02,campo03,campo04 campo01 = Request.Form("campo01") campo02 = Request.Form("campo02") campo03 = Request.Form("campo03") campo04 = Request.Form("campo04") Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open = "Provider=MySQLProv;Data Source=seu_banco_de_dados;User Id=Nome_de_usuario;Password=Sua_senha;" ObjConn.CursorLocation = 3 Strquery01 = "Insert Into sua_tabela (campo01,campo02,campo03,camp04) Values ('"&campo01&"','"&campo02&"','"&campo03&"','"&campo04&"')" Set ObjRS01 = ObjConn.Execute(StrQuery01) %> Eu usei a String de conexão OLE DB, OleDbConnection (.NET), pois é a que eu utilizo no meu sistema, veja qual se adequa melhor para você.

Basta que ná página 2 você armazene os dados em um campo tipo hidden, e após o envio para a página 3 você os recupera normalmente.

Você poderá fazer isso com Delphi, criando um componente ActiveX. Se preferir pode também usar o VB

Use o FCKeditor

Porque um Form para cada registro ? Poderia explicar o que o você deseja fazer ?

Ola ! Faça o post do formulário que envia os dados.

Ola Marvi. Satisfações,

De uma olhada neste link: http://www.criarweb.com/artigos/476.php. É um descritivo claro e simples de como funciona e como se implementa FSO. At. Marcio Alves Vieira

Você declarou a variável ObjWorkSheet porem você não a instanciou. Cade o FileSystemObject ?

Na verdade um campo tipo checkbox tem duas condições selecionado ou não, caso ele esteja selecionado ele passa um determinado valor, caso contrário ele estará vázio. Vamos pensar da seguinte forma: <input name="teste" type="checkbox" id="teste" value="01" /> Se este campo estiver verificado(checado) ele passará o valor 01 casso contrário ele não passará nada. Sendo assim como podemos recuperar esse valor ? Ex. Dim teste teste = Request.Form("teste") <input name="teste" type="checkbox" id="teste" value="01" <% If teste <> "" Then%>Checked<% End If %>/> Esta é apenas uma das formas de se fazer isso ! Espero ter ajudado.

<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" /> No topo da página

Ola ! Faça o post do código, e se a página estiver disponível on-line forneça o endereço.

Em primeiro lugar existem muitas falhas no seu script que podem comprometer a segurança do sistema. Utilize este código: <% Dim cn, DSN, rs, strSql, login, senha login = Replace(Trim(Request.Form("login")), "'", "''") senha = Replace(Trim(Request.Form("senha")), "'", "''") Set cn=Server.CreateObject("ADODB.Connection") DSN="DRIVER={Microsoft Access Driver (*.mdb)}; " DSN= dsn & "DBQ=" & server.mappath("..\banco\banco.mdb") & ";" cn.Open DSN strSql= "SELECT * FROM users WHERE login='"&login&"' and senha='"&senha&"'" set rs= Server.CreateObject("ADODB.Recordset") rs.Open strSql, cn, 1, 2 If not rs.eof then Session("login") = login Response.Redirect "default.asp" Else Session("login") = "visitante" Response.Redirect "pagina_de_login_invalido.asp" End if rs.close cn.close Set rs = nothing Set cn = nothing %> Para fazer a inclusão no banco de dados utilize a instrução Insert: <% strSql= "Insert Into users (campo1,campo2,campo3,etc) Values ('"&variavel_campo1&"','"&variavel_campo2&"','"&variavel_campo3&"','"&variavel_etc&"')" %> O código pode ser melhorado, pesquise um pouco e mãos a obra.

Ola ! As suas tabelas são: Empresa, EmpresaTelefone, EmpresaTipo, EnderecoTipo, TelefoneTipo, EmpresaEndereco, EmpresaTelefone ?

Faça um post do seu código.

<input name="checkbox" type="checkbox" id="checkbox" value="seu_valor">

I Must be crazy <% Set rstCP = conn.execute("Select count * from tbl_Posts WHERE codusuario="&session("id")&" and bloqueio=0") response.write [color="#FF0000"][b]rstCP.RecordCount[/b][/color] %>

Ola Leandro. Faça o post do erro.

Para acabar de vez com essa seleuma das permissões segue uma dica: Abra o Windows explorer Clique na pasta InetPub Clique com o botão direito do mouse sobre a pasta wwwroot clique em compartilhamento e segurança Clique na guia segurança Verifique se os usuarios: sua_maquina\IUSR_sua_maquina sua_maquina\IWAM_sua_maquina Constam da lista e se suas permissões são de controle total, caso não estejam adicione-os e de permissão de controle total Agora Clique em avançado Na guia permissões marque a opção: Substituir as entradas de permissão em todos os objetos filho pelas entradas aplicáveis mostradas aqui (segunda opção) NÂO MARQUEM A PRIMEIRA OPÇÂO, caso ele esteja marcada remova a seleção da mesma ! Clique em ok Clique em aplicar Clique em ok. Pronto isso deve resolver os erros referentes a permissões. Marcio Alves Vieira marcio.alves.vieira@terra.com.br