turboibest

obrigado Alex, você me ajudou muito....

E ae galera, beleza? To preceisando de ajuda em uma coisa, quero por uma música de fundo em uma animação e eu queria fazer um botão onde o usuário que acessa o site desligue a música e se quiser ligue novamente, se puderem me ajudar, eu agradeço. Desde já muito obrigado...

valeu cara, brigadão....

Olá, Galera estou tentando fazer o seguinte efeito, o usuario passa o mouse em cima do botão e ele executa a animação e depois que tira o mouse de cima do botão, ele faz um efeito de saida, alguém pode me ajudar? Se puderem eu agradeço.

Com muito custo consegui resolver o problema, o segue o código como ficouu: <!--#include file="travar.asp"--> <!--#include file="conecta.asp"--> <% titulo=request.form("titulo") logo=request.form("logo") cor1=request.form("cor1") cor2=request.form("cor2") cor3=request.form("cor3") texto_cor1=request.form("texto_cor1") fundo_br=request.form("fundo_br") titulo1=request.form("titulo1") texto1=request.form("texto1") link1=request.form("link1") im1=request.form("im1") titulo2=request.form("titulo2") texto2=request.form("texto2") link2=request.form("link2") im2=request.form("im2") titulo3=request.form("titulo3") texto3=request.form("texto3") link3=request.form("link3") im3=request.form("im3") titulo4=request.form("titulo4") texto4=request.form("texto4") link4=request.form("link4") im4=request.form("im4") titulo5=request.form("titulo5") texto5=request.form("texto5") link5=request.form("link5") im5=request.form("im5") texto_adicional=request.form("texto_adicional") SQLConsulta = "UPDATE canal SET logo='"& logo &"', cor1='"& cor1 &"', cor2='"& cor2 &"', cor3='"& cor3 &"', texto_cor1='"& texto_cor1 &"', fundo_br='"& fundo_br &"', im1='"& im1 &"', titulo1='"& titulo1 &"', texto1='"& texto1 &"', link1='"& link1 &"', im2='"& im2 &"', titulo2='"& titulo2 &"', texto2='"& texto2 &"', link2='"& link2 &"', im3='"& im3 &"', titulo3='"& titulo3 &"', texto3='"& texto3 &"', link3='"& link3 &"', im4='"& im4 &"', titulo4='"& titulo4 &"', texto4='"& texto4 &"', link4='"& link4 &"', im5='"& im5 &"', titulo5='"& titulo5 &"', texto5='"& texto5 &"', link5='"& link5 &"', texto_adicional='"& texto_adicional &"' WHERE titulo='"& titulo &"'" Set Consulta = Conexao.Execute(SQLConsulta) If err.number>0 then response.write "Ocorreram erros no script:" & "<P>" response.write "Número=" & err.number & "<P>" response.write "Descrição=" & err.description & "<P>" response.write "Help Context=" & err.helpcontext & "<P>" response.write "Help Path=" & err.helppath & "<P>" response.write "Native Error=" & err.nativeerror & "<P>" response.write "Source=" & err.source & "<P>" response.write "SQLState=" & err.sqlstate & "<P>" else response.write "Nenhum problema aconteceu!" & "<P>" end if IF Conexao.errors.count> 0 then response.write "Ocorreram erros com o banco de dados" & "<P>" response.write SQLConsulta & "<P>" for counter= 0 to Consulta.errors.count response.write "Número do erro:" & Conexao.errors(counter).number & "<P>" response.write "Descrição --> " & Conexao.errors(counter).description & "<P>" next else response.redirect "atualizado.asp" end if Set Consulta=Nothing Conexao.close Set conexao=nothing %> Obrigado pela ajuda.....

eu desenvolvi um código para usar no para atualizar os registros no banco de dados, mais tá dando o seguinte erro: Tipo de erro: Microsoft JET Database Engine (0x80004005) A operação deve usar uma consulta atualizável. /administracao/atualizardados.asp, line 42 Segue o código: <!--#include file="travar.asp"--> <!--#include file="conecta.asp"--> <% Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 %> <% titulo = request.form("titulo") logo = request.form("logo") cor1 = request.form("cor1") cor2 = request.form("cor2") cor3 = request.form("cor3") texto_cor1 = request.form("texto_cor1") fundo_br = request.form("fundo_br") im1 = request.form("im1") titulo1 = request.form("titulo1") texto1 = request.form("texto1") link1 = request.form("link1") im2 = request.form("im2") titulo2 = request.form("titulo2") texto2 = request.form("texto2") link2 = request.form("link2") im3 = request.form("im3") titulo3 = request.form("titulo3") texto3 = request.form("texto3") link3 = request.form("link3") im4 = request.form("im4") titulo4 = request.form("titulo4") texto4 = request.form("texto4") link4 = request.form("link4") im5 = request.form("im5") titulo5 = request.form("titulo5") texto5 = request.form("texto5") link5 = request.form("link5") texto_adicional = request.form("texto_adicional") sub altera_dados() SQL= "UPDATE Canal SET titulo = '"& titulo &"', logo = '"& logo &"', cor1 = '"& cor1 &"', cor2 = '"& cor2 &"', cor3 = '"& cor3 &"', texto_cor1 = '"& texto_cor1 &"', im1 = '"& im1 &"', titulo1 = '"& titulo1 &"', texto1 = '"& texto1 &"', link1 = '"& link1 &"', im2 = '"& im2 &"', titulo2 = '"& titulo2 &"', texto2 = '"& texto2 &"', link2 = '"& link2 &"', im3 = '"& im3 &"', titulo3 = '"& titulo3 &"', texto3 = '"& texto3 &"', link3 = '"& link3 &"', im4 = '"& im4 &"', titulo4 = '"& titulo4 &"', texto4 = '"& texto4 &"', link4 = '"& link4 &"', im5 = '"& im5 &"', titulo5= '"& titulo5&"', texto5 = '"& texto5 &"', link5 = '"& link5 &"', texto_adicional = '"& texto_adicional &"' where canal= '"& canal &"'" conexao.Execute (SQL) end sub call altera_dados() function confirma() if SQL = True then Response.Write "<br><p align=center><font face=Verdana size=2> Ocorreram Erros durante a Alteração dos Dados </font></p>" else Response.Write "<br><p align=center><font face=Verdana size=2> Dados Alterados com Sucesso </font></p>" end if end function call confirma() Sql.MoveNext Sql.Close Set Sql=Nothing Conexao.close Set conexao=nothing %> Se puderem me ajudar eu agradeço......

