jow

O português entra na delegacia e começa a olhar os retratos dos bandidos procurados e logo pergunta ao policial. ____ Este bandido aqui é perigoso ? ____ Sim é muito perigoso, responde o policial. ____ Ué então porque vocês não o prenderam, diz Português ____ Amigo estamos tentando isso a três meses .... ____ Nossa como vocês policiais aqui do Brasil são burros !!! ____ porque somos burros ??? ____ vocês deveriam ter prendido o bandido na hora q vocês tiraram o retrato !!!!!

você já tem a data armazenada no bd ?? você deve buscar a data no mesmo formato, tem q convertar a data q você está buscando ... exemplo dataForm_FROM = 2009-03-27 dataForm_TO = 2009-03-27 dataBanco = 2009-03-27 Veja q estão no mesmo formato, mas a data do banco está como data e a do form como texto é só você usar um cdate exempo de cosulta:: sql="SELECT dataBanco FROM tabela WHERE between CDATE(dataForm_FROM) and CDATE(dataForm_TO) " Set rs = cnn.execute(sql)

Uma duvida é um: Um folder rapidinho 1250,00 ou Um f*** rapidinho 1250,00 ??? uhauhahuahua

No sql server a data deve está no formato aaaa-mm-dd ... Qual data você quer pegar, se for a data atual é só você usar no getdate() no banco ... Independente da data q você queira, você pode tratar no código ... Utilize essa função do ted'k <% Function ConverterDataBanco(ConDataBanco) ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) ConverterDataBanco = ConDataBanco End Function Response.Write(ConverterDataBanco(Date())) %>

heheh não entendi nada ... você quer q sempre apareça a figura e só depois q clicar fazer a verificação, se existe ou não, se for exibe as figuras aki, com um parametro 'aki você deve usar um um if para saber se o parametro acima não está vazio if Not (fs.FileExists(camCont)=true) then camCont = "#" else camCont = camCont end if Response.Write ("<td><a href='" & camCont & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>") 'aki você fecha o primeiro if, q deverá ser aberto

Sim e Não, sim porque tá explicando em asp.net, não porque o componete também é possivel usar em asp cara axei link para relatórios em asp http://portugues.softpicks.net/software/AS...rd_pt-27218.htm

Um outro exemplo de como fazer ... if Not (fs.FileExists(file)=true) then response.write "ERRO. Arquivo inexistente" else ... ... ... end if

você deve verificar se este documento existe ....

Cara eu sei q você consegue gerar sim com crystalReport e também com o ReportViewer ... Para gerar como CrystalReport, eu sei bem, mas já vi gerando em Vb e chamando em ASP Com o ReportViewer segue um link http://www.devmedia.com.br/articles/viewco...omp=5371&hl este exemplo é com ASP.NET, como é o componente q vai montar o relatório

Cara se a sua conexão estiver OK, é só rodar ... busca.html <form method="post" action="busca.asp"> você quer pesquisar como: <input type="radio" name="cmbBusca" value="1" checked="checked" />por placa <input type="radio" name="cmbBusca" value="2" />por marca <input type="radio" name="cmbBusca" value="3" />por carro <br> <input type="text" name="Placa" size="7" maxlength="7"> <br> <br> <input type="submit" value="Buscar"> </form> busca.asp <% vPlaca = request.form("Placa") busca = request.form("cmbBusca") if busca = 1 then call porplaca() elseif busca = 2 then call pormarca() elseif busca = 3 then call porcarro() end if sub porplaca() DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb") sqlstmt = "SELECT * FROM Carros WHERE Placa like '%" & vPlaca & "%' OR Carro like '%" & Marca & "%' OR Dono like '%" & ID & "%'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id = rs("ID") carro = rs("Carro") placa = rs("Placa") marca = rs("Marca") dono = rs("Dono") tempo = rs("Tempo") %> <br> <b>Placa:</b> <%=placa%> <br> <p> <% rs.MoveNext %> <% end if next end sub sub pormarca() DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb") sqlstmt = "SELECT * FROM Carros WHERE Placa like '%" & vPlaca & "%' OR Carro like '%" & Marca & "%' OR Dono like '%" & ID & "%'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id = rs("ID") carro = rs("Carro") placa = rs("Placa") marca = rs("Marca") dono = rs("Dono") tempo = rs("Tempo") %> <br> <b>Marca:</b> <%=marca%> <br> <p> <% rs.MoveNext %> <% end if next end sub sub porcarro() DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb") sqlstmt = "SELECT * FROM Carros WHERE Placa like '%" & vPlaca & "%' OR Carro like '%" & Marca & "%' OR Dono like '%" & ID & "%'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id = rs("ID") carro = rs("Carro") placa = rs("Placa") marca = rs("Marca") dono = rs("Dono") tempo = rs("Tempo") %> <br> <b>Carro:</b> <%=carro%> <br> <p> <% rs.MoveNext %> <% end if next end sub %>

