Vagner Nunes

Problema resolvido, não consegui obter o resultado ideal, mas ficou bom do jeito que está, aparecendo aleatoriamente. Sds, Vagner Nunes

Continua por cima ainda, porém agora repete dez vezes e fica sobreposto os dez. Rapaz difícil de entender... <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/Conectar.asp" --> <% Dim Patrimonio Dim Patrimonio_numRows Set Patrimonio = Server.CreateObject("ADODB.Recordset") Patrimonio.ActiveConnection = MM_Conectar_STRING Patrimonio.Source = "SELECT * FROM controle" Patrimonio.CursorType = 0 Patrimonio.CursorLocation = 2 Patrimonio.LockType = 1 Patrimonio.Open() Patrimonio_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Patrimonio_numRows = Patrimonio_numRows + Repeat1__numRows %> <!--#include file="fpdf.asp"--> <% dim pdf '// criando o pdf set pdf=CreateJsObject("FPDF") '// aki poderemos adcionar várias funções como titulos padroes para todas as páginasm numeração de páginas e etc. '// montando o corpo do pdf, setando o tipo da folha, tipo de medida e o tamanho da folha pdf.CreatePDF "P","mm","A4" pdf.SetPath("fpdf/") pdf.Open() '// adcionando página pdf.AddPage() '// setando fonte e tamanho pdf.SetFont "Arial","",11 '// setando grossura da linha pdf.SetLineWidth(0.4) '// setando linhas, reapare que, as medidas são feitas em x1, y1, x2 e y2, començando no ponto inicial de x e y e finalizando nos mesmo. pdf.Line "7","50","200","50" '// criamos aki uma linha horizontal, a linha pode ser feita de qualquer jeito, vertical, diagonal e td mais, somente setando os valores de x e y. '// escrevendo um texto While ((Repeat1__numRows <> 0) AND (NOT Patrimonio.EOF)) pdf.Text "10","45","Faculdade - Relatório de Patrimonios" for i =1 to 10 pdf.Text "10", (55+(i*10)) ,(Patrimonio.Fields.Item("instituicao").Value) next pdf.Text "10","60",(Patrimonio.Fields.Item("nome").Value) pdf.Text "10","65",(Patrimonio.Fields.Item("codigo").Value) pdf.Text "10","70",(Patrimonio.Fields.Item("setor").Value) pdf.Text "10","75",(Patrimonio.Fields.Item("dtaquisicao").Value) pdf.Text "10","80",(Patrimonio.Fields.Item("dtentrada").Value) pdf.Text "10","85",(Patrimonio.Fields.Item("cor").Value) pdf.Text "10","90",(Patrimonio.Fields.Item("descricao").Value) pdf.Text "10","95",(Patrimonio.Fields.Item("fornecedor").Value) pdf.Text "10","100",(Patrimonio.Fields.Item("quantidade").Value) pdf.Text "10","105",(Patrimonio.Fields.Item("situacao").Value) pdf.Text "10","110",(Patrimonio.Fields.Item("valor").Value) pdf.Text "10","115",(Patrimonio.Fields.Item("dtsaida").Value) pdf.Text "10","120",(Patrimonio.Fields.Item("motivosaida").Value) Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Patrimonio.MoveNext() Wend pdf.Close() pdf.Output() %> <% Patrimonio.Close() Set Patrimonio = Nothing %>