Olá galera, Primeiramente informo que sou novo em ASP, por isso peço que tenham paciencia comigo. Eu tenho um formulário que recupera dados do banco de dados, ele funciona certinho, recupera os daods, mais na hora que eu clico no botão "atualizar" para atualizar os dados alterados ele teria que atualizar o banco de dados, mias eu não sei fazer esse código, tentei apostilas, tutorias e não consegui, por favo me ajudem. Segue abaixo código do form para verificarem: <!--#include file="travar.asp"--> <!--#include file="conecta.asp"--> <html> <% canal=request.querystring("canal") SQLConsulta="select* From canal where canal='"& canal &"'" Set Consulta=Conexao.Execute(SQLConsulta) If Consulta.EOF Then%> <% response.redirect ("erro2.asp") %> <% else do while NOT Consulta.EOF %> <head> <style type="text/css"> <!-- .semrisco {text-decoration: none } --> </style> <style fprolloverstyle>A:hover {text-decoration: underline} </style> <title>plmf.solutions - Remote administration v1.0</title> </head> <body topmargin="0" leftmargin="0" bgcolor="#FFFFFF"> <!--#include file="top.asp"--> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="779"> <tr> <td width="100%"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"> <tr> <td width="23%" rowspan="2">&nbsp;</td> <td width="77%"> &nbsp;</td> </tr> <tr> <td width="77%"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="435"> <tr> <td width="1%" height="435">&nbsp;</td> <td width="99%" height="435"> <form method="GET" action="atualizardados.asp"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #000000" bordercolor="#111111" width="100%" height="718"> <tr> <td width="592" background="imagens/background_br.gif" colspan="6" height="20"> <font face="Verdana" size="1"><b>&nbsp;<% response.write session("nome") %>, você está atualizando o canal: <i><%=consulta("titulo")%></i></b></font></td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19">&nbsp;</td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19"><font face="Verdana" size="1"> Título do canal:</font></td> <td width="188" height="19"> <input type="text" name="titulo" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("titulo")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19"><font face="Verdana" size="1">Logo do canal:</font></td> <td width="188" height="19"> <input type="text" name="logo" size="17" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("logo")%>"><font face="Verdana" size="1"> .jpg</font></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19"><font face="Verdana" size="1">1º Cor:</font></td> <td width="188" height="19"> <input type="text" name="cor1" size="8" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("cor1")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19"><font face="Verdana" size="1">2º Cor:</font></td> <td width="188" height="19"> <input type="text" name="cor2" size="8" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("cor2")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19"><font face="Verdana" size="1">3º Cor:</font></td> <td width="188" height="19"> <input type="text" name="cor3" size="8" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("cor3")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19"><font face="Verdana" size="1">Cor do texto:</font></td> <td width="188" height="19"> <input type="text" name="texto_cor1" size="8" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("texto_cor1")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19"><font face="Verdana" size="1"> Fundo da barra superior:</font></td> <td width="188" height="19"> <input type="text" name="fundo_br" size="17" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("fundo_br")%>"><font face="Verdana" size="1"> .jpg</font></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19">&nbsp;</td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19"><b><font face="Verdana" size="1"> Notícias</font></b></td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19"><font face="Verdana" size="1">1º Notícia - </font></td> <td width="79" height="19"><font face="Verdana" size="1">Título:</font></td> <td width="188" height="19"> <input type="text" name="titulo1" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("titulo1")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Texto:</font></td> <td width="188" height="19"> <textarea rows="3" name="texto1" cols="34" style="font-size: 10 px; font-family: Verdana"><%=consulta("texto1")%></textarea></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Link:</font></td> <td width="188" height="19"> <input type="text" name="link1" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("link1")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Imagem:</font></td> <td width="188" height="19"> <input type="text" name="im1" size="17" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("im1")%>"><font face="Verdana" size="1"> .jpg</font></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19">&nbsp;</td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19"><font face="Verdana" size="1">2º Notícia - </font></td> <td width="79" height="19"><font face="Verdana" size="1">Título:</font></td> <td width="188" height="19"> <input type="text" name="titulo2" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("titulo2")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Texto:</font></td> <td width="188" height="19"> <textarea rows="3" name="texto2" cols="34" style="font-size: 10 px; font-family: Verdana"><%=consulta("texto2")%></textarea></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Link:</font></td> <td width="188" height="19"> <input type="text" name="link2" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("link2")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Imagem:</font></td> <td width="188" height="19"> <input type="text" name="im2" size="17" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("im2")%>"><font face="Verdana" size="1"> .jpg</font></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19">&nbsp;</td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19"><font face="Verdana" size="1">3º Notícia - </font></td> <td width="79" height="19"><font face="Verdana" size="1">Título:</font></td> <td width="188" height="19"> <input type="text" name="titulo3" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("titulo3")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Texto:</font></td> <td width="188" height="19"> <textarea rows="3" name="texto3" cols="34" style="font-size: 10 px; font-family: Verdana"><%=consulta("texto3")%></textarea></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Link:</font></td> <td width="188" height="19"> <input type="text" name="link3" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("link3")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Imagem:</font></td> <td width="188" height="19"> <input type="text" name="im3" size="17" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("im3")%>"><font face="Verdana" size="1"> .jpg</font></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19">&nbsp;</td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="1"></td> <td width="76" height="1"><font face="Verdana" size="1">4º Notícia - </font></td> <td width="79" height="1"><font face="Verdana" size="1">Título:</font></td> <td width="188" height="19"> <input type="text" name="titulo4" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("titulo4")%>"></td> <td width="119" height="1"></td> <td width="119" height="1"></td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Texto:</font></td> <td width="188" height="19"> <textarea rows="3" name="texto4" cols="34" style="font-size: 10 px; font-family: Verdana"><%=consulta("texto4")%></textarea></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Link:</font></td> <td width="188" height="19"> <input type="text" name="link4" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("link4")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Imagem:</font></td> <td width="188" height="19"> <input type="text" name="im4" size="17" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("im4")%>"><font face="Verdana" size="1"> .jpg</font></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19">&nbsp;</td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19"><font face="Verdana" size="1">5º Notícia - </font></td> <td width="79" height="19"><font face="Verdana" size="1">Título:</font></td> <td width="188" height="19"> <input type="text" name="titulo5" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("titulo5")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Texto:</font></td> <td width="188" height="19"> <textarea rows="3" name="texto5" cols="34" style="font-size: 10 px; font-family: Verdana"><%=consulta("texto5")%></textarea></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Link:</font></td> <td width="188" height="19"> <input type="text" name="link5" size="36" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("link5")%>"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Imagem:</font></td> <td width="188" height="19"> <input type="text" name="im5" size="17" style="font-size: 10 px; font-family: Verdana" value="<%=consulta("im5")%>"><font face="Verdana" size="1"> .jpg</font></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19">&nbsp;</td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19"><b><font face="Verdana" size="1"> Notícias adicionais:</font></b></td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="76" height="19">&nbsp;</td> <td width="79" height="19"><font face="Verdana" size="1">Alterar fonte:</font></td> <td width="188" height="19"> <input type="text" name="texto_adicional" size="36" style="font-size: 10 px; font-family: Verdana"></td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19">&nbsp;</td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> <tr> <td width="592" height="19" colspan="6"> <p align="center"> <input type="submit" value="Atualizar" name="B1" style="font-family: verdana; font-size: 10 px; font-weight: bold; background-color: #FFFFFF"></td> </tr> <tr> <td width="11" height="19">&nbsp;</td> <td width="155" colspan="2" height="19">&nbsp;</td> <td width="188" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> <td width="119" height="19">&nbsp;</td> </tr> </table> </form> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> <!--#include file="rodape.asp"--> </body> <% Consulta.MoveNext loop end if Consulta.Close Set Consulta=Nothing Conexao.close Set conexao=nothing %> </html>

