Fabio AVILA

Abadde Baixe seu exemplo, só que os dados que estão no meu SubFormulario eu não consigo trazer , somente os dados do Formulario.. o que devo fazer... []c

Galera, To com uma duvida aki e gostaria da ajuda de vocês , eu tenho um Formulario aonde é feio os Pedidos eu gostaria de fazer o seguine apos fazer o pedido eu pressione F3 por exemplo dae vai abrir meu FORMULARIO FORMA DE PAGAMENTOS como os dados desse pedido, como eu faço isso , abrir esse Formulario com os dados do meu Formulario de Pedidos.. []ços

Vitor , agora esta com o erro : Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /asp/acisc/apaga_main.asp, line 16 []co

Vitor , O Campo é automérico ... coloquei como passou e ainda continua o mesmo erro : Constante de seqüência não finalizada /asp/acisc/apaga_main.asp, line 12, column 58 sql = "DELETE FROM Juridico WHERE autonum='" & autonum &"' ---------------------------------------------------------^ []ços

Fiz as alterações como me pediram, e esta dando erro de compilação: Erro de compilação do Microsoft VBScript (0x800A03EA) Erro de sintaxe /asp/acisc/apaga_main.asp, line 12, column 53 sql = "DELETE FROM Juridico WHERE autonum="& autonum& ----------------------------------------------------^ []ços

Ola amigos, Estou tentando excluir registros no meu bd mas esta dando erro .. abaixo o codigo que uso : ERRO: Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: '' /asp/acisc/apaga_main.asp, line 15 []ÇOS

Pessoal o seguinte Eu tenho 2 Planilhas, na 1º esta como CADASTTRO CLIENTES e nela estao todos os meus clientes, na 2º eu tenho ORDEM SERVICO, tem como eu fazer tipo um SELECT pra escolher o nome do cliente , e depois q escolher ele automaticamente buscar mais alguns dados como, ENDEREÇO, TELEFONE, etc??? []ços

