raphanasc

você não esta concatenando as outas partes tentan assim: corpo = "Nome: " & nome & vbCrLf corpo = corpo & "Empresa: " & empresa & vbCrLf corpo = corpo & "E-mail: " & email & vbCrLf corpo = corpo & "Cidade: " & cidade & vbCrLf Corpo = Corpo & mensagem

Ola, Tenho um login que funciona do modo convencional, localizar usuario e senha... se true, joga numa session e as paginas validam a session... Agora meu chefe quer que permita somente um login, por exemplo: Se alguém logou na minha máquina, e ele tentar logar em outra dar a msg de que o usuario já esta logado em outra maquina ou derrubar aquele que já está logado. Abs

se for em asp o envio só sera executado quando a pagina for aberta.

Teria que ser uma função em javascript que pega o valor do combobox e fique verificando a hora pra ver se já se passaram 3 hrs... se verificaição verdadeira você pode executar uma função qulquer que envie email pra você.. O unico problema é o javascript que fica verificando a hora mesmo, mas para isso a pagina tem que estar aberta. ABS

parece que o erro esta na sua instrução sql... mas nesse codigo você não mostrou a instrução

você tentou ???? <%set rs = conexao.execute("Select * from tabela where campo like '%lala%'")%>

Ola, Estou com um probleminha... meu site é em asp, mas estou usando essas funções em java pra ler um menu de acordo com o banco de dados, mas sempre que eu carrego a pagina os menus já iniciam aberto... alguém sabe como faço pra iniciar fechado... <!--#include file="../net/conn.net"--> <!--#include file="../net/utilitarios.net"--> <!--#include file="../net/util_per.net"--> <script type="text/javascript"> var persistmenu = "sim"; var persisttype = "site"; if(document.getElementById) { document.write('<style type="text/css">\n') document.write('.submenu{display: none;}\n') document.write('</style>\n') } function abrir_menu(obj) { if(document.getElementById) { var el = document.getElementById(obj); var ar = document.getElementById("menu").getElementsByTagName("span"); if(el.style.display != "block") { for(var i=0; i<ar.length; i++) { if(ar[i].className=="submenu") { ar[i].style.display = "none"; } } el.style.display = "block"; } else { el.style.display = "none"; } } } function abrir_menu2(obj) { if(document.getElementById) { var el = document.getElementById(obj); var ar = document.getElementById("menu2").getElementsByTagName("span2"); if(el.style.display != "block") { for(var i=0; i<ar.length; i++) { if(ar[i].className=="submenu2") { ar[i].style.display = "none"; } } el.style.display = "block"; } else { el.style.display = "none"; } } } function abrir_menu3(obj) { if(document.getElementById) { var el = document.getElementById(obj); var ar = document.getElementById("menu3").getElementsByTagName("span3"); if(el.style.display != "block") { for(var i=0; i<ar.length; i++) { if(ar[i].className=="submenu3") { ar[i].style.display = "none"; } } el.style.display = "block"; } else { el.style.display = "none"; } } } function get_cookie(Name) { var search = Name + "=" var returnvalue = ""; if(document.cookie.length > 0) { offset = document.cookie.indexOf(search) if(offset != -1) { offset += search.length end = document.cookie.indexOf(";", offset); if(end == -1) end = document.cookie.length; returnvalue = unescape(document.cookie.substring(offset, end)) } } return returnvalue; } function onloadfunction() { if(persistmenu=="sim") { var cookiename = (persisttype=="site")? "abrir_menu" : window.location.pathname var cookievalue = get_cookie(cookiename) if(cookievalue!="") { document.getElementById(cookievalue).style.display="block" } } } function savemenustate() { var inc=1, blockid="" while(document.getElementById("submenu"+inc)) { if(document.getElementById("submenu"+inc).style.display=="block") { blockid="submenu"+inc break } inc++ } var cookiename = (persisttype=="site")? "abrir_menu" : window.location.pathname var cookievalue = (persisttype=="site")? blockid+";path=/" : blockid document.cookie = cookiename+"="+cookievalue } if(window.addEventListener) { window.addEventListener("load", onloadfunction, false) } else if(window.attachEvent) { window.attachEvent("onload", onloadfunction) } else if(document.getElementById) { window.onload = onloadfunction } if(persistmenu=="sim" && document.getElementById) { window.onunload = savemenustate } </script> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="pt" lang="pt"> <head> <title>ERP (menu sanfona)</title> </head> <body> <a href="cad_alt_class_prod.asp?opcao=1">inserir novo grupo</a> <% Call ConexaoSistema() cSql = "SELECT gr_int_id, gr_var_nome FROM t_grupo_produto" response.Flush() Set rs = cConexao.Execute( cSql ) do while not rs.eof %> <div id="menu"> <div onDblClick="self.location.href='cad_alt_class_prod.asp?opcao=2&gr_id=<%=rs("gr_int_id")%>'" onClick="abrir_menu('<%=rs("gr_int_id")%><%=rs("gr_var_nome")%>')"> <% ctsql = "select subcat_int_id from t_subcategoria_produto as subcat inner join t_categoria_produto as cat on (subcat.cat_int_id = cat.cat_int_id) inner join t_subgrupo_produto as subgr on (cat.subgr_int_id = subgr.subgr_int_id) inner join t_grupo_produto as gr on (subgr.gr_int_id = gr.gr_int_id) where gr.gr_int_id='"&rs("gr_int_id")&"'" set rsct = cconexao.execute(ctsql) %> <img src="../img_sistema/icon/icon_mais.gif"/><b> <%=rs("gr_var_nome")%> (<%=rsct.RecordCount%>)</b> </div> <span id="<%=rs("gr_int_id")%><%=rs("gr_var_nome")%>" class="TextoCampoFormulario"> <%SQL2 = "SELECT subgr_int_id, subgr_var_nome FROM t_subgrupo_produto WHERE gr_int_id='"&rs("gr_int_id")&"'" response.Flush() %> <a href="cad_alt_class_prod.asp?opcao=1&gr_id=<%=rs("gr_int_id")%>">inserir novo subgrupo em <%=rs("gr_var_nome")%></a> <% Set rs2 = cConexao.Execute( SQL2 ) do while not rs2.eof %> <div id="menu2"> <div onDblClick="self.location.href='cad_alt_class_prod.asp?opcao=2&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>'" onClick="abrir_menu2('<%=rs2("subgr_int_id")%><%=rs2("subgr_var_nome")%>')"> <% ctsql2 = "select subcat_int_id from t_subcategoria_produto as subcat inner join t_categoria_produto as cat on (subcat.cat_int_id = cat.cat_int_id) inner join t_subgrupo_produto as subgr on (cat.subgr_int_id = subgr.subgr_int_id) where subgr.subgr_int_id='"&rs2("subgr_int_id")&"'" set rsct2 = cconexao.execute(ctsql2) %> <img src="../img_sistema/icon/icon_mais.gif"/><img src="../img_sistema/icon/icon_mais.gif"/><b> <%=rs2("subgr_var_nome")%> (<%=rsct2.RecordCount%>)</b></div> <span id="<%=rs2("subgr_int_id")%><%=rs2("subgr_var_nome")%>" class="TextoCampoFormulario"> <%SQL3 = "SELECT cat_int_id, cat_var_nome FROM t_categoria_produto WHERE subgr_int_id='"&rs2("subgr_int_id")&"'" response.Flush() %> <a href="cad_alt_class_prod.asp?opcao=1&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>">inserir nova categoria em <%=rs2("subgr_var_nome")%></a> <% Set rs3 = cConexao.Execute( SQL3 ) do while not rs3.eof %> <div id="menu3"> <div onDblClick="self.location.href='cad_alt_class_prod.asp?opcao=2&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>&cat_id=<%=rs3("cat_int_id")%>'" onClick="abrir_menu3('<%=rs3("cat_int_id")%><%=rs3("cat_var_nome")%>')"> <% ctsql3 = "select subcat_int_id from t_subcategoria_produto as subcat inner join t_categoria_produto as cat on (subcat.cat_int_id = cat.cat_int_id) where cat.cat_int_id='"&rs3("cat_int_id")&"'" set rsct3 = cconexao.execute(ctsql3) %> <img src="../img_sistema/icon/icon_mais.gif"/><img src="../img_sistema/icon/icon_mais.gif"/><img src="../img_sistema/icon/icon_mais.gif"/><b> <%=rs3("cat_var_nome")%>(<%=rsct3.RecordCount%>)</b></div> <span id="<%=rs3("cat_int_id")%><%=rs3("cat_var_nome")%>" class="TextoCampoFormulario"> <%SQL4 = "SELECT subcat_int_id, subcat_var_nome FROM t_subcategoria_produto WHERE cat_int_id='"&rs3("cat_int_id")&"'" response.Flush() %> <a href="cad_alt_class_prod.asp?opcao=1&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>&cat_id=<%=rs3("cat_int_id")%>">inserir nova subcategoria em <%=rs3("cat_var_nome")%></a><br/> <% Set rs4 = cConexao.Execute( SQL4 ) do while not rs4.eof %> <div onDblClick="self.location.href='cad_alt_class_prod.asp?opcao=2&gr_id=<%=rs("gr_int_id")%>&subgr_id=<%=rs2("subgr_int_id")%>&cat_id=<%=rs3("cat_int_id")%>&subcat_id=<%=rs4("subcat_int_id")%>'"> ◊ <%=rs4("subcat_var_nome")%></div> <% rs4.movenext loop%> </span> </div> <% rs3.movenext loop %> </span> </div> <% rs2.movenext loop %> </span> </div> <% rs.movenext loop call fechaconexaosistema()%> </body> </html>