peguei no site vipcodigo

Eu baixei um script que faz busca com resultados do Google, só que ele tá com erro de páginação. Fui tentar mudar o script para ver se dava pra ajeitar mais não consegui, parece que o código está criptografado, se puderem me ajudar eu agradeço, segue o código abaixo: <%@ LANGUAGE = VBScript.Encode %> <%#@~^DQQAAA==@#@&B4DYa)zJoKGo^+ k1; ^K:zknlMmtJ.n/!VD/&g5xS+8_9n/boU@#@&BtOOa)&zTGKosRbm;cmKhzk+CD1t&./E^O/Q;'Sn8_9+kkLx'dDl.Y{X!L/Cxg@#@&9rsPjYMi"S@#@&fb:PUYMuKtS@#@&Gkh~}4LqnlDt+M@#@&@#@&wmDC:nOMExI5E/O 5E+.zUY.k LvJi"Sr#@#@&k6~I;;+kY }!+DHjYMkxTcE;r#,@!@*PEE,Y4+ @#@&al.Cs+Y.;{In;!nkY 5EDXUYMrxT`E;r#@#@&kYlMO'"+;!ndYcp!+.XjOMkUovE/Dl.Or#@#@&jDDiId~{J4DYa)zJoKGo^+ k1; ^K:zknlMmtJ.n/!VD/&g5xr[2lMC:Y.;LJ[dOmDO'r'kYCMY@#@&@#@&+^d+@#@&@#@&UY.i"SP{~J4YYal&zTWKos+ r1; mKhzk+C.1tz.nkEsYk&Q;xr[alDm:OD!@#@&BUY.i"SP{EtDYw=&&hShcoGWLsR^WsE@#@&+U[,k0@#@&&0~1KO,wCMls+YME,xPrJ~K4+U@#@&@#@&i@#@&@#@&di@#@&@#@&dirUP3.MW.P"n/!:n~g+6O@#@&@#@&d@#@&idjY,Vr(LqnlDtnD,'~jD\.R;D+mOnr(LmOPcEtk^DKdW6Y ptSCPPhJb@#@&7i@#@&@#@&id@#@&di(0,2.D,K4n @#@&i7dV+Y`]JP{Pr2.DG.=PEPL~2MD 9/m.raYrW @#@&d7i@#@&ddAx9~q6@#@&di@#@&7irx,3DMWD,!GYKPZ@#@&@#@&7irY4~V}4% lY4nM@#@&di7cr2x,JMAKrSPkY.EMVS~wlVkn~,JJB~EJ@#@&id7Rjn N@#@&i7dV+Oi"SPx~cIn/aG /n:+XY@#@&di3x9P kDt@#@&id?OPdW4N nlDtD~'~HKY4k L@#@&@#@&7i/Y.u:HJP{~V+O`Id@#@&@#@&UN,kW@#@&@#@&@#@&@#@&@#@&@#@&@#@&CxQBAA==^#~@%> <!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <link rel="stylesheet" href="styles.css"> </head> <BODY > <H1>Busca</H1> <FORM> <INPUT size="50" name="URL" value="<%=#@~^CQAAAA==2mDCs+DDE0QMAAA==^#~@%>"> <INPUT type="Submit" value="Search"> </FORM> <%#@~^KQUAAA==@#@&/^MkaYxm:xI;;+kY jD\..mDkm8s+k`r?/I(K:{Hbt3J*@#@&@#@&q0~HKY~wm.m:nDD!'PrJ,Ptx@#@&kY.u:HS{.+aVl1nc/DD_K\SSEJ/nlM^tJDnd!VYd&r~dmMraYUm:#@#@&/D.C:HJ'M+2smm+vdYMCKtJSJJ/l.m4&M+dE^O/r~d^MkwOUm:n#@#@&kY._KtS'M+asl1+c/DDuPtS~r4YDw)J&LWKo^+ k^5cmG:rSJr#@#@&ED+d2Kxd+cAMkOP DwmDmhd@#@&vD/2G /+cADbY+,dOD_KtS@#@&C.M'dw^rY,`dOMtYhsBJ^Vmdk'Lr~ F~8#@#@&xMwxj(W;U9`lM.#@#@&0K.~L{F,YGPU.aOq@#@&dYMkUL^k/OxkY.k L^kdD[mDDvL*@#@& +aY@#@&@#@&EY+kOlMD'k2skDPv/ODrUTVr/DSJDl8sJ~RqBFb@#@&O/OmDM'/aVbOPv/OD4YhsBJYm8VJ~ qSF*@#@&x.'i8KEUNvO+kYC.M#@#@&sb/O+m"m'E@!4MJ@#@&k6~xM'*PDtnU,@#@&@#@&0KDPbx*PDW,x.O*@#@&Vr/Dnl.lxsb/YnC.l'YdDl.M`b#[rYm8VJ@#@& +aO@#@&+^d+@#@&0K.~k{G,YGPU. v@#@&@#@&@#@&Y.rsEkOxM+2Vm^`O/DlDM`bb~rtOYa)ESrJ#@#@&k6PVUcY/Dl.Dcr*#~@!@*~VxcOMk:;rD#~PmU9Pr@* ,Ytx@#@&\mDq'rt.n6'JL^tM`&Wb'J4YDwlz&E@#@&-lM+'rYC.T+YxELm4DvfW#'r{(Vl 3r'm4Dc&W#'E,tDW'r[m4.c&W#LJ4YO2=z&J@#@&\mVGCM+:COMk^'MnaVC1+vY+kYm.Dvkb~7l.qB\lM+#@#@&@#@&O.ksEbY)f#xM+2Vm^+vYndDlD.cb#SJ9r7JSrJ*@#@&b0,s+ `O+kYC.M`k*bP@!@*P^nU`DDb:;kO)G.bP,~Y4+U@#@&@#@&-C^WCDhmY.bm{JJ@#@&@#@&+ N~k6@#@&@#@&VkkO+myl{sr/D+myC[-C^WCDhlDDr^LJYC8^+E@#@&n^/n@#@&^k/D+m"l{Vr/D+C"m[YdYmDDvrb[rYm4s+E@#@&@#@&+ [Pb0@#@&@#@&@#@&U6O@#@&@#@&@#@&@#@&xN,k6@#@&@#@&vD/2G /+cADbY+,U.[r@!(D@*J@#@&M+dwKU/RA.bY+~sb/O+m"m[E@*J@#@&BM+k2W /nRSDrOP/D.k oVbdO@#@&+ N~kW@#@&dH4BAA==^#~@%> <%#@~^fAAAAA==@#@&DnkwKx/RS.kD+~J@!4@*/M+lDnN,4X,@!&0KxD@*@!b~4M+W'4OYa)&&Shh n^mU+D 1WhJDKzwmDknDctO:@*P3J;P1APP,@!zz@*@!z(@*@!A]@*E@#@&eiIAAA==^#~@%> <BR><BR>