Segue meu codigo , gostaria de quando clicar no botao GERAR PARCELAS ele aparece-sse na mesma tela.... body bgcolor="#E4E4E4"> <center> <TITLE>:. FGCOM ADMIN - Controle de Associaddos v1.0 :. </TITLE> <script language="JavaScript"> <!-- window.defaultStatus=":: ACISC - Associação Comercial e Industrial de Siqueira Campos - PR ::" // --> </script> <TABLE cellSpacing=0 cellPadding=0 width=774 align=center background="../Sites/etiq/VPSA%20TECNOLOGIA%20E%20INFORMÁTICA%20LTDA_arquivos/back_temp.gif" border=0 height="58"> <TR> <TD align=middle valign="top" bgcolor="#FFFFFF" height="97" style="font-family: VPSA online system"> <TABLE cellSpacing=0 cellPadding=0 width=774 align=center background="../Sites/etiq/VPSA%20TECNOLOGIA%20E%20INFORMÁTICA%20LTDA_arquivos/back_temp.gif" border=0 height="1"> <TR> <TD align=middle valign="top" bgcolor="#FFFFFF" height="97" style="font-family: VPSA online system"> <map name="FPMap0"> <area href="java script:pop1()" shape="rect" coords="11, 105, 63, 155" alt="Cadastro de Associados"> <area alt="Consulta" coords="132, 108, 181, 149" shape="rect" href="java script:pop2()"> <area alt="Mensalidades" coords="78, 111, 118, 146" shape="rect" href="mensalidades.asp"> <area alt="Incluir Cliente" href="inclusao_juridico.asp" shape="rect" coords="195, 110, 233, 151"> <area alt="Cadastro Cliente" coords="246, 112, 287, 150" shape="rect" href="cadastro_devedor.asp"> <area href="acisc.asp" shape="rect" coords="724, 125, 782, 141"> <area href="consulta_mensalidades.asp" shape="rect" coords="319, 107, 371, 157"> <area href="consulta_inclusao.asp" shape="rect" coords="385, 109, 426, 156"> </map> <img border="0" src="topo2.jpg" usemap="#FPMap0" width="808" height="160"> </TD> </TR> <TR> <TD align=middle bgcolor="#F7F7F7" height="22" style="font-family: VPSA online system"> </TD> </TR> <tr> <TD align=middle bgcolor="#F7F7F7" height="39" style="font-family: VPSA online system" valign="middle"> <b><font face="Tahoma" color="#6E9F4D">Movimentação de Mensalidades</font></b> </TD> </tr> <tr> <td width="100%" bgcolor="#F7F7F7" height="188" style="border-style:none; border-width:medium; " valign="top"> <form method="POST" action="oposto3.asp" name="frmparcelas"> <input type="hidden" name="enviado" value="sim"> <p> </p> <div align="center"> <center> <table border="0" cellpadding="0" width="546" height="1" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0"> <tr> <td width="272" height="32" bgcolor="#6E9F4D"> </td> <td width="864" colspan="3" height="32" bgcolor="#6E9F4D"><br> </td> </tr> <tr> <td width="272" height="32" bgcolor="#6E9F4D"> </td> <td width="864" colspan="3" height="32" bgcolor="#6E9F4D"> <b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Promoção<br> </font><font face="Tahoma" color="#FFFFFF"> <INPUT id=email3 maxLength=40 name=promocao style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="77"></font></b> </td> </tr> <tr> <td width="272" height="32" bgcolor="#6E9F4D"> </td> <td width="864" colspan="3" height="32" bgcolor="#6E9F4D"> <b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Data Sorteio<br></font><font face="Tahoma" color="#FFFFFF"> <INPUT id=email2 maxLength=40 name=datasorteio style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="11"></font></b> </td> </tr> <tr> <td width="272" height="32" bgcolor="#6E9F4D"> </td> <td width="864" colspan="3" height="32" bgcolor="#6E9F4D"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Local<br></font><font face="Tahoma" color="#FFFFFF"> <INPUT id=email1 maxLength=40 name=local style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="61"></font></b> </td> </tr> <tr> <td width="272" height="32" bgcolor="#6E9F4D"> </td> <td width="864" colspan="3" height="32" bgcolor="#6E9F4D"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Premiação</font></b><br><font size="2" face="Verdana" style="font-size: 8pt" color="#FFFFFF"> <textarea cols="59" name="premiacao" rows="7" style="border:1px solid #000000; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-size:8 pt; font-family:Tahoma; color:#000000; background-color:#ECE9D8"></textarea></font> </td> </tr> <tr> <td width="272" height="32" bgcolor="#6E9F4D"> </td> <td width="864" colspan="3" height="32" bgcolor="#6E9F4D"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Nome do Associado</font></b><font face="Tahoma"><b><font color="#FFFFFF" style="font-size: 8pt"><br> <% '============================================================================ == Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPAth("contato.mdb") strQ = "SELECT * FROM contato ORDER BY nomefantasia ASC" Set objRS = objCon.Execute(strQ) Response.Write "<SELECT NAME='associado'>" Response.Write "<OPTION VALUE='' SELECTED></OPTION> " If Not objRS.EOF Then While Not objRS.EOF Response.Write "<OPTION VALUE='" & objRS("nomefantasia") & "'" If Request("associado") = objRS("nomefantasia") Then Response.Write " selected" Response.Write ">" & objRS("nomefantasia") & "</OPTION>" objRS.MoveNext Wend End If Response.Write "</SELECT>" objCon.Close Set objRS = Nothing Set objCon = Nothing =========================================================================== === %> </font></b></font> </td> </tr> <tr> <td width="272" height="32" bgcolor="#6E9F4D"> </td> <td width="864" colspan="3" height="32" bgcolor="#6E9F4D"> <table width="303"> <tr> <td width="82" align="center"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Valor</font></b></td> <td width="52" align="center"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Parcelas</font></b></td> <td align="left" colspan="2"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">1° Vencimento</font></b></td> </tr> <tr> <td><input type="text" name="valor" size="10" maxlength="10"></td> <td><input type="text" name="parcelas" size="5" maxlength="5"></td> <td width="63"><input type="text" name="vencimento" size="10" maxlength="10"></td> <td width="86" align="right"><input style="BACKGROUND: #F4FFF4; BORDER-BOTTOM: 1px solid #000000; BORDER-LEFT: 0px solid #336699; BORDER-RIGHT: 1px solid #000000; BORDER-TOP: 0px solid #336699; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="submit" name="calcular" value="Calcular"></td> </tr> </table> <% '============================================================================ == 'Calcula as Parcelas If Request.Form("calcular") <> "" then 'Pego os dados do Form Parcelas = cInt(Request.Form("parcelas")) ValorTotal = cSng(Request.Form("valor")) DtVencimento = cDate(Request.Form("vencimento")) 'Declaro o array Dt e Calculo a parcela Dim Dt() : Redim Dt(Parcelas) ValorParcelas = (ValorTotal / Parcelas) 'Se for Decimal, calcula o resto da divisão Resultado = FormatNumber(ValorParcelas) * Parcelas Resto = FormatNumber(Resultado - ValorTotal,2) '============================================================================ == %> <table> <tr> <td colspan="4"> </td> </tr> <tr> <td align="center" bgcolor="#006633"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Parcela</font></span></td> <td align="center" bgcolor="#006633"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Vencimentos</font></span></td> <td align="center" colspan="2" bgcolor="#006633"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Valor das Parcelas</font></span></td> </tr> <% For n = 0 to Parcelas - 1 Dt(n) = DateAdd("m", n, DtVencimento) Parc = ValorParcelas If Resto > 0 then If n = (Parcelas - 1) Then Parc = FormatNumber(ValorParcelas - Resto) End if Elseif Resto < 0 Then If n = 0 Then Parc = FormatNumber(ValorParcelas + (Resto*-1)) End if End if %> <tr> <td align="center"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF"><%=n+1%></font></span></td> <td align="center"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF"><%=FormatDateTime(Dt(n),0)%></font></span></td> <td colspan="2" align="center"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF"><%=FormatCurrency(Parc)%></font></span></td> </tr> <% Next End if %> <tr> <td align="center" bgcolor="#006633"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Total</font></span></td> <td colspan="3" align="center" bgcolor="#006633"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF"><%=FormatCurrency(ValorTotal)%></font></span></td> </tr> </table> </td> </tr> <tr> <td width="1" height="1"></td> <td width="321" height="1"></td> <td width="24" height="1"></td> <td width="526" height="1"></td> </tr> <tr> <td width="1" valign="top" height="1"></td> <td width="345" valign="top" height="1" colspan="2"></td> <td width="526" valign="top" height="1"></td> </tr> <tr> <td align="center" width="377" height="1"></td> <td align="center" width="969" colspan="3" height="1"></td> </tr> <tr> <td align="center" width="1346" valign="bottom" colspan="4" height="50"> <font color="#008000" face="Tahoma" style="font-size: 8pt"><br><br> <input style="BACKGROUND: #F4FFF4; BORDER-BOTTOM: 1px solid #000000; BORDER-LEFT: 0px solid #336699; BORDER-RIGHT: 1px solid #000000; BORDER-TOP: 0px solid #336699; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="submit" value="Cadastrar " name="Submit"> </font><span style="font-size: 8pt"> <font face="Tahoma" color="#008000"> <input style="BACKGROUND: #F4FFF4; BORDER-BOTTOM: 1px solid #000000; BORDER-LEFT: 0px solid #336699; BORDER-RIGHT: 1px solid #000000; BORDER-TOP: 0px solid #336699; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="reset" value="Limpar" name="Reset"> <br><br><br> </font></span> </td> </tr> </table> </center> </div> </form> </td> </tr> <tr> <TD align=middle bgcolor="#E3E0DB" height="39" style="font-family: VPSA online system" valign="bottom"> </TD> </tr> <TR> <TD align=middle bgcolor="#E3E0DB" height="1" style="font-family: VPSA online system"></p></TD> </TR> </TABLE> </TD> </TR> </TABLE> </center> []ços