Consegui, porém os registros estão aparecendo um sobre o outro. Segue código: <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/Conectar.asp" --> <% Dim Patrimonio Dim Patrimonio_numRows Set Patrimonio = Server.CreateObject("ADODB.Recordset") Patrimonio.ActiveConnection = MM_Conectar_STRING Patrimonio.Source = "SELECT * FROM controle" Patrimonio.CursorType = 0 Patrimonio.CursorLocation = 2 Patrimonio.LockType = 1 Patrimonio.Open() Patrimonio_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Patrimonio_numRows = Patrimonio_numRows + Repeat1__numRows %> <!--#include file="fpdf.asp"--> <% dim pdf '// criando o pdf set pdf=CreateJsObject("FPDF") '// aki poderemos adcionar várias funções como titulos padroes para todas as páginasm numeração de páginas e etc. '// montando o corpo do pdf, setando o tipo da folha, tipo de medida e o tamanho da folha pdf.CreatePDF "P","mm","A4" pdf.SetPath("fpdf/") pdf.Open() '// adcionando página pdf.AddPage() '// setando fonte e tamanho pdf.SetFont "Arial","",11 '// setando grossura da linha pdf.SetLineWidth(0.4) '// setando linhas, reapare que, as medidas são feitas em x1, y1, x2 e y2, començando no ponto inicial de x e y e finalizando nos mesmo. pdf.Line "7","50","200","50" '// criamos aki uma linha horizontal, a linha pode ser feita de qualquer jeito, vertical, diagonal e td mais, somente setando os valores de x e y. '// escrevendo um texto While ((Repeat1__numRows <> 0) AND (NOT Patrimonio.EOF)) pdf.Text "7","45","Faculdade Cesat - Relatório de Patrimonios" pdf.Text "10","55",(Patrimonio.Fields.Item("instituicao").Value) pdf.Text "10","60",(Patrimonio.Fields.Item("nome").Value) pdf.Text "10","65",(Patrimonio.Fields.Item("codigo").Value) pdf.Text "10","70",(Patrimonio.Fields.Item("setor").Value) pdf.Text "10","75",(Patrimonio.Fields.Item("dtaquisicao").Value) pdf.Text "10","80",(Patrimonio.Fields.Item("dtentrada").Value) pdf.Text "10","85",(Patrimonio.Fields.Item("cor").Value) pdf.Text "10","90",(Patrimonio.Fields.Item("descricao").Value) pdf.Text "10","95",(Patrimonio.Fields.Item("fornecedor").Value) pdf.Text "10","100",(Patrimonio.Fields.Item("quantidade").Value) pdf.Text "10","105",(Patrimonio.Fields.Item("situacao").Value) pdf.Text "10","110",(Patrimonio.Fields.Item("valor").Value) pdf.Text "10","115",(Patrimonio.Fields.Item("dtsaida").Value) pdf.Text "10","120",(Patrimonio.Fields.Item("motivosaida").Value) Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Patrimonio.MoveNext() Wend pdf.Close() pdf.Output() %> <% Patrimonio.Close() Set Patrimonio = Nothing %> Sds, Vagner Nunes

Poderia me explicar melhor o procedimento, fiz uns testes aqui, porém não está dando em nada...

Como posso fazer este procedimento de gravacao de ID´s em tabela temporária?

Obrigado pela dica, fiz uns testes aqui, e fiz todo o layout, menus, etc no Dreamweaver e estou trabalhando a programação no Visual. Sds, Vagner Nunes

Prezados, Estou utilizando o FPDF para gerar um relatório em PDF. Não sei se estou fazendo corretamente, porem gostaria de saber como faço para repetir os registros. Segue código: <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/Conectar.asp" --> <% Dim Patrimonio Dim Patrimonio_numRows Set Patrimonio = Server.CreateObject("ADODB.Recordset") Patrimonio.ActiveConnection = MM_Conectar_STRING Patrimonio.Source = "SELECT * FROM controle" Patrimonio.CursorType = 0 Patrimonio.CursorLocation = 2 Patrimonio.LockType = 1 Patrimonio.Open() Patrimonio_numRows = 0 %> <!--#include file="fpdf.asp"--> <% dim pdf '// criando o pdf set pdf=CreateJsObject("FPDF") '// aki poderemos adcionar várias funções como titulos padroes para todas as páginasm numeração de páginas e etc. '// montando o corpo do pdf, setando o tipo da folha, tipo de medida e o tamanho da folha pdf.CreatePDF "P","mm","A4" pdf.SetPath("fpdf/") pdf.Open() '// adcionando página pdf.AddPage() '// setando fonte e tamanho pdf.SetFont "Arial","",11 '// setando grossura da linha pdf.SetLineWidth(0.4) '// setando linhas, reapare que, as medidas são feitas em x1, y1, x2 e y2, començando no ponto inicial de x e y e finalizando nos mesmo. pdf.Line "7","50","200","50" '// criamos aki uma linha horizontal, a linha pode ser feita de qualquer jeito, vertical, diagonal e td mais, somente setando os valores de x e y. '// escrevendo um texto pdf.Text "7","45","Faculdade Cesat - Relatório de Patrimonios" pdf.Text "10","55",(Patrimonio.Fields.Item("instituicao").Value) pdf.Text "10","60",(Patrimonio.Fields.Item("nome").Value) pdf.Text "10","65",(Patrimonio.Fields.Item("codigo").Value) pdf.Text "10","70",(Patrimonio.Fields.Item("setor").Value) pdf.Text "10","75",(Patrimonio.Fields.Item("dtaquisicao").Value) pdf.Text "10","80",(Patrimonio.Fields.Item("dtentrada").Value) pdf.Text "10","85",(Patrimonio.Fields.Item("cor").Value) pdf.Text "10","90",(Patrimonio.Fields.Item("descricao").Value) pdf.Text "10","95",(Patrimonio.Fields.Item("fornecedor").Value) pdf.Text "10","100",(Patrimonio.Fields.Item("quantidade").Value) pdf.Text "10","105",(Patrimonio.Fields.Item("situacao").Value) pdf.Text "10","110",(Patrimonio.Fields.Item("valor").Value) pdf.Text "10","115",(Patrimonio.Fields.Item("dtsaida").Value) pdf.Text "10","120",(Patrimonio.Fields.Item("motivosaida").Value) pdf.Close() pdf.Output() %> <% Patrimonio.Close() Set Patrimonio = Nothing %> Sds, Vagner Nunes