isso e de poder fecha-la depois tambem, igual a do exemplo

nesse link que eu mandei tem um exemplo de um site em flash e nesse exemplo tem o menu, quando você clica em alguma opção do menu, o conteúdo aparece em uma janela por cima do site, e eu queria saber como faço esse efeito.

Olá Eu queria saber como fazer a animação que tem nesse site: Clique aqui para ver a animação Quando você clica em algum item da barra acima aparece o conteúdo em uma janela por cima do site, se puderem me ajuadr eu agradeço.

com seria isso?

Olá Comunidade, é o sequinte, tenho página que lista rpodutos de um banco de dados, quando ele lista um produto, automaticamente ele cria um campo quantidade e subtotal na frente do produto. Até ai tudo bem, o problema é que quando a pessoa clica no botão continuar, vai para a página de confirmação e não consigo fazer um request.form destes campos. Detalhe: oe campos sãocriados dessa maneira: <input name="txtValorTotal<%=consulta("codigo")%>" type="text" value="0" size="6" onKeyUp="somaTotal(this)"> onde o codigo é o codigo do produto, então o campo fica o nome por exemplo de txtValorTota101 eu queria saber como fazer o request.form nesse caso. Se puderem me ajudar, fico grato

O Renan, foi mal, é que eu postei a minha dúvida e esqueci de atualizar o arquivo no ftp, mais agora tá certo: Tabela de produtos Quando eu digito a quantidade que quero de um produto ele automaticamente aparece o subtotal e na base da tabela teria que aparecer automaticamente o valor total, mais não aparece, aprece se eu for digitando a quantidade dos produtos e apertando TAB para pular de um produto para outro, testem no link acima pra vocês verem.