Aproveitando o tópico... meu sistema estava enviando email via cdonts... simplesmente de uma hora pra outra parou de enviar... alguém sabe o que pode ser? Testei o Dundas que também estava instalado e não enviou...

Usa a função Mid("variavel", 1, QTD)

Vlw... funcionou legal... brigadao!!!

Tenho um banco de dados, sei que nesse banco de dados tem varios produtos duplicados, mas não sei quais... se eu for procurar 1 por 1 vou ficar anos e não vou terminar. alguém sabe algum select que procure por produtos que estejam duplicados.... ABS

Não sei se era isso que você queria mas ai vai o codigo de uma pagina de cadastro de cliente. Preciso proibir o usuario de acessar essa pagina 2x ou + ao mesmo tempo...(ex ao mesmo tempo seria 2 browser ou 2 abas do browser). Caso ele já esteja acessando a página dar alguma msg de que não pode acessar ou algo do tipo. <!--#include file="../net/conn.net"--> <!--#include file="../net/utilitarios.net"--> <!--#include file="../net/util_per.net"--> <% Session("QueryString") = "" if ( Not VerificaPermissaoBD( Session("Id_Login"), 4, "CLI01" ) ) then response.Redirect("../net/msg.asp?Msg=Usuário sem permissão no Modulo Cliente !!!") end if Dim aDados( 11,1 ) if ( Request.QueryString("Opcao") = "2" ) then Call ConexaoSistema() agSql = " select top 1 ctc_int_id_contato, ctc_int_data_cadastro from t_contato where cli_int_id_cliente = '" & Request.QueryString("Id_Cliente") & "' order by ctc_int_data_cadastro desc " set rsAg = cConexao.Execute ( agSql ) dim id_contato if ( Not RsAg.Eof ) then id_contato = rsAg("ctc_int_id_contato") end if cSql = "Select Cli_Int_Id_Cliente, Cli_Var_Razao_Social, Cli_Var_Fantasia, Cli_Char_Tipo_Pessoa, Cli_Var_CNPJ, Sgc_Int_Id_Segmento_Mercado, " cSql = cSql & "Cli_Var_IE, Cli_Var_CCM, Cli_Dec_Limite_Credito, Sts_Int_Id_Status, Ven_Int_id_Vendedor, Tpc_Int_Id_Tipo_Cliente, " cSql = cSql & "Cli_Char_Ddd, Cli_Var_Telefone, Cli_Var_Ramal, Cli_Var_Fax, Cli_Var_Ramal_Fax, Cli_Var_Home_Page, Cli_Text_Obs, " cSql = cSql & "Cli_Text_Obs_Cadastro, Cli_Char_Flag_Cadastro, Cli_Int_Data_Cadastro, Cli_Int_Data_Sistema, Cli_char_flag_sm " cSql = cSql & " from t_cliente " cSql = cSql & " where Cli_Int_Id_Cliente = '" & Request.QueryString("Id_Cliente") & "'" Set RsCliente = cConexao.Execute( cSql ) if ( Not RsCliente.Eof ) then Session("Cad_Id_Cliente") = RsCliente("Cli_Int_Id_Cliente") nTpc_Int_Id_Tipo_Cliente = RsCliente("Tpc_Int_Id_Tipo_Cliente") nSgc_Int_Id_Segmento_Mercado = RsCliente("Sgc_Int_Id_Segmento_Mercado") nVen_Int_id_Vendedor = RsCliente("Ven_Int_id_Vendedor") Session("Id_Vendedor_Cliente") = RsCliente("Ven_Int_id_Vendedor") aDados( 11,1 ) = nVen_Int_id_Vendedor nSts_Int_Id_Status = RsCliente("Sts_Int_Id_Status") Session("Status_Cliente") = nSts_Int_Id_Status cCli_Var_Razao_Social = RsCliente("Cli_Var_Razao_Social") Session("Cad_Razao_Social") = RsCliente("Cli_Var_Razao_Social") cCli_Var_Fantasia = RsCliente("Cli_Var_Fantasia") cCli_Var_CCM = RsCliente("Cli_Var_CCM") cCli_Var_CNPJ = RsCliente("Cli_Var_CNPJ") aDados( 1,1 ) = RsCliente("Cli_Var_CNPJ") cCli_Var_IE = RsCliente("Cli_Var_IE") aDados( 2,1 ) = RsCliente("Cli_Var_IE") cCli_Char_Ddd = RsCliente("Cli_Char_Ddd") aDados( 3,1 ) = RsCliente("Cli_Char_Ddd") cCli_Var_Telefone = RsCliente("Cli_Var_Telefone") aDados( 4,1 ) = RsCliente("Cli_Var_Telefone") cCli_Var_Ramal = RsCliente("Cli_Var_Ramal") aDados( 5,1 ) = RsCliente("Cli_Var_Ramal") cCli_Var_Fax = RsCliente("Cli_Var_Fax") aDados( 6,1 ) = RsCliente("Cli_Var_Fax") cCli_Var_Ramal_Fax = RsCliente("Cli_Var_Ramal_Fax") aDados( 7,1 ) = RsCliente("Cli_Var_Ramal_Fax") nCli_Dec_Limite_Credito = RsCliente("Cli_Dec_Limite_Credito") aDados( 8,1 ) = RsCliente("Cli_Dec_Limite_Credito") if ( Request.QueryString("TipoPessoa") = Empty ) then cTipoPessoa = RsCliente("Cli_Char_Tipo_Pessoa") else cTipoPessoa = Request.QueryString("TipoPessoa") end if cCli_Char_Tipo_Pessoa = RsCliente("Cli_Char_Tipo_Pessoa") aDados( 9,1 ) = RsCliente("Cli_Char_Tipo_Pessoa") cCli_Var_Home_Page = RsCliente("Cli_Var_Home_Page") aDados( 10,1 ) = RsCliente("Cli_Var_Home_Page") Session("aDados") = aDados cCli_Text_Obs = RsCliente("Cli_Text_Obs") cCli_Text_Obs_Cadastro = RsCliente("Cli_Text_Obs_Cadastro") dCli_Int_Data_Cadastro = RsCliente("Cli_Int_Data_Cadastro") dCli_Int_Data_Sistema = RsCliente("Cli_Int_Data_Sistema") cCli_char_flag_sm = RsCliente("Cli_char_flag_sm") end if RsCliente.Close : Set RsCliente = Nothing RsAg.Close : Set RsAg = Nothing Call FechaConexaoSistema() else if ( Request.QueryString("TipoPessoa") = Empty ) then cTipoPessoa = "J" else cTipoPessoa = Request.QueryString("TipoPessoa") end if Session("Cad_Id_Cliente") = "0" nSts_Int_Id_Status = 3 if ( Request.QueryString("Id_Status") = 8 ) then nSts_Int_Id_Status = CInt( Request.QueryString("Id_Status") ) if ( Request.QueryString("Id_Status") = 8 ) then cDesativaStatus = "disabled=""disabled""" nTpc_Int_Id_Tipo_Cliente = 2 end if call ConexaoSistema() jSql = "select log_int_id_login from t_login where ven_int_id_vendedor = (select ven_int_id_vendedor from t_cliente where cli_int_id_cliente ='" & Request.QueryString("Id_Cliente") & "')" Set RsValidaVendedor = cConexao.Execute( jSql ) if (not RsValidaVendedor.EOF ) then Vvendedor = RsValidaVendedor("log_int_id_login") else Vvendedor = 0 end if RsValidaVendedor.Close : Set RsValidaVendedor = nothing call FechaConexaoSistema() call ConexaoSistema() bSql = "select ven_int_id_vendedor from t_login where log_int_id_login = " & Session("Id_Login") Set RsIdVendedor = cConexao.Execute( bSql ) IdVendedor = RsIdVendedor("ven_int_id_vendedor") RsIdVendedor.Close : Set RsIdVendedor = nothing call FechaConexaoSistema() %> <html> <head> <title>ERP</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../css/estilo.css" rel="stylesheet" type="text/css"> <!--#Include File="../net/javascript.net"--> <script type="text/javascript" language="JavaScript1.2" src="../net/stm31.js"></script> </head> <body> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="top"> <table width="980" border="2" cellpadding="0" cellspacing="0" bordercolor="#006699"> <tr> <td> <!--#Include File="../net/header.net"--> </td> </tr> <tr bgcolor="#CCD6E0"> <td height="23"> <!--#Include File="../net/menu.net"--> </td> </tr> <tr> <td height="350" valign="top" bgcolor="#f5f5f5"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="23" class="Texto_Navegacao"><a href="../home.asp">Home</a> &gt; <%if ( Session("Status_Cliente") = "8" or Session("Status_Cliente") = "9" or Session("Status_Cliente") = "10" ) then%> <a href="con_fornecedor.asp"> Consulta Fornecedor </a> &gt; Cadastro de Fornecedor <%else%> <a href="con_cliente.asp"> Consulta Cliente </a> &gt; Cadastro de Cliente <%end if%> </td> </tr> <tr> <td height="23" align="center" class="Texto_Titulo"> <%if ( Session("Status_Cliente") = "8" or Session("Status_Cliente") = "9" or Session("Status_Cliente") = "10" ) then%> Cadastro de Fornecedor <%else%> Cadastro de Cliente <%end if%> </td> </tr> <tr> <%cJavascript = "return valida(this,'')"%> <td align="center"><form action="arquivo_utilitarios.asp?Opcao=4&Opcao2=<%=Request.QueryString("Opcao")%>&Id_Cliente=<%=Session("Cad_Id_Cliente")%>" method="post" name="form1" target="_self" onSubmit="<%=cJavascript%>"> <table width="980" border="0" cellpadding="2" cellspacing="2" bordercolor="#FFFFFF" bgcolor="#dcdcdc" class="FundoCadastroAlteracao"> <% if Session("Cad_Id_Cliente") <> "0" then%> <tr> <td height="24" class="TextoFormulario">C&oacute;digo do Cliente </td> <td class="TextoCampoFormulario"> <%=Session("Cad_Id_Cliente")%></td> <td colspan="2" class="TextoFormulario">&nbsp;</td> </tr> <%end if%> <tr> <td colspan="4" class="TextoFormulario"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <%if Request.QueryString("Opcao")<>1 then %> <tr> <td width="99" height="18" class="TextoFormulario">Cadastro em :</td> <td width="122" class="TextoCampoFormulario"><%=MontaData3( dCli_Int_Data_Cadastro )%></td> <td width="103" class="TextoFormulario">Alterado em :</td> <td class="TextoCampoFormulario"> <% Call ConexaoSistema() cSql = "select top 10 Seg_Var_Nome_Login, Seg_Date_horas from t_Seguranca where seg_var_descricao like '% Nº " & Session("Cad_Id_Cliente") & "' " cSql = cSql & "and seg_var_modulo_acessado = 'Modulo Cliente' " cSql = cSql & "order by seg_int_id_seguranca desc" Set RsSeg = cConexao.Execute( cSql ) if (RsSeg.Eof ) then %> <%=("Sem alterações")%> <%else%> <select name="select" class="TextoCampoFormulario"> <%Do While ( Not RsSeg.Eof )%> <option><%=RsSeg("Seg_Var_Nome_Login")%> - <%=RsSeg("Seg_Date_horas")%></option> <%RsSeg.MoveNext : Loop%> </select> <% end if RsSeg.Close : Set RsSeg = Nothing : Call FechaConexaoSistema() %> </td> </tr> <%end if%> </table></td> </tr> <tr> <td class="TextoFormulario">Tipo Pessoa</td> <td colspan="2" class="TextoCampoFormulario"> <%if Request.QueryString("Opcao") = "2" then%> <%if cTipoPessoa = "F" then %> Pessoa Física <%elseif cTipoPessoa = "J" then %> Pessoa Jurídica <%end if%> <%elseif Request.QueryString("Opcao") = "1" then%> <select name="Cli_Char_Tipo_Pessoa" class="TextoCampoFormulario" id="select5" onChange="document.location.href = this.form.Cli_Char_Tipo_Pessoa.options[this.form.Cli_Char_Tipo_Pessoa.selectedIndex].value2"> <option value="F" value2="cad_alt_cliente.asp?Opcao=<%=Request.QueryString("Opcao")%>&Id_Cliente=<%=Request.QueryString("Id_Cliente")%>&TipoPessoa=F" <%if cTipoPessoa = "F" then%>selected<%end if%>>Pessoa Fisica</option> <option value="J" value2="cad_alt_cliente.asp?Opcao=<%=Request.QueryString("Opcao")%>&Id_Cliente=<%=Request.QueryString("Id_Cliente")%>&TipoPessoa=J" <%if cTipoPessoa = "J" then%>selected<%end if%>>Pessoa Juridica</option> </select> <%end if %> </td> <td align="right" class="TextoCampoFormulario"><span class="TextoFormulario">Status</span> <%if Request.QueryString("Opcao") = 1 or ( Request.QueryString("Opcao") = 2 and _ ( VerificaPermissaoBD( Session("Id_Login"), 1, "CLI06" ) ) or VerificaPermissaoBD( Session("Id_Login"), 2, "CLI06" ) or Vvendedor = 0 or IdVendedor = Session("Id_Vendedor_Cliente") ) then%> <%if ( cDesativaStatus <> Empty ) then%> <input type="hidden" value="<%=nSts_Int_Id_Status%>" name="Sts_Int_Id_Status"> <%end if%> <select name="Sts_Int_Id_Status" <%=cDesativaStatus%> class="TextoCampoFormulario" id="select2" Opcao="select" Campo="Status Cliente"> <% Call ConexaoSistema() cSql = "Select Sts_Int_Id_Status, Sts_Var_Descricao, Sts_Char_Cliente from t_status " cSql = cSql & "where Sts_Char_Cliente = " & "'T'" & "order by Sts_Var_Descricao" Set RsCliente = cConexao.Execute( cSql ) if ( Not RsCliente.Eof ) then Do While ( Not RsCliente.Eof ) %> <option value="<%=RsCliente("Sts_Int_Id_Status")%>" <%if ( CInt( nSts_Int_Id_Status ) = RsCliente("Sts_Int_Id_Status") ) then%>selected<%end if%>><%=RsCliente("Sts_Var_Descricao")%></option> <% RsCliente.MoveNext Loop end if RsCliente.Close : Set RsCliente = Nothing : Call FechaConexaoSistema() %> </select> <%else%> <% Call ConexaoSistema() cSql = "Select Sts_Int_Id_Status, Sts_Var_Descricao from t_status where Sts_Int_Id_Status = '" & nSts_Int_Id_Status & "'" Set RsStatus = cConexao.Execute( cSql ) if ( Not RsStatus.Eof ) then %> <%if ( VerificaPermissao( Session("Id_Login"), 4, "CLI06" ) ) then%> <%=RsStatus("Sts_Var_Descricao")%> <input type="hidden" name="Sts_Int_Id_Status" value="<%=RsStatus("Sts_Int_Id_Status")%>"> <%else%> Sem Permissão para visualizar !!! <%if Request.QueryString("Opcao") = 1 then%> <input type="hidden" name="Sts_Int_Id_Status" value="<%=nSts_Int_Id_Status%>"> <%end if%> <%end if%> <% end if RsStatus.Close : Set RsStatus = nothing : Call FechaConexaoSistema() %> <%end if%> </td> </tr> <tr> <td width="121" class="TextoFormulario">Raz&atilde;o Social</td> <td colspan="3" class="TextoFormulario"> <input name="Cli_Var_Razao_Social" type="text" c class="TextoCampoFormulario" id="Cli_Var_Razao_Social" value="<%=cCli_Var_Razao_Social%>" size="50" maxlength="100" Opcao="texto" Campo="Razão Social"> <a href="busca_cliente.asp?Opcao_Busca=1" target="_self"><img src="../img_sistema/botao/botao_lupa.gif" width="16" height="16" border="0"> Procura Cliente</a> </td> </tr> <tr> <td class="TextoFormulario">Nome Fantasia</td> <td colspan="3" class="TextoCampoFormulario"> <input name="Cli_Var_Fantasia" type="text" c class="TextoCampoFormulario" id="Cli_Var_Fantasia" value="<%=cCli_Var_Fantasia%>" size="50" maxlength="100" Opcao="texto" Campo="Nome Fantasia"> </td> </tr> <tr> <td class="TextoFormulario">Tipo Cliente</td> <td colspan="2" class="TextoFormulario"> <%if ( VerificaPermissaoBD( Session("Id_Login"), 1, "CLI12" ) or VerificaPermissaoBD( Session("Id_Login"), 2, "CLI12" ) or ( Vvendedor = 0 ) ) then%> <select name="Tpc_Int_id_Tipo_Cliente" class="TextoCampoFormulario" id="select4" Opcao="select" Campo="Tipo Cliente"> <option value="" <%if ( nTpc_Int_id_Tipo_Cliente = Empty ) then%>selected<%end if%>>&nbsp;</option> <% Call ConexaoSistema() cSql = "Select Tpc_Int_id_Tipo_Cliente, Tpc_Var_Descricao from t_tipo_Cliente order by Tpc_Var_Descricao" Set RsTipo_Cliente = cConexao.Execute( cSql ) if ( Not RsTipo_Cliente.Eof ) then Do While ( Not RsTipo_Cliente.Eof ) %> <option value="<%=RsTipo_Cliente("Tpc_Int_id_Tipo_Cliente")%>" <%if ( nTpc_Int_id_Tipo_Cliente = RsTipo_Cliente("Tpc_Int_id_Tipo_Cliente") ) then%>selected<%end if%>><%=RsTipo_Cliente("Tpc_Var_Descricao")%></option> <% RsTipo_Cliente.MoveNext Loop end if RsTipo_Cliente.Close : Set RsTipo_Cliente = nothing : Call FechaConexaoSistema() %> </select> <%elseif ( VerificaPermissaoBD( Session("Id_Login"), 4, "CLI12" ) ) then%> <% Call ConexaoSistema() cSql = "Select Tpc_Int_id_Tipo_Cliente, Tpc_Var_Descricao from t_tipo_Cliente where Tpc_Int_id_Tipo_Cliente = '" & nTpc_Int_id_Tipo_Cliente & "'" Set RsTipo_Cliente = cConexao.Execute( cSql ) if ( Not RsTipo_Cliente.Eof ) then %> <%=RsTipo_Cliente("Tpc_Var_Descricao")%> <% end if RsTipo_Cliente.Close : Set RsTipo_Cliente = nothing : Call FechaConexaoSistema() %> <input type="hidden" name="Tpc_Int_id_Tipo_Cliente" value="<%=nTpc_Int_id_Tipo_Cliente%>"> <%else%> Sem Permissão para visualizar !!! <input type="hidden" name="Tpc_Int_id_Tipo_Cliente" value="<%=nTpc_Int_id_Tipo_Cliente%>"> <%end if%> </td> <td width="422" class="TextoFormulario">&nbsp;</td> </tr> <tr> <td class="TextoFormulario">Vendedor</td> <td colspan="3" class="TextoCampoFormulario"> <% if Request.QueryString("Opcao") = 1 or ( Request.QueryString("Opcao") = 2 and VerificaPermissaoBD( Session("Id_Login"), 2, "CLI04" ) ) or Vvendedor = 0 or IdVendedor = Session("Id_Vendedor_Cliente") then %> <select name="Ven_Int_Id_Vendedor" class="TextoCampoFormulario" id="select" Opcao="texto" Campo="Vendedor"> <option value="" <%if ( nVen_Int_id_Vendedor = Empty ) then%>selected<%end if%>>&nbsp;</option> <% Call ConexaoSistema() cSql = "Select Ven_Int_Id_Vendedor, Ven_Var_Nome from t_vendedor " ' if ( Request.QueryString("Opcao") = 1 ) then cSql = cSql & "where sts_int_id_status = '1' " ' end if cSql = cSql & "order by Ven_Var_Nome" Set RsCliente = cConexao.Execute( cSql ) if ( Not RsCliente.Eof ) then Do While ( Not RsCliente.Eof ) %> <option value="<%=RsCliente("Ven_Int_Id_Vendedor")%>" <%if ( nVen_Int_id_Vendedor = RsCliente("Ven_Int_Id_Vendedor") ) then%>selected<%end if%>><%=RsCliente("Ven_Var_Nome")%></option> <% RsCliente.MoveNext Loop end if RsCliente.Close : Set RsCliente = nothing : Call FechaConexaoSistema() %> </select> <%else%> <% Call ConexaoSistema() cSql = "Select Ven_Int_Id_Vendedor, Ven_Var_Nome from t_vendedor where Ven_Int_Id_Vendedor = '" & nVen_Int_id_Vendedor & "'" Set RsVendedor = cConexao.Execute( cSql ) if ( Not RsVendedor.Eof ) then %> <%if ( VerificaPermissao( Session("Id_Login"), 4, "CLI04" ) ) then%> <%=RsVendedor("Ven_Var_Nome")%> <%else%> Sem Permissão para visualizar !!! <%end if%> <% RsVendedor.MoveNext end if RsVendedor.Close : Set RsVendedor = nothing : Call FechaConexaoSistema() %> <%end if%> </td> </tr> <tr> <td class="TextoFormulario">Segmento Mercado</td> <td colspan="3" class="TextoCampoFormulario"><select name="Sgc_Int_Id_Segmento_Mercado" class="TextoCampoFormulario" id="select" Opcao="select" Campo="Segmento Mercado"> <option value="" <%if ( nSgc_Int_Id_Segmento_Mercado = Empty ) then%>selected<%end if%>>&nbsp;</option> <% Call ConexaoSistema() cSql = "Select Sgc_Int_Id_Segmento_Mercado, Sgc_Var_Descricao from t_segmento_mercado order by Sgc_Var_Descricao" Set RsSegmento = cConexao.Execute( cSql ) if ( Not RsSegmento.Eof ) then Do While ( Not RsSegmento.Eof ) %> <option value="<%=RsSegmento("Sgc_Int_Id_Segmento_Mercado")%>" <%if ( nSgc_Int_Id_Segmento_Mercado = RsSegmento("Sgc_Int_Id_Segmento_Mercado") ) then%>selected<%end if%>><%=RsSegmento("Sgc_Var_Descricao")%></option> <% RsSegmento.MoveNext Loop end if RsSegmento.Close : Set RsSegmento = nothing : Call FechaConexaoSistema() %> </select> </td> </tr> <%if (cTipoPessoa = "J") then if nSts_Int_Id_Status <> 8 then if ( Request.QueryString("Opcao") = "1" ) then%> <tr> <td class="TextoFormulario">CNPJ</td> <td width="180" class="TextoFormulario"> <input type="text" maxlength="18" class="TextoCampoFormulario" name="Cli_Var_CNPJ" Campo="CNPJ" Opcao="cnpj" value="<%=cCli_Var_CNPJ%>"> <a href="http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao.asp" target="_blank">Verifica CNPJ</a></td> <td width="21" class="TextoFormulario">IE </td> <td class="TextoCampoFormulario"><input name="Cli_Var_Ie" type="text" class="TextoCampoFormulario" id="Cli_Var_IE" value="<%=cCli_Var_IE%>" size="25" maxlength="20"></td> </tr> <%elseif ( Request.QueryString("Opcao") = "2" ) then%> <tr> <td class="TextoFormulario">CNPJ</td> <td width="180" class="TextoCampoFormulario"><%=cCli_Var_CNPJ%></td> <td class="TextoFormulario">IE</td> <td class="TextoCampoFormulario"><input name="Cli_Var_Ie" type="text" class="TextoCampoFormulario" id="Cli_Var_Ie" value="<%=cCli_Var_IE%>" size="25" maxlength="20"></td> </tr> <%end if%> <%else%> <input type="hidden" name="Cli_Var_CNPJ" value="0"> <%end if%> <%elseif (cTipoPessoa = "F") then if ( Request.QueryString("Opcao") = "1" ) then%> <tr> <td class="TextoFormulario">CPF </td> <td width="180" class="TextoCampoFormulario"> <input type="text" maxlength="18" class="TextoCampoFormulario" name="Cli_Var_CNPJ" Campo="CPF" Opcao="cpf" value="<%=cCli_Var_CNPJ%>"></td> <td class="TextoFormulario">RG </td> <td class="TextoCampoFormulario"><input name="Cli_Var_IE" type="text" class="TextoCampoFormulario" id="Cli_Var_IE" value="<%=cCli_Var_IE%>" size="25" maxlength="20"></td> </tr> <%elseif ( Request.QueryString("Opcao") = "2" ) then%> <tr> <td class="TextoFormulario">CPF</td> <td width="180" class="TextoCampoFormulario"><%=cCli_Var_CNPJ%></td> <td class="TextoFormulario">RG </td> <td class="TextoCampoFormulario"> <%=cCli_Var_IE%> <input type="hidden" name="Cli_Var_IE" value="<%=cCli_Var_IE%>"> </td> </tr> <%end if%> <%end if%> <tr> <td class="TextoFormulario">CCM<br> </td> <td colspan="3" class="TextoFormulario"><input name="Cli_Var_CCM" type="text" class="TextoCampoFormulario" id="Cli_Var_CCM" value="<%=cCli_Var_CCM%>" size="25" maxlength="20"></td> </tr> <tr> <td class="TextoFormulario">Limite de Cr&eacute;dito<br> </td> <td colspan="3" class="TextoFormulario"> <%if ( Request.QueryString("Opcao") = 1 ) or ( ( Request.QueryString("Opcao") = 2 ) and ( VerificaPermissaoBD( Session("Id_Login"), 2, "CLI05" ) ) or ( Vvendedor = 0 ) ) then%> <input name="Cli_Dec_Limite_Credito" type="text" class="TextoCampoFormulario" id="Cli_Dec_Limite_Credito" value="<%=nCli_Dec_Limite_Credito%>" size="25" maxlength="12"></td> <%else%> <%if ( VerificaPermissaoBD( Session("Id_Login"), 4, "CLI05" ) ) then%> <%=nCli_Dec_Limite_Credito%> <input name="Cli_Dec_Limite_Credito" type="hidden" id="Cli_Dec_Limite_Credito" value="<%=nCli_Dec_Limite_Credito%>"> <%else%> <input name="Cli_Dec_Limite_Credito" type="hidden" id="Cli_Dec_Limite_Credito" value="<%=nCli_Dec_Limite_Credito%>"> Sem Permissão para visualizar !!! <%end if%> <%end if%> </tr> <%if ( Request.QueryString("Opcao") = 1 ) or ( Session("Id_Vendedor") = nVen_Int_id_Vendedor ) or ( ValidaUsuario( nVen_Int_id_Vendedor, Session("Id_Vendedor") ) or ( Vvendedor = 0 ) ) then%> <tr> <td class="TextoFormulario">DDD</td> <td colspan="3" class="TextoFormulario"><table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td><input name="Cli_Char_DDD" type="text" class="TextoCampoFormulario" id="Cli_Char_DDD" value="<%=cCli_Char_DDD%>" size="4" maxlength="3" Opcao="texto" Campo="DDD"></td> <td class="TextoFormulario">Telefone <input name="Cli_Var_Telefone" type="text" class="TextoCampoFormulario" id="Cli_Var_Telefone" value="<%=cCli_Var_Telefone%>" size="12" maxlength="15" Opcao="texto" Campo="Telefone"> </td> <td class="TextoFormulario">Ramal <input name="Cli_Var_Ramal" type="text" class="TextoCampoFormulario" id="Cli_Var_Ramal" value="<%=cCli_Var_Ramal%>" size="4" maxlength="5"> </td> <td class="TextoFormulario">Fax <input name="Cli_Var_Fax" type="text" class="TextoCampoFormulario" id="Cli_Var_Fax" value="<%=cCli_Var_Fax%>" size="12" maxlength="15"> </td> <td class="TextoFormulario">Ramal <input name="Cli_Var_Ramal_Fax" type="text" class="TextoCampoFormulario" id="Cli_Var_Ramal_Fax" value="<%=cCli_Var_Ramal_Fax%>" size="4" maxlength="5"> </td> </tr> </table></td> </tr> <%elseif ( VerificaPermissaoBD( Session("Id_Login"), 4, "CLI07" ) or ( Vvendedor = 0 ) ) then%> <%if ( VerificaPermissaoBD( Session("Id_Login"), 2, "CLI07" ) or ( Vvendedor = 0 ) ) then%> <tr> <td class="TextoFormulario">DDD</td> <td colspan="3" class="TextoFormulario"><table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td><input name="Cli_Char_DDD" type="text" class="TextoCampoFormulario" id="Cli_Char_DDD" value="<%=cCli_Char_DDD%>" size="4" maxlength="3" Opcao="texto" Campo="DDD"></td> <td class="TextoFormulario">Telefone <input name="Cli_Var_Telefone" type="text" class="TextoCampoFormulario" id="Cli_Var_Telefone" value="<%=cCli_Var_Telefone%>" size="12" maxlength="15" Opcao="texto" Campo="Telefone"> </td> <td class="TextoFormulario">Ramal <input name="Cli_Var_Ramal" type="text" class="TextoCampoFormulario" id="Cli_Var_Ramal" value="<%=cCli_Var_Ramal%>" size="4" maxlength="5"> </td> <td class="TextoFormulario">Fax <input name="Cli_Var_Fax" type="text" class="TextoCampoFormulario" id="Cli_Var_Fax" value="<%=cCli_Var_Fax%>" size="12" maxlength="15"> </td> <td class="TextoFormulario">Ramal <input name="Cli_Var_Ramal_Fax" type="text" class="TextoCampoFormulario" id="Cli_Var_Ramal_Fax" value="<%=cCli_Var_Ramal_Fax%>" size="4" maxlength="5"> </td> </tr> </table></td> </tr> <%else%> <tr> <td class="TextoFormulario">DDD</td> <td colspan="3" class="TextoFormulario"><table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="TextoFormulario"><%=cCli_Char_DDD%></td> <td class="TextoFormulario">Telefone <%=cCli_Var_Telefone%> </td> <td class="TextoFormulario">Ramal <%=cCli_Var_Ramal%> </td> <td class="TextoFormulario">Fax <%=cCli_Var_Fax%> </td> <td class="TextoFormulario">Ramal <%=cCli_Var_Ramal_Fax%> </td> </tr> </table></td> </tr> <%end if%> <%end if%> <tr> <td class="TextoFormulario"> Home Page</td> <td colspan="3"><input name="Cli_Var_Home_Page" type="text" class="TextoCampoFormulario" id="Cli_Var_Home_Page" value="<%=cCli_Var_Home_Page%>" size="50" maxlength="256"></td> </tr> <tr> <td class="TextoFormulario">Servi&ccedil;o Mensal</td> <td class="TextoFormulario"><input type="checkbox" name="cli_char_flag_sm" value="T" <%if ( cCli_char_flag_sm = "T" ) then%>checked<%end if%>></td> <td class="TextoFormulario">&nbsp;</td> <td class="TextoFormulario">&nbsp;</td> </tr> <tr> <td class="TextoFormulario">Obs</td> <td colspan="3"><textarea name="Cli_Text_Obs" cols="70" rows="4" wrap="VIRTUAL" class="TextoCampoFormulario" id="Cli_Text_Obs" c="c" opcao="texto" campo="Comiss&atilde;o"><%=cCli_Text_Obs%></textarea></td> </tr> <tr> <td class="TextoFormulario">Obs Cadastro</td> <td colspan="3"><textarea name="Cli_Text_Obs_Cadastro" cols="70" rows="4" wrap="VIRTUAL" class="TextoCampoFormulario" id="Cli_Text_Obs_Cadastro"><%=cCli_Text_Obs_Cadastro%></textarea> </td> </tr> <%if ( Request.QueryString("Opcao") = "2" ) then%> <tr> <td colspan="4" align="center" class="TextoFormulario"><table width="700" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="178" class="TextoFormulario"> <%if ( Session("Id_Vendedor") = nVen_Int_id_Vendedor ) or ( ValidaUsuario( nVen_Int_id_Vendedor, Session("Id_Vendedor") ) or ( VerificaPermissaoBD( Session("Id_Login"), 4, "CLI07" ) ) or ( Vvendedor = 0 ) ) then%> <a href="con_cotacao_mercadoria_cliente.asp"> <img src="../img_sistema/botao/botao_visualiza_cotacao.gif" width="21" height="21" border="0"> Ver Cota&ccedil;&atilde;o</a> <%else%> &nbsp; <%end if%> </td> <td width="232" valign="middle" class="TextoFormulario"> <%if ( Session("Id_Vendedor") = nVen_Int_id_Vendedor ) or ( ValidaUsuario( nVen_Int_id_Vendedor, Session("Id_Vendedor") ) or ( VerificaPermissaoBD( Session("Id_Login"), 4, "CLI07" ) ) or ( Vvendedor = 0 ) ) then%> <a href="con_posicao_cr_cliente.asp"> <img src="../img_sistema/botao/botao_posicao_financeira.gif" width="21" height="21" border="0"> Posi&ccedil;&atilde;o Financeira </a> <%else%> &nbsp; <%end if%> </td> <td width="290" valign="middle" class="TextoFormulario"> <%if ( Session("Id_Vendedor") = nVen_Int_id_Vendedor ) or ( ValidaUsuario( nVen_Int_id_Vendedor, Session("Id_Vendedor") ) or ( VerificaPermissaoBD( Session("Id_Login"), 4, "CLI07" ) ) or ( Vvendedor = 0 ) ) then%> <a href="con_orcamento_cliente.asp"> <img src="../img_sistema/botao/botao_visualiza_cotacao.gif" width="21" height="21" border="0"> Ver Or&ccedil;amento Servi&ccedil;os</a> </td> </tr> </table></td> </tr> <tr align="center"> <td colspan="4" class="TextoFormulario"><table width="700" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="TextoFormulario"><a href="con_servicos_mensais.asp"><img src="../img_sistema/botao/botao_servicos_mensais.gif" width="30" height="31" border="0">Servi&ccedil;os Mensais</a> </td> </tr> </table></td> </tr> <%else%> &nbsp; <%end if%> <%end if%> <%if ( Request.QueryString("Opcao") <> "2" ) then%> <%if ( VerificaPermissaoBD( Session("Id_Login"), 1, "CLI01" ) ) then%> <tr align="center"> <td colspan="4"><input name="imageField" type="image" src="../img_sistema/botao/botao_inclusao.gif" width="34" height="32" border="0"></td> </tr> <%end if%> <%else%> <%if ( Session("Id_Vendedor") = nVen_Int_id_Vendedor ) or ( ValidaUsuario( nVen_Int_id_Vendedor, Session("Id_Vendedor") ) or ( VerificaPermissaoBD( Session("Id_Login"), 4, "CLI07" ) )or ( Vvendedor = 0 ) ) then%> <tr align="center"> <td colspan="2" class="TextoFormulario"><a href="con_End_Cliente.asp?Id_Cliente=<%=Session("Cad_Id_Cliente")%>"><img src="../img_sistema/botao/botao_cliente_endereco.gif" width="24" height="28" border="0">Endere&ccedil;o</a></td> <% if id_contato <> "" then %> <td colspan="1" class="TextoFormulario"><a href="../cliente/cad_Alt_agenda.asp?Opcao=1&Id_Contato=<%=id_contato%>"><img src="../img_sistema/botao/botao_agenda.gif" width="28" height="28" border="0">Agenda</a></td> <%end if%> <td colspan="1" class="TextoFormulario"><a href="con_contato.asp?Id_Cliente=<%=Session("Cad_Id_Cliente")%>"><img src="../img_sistema/botao/botao_cliente_contato.gif" width="28" height="28" border="0">Contato</a></td> </tr> <%end if%> <%if ( VerificaPermissaoBD( Session("Id_Login"), 2, "CLI01" ) or ( Vvendedor = 0 ) ) then%> <tr align="center"> <td colspan="4"><input name="imageField" type="image" src="../img_sistema/botao/botao_alteracao.gif" width="34" height="32" border="0"></td> </tr> <%end if%> <%end if%> </table> </form></td> </tr> </table> </td> </tr> <tr> <!--#Include File="../net/footer.net"--> </tr> </table> </td> </tr> </table> </body> </html> <% if ( Request.QueryString("Opcao") ) = 2 then%> <%Call ConexaoSistema()%> <%if Verifica_Integridade_Cliente(Session("Cad_Id_Cliente"),false) = "EC" then%> <script language="JavaScript"> alert("Cadastro de cliente incompleto !!!\n" + "Cadastre um ENDEREÇO e um CONTATO !!!"); </script> <%elseif Verifica_Integridade_Cliente(Session("Cad_Id_Cliente"),false) = "E" then%> <script language="JavaScript"> alert("Cadastro de cliente incompleto !!!\n" + "Cadastre um ENDEREÇO !!!"); </script> <%elseif Verifica_Integridade_Cliente(Session("Cad_Id_Cliente"),false) = "C" then%> <script language="JavaScript"> alert("Cadastro de cliente incompleto !!!\n" + "Cadastre um CONTATO !!!"); </script> <%end if%> <% Call FechaConexaoSistema()%> <%end if%>