Mas assim esse codigo a é não é somenta pra parcelas fixas... porque asssim o Funcionario vai digitar a Quantidade de Parcelas , o Valor e o 1º Vencimento e dai quando clicr no boatao GERAR PARCELAS e vai fazero parcelamento pra mim..... entendeu? []ços

Obrigadao Andreia, deu certo.. []ços

Pessoal Boa Tarde Estou com um problema estou usando um modelo de cadastro so que o codigo esta com a opção de toda vz que tiver o mesmo NOME já cadastrado no banco ele não me deixa cadasdtra-lo denovo, queria saber como eu faço pra tirar essa opção do cadastro.. segue o codio abaixo: <!--#include file="db.asp"--> <% AbreConexao If request.form("enviado") = "sim" Then Cadastrado =False set Dicionario = CreateObject("scripting.dictionary") i = 0 Sql = "SELECT nome FROM users WHERE nome = '"&Request.form("nome")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "Nome de Site já cadastrado!" i= i+1 end if Sql = "SELECT empresa FROM users WHERE empresa = '"&Request.form("empresa")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "Email já cadastrado!" i= i+1 end if Sql = "SELECT autorizacao FROM users WHERE autorizacao = '"&Request.form("autorizacao")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "Login já cadastrado!" i= i+1 end if Vet = Dicionario.items if Dicionario.Count<>0 then Response.Write "<b><center><font face=verdana size=1>" Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>" for i = 0 to Dicionario.Count - 1 Response.Write vet(i) & "<BR><br>" next response.write "<BR><br>" Else Sql = "INSERT INTO users (nome, empresa, autorizacao, entrada, saida, data) " Sql = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("empresa") & "', '" & Request.Form("autorizacao") & "', '" & Request.Form("entrada") & "', '" & Request.Form("saida") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" Conexao.Execute(Sql) Cadastrado = True End If End If If Cadastrado = False Then Else Set MyCDONTSMail = CreateObject("CDONTS.NewMail") HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""FFFFFF"">" HTML = HTML & "<b>Você acabou de se cadastrar no Sistema Cadastro e Login</b><br><br>" HTML = HTML & "Lembre sempre de seus dados.<br><br>" HTML = HTML & "Login: "& login &"<br>Senha: "& senha &"<br><br>" HTML = HTML & "Visite nosso Site: <a href=""www.sitedozanelati.com"">www.sitedozanelati.com</a>" HTML = HTML & "</body>" HTML = HTML & "</html>" MyCDONTSMail.From="fabio@perky.com.br" MyCDONTSMail.To=email MyCDONTSMail.Subject="Cadastro no Sistema de Cadastro e Login - Site do Zanelati" MyCDONTSMail.BodyFormat=0 MyCDONTSMail.MailFormat=0 MyCDONTSMail.Body=HTML MyCDONTSMail.Send set MyCDONTSMail=nothing %> <p align="center"> <font face="Verdana" size="1"> Cadastrado com sucesso!<BR> Entre na administração <font color="#FF0000"><a href="sair.asp"><font face="Verdana" size="1" color="#FF0000">Clicando Aqui! </font></a></font> </font> <% End If %> Abraços

Obrigado, deu certo!! []çps

Ola é so fazer isso em cada link ?? []ços

Pessoal Bom Dia Sou novo em ASP e gostaria de saber como eu faço um link como no exemplo abaixo: www.meusite.com.br/id=1 ou www.meusite.com.br/?categoria=contato Nesse estilo .. []çoss