Tenho uma tabela de produtos e seus preços. Os produtos são listados de um bd, na frente de cada produto tem um campo quantidade e subtotal e na base da tabela tem um campo total. Quando eu digito a quantidade que quero de um produto ele automaticamente aparece o subtotal e na base da tabela teria que aparecer automaticamente o valor total na base da tabela, mais não aparece, aprece se eu for digitando a quantidade dos produtos e apertando TAB para pular de um produto para outro, o que pode ser que está errado? Segue o link da tabela para vocês verem: Tabela de produtos Segue tambem o código da tabela: <!--#include file="conecta.asp"--> <html> <head> <script> function somaTotal(objeto){ campo = eval(objeto); total = document.pedido.totalcompra.value; document.pedido.totalcompra.value = parseFloat(campo.value) + parseFloat(total); } </script> <title>Método Microvip (Área Restrita)</title> </head> <body bgcolor="#CCCCCC" topmargin="0" leftmargin="0"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr> <td width="22%" bgcolor="#000080" valign="top"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr> <td width="22%" bgcolor="#000080" valign="top"> <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="166" id="AutoNumber3" height="52"> <tr> <td width="9" height="84">&nbsp;</td> <td width="136" colspan="2" height="84"> <p align="left"><font face="Verdana" size="1" color="#CCCCCC">Para sua maior segurança, ao encerrar suas atividades na área restrita, saia clicando no link &quot;Finalizar Sessão&quot;.<br> &nbsp;</font></td> <td width="11" height="84">&nbsp;</td> </tr> <tr> <td width="9" height="1"><font color="#CCCCCC">&nbsp;</font></td> <td width="103" height="1" bgcolor="#CCCCCC"> <p align="center"><font face="Verdana" size="1"> <a style="text-decoration: none" href="http://www.microvip.com.br/finaliza_sessao.asp"> <b><font color="#000080">X</font></b><font color="#000080"> Finalizar Sessão</font></a></font></td> <td width="30" height="1">&nbsp;</td> <td width="11" height="1">&nbsp;</td> </tr> </table> <p>&nbsp;</td> </tr> </table> </td> <td width="4%"> &nbsp;</td> <td width="149%" valign="top"> <form name="pedido"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="258"> <tr> <td width="100%" height="258"><p align="left"><b><font face="Verdana">Loja Virtual</font></b><p align="left"> <font face="Verdana" size="2"><br> Usuário: <br> Este pedido é para a unidade: <br> Este é o pedido nº:</font><p align="left"> <br> <font face="Verdana" size="2"> <br> Informe as quantidades desejadas e clique no botão <b>Continuar</b> <br> &nbsp;<br> </font> <table border="1" cellpadding="0" cellspacing="0" width="548" bordercolor="#000000" style="margin-bottom: 4"> <tr> <td width="50" align="center" height="22"><b><font face="Tahoma" size="1">Código</font></b></td> <td width="222" align="center" height="22"><b><font face="Tahoma" size="1">Produto</font></b></td> <td width="57" align="center" height="22"><b><font face="Tahoma" size="1">Valor unit.</font></b></td> <td width="40" align="center" height="22"><b><font face="Tahoma" size="1">Quant.</font></b></td> <td width="78" align="center" height="22"><b><font face="Tahoma" size="1"> Sub-total</font></b></td> </tr> </table> <% SQLConsulta="select* From produtos" Set Consulta=Conexao.Execute(SQLConsulta) If Consulta.EOF Then%> <% response.redirect ("erro.asp") %> <% else do while NOT Consulta.EOF %> <table border="1" cellpadding="0" cellspacing="0" width="548" bordercolor="#000000"> <tr> <td width="50"><font face="tahoma" size="1"> <p align="center"><%=consulta("codigo")%></font></td> <td width="222"> <p style="margin-top: 0; margin-bottom: 0"><font face="tahoma" size="1">&nbsp;&nbsp;<%=consulta("produto")%></font></p> </td> <td width="56"><font face="tahoma" size="1"> <p align="center" style="margin-top: 0; margin-bottom: 0">R$ <input name="txtValorUnit<%=consulta("codigo")%>" type="text" id="txtValorUnit<%=consulta("codigo")%>" size="2" value="<%=consulta("valor_unit")%>" style="font-family: Tahoma; font-size: 8 pt" readonly=""></font></td> <td width="41"> <p align="center" style="margin-top: 0; margin-bottom: 0"> <input name="txtQtd<%=consulta("codigo")%>" type="text" onKeyUp = "document.pedido.txtValorTotal<%=consulta("codigo")%>.value = (document.pedido.txtValorUnit<%=consulta("codigo")%>.value) * (document.pedido.txtQtd<%=consulta("codigo")%>.value)" size="2" ></td> <td width="78"> <p align="center" style="margin-top: 0; margin-bottom: 0"> <font face="tahoma" size="1">R$ </font><input name="txtValorTotal<%=consulta("codigo")%>" type="text" value="0" size="6" onKeyUp="somaTotal(this)"> </td> </tr> </table> <% Consulta.MoveNext loop end if Consulta.Close Set Consulta=Nothing Conexao.close Set conexao=nothing %> <br> Total tudo:<input type="text" name="totalcompra" readonly="true" value="0"><br> </td> </tr> </table> </td> </tr> </table> </form> </table> </body> </html> Se puderem me ajudar, eu agradeço

