dipreza
Membros-
Total de itens
78 -
Registro em
-
Última visita
Tudo que dipreza postou
-
Haha esta facil mesmo ...... o unico problema é que nem conheço direito essa area de programção ainda .. MAs por enquanto soui o UNICO ........ ae galera exercitem o CEREBRO T+
-
Ao invés de usar assim Campo = Seu CAmpo da Tabela/Banco de Dados IF CAMPO = SIM then ou IF CAMPO = YES then faça para SIM: IF CAMPO = 1 then e para não IF CAMPO = 0 then e assim sucesivamente para update e insert
-
então é verdade mesmo os buatos que li pelo forum .... Vai ter BOLO e CHURRASCO !!!!! ótimo to nessa ...... onde vai ser ???? hehehe beleza comida ! T+
-
Ae ..... é sou novo aqui mais é isso ai se o Carinha faz aniversario .... Ae FICA MAIS VELHO OPS !!!! FELIZ ANIVERSARIO !!!!! +++ Sucesso ++++ DINHEIRO +++++ GAROTAS pelo jeito tu ta precisando +++++++++++ Abraços haha de um novo Aprendiz enchedor de SACO T+
-
Caras é isso que ele que não é? ??? http://www34.brinkster.com/dipreza/desafio...asp?num=1,2,3,4 Não estou passando código para ninguém, apenas mostrando o resultado final, ok !!! porque estou com duvidas serias ....... hahhaha to sem serviço na verdade T+
-
desculpe a minha ignorancia, mas o que é stored procedure ?? Acho que não sei !!! T+
-
Haha ..... isso não foiespecificado no desafio, mostrar de 1 ate o numero final !!!! É novidade ? T+
-
Cara se a solução for apenas mostrar a BRECHA no Id e/ou ultimo numero ..... hehehe bele eu já fiz e meu nome esta na lista. Só estou no aguardo da analise do código !!! è isso que temos que fazer né ..... apenas mostrar o ID sendo ele o ultimo ou não, pelo menos é isso que esta escrito no 2° Desafio !!! Brother VICTOR quase chara ...... você não precisa deletar nada, apenas monte a estrutura e informe o numero que sera feito a inserção, nem precisa fazer o código de inserção !!! T+
-
O campo ID do desafio tem que ser AUTONUMBER ???? Hahaha você só quer saber se tem falha no banco ??? ou quer todas as façhas ?? T+
-
Quando a filial vende alguma coisa faz uma pagina para pegar os valores da venda e depois redireciona para o site da mesma de novo. Sei la: FILIAL >>> PORTAL >>> FINALIZA FILIAL Então seria .... Faz-se a compra depois passa a string para o Portal em seguida finaliza o processo !!. hahah acho que pode ajudar T+
-
Para um bom começo .... seria interessante você pesquisar ..... FOR ( LOOP ) você pode encontrar em artigos VBSCRIPT " acredito que tenha aqui no scriptbasil ............... já para banco de dados, você pode fazer uma pesquisa no forum ou entrar em http:\\asp.scriptbrasil.com www.macoratti.net www.w3schools.com/asp/default.asp www.superasp.com.br hahaha se cadastre no forum PLEASE !!! T+ QUALQUER DUVIDA GRITE !!!! '
-
Haha é mesmo, na época eu não conhecia o IN hehehe fiz da forma mais dificil.. MAis é isso ae ..... valeu amigo Bicicleta T+
-
CArinha, Uma vez eu fiz isso, foi meio na raça. ...... da uma olhada e modifique !!! T+ <% If Session("Usuario") = "" then response.write "<center><TABLE CLASS='noprint' WIDTH='247' BGCOLOR='#FFFFFF' CELLSPACING='0' CELLPADDING='0' STYLE='border: 1px solid #000000' BACKGROUND='Img/fundo.jpg'><TR><TD HEIGHT='59' COLSPAN='2'><DIV ALIGN='CENTER'><P><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#000099'>Voce sera redirecionado para<BR> pagina principal !!!!</FONT></P></DIV></TD></TR> </TABLE></center><META HTTP-EQUIV='refresh' CONTENT='1;URL=default.asp'>" else %> <!--#include file ="conexao.asp"--> <htmL> <head> <TITLE>Fim Caixa</TITLE> <script language="JavaScript"> <!-- function PopUp(URL,Name,Props) { window.open(URL,Name,Props); } //--> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); // --> </script> <style> body { background-color: #FFFFFF; scrollbar-3dlight-color: #CEEDFF; scrollbar-arrow-color: #00599F; scrollbar-darkshadow-color: #D5EFFF; scrollbar-face-color: #E1F1FF; scrollbar-highlight-color: #FFFFFF; scrollbar-shadow-color: #DEE3E7; scrollbar-track-color: #FFFFFF; } </style> </head> <body leftMargin=2 topMargin=2 marginheight="0" marginwidth="0"> <DIV ID="Layer1" STYLE="position:absolute; width:200px; height:26px; z-index:1; left: 252px; top: -2px"><form name="Form"><CENTER> <INPUT NAME="MESSAGE" SIZE="35" VALUE=" Aguarde! Processando . . ." BORDER="0" STYLE="background-color: transparent; background-repeat: repeat; background-attachment: scroll; border: medium none transparent; background-position: 0%" CLASS="mensagem"></CENTER></form></DIV><form method=get action="fimcaixa.asp" name="Emendas"> <TABLE BGCOLOR="#0066FF" HEIGHT="9" WIDTH="716" CELLPADDING="0" CELLSPACING="1"> <TR> <TD HEIGHT="2"><TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0"><TR><TD BACKGROUND="Img/fundo-barra2.jpg" HEIGHT="4" WIDTH="74%"><FONT COLOR="#FFFFFF">.<FONT COLOR="#0066FF" SIZE="2"><%= Ano%></FONT></FONT></TD> <TD BACKGROUND="Img/fundo-barra2.jpg" HEIGHT="4" WIDTH="26%"><FONT SIZE="2"><B></B></FONT></TD> </TR><TR style="border-top: 1px dotted"><TD HEIGHT="2" BACKGROUND="Img/resto.jpg" style="border-top: 1px dotted" COLSPAN="2"> <% if request.querystring("action") <> "" then Response.Flush response.write "<center><font color=#ffffff>.......</font><font size=4 face=arial><B>EXCLUINDO . . . </b></font></center>" Set objConexao = Server.CreateObject("ADODB.Connection") objConexao.Open DB Dim XX Ultimo = Request.querystring("ultimo") For XX = 0 to Ultimo IF Request.querystring(""& XX &"") <> "" Then Caixa = Request.querystring(""& XX &"") sql_update = "UPDATE Caixa SET ano='', prazo='', dpto='', prateleira='0', cliente='', ov='', outro='', descricao='', retirado=0, vaga=1 WHERE caixa = "& Caixa &"" objConexao.Execute sql_update 'response.write CAIxa & "-" & sql_delete & "<BR>" End if Next 'response.end objConexao.Close set objConexao = Nothing response.write "<meta http-equiv='refresh' content='0;URL=fimcaixa.asp'>" ElseIf request.querystring("action") = "" then Response.Flush Set objConexao = Server.CreateObject("ADODB.Connection") objConexao.Open DB ' abrindo conexão e SQL Set objRS = Server.CreateObject("ADODB.Recordset") objrs.Cursortype = 3 strSQL = "SELECT * FROM Caixa WHERE " For iANO = 1 to 1 Step -1 if Month(now()) <> 1 then For MesAtual = Month(now()) to 1 step -1 MesAtualXX = Right("00"& MesAtual,2) &"/"& Right("00"& Year(now()), 2) strSQL = strSQL & "prazo = '"& MesAtualXX &"' OR " Next end if varANOfim = Right("00"& Year(now())-iANO, 2) For iMes = 12 to 1 step -1 varMESfim = Right("00"& iMES,2) Exato = varMESfim &"/"& varANOfim strSQL = strSQL & "prazo = '"& Exato &"' OR " Next Next strSQL = strSQL & "prazo = '"& Ano &"' ORDER BY Caixa" objRS.Open strSQL,objConexao if objrs.eof then response.write "<center>Nenhuma Caixa para retirar" Set objrs = nothing Set objConexao = nothing else response.write "<TABLE WIDTH='716' BORDER='0' BGCOLOR='#FFFFFF'><TR BGCOLOR='#0099FF'><TD WIDTH='3%'><DIV ALIGN='CENTER'><B><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#FFFFFF'>OV</FONT></B></DIV></TD><TD WIDTH='12%'><DIV ALIGN='CENTER'><B><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#FFFFFF'>Numero</FONT></B></DIV></TD><TD WIDTH='9%'><DIV ALIGN='CENTER'><B><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#FFFFFF'>Cliente</FONT></B></DIV></TD><TD WIDTH='9%' BGCOLOR='#0087E1'> <DIV ALIGN='CENTER'><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'><B>Numero Caixa </B></FONT></DIV></TD><TD WIDTH='9%' BGCOLOR='#0087E1'><DIV ALIGN='CENTER'><B><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#FFFFFF'>Prateleira</FONT></B></DIV></TD><TD WIDTH='12%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'>Ano Emissão </FONT></B></DIV></TD><TD WIDTH='11%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'>Prazo CEDOC</FONT></B></DIV></TD><TD WIDTH='11%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'>DPTO</FONT></B></DIV></TD><TD WIDTH='24%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'>Descrição</FONT></B></DIV></TD><TD WIDTH='24%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'><DIV ALIGN='RIGHT'><INPUT TYPE='submit' NAME='action' VALUE='Excluir'></DIV></FONT></B></DIV></TD></TR>" DIM CONTA CONTA = 0 While not objRS.EOF If not objRS.eof then response.write "<TR BGCOLOR='#EAF7FF'><TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" response.write ObjRS("ov") response.write "</FONT></DIV></TD>" response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" response.write ObjRS("outro") response.write "</FONT></DIV></TD>" response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" response.write ObjRS("cliente") response.write "</FONT></DIV></TD>" response.write "<TD WIDTH='3%' BGCOLOR='#DAEBFE'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" response.write Right("00000" & ObjRS("caixa"),5) response.write "</FONT></DIV></TD>" response.write "<TD WIDTH='3%' BGCOLOR='#DAEBFE'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" response.write ObjRS("prateleira") response.write "</FONT></DIV></TD>" response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" response.write ObjRS("ano") response.write "</FONT></DIV></TD>" response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" response.write ObjRS("prazo") response.write "</FONT></DIV></TD>" response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" response.write ObjRS("dpto") response.write "</FONT></DIV></TD>" response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" response.write ObjRS("descricao") response.write "</FONT></DIV></TD>" response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>" CONTA = CONTA + 1 response.write "<INPUT TYPE='checkbox' NAME='"& CONTA &"' VALUE='"& ObjRs("Caixa") &"'>" response.write "</FONT></DIV></TD>" objRS.MoveNext Rowcount=Rowcount+1 End If Wend response.write "</TR></TABLE>" CONTA = CONTA + 1 ' define ultimo valor response.write "<INPUT TYPE='hidden' NAME='ultimo' VALUE='"& CONTA &"'>" Set objrs = nothing Set objConexao = nothing %></TD></TR></TABLE></TD></TR> </TABLE><TABLE WIDTH="716" BORDER="0" CELLPADDING="0" HEIGHT="22"><TR><TD WIDTH="92%"> </TD><TD WIDTH="8%"><DIV ALIGN='RIGHT'><INPUT TYPE='submit' NAME='action' VALUE='Excluir'></DIV></TD></TR></TABLE><P> </P></form><P> <% end if end if %> <P><script> document.forms["Form"].MESSAGE.value = ''; </script> </body> </html> <% END IF %>
-
você deve definir o valor do checkbox Assim: <INPUT TYPE='checkbox' NAME='Email' VALUE='Excluir'> Mais Duvidas grite !!!
-
valeu camarada ...... eu já tinha feito o segundo tópico .... heheh faltava apenas correção de erro da MICROSOFT T+
-
Formatando Corpo Do Email Com Caixas De Texto
pergunta respondeu ao dipreza de dipreza em HTML, XHTML, CSS
Bom cara ..... é o seguinte ..... o que eu precisava até ai eu consegui, meu principal objetivo agora é colocar quebra de linha no meio do texto que esta sendo enviado para o Outlook .... entende .... não é possivel usar <BR><P> saco ?? eis meu código <% Texto = CStr(request.form("text1")) Texto = Replace(Texto, Chr(13),"<BR>") response.write texto %> <meta http-equiv="refresh" content="0;URL=mailto:Totem Mauricio/BRABB/ABB?Subject=Formulario&body=<%= texto%>"> -
Como fazer um sortei ???
-
ola, já que existem até o momento 3 soluções diferentes, seria interessante mostrar os códigos para q todos tenham idéia de como fazer ..... ou mesmo as pessoas que conseguiram ( Eu por Exemplo ) ficar sabendo se existe uma forma mais complexa de se fazer. T+
-
OLa pessoal, Tenho um link assim: <form name="form" method="post" action=""> <p> <input type="text" name="text1"> </p> <p><a href="mailto:Totem Mauricio/BRABB/ABB?subject=Email&body=Ola Forum">Enviar</a></p> </form> Porem, gostaria que quando alguém clicar em "Enviar" no meio do código fosse implementado a caixa de texto. alguém tem idéia de como fazer isso ??
-
Ae galera, Parece que o povo não consegue fazer o desafio, já estou começando a duvidar da galera !!! haha Desafio do Desafio: Quero ver quem consegue fazer o desafio !! HEHEHE Se você esta precisando de ajuda GRITE !!!
-
faça algo que envie em anexo a figura do seu site ou o endereço da mesma. Ex: Use um BD com os endereços das fotos e quaando a pagina for carregada faça com que o link seja algo assim "<a href='enviafoto.asp?foto=<% Tabela("Campo_Foto") %>'>Envie esta foto</a>", e na pagina que envia a foto você atacha este mesmo arquivo. Acho que com esta idéia já da para fazer alguma coisa !!! Qualquer duvida GRITE !!!!!
-
Ola, você pode criar gráficos usando OWC, um componente Ofice. <% path=left(Request.ServerVariables("PATH_INFO"),InstrRev(Request.ServerVariables("PATH_INFO"),"/")) path=right(path,len(path)-1) if InStr(path,"/") then path=left(path,len(path)-1) end if Dim catnom(), valor(), caminho caminho="/" & path & "/temp" For i = 1 to 10 With Server.CreateObject("OWC.Chart") set c = .constants With .charts.add .HasTitle=True if .HasTitle then .Title.Caption = "TESTE ABB" .Title.Font.Size = 10 .Title.Font.Name = "Arial" .Title.Font.Bold = True .Title.Font.Italic = False .Title.Font.Underline = False end if .HasLegend = True if .HasLegend then .Legend.Font.Size = 10 .Legend.Font.Name = "Tahoma" .Legend.Font.Bold = true .Legend.Font.Italic = False .Legend.Font.Underline = False end if tipo = i Select Case tipo Case 1 .Type = c.chChartTypeArea Case 2 .Type = c.chChartTypeAreaStacked Case 3 .Type = c.chChartTypeBarClustered Case 4 .Type = c.chChartTypeBarStacked Case 5 .Type = c.chChartTypeColumnClustered Case 6 .Type = c.chChartTypeColumnStacked Case 7 .Type = c.chChartTypeLine Case 8 .Type = c.chChartTypeLineMarkers Case 9 .Type = c.chChartTypeLineStacked Case 10 .Type = c.chChartTypePie Case 11 .Type = c.chChartTypeArea3D Case 12 .Type = c.chChartTypeBubble Case 13 .Type = c.chChartTypeBar3D Case 14 .Type = c.chChartTypeColumn3D Case 15 .Type = c.chChartTypeColumnStacked3D Case 16 .Type = c.chChartTypeCombo3D Case Default .Type = c.chChartTypeCombo3D End Select x=5 ReDim catnom(x), valor(x) catnom(0) = "Teste 1" valor(0) = 10 catnom(1) = "Teste 2" valor(1) = 20 catnom(2) = "Teste 3" valor(2) = 10 catnom(3) = "Teste 4" valor(3) = 20 catnom(4) = "Teste 5" valor(4) = 10 catnom(5) = "Teste 6" valor(5) = 20 With .seriescollection.add .caption = "TESTE X" .setdata c.chdimcategories,c.chdataliteral, catnom .setdata c.chdimvalues,c.chdataliteral, valor End With y=5 ReDim catnom1(y), valor1(y) catnom1(0) = "Teste 1" valor1(0) = 34 catnom1(1) = "Teste 2" valor1(1) = 35 catnom1(2) = "Teste 3" valor1(2) = 17 catnom1(3) = "Teste 4" valor1(3) = 20 catnom1(4) = "Teste 7" valor1(4) = 10 catnom1(5) = "Teste 6" valor1(5) = 1 With .seriescollection.add .caption = "TEXTE Y" .setdata c.chdimcategories,c.chDataLiteral, catnom1 .SetData c.chDimValues,c.chDataLiteral, valor1 End With End With .border.color = c.chColorNone Set arquivo=Server.CreateObject("Scripting.FileSystemObject") arquivo="grafico"& i &".gif" .ExportPicture Server.MapPath(caminho) &"/"& arquivo, "gif", 400, 400 Response.Write "<img src=""temp/"&arquivo&""" width=402 height=402>" End With Next %> Ou mesmo usando operações matemáticas, gráficos barra simples: <TABLE ALIGN="center" WIDTH="35%" BORDER="1" CELLPADDING="0" CELLSPACING="0"> <TR> <TD height="116"> <% dado1 = 5 dado2 = 8 dado3 = 2 dado4 = 5 Total = 20 %> <p><b><font size="2" face="Arial, Helvetica, sans-serif"><IMG HEIGHT="15" SRC="bgcolor.gif" BORDER="0" WIDTH="<%= CInt(dado1*100/total)%>%"> <%= formatnumber((dado1/total)*100,1) %> %<br> <IMG HEIGHT="15" SRC="bgcolor.gif" BORDER="0" WIDTH="<%= CInt(dado2*100/total)%>%"> <%= formatnumber((dado2/total)*100,1) %> % <br> <IMG HEIGHT="15" SRC="bgcolor.gif" BORDER="0" WIDTH="<%= CInt(dado3*100/total)%>%"> <%= formatnumber((dado3/total)*100,1) %> % <br> <IMG HEIGHT="15" SRC="bgcolor.gif" BORDER="0" WIDTH="<%= CInt(dado4*100/total)%>%"> <%= formatnumber((dado4/total)*100,1) %> %</font></b> <br> <br> <font size="2" face="Arial, Helvetica, sans-serif">Total : <b><%= formatnumber (dado1+dado2+dado3+dado4)%></b></font></p> </TD></TR></TABLE> Qualquer duvida GRITE