ERP = Enterprise Resource Planning Seria um software que gerencia uma empresa... cadastra produtos, clientes, faz orçamentos, relatórios, gerencia também a parte financeira como contas a pagar e receber, entre outras coisas. Não entendi o que seria estrutura? ABS

Ola, Tenho um ERP rodando aqui na empresa... e o problema é o seguinte: Se alguém deixar 2 browsers aberto mas por exemplo 1 browser com o cliente X e outro browser com o cliente Y e clicar em atualizar no X ele atualiza o X e todos os dados do Y são atualizados para os dados do X é como se tivesse 2 clientes X. perco todos os dados do cliente Y. alguém tem alguma ideia pra resolver isso??? ABS

vai no internet explorer > ferramentas > opções da internet > avançadas la tem a caixinha "mostrar msg de erro http amigaveis" não lembro se você tem que ativar ou desativar.... mas aqui funciona com ela desativada.

Vlw... problema resolvido!!!

vlw agra aparece esse erro Páginas do Active Server erro 'ASP 0131' Caminho pai não permitido /erp/vendas/con_cotacao_mercadoria.asp, line 1 O arquivo de inclusão '../net/conn.net' não pode conter '..' para indicar o diretório pai. já tentei de td ./net/conn.net - /net/conn.net - ../conn.net - /conn.net ABS