Euto com o seguinte problema, tenho uma página que lista dados de um bd. São produtos cadastrados com nome, codigo e valor. Cada produto exibido tem um formulario que ser ve para calcular a o produto e a quantidade queo usuario quer. Isso que descrevi acima seria isso:Loja virtual Agora a minha pergunta é o seguinte, como faço para somar o subtotal de cada formulario e exibir na base da página???

Pelo que eu entendi seria isso: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; } --> </style> </head> <body> <form name="form1"> <br> <br> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="70"><input name="txtValorUnit" type="text" id="txtValorUnit"></td> <td width="69"><input name="txtQtd" type="text" onKeyUp = "document.form1.txtValorTotal.value = (document.form1.txtValorUnit.value) * (document.form1.txtQtd.value)" ></td> <td width="69"><input name="txtValorTotal" type="text" value="0" readonly=""></td> </tr> </table> <br><br> </form> </body> </html>

Primeiramente me respondam uma coisa, como faço para que quando um usuario clicar no em um botao atualizar a pagina seja atualizada?

Olá pessoal, O meu problema é o seguinte: eu tenho uma página que exibe produtos cadastrados em um banco de dados com seus respctivos preços e descrição. Eu queria o seguinte, nesta página cada produto vai ter um campo "quantidade", nesta campo o usuário digita a quantidade que ele quer daquele produto, e eu queria que ao digitar a quantidade ele clicasse em um botão "atualizar" e aparecesse o valor total da soma das unidades digitadas, ex: um produto custa R$ 5,00, o usuario quer 3 unidades desse produto, quando ele cliaca em atualizar ele exibe na mesma página em baixo do produto o total, que no casso é R$ 15,00. Como é que eu faço isso??? Agradeço pela atenção, e desde já, obrigado.

Mais essa linha já coloquei no arquivo default.asp

Está disponivel, pois eu usu um sistema de newsletter que usa cdonts e roda certinho