Ué não entendi ... Basta você usar select em sql para fazer consultas

Cara é como o Rafael falow você deve usar sessions ... exemplo o cara tem cadastrado no bd os dados q você quer q apareça antes do form, só você armazenar esses dados em session e mostrar ....

cara simples é só você colocar o mesmo nome em todos os radiobuttons ... no bd você só usa uma coluna q recebe esse nome de radiobuttom

heheh bem supimpa essa mesmo

Cara na hora q o usuário acessa você pega em uma sessão a qual setor ele pertence .... No formulário onde você mostra o setor só mostra o setor q le pertencer ... Obs: os setores tem q estar um tabela do banco se dados ... Um exemplo Usuário se logou <% SQL="SELECT * FROM tabela login = '"&login&"' AND senha='"&senha&"' " Set rs= conexao.execute(SQL) session("setor") = rs("setor") %> mostrando um formulário ..... <form> <select name="setor"> <% SQL="SELECT * FROM tabela WHERE setor = '"&session("setor")&"' " Set rs= conexao.execute(SQL) %> <option value="<%=rs("setor")%>"><%=rs("setor")%></option> </form> Dessa forma só aparecerá o setor dele ...

O bandido contratou o doutor Manuel para defendê-lo -Doutor,se você conseguir que eu seja condenado a apenas três anos,pago dez mil dólares.Se forem dois anos,dou vinte mil. Se o senhor conseguir que eu pegue só um ano, dou trinta mil, combinado? Depois do julgamento, o advogado informa, entusiasmado: -Meu caro, consegui que você fosse condenado a apenas um ano! E olhe que me deu um trabalhão, viu? Acredita que eles queriam absolvê-lo?

Aki nessa parte você manda enviar email para todos do banco .. sql_select = "select email from cadastro" você deveria ter assim sql_select = "select email from cadastro WHERE campo = 'NOME DO GRUPO' " Ficaria mais ou menos assim :: <form action="POST"> <table> <tr> <td>Grupo:</td> <td><select name="grupo"> <option value="Nome Grupo">Nome Grupo</option> </td> </tr> <tr> </tr> </table> </form> <% ' Declaring variables Dim rs, mail, subject, message, data_source, sql_select, no no = 0 subject = Request.Form("subject") message = Request.Form("message") ' Adding a link to all messages by which users can delete their emails ' if they want later message = message & vbcrlf & vbcrlf & "Caso não deseje receber novos e-mails do Núcleo de Estágio do Cesat. Clique aqui para excluir seu cadastro:" message = message & vbcrlf & "http://www.cesat.br/nucleo/administracao/enviar_emails_del.asp?email=" sql_select = "select email from cadastro WHERE campo = '"&request.form("grupo")&"' " data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("../bd/nucleo.mdb") ' Check to see if you have not pressed the 'send' button mistakenly If Len(message) Then ' If you have written some message then lets send it ' You can use ASP Email component of your choice, here I will stick with CDO Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql_select, data_source While Not rs.EOF Set mail = Server.CreateObject("CDONTS.NewMail") mail.From = "nucleodeestagio@cesat.br" mail.To = rs("email") mail.Subject = subject mail.Body = message & rs("email") mail.Send Set mail = Nothing Response.Write "Email enviado para: " & rs("email") & "<br>" no = no + 1 rs.MoveNext Wend ' When messages have been sent to all the users, exit Response.Write "Emails enviado " & no & " Usuários." rs.Close Set rs = Nothing ' Had you pressed the button mistakenly with text area empty, then ' redirect back to the HTML Form Else Response.Redirect "enviar_emails.asp" End If %>

