-
Total de itens
75 -
Registro em
-
Última visita
Tudo que matrix2003 postou
-
nossa bem dificil para mim deixa queto quero fazer mais não sei tanto asp assim se alguém tiver algum exemplo ai me passe a e muito obrigado andre-sp por esta resposta
-
mais como seria isto um exemplo me explica melhor tem algum exem ai que posso ussar
-
Alguém saberia me dizer se existe algum exemplo de um script que gravaria no db tudo o que o user faz no site tipo eu tenho o cadastro, o cara se loga vai na seção asp faz donwlaod de 2 arquivos vai em recomenda nosso site faz lá 4 recomendações grava no db seria assim gravaria tudo o que o user faz no site paginas onde entrou sera que é dificil fazer isto... quem souber aguardo
-
olá amigos eu gravo o numero de visitas feitas todos os dias com este codigo abaixo <% SET Con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("rs.mdb") &";Persist Security Info=False;Jet OLEDB:Database Password=0tryagain89" set conta_visitas = Con.execute("SELECT * FROM contador") IF NOT Session("on") = TRUE THEN Con.Execute("UPDATE contador SET visitas='"& conta_visitas("visitas")+1 &"'") Session("on") = TRUE Session.TimeOut = 30 END IF Response.Write " "& conta_visitas("visitas") O que preciso fazer e ter no banco para tipo gostaria de exibir visitas hoje pois o codigo acima mostra o total de visitas ok Exemplo o que quero fazer Visitas hoje 100 Visitas Total: 58100 (o codigo acima já mostra) como fazer isto
-
Mostrar Em Um Select A Data De Ontem E Hoje.
pergunta respondeu ao Nadia Amorim de matrix2003 em Access
olha só fiz assim em acess <% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString set rs = conn.execute("select count(*) as nconta from users") response.write(" "&rs("nconta"))%></font></b></TD></TR> <TR> <TD><% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.open ConnectString set rs1 = server.CreateObject("ADODB.RecordSet") set rs2 = server.CreateObject("ADODB.RecordSet") rs1.open "select count (*) as Ontem from Users where data ='"& Now-1 &"'", conexao rs2.open "select count (*) as Hoje from Users where data='"& Now &"'", conexao totOntem = rs1("Ontem") totHoje = rs2("Hoje") %> <FONT face="Verdana, Arial" size=1>- Hoje: <B><%=totHoje%></B></FONT></TD></FONT></TD></TR> <TR> <TD><FONT face="Verdana, Arial" size=1>- Ontem: <B><%=totOntem%></B></FONT></TD></TD></TR></TBODY></TABLE></FONT></TD> mais os valores está aparecendo 0 e tem cadastros de ontem e hoje no db -
Mostrar Em Um Select A Data De Ontem E Hoje.
pergunta respondeu ao Nadia Amorim de matrix2003 em Access
veja no final desta linha que está com pau escrito conexao <% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login/db/site/siteusers.mdb") Set RstParametros = Server.CreateObject("ADODB.Recordset") RstParametros.Open " Select (select Count(*) from users where xdt_disponivel <= Getdate()-1) Ontem, (select Count(*) from users where xdt_disponivel <= Getdate()) Hoje ", conexao 'Declaração de Variáveis TotOntem = RstParametros("Ontem") TotHoje = RstParametros("Hoje") TotGeral = TotOntem+TotHoje 'Fim das declarações (Variáveis) %> <table> <tr> <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#999999" colSpan=2 > <font color="#006600" face="Arial" size="-1">Total Geral ---> <%=TotGeral%></Font> </td> </tr> </table> <table> <tr> <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#9999CC" colSpan=2 > <font color="#339999" face="Arial" size="-1">Total Hoje ---> <%=TotHoje%></Font> </td> </tr> </table> <table> <tr> <td style="BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #c5c5c5 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-SIZE: 11px; PADDING-BOTTOM: 3px; COLOR: white; PADDING-TOP: 3px; TEXT-DECORATION: none" align="Left" bgColor="#FF3333" colSpan=2 > <font color="#3399FF" face="Arial" size="-1">Total Ontem ---> <%=TotOntem%></Font> </td> </tr> </table> <% 'Finalizando as conexões Set Conexao = nothing Set RstParametros = nothing %> </form> </body> </html> -
Mostrar Em Um Select A Data De Ontem E Hoje.
pergunta respondeu ao Nadia Amorim de matrix2003 em Access
não tem como fazer isto em acess pois acho que mysql não vai Tipo de erro: ADODB.Recordset (0x800A0BB9) Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /minhas webs/teste3.asp, line 4 Tipo de navegador: olha o erro agora -
Mostrar Em Um Select A Data De Ontem E Hoje.
pergunta respondeu ao Nadia Amorim de matrix2003 em Access
está dando este erro Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: 'RstParametros' /minhas webs/teste3.asp, line 5 -
alguém consegui usar o sistema postado pelo filipeflc00 tipo me loguei para administração ai o status está online mais em que pagina entro para pedir atendimento
-
olá amigos sei lá se vou obter alguma retorno neste post mais to querendoi gravar em um db todas as acões dos users cadastrados em um db tipo quantos arquivos ele baixou alguém pode me explicar algo assim
-
Como faço para mostrar para meus usuarios tipo ontem tive 2 cadastros e hoje 0 como que devo usar em acess comparar dois dias
-
cara não é possivél se resolveu meu problema só falta o outro post cara valeu mesmo...
-
amigos estou tentando fazer um negocio mais está complicado tipo gostaria de mostrar para meus usuarios o dia e a data que teve maior cadastro dentro do site mais não está aparecendo nada, olhem o codigo que fiz.. <% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/site/siteusers.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.open ConnectString pessoas=0 set rs = server.CreateObject("ADODB.RecordSet") rs.open "select data from users group by data", conn, 3, 3 if not rs.eof then while not rs.eof set pessoasd = conn.execute("select count(data) as tot from users where data = #"&rs("data")&"#") if pessoasd("tot") > pessoas then data= rs("data") pessoas=pessoasd("tot") end if rs.movenext wend %></font><font face="Verdana, Arial" size="1"><img height="16" src="../images/ico_total_pessoas.jpg" width="16" align="absMiddle"> </font><font face="Verdana">Nosso maior numero de cadastros foi <b><%=pessoas%></b> em <b><%=data%></b>. <%end if%> já fiz de tudo inclusive tem um post de 3 pagina neste endereço se alguém se interresar em me ajudar.. http://forum.imasters.com.br/index.php?showtopic=176508&st=0 grato
-
amigos estou tentando fazer um negocio mais está complicado tipo gostaria de mostrar para meus usuarios o dia e a data que teve maior cadastro dentro do site mais não está aparecendo nada, olhem o codigo que fiz.. <%ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/site/siteusers.mdb")Set conexao = Server.CreateObject("ADODB.Connection")conexao.open ConnectStringpessoas=0set rs = server.CreateObject("ADODB.RecordSet")rs.open "select data from users group by data", conn, 3, 3if not rs.eof thenwhile not rs.eofset pessoasd = conn.execute("select count(data) as tot from users where data = #"&rs("data")&"#")if pessoasd("tot") > pessoas thendata= rs("data")pessoas=pessoasd("tot")end ifrs.movenextwend %></font><font face="Verdana, Arial" size="1"><img height="16" src="../images/ico_total_pessoas.jpg" width="16" align="absMiddle"> </font><font face="Verdana">Nosso maior numero de cadastros foi <b><%=pessoas%></b> em <b><%=data%></b>.<%end if%>
-
Olá amigos boa tarde, estou tentando rodar este script mais está muito dificil o que vou precisar de ajuda sera que alguém sabe onde tem um destes funcionando o tem já o configurado ou me ajude a configurar pois fiz tudo acontece que na hora que o cara entra no atendimento online o scripts só diz assim aguarde achando um administrador e não vai para a selçãodo chat mesmo o administrador estando logado
-
[resolvido] Webcall, Coloquei No Servidor, E Depois ?
pergunta respondeu ao Kaibas de matrix2003 em ASP
alguém saberia me dizer qual a configuração que os caras fizeram e o que tem que fazer par ao codigo funcionar poist o tentando e não vai to com o mesmo problema do que o cara iniciante neste post -
mostrar para meus usuarios em asp
-
como seria isso em access? tipo, tem o campo DATA que é a data de cadastro do usuário como faz pra saber em que data teve o maior numero de cadastros? em access, e quantos teve preciso disto em acess e não em sql grato
-
Olá amigos do forum mais uma vez venho pedir a colaboração de todos vocÊs para me ajudar é graças a vocês que a maioria dos meus scripts fiz aprendendo aqui, acontece que agora gostaria de pedir um colaboração para tentar ver o que é preciso fazer para que de certo o que quero. Tenho um sistema de usuarios online cuja o cara se loga e aparece o nome dele como logado online, acontece que se o cara não clicar em sair o nome dele não vai sair o que tenho que fazer dentro deste script já postei um post deste a mais de 2 meses sem resultado quem sabe agora eu consiga alguém que me ajude. os dados dos scripts estão abaixo. logar.asp a pagina que autentica os users para ver se exixtem ou não <% if Request.Cookies("username") = "" then end if %> <%'Grab the submitted variables (page is the page they've come from, set by the hidden variable at the login box) username = Request.Form("username") password = Request.Form("password") page = Request.Form("page") stayloggedin = Request.Form("stayloggedin") if page = "" then page = "index.asp" end if 'Check no s**t is trying to hack in using SQL commands if InStr(username, "'") or InStr(username, """") or InStr(username, "=") or InStr(password, "'") or InStr(password, """") or InStr(password, "=") then sqlflag = True end if 'Open connection %> <!--#include file="conn.asp"--> <% 'Get a recordset corresponding to the submitted username and password sql = "SELECT username FROM users WHERE username = '" & username & "' AND password = '" & password & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 Set vC = Server.CreateObject("ADODB.Connection") você.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db.mdb") &";Persist Security Info=False" up = "UPDATE users SET UltimaVisita=NOW WHERE username = '" & username & "'" vvezes = "UPDATE users SET vezes=vezes+1 WHERE username = '" & username & "'" vOn = "UPDATE users SET ehmembro=1 WHERE username = '" & username & "'" 'If there was a valid recordset there, then send them back to the page they came from, with the username cookie set If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then Response.Cookies("username") = rsUser("username") você.Execute(up) você.Execute(vvezes) você.Execute(vOn) 'If the user wants to stay logged in all the time, then we'll set the cookie with a far-away expiry date if stayloggedin = "yes" then Response.Cookies("username").expires = #1/1/2010# SQL = "UPDATE users (UltimaVisita) VALUES (NOW) WHERE username = '" & username & "'" set rsUser = conn.execute(SQL) você.Execute(up) você.Execute(vvezes) você.Execute(vOn) end if rsUser.close set rsUser = nothing conn.close set conn = nothing Response.Redirect(page) end if 'Otherwise, display an invalid entry screen rsUser.close set rsUser = nothing conn.close set conn = nothing%> logados.asp onde os users apareceram online <% Set vC = Server.CreateObject("ADODB.Connection") você.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db.mdb") &";Persist Security Info=False" vConta2="SELECT COUNT(ehmembro) AS monline FROM users WHERE ehmembro=1" Set vConta=você.Execute(vConta2) vMembros2="SELECT * FROM users WHERE ehmembro=1" Set vMembros=você.Execute(vMembros2) %><% IF vMembros.EOF THEN Response.Write "<tr><td width='100%'><p align=center font face=Verdana size=1>Nenhum membro online.</a></font></td></tr>" ELSE while not vMembros.EOF %><tr><td width="100%"><font face=Verdana size=1><p><font color=#3399FF> <img border="0" src="login/icons/arrow1.gif"> <a href="mailto:<%=vMembros("email")%>"><%=vMembros("username")%></a></font></td></tr></font></p> <% vMembros.MoveNext Wend END IF %></table> <font face=Verdana size=1><b></font></p>Total: <%=vConta("monline")%> Se alguém puder me da uma forçinha
-
olá amigos tenho um script de usuario online que seria o cara se loga e aparece o nome dele logado mais acontece o nome só sai quando o cara clica em sair e a maioria dos caras não fazem isto como é que eu faço para colocar um time0off sei alguma ideia que o cara se loga-se e depois de 20 minutos o nome dele sai-se dali olhem o codigo. mesmo o cara tanado logado olhem meu codigo. user.asp mostra os usuarios online. <% Set vC = Server.CreateObject("ADODB.Connection") você.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("users.mdb") &";Persist Security Info=False" vConta2="SELECT COUNT(ehmembro) AS monline FROM users WHERE ehmembro=1" Set vConta=você.Execute(vConta2) vMembros2="SELECT * FROM users WHERE ehmembro=1" Set vMembros=você.Execute(vMembros2) %><% IF vMembros.EOF THEN Response.Write "<tr><td width='100%'><p align=center font face=Verdana size=1>Nenhum membro online.</a></font></td></tr>" ELSE while not vMembros.EOF %><tr><td width="100%"><font face=Verdana size=1><p><font color=#3399FF> <img border="0" src="login/icons/arrow1.gif"> <a href="mailto:<%=vMembros("email")%>"><%=vMembros("username")%></a></font></td></tr></font></p> <% vMembros.MoveNext Wend END IF %></table> <font face=Verdana size=1><b></font></p>Total: <%=vConta("monline")%> valida.asp valida o login <% if Request.Cookies("username") = "" then end if %> <%'Grab the submitted variables (page is the page they've come from, set by the hidden variable at the login box) username = Request.Form("username") password = Request.Form("password") page = Request.Form("page") stayloggedin = Request.Form("stayloggedin") if page = "" then page = "index.asp" end if 'Check no s**t is trying to hack in using SQL commands if InStr(username, "'") or InStr(username, """") or InStr(username, "=") or InStr(password, "'") or InStr(password, """") or InStr(password, "=") then sqlflag = True end if 'Open connection %> <!--#include file="conn.asp"--> <% 'Get a recordset corresponding to the submitted username and password sql = "SELECT username FROM users WHERE username = '" & username & "' AND password = '" & password & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 Set vC = Server.CreateObject("ADODB.Connection") você.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("users.mdb") &";Persist Security Info=False" up = "UPDATE users SET UltimaVisita=NOW WHERE username = '" & username & "'" vvezes = "UPDATE users SET vezes=vezes+1 WHERE username = '" & username & "'" vOn = "UPDATE users SET ehmembro=1 WHERE username = '" & username & "'" 'If there was a valid recordset there, then send them back to the page they came from, with the username cookie set If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then Response.Cookies("username") = rsUser("username") você.Execute(up) você.Execute(vvezes) você.Execute(vOn) 'If the user wants to stay logged in all the time, then we'll set the cookie with a far-away expiry date if stayloggedin = "yes" then Response.Cookies("username").expires = #1/1/2010# SQL = "UPDATE users (UltimaVisita) VALUES (NOW) WHERE username = '" & username & "'" set rsUser = conn.execute(SQL) você.Execute(up) você.Execute(vvezes) você.Execute(vOn) end if rsUser.close set rsUser = nothing conn.close set conn = nothing Response.Redirect(page) end if 'Otherwise, display an invalid entry screen rsUser.close set rsUser = nothing conn.close set conn = nothing%>
-
desculpe amigos do forum mais verifiquei se tinha uma opção para este script mais não achei se errei em postar aqui porfavor podem tranferir este post para o lugar mais indicado. grato. Mais uma vez estou colaborando com o forum e estou colocando para downlod um codigo de usuarios online este script é para mostrar como é simples mostrar quem está logado no sistema. clique no link abaixo http://www.sitedozanelati.com/projeto_3/
-
amigos me ajudem tentei de varias maneiras mais se sucesso quero mostrar os ultimos 2 usuarios cadastrados em um db <% ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString set rs = conn.execute("select top 2 * From users order By ID ASC") response.write(" "&rs("nconta"))%> ADODB.Fields error '800a0cc1' ADO não pôde encontrar o objeto na coleção correspondente ao nome ou à referência ordinal solicitada pelo aplicativo. se alguém souber me ajude
-
amigos estou tentando fazer rodar este chat conquer chat mais não consigo fiz o que nosso amigo fez mais quando rodo o default.asp olha o que dá . initialization failed It seems like you are missing a small critical step. In order to make this chat work you will have to open and modify your "global.asa" file. This file contains information about global objects necessary for ConquerChat to run properly. Your system does not have a "global.asa" file. Take the file from your "conquerchat" directory and copy it to the root of your web server. It's very important since IIS won't use the settings if it's not located in this folder. Please retry my configuration. I have made the suggested changes! If you still cannot get the chat to run after having performed the steps above, please take a look at the ConquerChat FAQ or ask in the ConquerChat Forum. System-details: Scripting Type: VBScript Scripting Version: 5.6.8515 Browser: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98) isto é o que mostra alguém que rode ele em seu site pode me ajudar disponibilizando o arquivo aguardo respostas
-
cara me desculpe pois sou novo no neste forum a não achei um lugarzinho para postar mais voce pediu vou postar lá.. beleza
-
Olá amigos do forum tomei a liberdade de desenvolver este scritp de login e cadastro, sei que já pode ter em algum lugar mais é simples. Cadastro, login e enviu dos dados para o email do cara, também esta disponivél para download, fiz um pequeno layourt também para este script lembrando uma das datas mais importantes do ano. Espero que gostem.. seguem os links abaixo Para ver o script Clique para ver Para pegar o script Para pegar