Estou personalizando um script de cartão virtual e consigo fazer tudo, mais na hora que clico para enviar o cartão ele aparece o erro abaixo: Microsoft VBScript runtime error '800a01c2' Wrong number of arguments or invalid property assignment: 'SendEmail' /1.1/site/cards/sendit.asp, line 86 ai vai o arquivo que está sendo citado acima: <!--#include file="inccard.asp"--> <!--#include file="incgenmail.asp"--> <% ' First of all lets just get all variables Dim nCardId, sNameTo, sNameFrom, sEmailFrom, sText, sBGColor, sTextColor, sEmailTo Dim sOtherId Function Password_GenPass( nNoChars, sValidChars ) ' nNoChars = length of generated password ' sValidChars = valid characters. If zerolength-string ' default is used: A-Z AND a-z AND 0-9 Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789" Dim nCount Dim sRet Dim nNumber Dim nLength Randomize 'init random If sValidChars = "" Then sValidChars = szDefault End If nLength = Len( sValidChars ) For nCount = 1 To nNoChars nNumber = Int((nLength * Rnd) + 1) sRet = sRet & Mid( sValidChars, nNumber, 1 ) Next Password_GenPass = sRet End Function nCardId = Request.Form("fldAuto") if nCardId = "" Then Response.Redirect "." End If 'Ok... sNameTo = Request.Form("nameto") sNameFrom = Request.Form("namefrom") sEmailFrom = Request.Form("emailfrom") sEmailTo = Request.Form("emailto") sGreeting = Request.Form("greeting") sText = Request.Form("S1") sBGColor = Request.Form("BgColor") sTextColor = Request.Form("TColor") 'Save it to database Dim oRS Set oConn = PostCard_GetDatabaseConn() oConn.Execute "update " & Postcard_GetTablePrefix() & "card set sendcount=sendcount+1 where fldAuto=" & nCardId Set oRS = Server.CreateObject("ADODB.Recordset") If Postcard_GetDatabaseType() = "Access" Then oRS.Open "select fldAuto, cardid, nameto, namefrom, emailto, emailfrom, greeting, otherid, bgcolor, textcolor, stext from " & Postcard_GetTablePrefix() & "createdpostcards where fldAuto=-1 " ,oConn ,adOpenKeyset,adLockOptimistic Else oRS.CursorLocation = adUseClient oRS.Open "select fldAuto, cardid, nameto, namefrom, emailto, emailfrom, greeting, otherid, bgcolor, textcolor, stext from " & Postcard_GetTablePrefix() & "createdpostcards where fldAuto=-1 " ,oConn ,adOpenDynamic,adLockOptimistic End If oRS.AddNew oRS("cardid") = nCardId oRS("nameto") = sNameTo oRS("namefrom") = sNameFrom oRS("emailto") = sEmailTo oRS("emailfrom") = sEmailFrom oRS("greeting") = sGreeting oRS("stext") = sText oRS("bgcolor") = sBGColor oRS("textcolor") = sTextcolor sOtherId = Password_GenPass( 10, "" ) oRS("otherid")= sOtherId oRS.Update Dim IDToSend IDToSend = sOtherId & oRS("fldAuto").Value oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing strMsgHeader = sNameFrom & "(" & sEmailFrom & ")" & " has sent you a postcard!" & vbCrLf strMsgHeader = "The address to pick it up is : " & GetPathToPickupScript() & "?cardid=" & IDToSend strMsgFooter = vbCrLf & vbCrLf & "This card was sent and created with the postcardservice at http://www.aspcode.net" Dim sErr 'A linha que está com erro é essa abaixo sErr = SendEmail( Postcard_GetmailServer(), Postcard_GetmailFrom(), CStr(sEmailTo), sNameFrom & " has sent you a postcard", strMsgHeader & strMsgFooter ) If sErr = "" Then Response.Redirect "thanks.asp" Response.Flush Response.End else ' Message send failure Response.Write ("An error has occurred.<BR>") ' Send error message Response.Write ("The error was " & sErr) End If %> O componente que estou usando para o envio dos cartões é o CDONTS ai vai o arquivo de configuração do componente: incgenmail.asp <% Function SendEmail(sFromEmail, sToEmail, sSubject, sText ) Dim objMail set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = sFromEmail objMail.To = sToEmail objMail.Subject = sSubject objMail.Body = sText objMail.MailFormat = 0 objMail.BodyFormat = 0 objMail.Send Set objMail = nothing End Function %> se puderem me ajudareu agradeço, obrigado pela atenção