Seguindo a orientação eliminei todas as linhas e fiz o Select a seguir: SELECT * FROM questoes order by Rnd(Int(Now()*ID)-Now()*ID); Porém tem como order por registro de ID e que não repita? Sds,

Prezados, Boa noite, estou aprendendo a trabalhar com o ASP.NET no Visual Web Developer 2008 Express, e estou aprendendo legal, porém estou tendo dificuldades em trabalhar o layout no Visual Web Developer 2008 Express. Queria saber os senhores não possui algum material, tipo apostila que trate de criação de layout no Visual Web Developer 2008 Express, pois estou tendo muita dificuldade. Trabalho com ASP e PHP no Dreamweaver e consigo desenvolver layouts bastantes interessantes, porém no Visual Web Developer 2008 Express, não consigo desenvolver um layout bacana. Alguém poderia me ajudar? Sds, Vagner Nunes

Mas se eu remover essas linhas, o código não vai me mostrar o próximo ID quando quando o usuário clicar em próximo: Randomize perg_id = Arr(Int((Ubound(arr) + 1) * rnd)) rs.close sql2 = "SELECT * FROM perguntas WHERE id = "& perg_id & ""

Seguindo essa linha deste código, não tem como só muda essa linha para carrega os ID´s em sequência? perg_id = Arr(Int((Ubound(arr) + 1) * rnd)) Sds, Vagner Nunes

Prezados, Estava feliz quando terminado o teste vocacional, porém me deparei com um problema, as perguntas estão vindo aleatoriamente e não em ordem de ID. Gostaria que aparece em ordem de ID e quando chegar no último ID parar, pois se clicar novamente, ele volta a mostrar outra pergunta. Como posso fazer isso? <% Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "SELECT * FROM perguntas" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = 3 rs.CursorLocation = 3 rs.LockType = 3 rs.Open sql, conn 'if NOT rs.eof then 'Randomize 'perg_id = array(Int((rs.recordcount * Rnd) + 1)) 'end if 'perg = Spit(perg_id, ",", -1, 1) Dim Arr() Dim i, RowCount RowCount = RS.RecordCount Redim Arr(RowCount - 1) For i = 0 To RowCount - 1 Arr(i) = RS("id") rs.movenext Next Randomize perg_id = Arr(Int((Ubound(arr) + 1) * rnd)) rs.close sql2 = "SELECT * FROM perguntas WHERE id = "& perg_id & "" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open sql2, conn 'Verifica se o existe a pergunta selecionada aleatoreamente, não houver a página será recarregada... ' Então evite deletar perguntas do banco de dados do quiz! if rs2.eof then response.redirect("teste.asp") end if %> Seria grato se alguém poder me ajudar... Sds,

beleza, agora funcionou certinho. Valeu.... Sds,

Agora aparece o seguinte erro: Segue código abaixo: <% Dim pontuacao vpontuacao = Request("pontuacao") session("pontuacao")= cint(session("pontuacao"))+ cint(vpontuacao) %>Está correto?

