ursolouco
-
Total de itens
2.314 -
Registro em
-
Última visita
Tudo que ursolouco postou
-
Brother!! Nunca fiz isso ou passei por algo, mas o que você acha de colocar um Array dentro de uma variavel Application ? Conforme foi validado os usuarios online, você redimensiona seu Array e exibe na tela. Abraços!!!
-
E o nome da Nave da Mina que o Morpheus pagava uma madeira....!! Saquei agora...
-
Hãn ? Serve para ASP isso ae ? Qui tal ser explicito isso ae ? é que ele viu na minha assinatura que eu uso SF7 (Sound Forge 7), não tem nada a ver com ASP não, é Edição de Audio. T+ Ah sim, isso ae, já é pra alucinados, eu ainda não cheguei lá. Fui...
-
Yesssssss!! Um desempregado a menos neste humilde pais. O Lula devia ler isto e me chamar pra união , talvez, possa ainda, salvar este pais. Erica, como já foi resolvido seu pequenino problema, vou fechar o tópico, qualquer coisa, via PM, peça para reabrir diretamente com qualquer moderador da seção. Bjão e Boa Sorte!!! [uRSO]
-
Hãn ? Serve para ASP isso ae ? Qui tal ser explicito isso ae ?
-
Hehehehe Qual programador web que não é louco ? ../ -> puxa o arquivo de dentro do servidor!! Caminho absoluto ./ -> puxa o arquivo de dentro do diretorio!! Caminho relativo Abraços!! OBS: quero ver vc, muito louco, falar este mantra que é seu nick
-
Brother só consoantes!!! Server.MapPath server para pegar o caminho fisico de um arquivo no diretorio ou seu caminho completo no servidor. Se você precisa redirecionar seu cliente... utilize. Response.Redirect("./diretorio/arquivo.asp") Abraços!!
-
Manda aí, o exemplo do menu que você precisa... Tá muito vasta sua dúvida, fica um pouco dificil de lhe ajudar.. Abraços!!
-
Brother!! Não sei ao certo o que você quer fazer, mas dentro do seu servidor (pelo menos já vi isso no IIS) você pode personalizar sua página de erro. Caso contrario, você vai precisar usa linguagem dinamica para redirecionar seu cliente para outro servidor. abraços!!!
-
E quando estamos enviando muitos dados via POST no form ? você vai ficar com erro ? Não né ? Veja aqui uma possivel solução!! Abraços!! -
Brother!! Seu banco de dados não esta sendo localizado, porque, o método MapPath, não esta sendo utilizado corretamente. Veja só: pastaAtual = site Dentro de WWWROOT: db Seu arquivo de conexão, para include, é claro: conecta.asp Sua pagina, de exibição de produtos, que esta dentro do diretorio site: produtos.asp Como puxar este arquivo ? Simples né... <!--#INCLUDE FILE="./db/conecta.asp"--> Sei que esta explicação, não tem nada a ver com seu código, mas é para esclarecer um método do objeto Response... Para resolver seu código, altere sua conexão para o seguinte codigo: strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source =" & cBanco cBanco = Server.MapPath("./db/banco_dados") Set Conn = Server.CreateObject("adodb.connection") Conn.Open(strConn) Abraços e Boa Sorte!!!
-
Brother!! Rachei o bico mano, gostei pra baralho!! Deus pra dar várais risadas... PARABÉNS!!!
-
Brother!! Embora meu negocio seja linhas de código, posso lhe dizer.... Imagem tá limpa, clara, objetiva e moderna. Tá excelente!! Meus parabéns... Dezão manoooooooo, não muda nada não!!! Abraços!!
-
Brother!! Na seção de dicas do imasters, há um sisteminha de rolagem muito interessante (Acho que é até com pausa, quando o internauta posiciona o mouse!! ). Há uma extensão do DW que também faz este tipo de procedimento, mas não sei lhe dizer, se há pausa. -> Download Mas como cavalo dado não se olha os dentes, vou lhe passar a dicas e você adapta diretamente a sua necessidade. Abraços e Boa Sorte!!! [urso]
-
Erica!! Até editei este POST, em sua homenagem... Veja este codigo: <% Response.Expires = 0 %> <html> <head> <title>:: Erica - Forum SB - Paginação de Vetor ::</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- p { font-family: Verdana; font-size: 10px; color: #000000; } a { text-decoration: none; } --> </style> </head> <body> <% Inicio = Request.Querystring("Inicio") If isEmpty(Inicio) Or Not isNumeric(Inicio) Or isNull(Inicio) Then Inicio = 0 Else Inicio = CInt(Inicio) End If cBanco = Server.MapPath("Nwind2000.mdb") Set Conn = Server.CreateObject("AdoDb.Connection") strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & cBanco Conn.open(strConn) RegistroTela = 15 sSQL = "SELECT ProductName From Products ORDER BY ProductName" Set Rs = Server.CreateObject("adodb.recordset") Set Rs = Conn.Execute(sSQL) If Not Rs.Eof Then vetor = Rs.GetRows Conn.Close Set Conn = Nothing maxLinhas = UBound(vetor, 2) maxColunas = UBound(vetor, 1) Final = Inicio + 15 Response.Write("Inicio:" & Inicio & "<br>") Response.Write("Final:" & Final & "<br>") Response.Write("Maximo:" & maxLinhas & "<br>") Response.Write("<table align=center border=1>") while (Inicio < Final) Response.Write("<tr>") For C = 0 To 2 If Inicio <= maxLinhas Then Response.Write("<td width=220><p>" & vetor(0, Inicio) & " <b>"& Inicio &"</b>" & "</p></td>") Inicio = Inicio + 1 Else Response.Write("<td width=220><p> </p></td>") Inicio = Inicio + 1 End If Next Response.Write("</tr>") Wend Response.Write("</table>") Response.Write("<br>") Response.Write("<p>") If Inicio > 15 Then Response.Write("<a href=vetor.asp?Inicio=" & (inicio - 30) & ">Voltar :</a>") End If If Inicio < maxLinhas Then Response.Write("<a href=vetor.asp?Inicio=" & Inicio & ">: Avançar </a>") End If Response.Write("</p>") Else Response.Write("<p>Não há informações na sua pesquisa.</p>") Conn.Close Set Conn = Nothing Response.End() End If %> </body> </html> O Ultimo item do vetor, vai montar a tabela completa, independente de ter ou não conteudo. Abraços e Boa Sorte!!! [urso]
-
strTexto = Request.Form("assunto") & "<br>" strTexto = strTexto & "Local" strTexto = strTexto & Request.Form("Local") objCdoSysMail.TextBody = strTexto Gere uma string, depois jogue na propriedade do seu objeto.
-
Album De Fotos - Estou com problemas na Paginação
pergunta respondeu ao <% LEMES %> de ursolouco em ASP
<%dim idfoto, fotopequena, fotogrande fotopequena=rs("fotopeq") fotogrande=rs("fotogra") idfoto=rs("id_fotomodelo") response.write "<a href=albumteste.asp?clicar="&[COLOR=red]fotogrande[/COLOR] &"><img src=modelos/peq/"& fotopequena &" width=""70"" height=""45"" border=0>" %> -
conseguiu resolver seu problema? Como ficou? Dark!! Só não estou conseguindo fechar ou paralizar a paginação, de resto, esta tudo ok.
-
Olá Erica!!! <% Function criaLink(dir, Inicio, Final) Response.Write("<a href=") Response.Write("ursolouco_laticinios.asp?Inicio=") Response.Write(INicio) Response.Write("&Final=") Response.Write(Final) Response.Write(">") Response.Write(dir) Response.Write("</a>") End Function Inicio = Request("INicio") Final = Request.QueryString("Final") If isEmpty(Inicio) Then Inicio = 0 End If If isEmpty(Final) Then Final = Inicio + 4 End If cBanco = "banco.mdb" strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = " & cBanco Set Conn = Server.CreateObject("adodb.connection") Conn.Open(strConn) strSQL = "SELECT * FROM produtos WHERE departamento='laticinios' ORDER BY produto" Set Rs = Server.CreateObject("adodb.recordset") Set Rs = Conn.Execute(strSQL) If Not Rs.Eof Then vRs = Rs.GetRows maxRegistro = UBound(vRs) Response.Write("<table border='0' cellspacing='0' cellpading='0' align='center'>") Contador = Inicio For I = Inicio To Final Response.Write("<tr>") For C = 0 to 2 Response.Write("<td width=135>") Response.Write("<p>") Response.Write("<img src='") If Contador < maxRegistro Then Response.Write(vRs(4,Contador)) Else Response.Write(" ") End If Response.Write("' border='0'") Response.Write(" >") Response.Write("<br>") Response.Write(vRs(1,Contador)) Response.Write("</p>") Response.Write("</td>") Contador = Contador + 1 Next Response.Write("</tr>") Next Response.Write("</table>") Response.Write("<br>") Response.Write("<p align=center>") If Inicio > 1 Then Call CriaLink("Voltar", Inicio -4, Final-4) End if Response.Write(" :: ") If Inicio >= 0 Then Call CriaLink("Avançar", Inicio+4, Final+4) End If Response.Write("</p>") Conn.Close Set Conn = Nothing Else Response.Write("<table border='0' cellspacing='0' cellpading='0'>") Response.Write("<tr>") Response.Write("<td>") Response.Write("<p>") Response.Write("Não foi encontrado nenhum registro") Response.Write("</p>") Response.Write("</td>") Response.Write("</tr>") Response.Write("</table>") Conn.Close Set Conn = Nothing End If %> Só não estou conseguindo para a paginação, mas isso ae, acredito que você consiga resolver, porque agora, não dá nem pra da uma olhada, esta terrivel por aqui. Abraços!!