Ai via o arquivo default.asp que esta dando erro na linha 17: <!-- #include file="dbsite.asp" --> <!-- #include file="lang.asp" --> <!-- #include file="W3Lib.asp" --> <% If giEnabled Then DoPageHeader Session("ReturnPath") = "default.asp" my_Conn.Open ConnString sql ="select * from config" RS.open sql, my_Conn, 1, 3 CatNum = RS("CatNum") GalNum = RS("GalNum") RS.Close %> <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="95%"><TR><TD bgcolor="#4B96D3"><CENTER>&nbsp;<FONT FACE="Tahoma" SIZE="2" COLOR="#FFFFFF"><B><%=W3_sGalleries%></B></FONT>&nbsp;</CENTER></TD><TD align=right bgcolor="#FFFFFF" WIDTH="65%"><FONT face=Tahoma color=#000080 size=1><%=W3_sCount1%><B><%=GalNum%></B><%=W3_sCount2%><B><%=CatNum%></B><%=W3_sCount3%></FONT></TD></TR><TR><TD COLSPAN="2" bgcolor="#4B96D3" HEIGHT="2"><IMG BORDER="0" SRC="XcDirImages/pix.gif" WIDTH="1" HEIGHT="1"></TD></TR></TABLE> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <% sql ="select * from category WHERE rootid=0" RS.open sql, my_Conn, 1, 3 iLine = 0 Do Until RS.EOF CatName = RS("name") CatDesc = "" & RS("desc") CatId = RS("catid") CatGalNum = RS("galnum") If (iLine=0) Then iLine = 1 %> <TR> <TD vAlign=top width="50%"> <FONT face=TAHOMA size=3><B> <DIV class=DirMainCatLink> <A href="showsub.asp?id=<%=CatId%>"><%=CatName%></A>(<%=CatGalNum%>) <% If Session("Rights")>0 Then Response.Write "<a href='delsub.asp?id=" & CatId & "'><img src='images\delete.gif' border=0></a>" End If %> <br> <%=CatDesc%> </DIV></B> </FONT> <FONT face=TAHOMA size=1> <DIV class=DirSubCatLink> <% sql ="select * from category where rootid=" & CatId RS2.MaxRecords = 3 RS2.open sql, my_Conn, 1, 3 CycleTo = RS2.RecordCount If CycleTo > 3 Then CycleTo = 3 End If For J=1 to CycleTo %> <A href="showsub.asp?id=<%=RS2("catid")%>"><%=RS2("name")%></A>(<%=RS2("galnum")%>), <% RS2.MoveNext Next RS2.Close %> ... </DIV> </FONT> </TD> <% Else %> <TD vAlign=top width="50%"> <FONT face=TAHOMA size=3><B> <DIV class=DirMainCatLink> <A href="showsub.asp?id=<%=CatId%>"><%=CatName%></A>(<%=CatGalNum%>) <% If Session("Rights")>0 Then Response.Write "<a href='delsub.asp?id=" & CatId & "'><img src='images\delete.gif' border=0></a>" End If %> <br> <%=CatDesc%> </DIV></B> </FONT> <FONT face=TAHOMA size=1> <DIV class=DirSubCatLink> <% sql ="select * from category where rootid=" & CatId RS2.MaxRecords = 3 RS2.open sql, my_Conn, 1, 3 CycleTo = RS2.RecordCount If CycleTo > 3 Then CycleTo = 3 End If For J=1 to CycleTo %> <A href="showsub.asp?id=<%=RS2("catid")%>"><%=RS2("name")%></A>(<%=RS2("galnum")%>), <% RS2.MoveNext Next RS2.Close %> ... </DIV> </FONT> </TD> </TR> <% iLine = 0 End If RS.MoveNext Loop RS.Close %> <TR><TD colSpan=2><SMALL>&nbsp;</SMALL></TD></TR> <!-- Hot --> <TR> <TD vAlign=top> <DIV class=DirDefaultLinks> <TABLE cellSpacing=0 cellPadding=1 width="95%" border=0> <TBODY> <TR> <TD bgColor=#ffffff colspan=2><SMALL>&nbsp;</SMALL><FONT face=Tahoma color=#000080 size=2><B><%=W3_sGalPopular%></B></FONT><SMALL>&nbsp;</SMALL></TD> </TR> <TR bgColor=#000000> <TD colSpan=2> <TABLE cellSpacing=0 cellPadding=3 width="100%" bgColor=#ffffff border=0> <TBODY> <TR bgColor=#e9e9e9> <TD><SMALL><SMALL>&nbsp;</SMALL></SMALL></TD> <TD><FONT face=Tahoma size=2><B><%=W3_sGalName%></B></FONT></TD> <TD><FONT face=Tahoma size=2><B><center><%=W3_sGalVisits%></center></B></FONT></TD></TR> <% sql ="select * from gallery order by visits DESC, id DESC" RS.MaxRecords = 5 RS.open sql, my_Conn, 1, 3 NumRec = RS.RecordCount If NumRec > 5 Then NumRec = 5 End If For I=1 to NumRec %> <TR> <TD vAlign=top><FONT face=TAHOMA size=2><%=I%>.</FONT></TD> <TD vAlign=top><FONT face=TAHOMA size=2><A href="showgal.asp?id=<%=RS("id")%>"><%=RS("name")%></A></FONT></TD> <TD vAlign=top><FONT face=TAHOMA size=2><center><%=RS("visits")%></center></FONT></TD></TR> <% RS.MoveNext Next RS.close %> </TBODY></TABLE> </TD></TR></TBODY></TABLE> </DIV></TD> <!-- New --> <TD vAlign=top> <DIV class=DirDefaultLinks> <TABLE cellSpacing=0 cellPadding=1 width="95%" border=0> <TBODY> <TR> <TD bgColor=#ffffff colspan=2><SMALL>&nbsp;</SMALL><FONT face=Tahoma color=#000080 size=2><B><%=W3_sNewGalleries%></B></FONT><SMALL>&nbsp;</SMALL></TD> </TR> <TR bgColor=#000000> <TD colSpan=2> <TABLE cellSpacing=0 cellPadding=3 width="100%" bgColor=#ffffff border=0> <TBODY> <TR bgColor=#e9e9e9> <TD><SMALL><SMALL>&nbsp;</SMALL></SMALL></TD> <TD><FONT face=Tahoma size=2><B><%=W3_sGalName%></B></FONT></TD> <TD><FONT face=Tahoma size=2><B><center><%=W3_sDate%></center></B></FONT></TD> </TR> <% sql ="select * from gallery order by date DESC, id DESC" RS.MaxRecords = 5 RS.open sql, my_Conn, 1, 3 NumRec = RS.RecordCount If NumRec > 5 Then NumRec = 5 End If For I=1 to NumRec %> <TR> <TD vAlign=top><FONT face=TAHOMA size=2><%=I%>.</FONT></TD> <TD vAlign=top><FONT face=TAHOMA size=2><A href="showgal.asp?id=<%=RS("id")%>"><%=RS("name")%></A></FONT></TD> <TD vAlign=top><FONT face=TAHOMA size=2><center><%=RS("date")%></center></FONT></TD> </TR> <% RS.MoveNext Next RS.close %> </TBODY></TABLE></TD> </TR> </TBODY></TABLE> </DIV></TD> </TR> <TR><TD colSpan=2><SMALL>&nbsp;</SMALL></TD></TR> <TR bgColor=#000080><TD colSpan=2></TD></TR> <% my_Conn.Close %><!-- #include file="mainfoot.inc" --><% DoPageFooter Else Response.Redirect "W3Disabled.asp" End If %> Agora vai o arquivo de conexão com o db (dbsite.asp): <% ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("gallery.mdb") set my_conn= Server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.RecordSet") set rs2 = server.CreateObject("ADODB.RecordSet") set rsuser = server.CreateObject("ADODB.RecordSet") HomePath = "d:\activenet\users\taquarinet\dados\" Function ChkString(str) str = replace(str, "<", "&lt;", 1, -1, 1) str = replace(str, ">", "&gt;", 1, -1, 1) ChkString = str End Function %> Desde já, obrigado

Olá amigos Sou novo com programação ASP e já estou com uma dúvida. Eu baixei na net um script de album de fotos e quando eu o executo ele da o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xacc Thread 0x2400 DBC 0x865cfa4 Jet'. /1.1/site/phgallery/Default.asp, line 17 O que pode ser que esta configurado errado??? Desde já, obrigado