Ola, acabei de instalar o IIS aqui no windows server 2003, mas ele não está mostrando os erros das paginas, alguém sabe como faço para habilitar isso... ABS

alguém saberia me informar alguma ligação entre o crystal report e o ASP, pois achei mil e um tipos de crystal e não sei nem por onde começar. Abs

Ola, Tenho um menu fixo feito em fireworks e toda vez que preciso adicionar algum botão me da uma trabalheira desgraçada para conseguir gerar o codigo e postar na pagina... Gostaria de saber se alguém conhece algum site onde eu possa me basear e fazer um menu dinamico de acordo com o BD ou senão apenas me dar um inicio para fazer um menu, assim me livro do trabalho que tenho no momento. o menu é +- assim: desconsidere os _ posi tentei desenhar o menu para mostrar como é atualmente tem um menu horizontal fixo(exemplo) Segurança__________Controle__________Logout e quando passa o mouse cada um abre seus submenus em vertical Segurança__________Controle__________Logout Cadastro de User Permissão Configurações e depois cada um desses assim que passa o mouse abre seus subs também ao lado Segurança__________Controle__________Logout Cadastro de User -> lalalal1 Permissão________lalalal2 Configurações_____lalala3 Os lalala seriam os submenus do Cadastro de User e o Permissão e Configuração são os submenus do Segurança(não consegui desenhar direitinho porque o forum come espaços normais dai tive que usar os _ como espaçadores Agradeço as ideias ABS

Bom pra começar você vai precisar de um componente pra enviar email... eu utilizo o CDONTS é bem facil de usar. Uma idéia para você começar é executar uma pesquisa no banco de dados pelos exemplares atrazados e pegar o email das pessoas que estão com esses exemplares e enviar o email com o componente... Espero dar uma ideia. ABS

Vlw, foi de grande ajuda...

O problema é que um resto da divisão nunca sera um numero decimal, mas sempre um inteiro... Portanto o proprio asp aproxima o valor final do resultado para mais ou menos de acordo com o valor decimal.

Brigadu... funcionou certinho....

Ola, Tenho um sistema rodando em asp na rede interna da empresa... preciso enviar email para fora e estou utilizando o CDONTS, mas preciso enviar alguns arquivos anexados a esse email. alguém sabe como anexar... <% Dim objMail Dim Assinatura Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "raphael@xxx.com.br" objMail.To = "raphael@xxx.com.br" 'O problema está aqui não sei que caminho devo colocar... objMail.AttachFile "http://erpfox.netstructure.solutions/cotacoes/COT3614.pdf" 'com esse caminho está dando este erro, que caminho devo colocar??? 'erro '80004005' 'Erro não especificado '/net/gera_email.asp, line 11 objMail.Subject = "Cotação - " & Session("Cad_Id_Cotacao_Mercadoria") & " - " & Request.QueryString("razao") objMail.Body = "Conforme conversado, segue cotação em anexo." & vbCrLf objMail.Send Set objMail = Nothing %>