você tem uma lista e você quer marcar o q você deve alterar é isso ?? olha este exemplo <form method="POST"> <% SQL="SELECT * FROM table" Set rs = cnn.execute (SQL) response.write "<table>" while not rs.eof response.write "<tr>" response.write "<td>" & rs("nome") & "</td>" response.write "<td><input type='checkbox' name = "chk" value="<%=rs("id")%>"></td>" response.write "</tr>" wend rs.movenext response.write "</table>" %> </form> Agora é só capturar o chk e mostrar os dados em um formulário, no formulário você passa o id em um campo oculto, depois você manda atualizar qd o id for igual ao valor do campo oculto

Bom dia dificilmente alguém vai fazer isso pra você ... Se você quer q alguém faça pra você, terá q pagar por isso. Aki a intenção é ajudar, se for o caso o melhor é você ir postando as suas dúvidas q a galera estará te ajudando ... Cara qual o link q você está tentando adaptar ??? O segundo link já é uma loja virtual pronta !!!! E também poste a parte do seu código onde você quer adaptar

Manoel conheceu Maria num bar, e começou-lhe a pagar umas bebidas. Como se estavam a dar até bastante bem, não tardou muito até que Manoel sugerisse que fossem ambos até ao seu apartamento para umas tarefas "extra-curriculares". Também não demorou muito até que ambos se encontrassem na cama a fazer sexo de uma forma apaixonada. Enquanto iam fazendo sexo, Manoel reparou que os dedos dos pés de Maria se encolhiam de cada vez que ele entrava e saía... Quando acabaram, Manoel deitou-se na cama ao lado de Maria e diz-lhe: - "Devo ter sido realmente muito bom esta noite pois reparei que os dedos dos teus pés se encolhiam de cada vez que entrava e saída de ti" Maria olhou para ele, sorriu e disse : - "Isso normalmente acontece quando alguém se esquece de me tirar a meia-calça".

Cara vou te passar dois links ... Um script simples q eu fiz , é mais uma idéia .......... http://scriptbrasil.com.br/forum/index.php?showtopic=120256 baixar virtual store .... uma loja virtual em asp https://www.scriptbrasil.com/pt/download/codigo/6097/

Manoel chega em casa abatido, cabisbaixo e a Maria vai logo perguntando: — Ó, Manoel, por que estás tão triste? O que foi que te aconteceu? — Ora pois, Maria! Isto estás a pareceire aquela música de carnaval da jardineira! — É mesmo... Mas me conte, Manoel! O que está se passando, meu gajo? — Ah, Maria... Uma tragédia... Estive no médico hoje à tarde e ele disse que eu vou ter que ser castrado! — Castrado? Mas, ora pois, o que é que você tem, homem de Deus? — Peguei um tal de Colesterol... E ele me disse com todas as letras que a única solução pra mim é cortar os ovos!

Cara o q você tem pronto posta ai ....

Cara não se entendi bem a sua dúvida ... Tudo deve estar dentro do if ... <% if request("botao") = "exportar" then Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment;filename=arquivo.xls" response.write "conteudo" end if %>

complementando a pergunta do Rafael você está passando os campos com o nome correto ? ou seja nom tel emal pes ? Pra ficar mais claro posta a parte do formulário ...