Estou fazendo assim, não sei está correto. <% Dim pontuacao, vpontuacao = Request("pontuacao") session("pontuacao")= vpontuacao %> Daí na página teste.asp aparece assim: Quando clicar na opção do formulário, carrega a página teste.asp novamente com a questão 2, e assim sucessivamente até a última questão, porém 1,3,4,2,1,6, onde na realizade queria que fosse somado... <%response.write session("pontuacao")%> Sds, Vagner Nunes

Como posso fazer este procedimento em Session?

Ok, funcionou agui. Existe a possibilidade de fazer a contagem da pontuação com ASP, pois estou utilizando javascript, porem dar uns erros de vez em quando. Fiz assim, o cara responde ou pergunta, daí clica em próxima, o javascript vai somando da questão anterior e vai mostrando o total, acumulando até chegar o total final. Sds,

Prezados, Criei um teste vocacional aqui, após ser respondido várias perguntas pelo usuário, ele chegará até o final com um número específicos de pontos. E ná página final tem vários tipos (legendas) explicando o que ele pode ser e dar uma dicas, porém está aparecendo todas as dicas, daí ele terá que ver a quantidade de pontos e achar a coluna da pontuação dele, para dair ele ler a informação referente a pontuação que ele fez. Gostaria que dependendo da pontuação conseguida apareça só a dica da pontuação dele. Ex.: Foi preenchido as respostas, daí ele obteve 56 de pontuação, aparecer somente a dica desta pontuação Como posso fazer este procedimento? Sds, Vagner Nunes

Prezados, Bom dia. Fiz um site para um cliente e uma das seções e a trabalhe conosco... Nesta seção o visitante preenche os campos nome, e-mail e curriculo (é feito upload de um doc, docx ou pdf), que é gravado na tabela curriculo. Criei a possibilidade do administrador fazer o download do currículo, porém ele clica em um registro e depois clica em download. Gostaria de saber se há possibilidade de talvez inserir un checkbox para selecionar e quando clicar em download, fazer o download de vários curriculos ao mesmo tempo. Se os senhores poderem me ajudar seria muito grato... Sds, Vagner Nunes

Eu já pesquisei no google, mas não achei o queria aplicar em meu código!

Prezados, bom dia Estou com um problema. Em um site que criei, existe uma seção chamada vídeos, crie a páginas de insercao e ediçao, etc. Inicialmente o cliente iria cadastrar um vídeo específico em flv, digitando nome do video e o link, fazendo o upload, daí o visitando iria fazer o download do vídeo, porém agora ele quer que o vídeo em vez de ser baixado, ele que que visualize no navegador mesmo, porém não sei nem como começar a fazer este procedimento. Lembrando que seria cadastrado diversos vídeos pequenos, daí ele queria que quando o visitante clicar em um vídeo específico, abrir em um player, ou algo parecido. Alguém poderia me ajudar? Seria muito grato Sds, Vagner Nunes

Prezados, bom dia Estou com um problema. Em um site que criei, existe uma seção chamada vídeos, crie a páginas de insercao e ediçao, etc. Inicialmente o cliente iria cadastrar um vídeo específico em flv, digitando nome do video e o link, fazendo o upload, daí o visitando iria fazer o download do vídeo, porém agora ele quer que o vídeo em vez de ser baixado, ele que que visualize no navegador mesmo, porém não sei nem como começar a fazer este procedimento. Lembrando que seria cadastrado diversos vídeos pequenos, daí ele queria que quando o visitante clicar em um vídeo específico, abrir em um player, ou algo parecido. Alguém poderia me ajudar? Seria muito grato Sds, Vagner Nunes

Prezados, Bom dia. Preciso da ajuda dos senhores mais uma vez.... Criei um site e em uma dessas seções criar uma tabela que tem um campo chamado data, este campo preenchi automaticmante a data quando é inserido algum novo registro. Porém quando é visualizado os dados, é mostrado a data no formato mm/dd/aaaa. Mas gostaria que a data fosse visualizada como nosso padrão que é dd/mm/aaaa. Como proceder para corrigir... Banco de Dados: Access 2003 Se alguém poder me ajudar seria muito grato. Sds, Vagner Nunes

Valeu pela dica

Prezados, Bom dia. Gostaria de saber como faço para inserir uma imagem em miniatura no navegador, ao lado da barra de endereço. Sds, Vagner Nunes