cyberalexxx

Julho 7, 2005

da pra fazer pelo no-ip sim!!

voce precisará também liberar a porta no modem ADSL e firewall.

já teve outros tópicos discutindo isso, faça uma busca no forum por "no-ip" pra ver o q já foi discutido sobre isso.

Julho 6, 2005

Ae Cyberalexxx, valeu mesmo, achei que era possível, mas não encontrei isso antes! Bom... valeu mesmo, pode dar como encerrado esse tópico...
Obrigadão...

OK!!

Tópico fechado!!

Julho 6, 2005

conexao com banco: http://www.aspbrasil.com.br/conteudo/detal...Secao=TUTORIAIS

inserção: http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais

remoção:

http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais

consulta:

http://www.aspbrasil.com.br/conteudo/detal...Secao=TUTORIAIS

Julho 6, 2005

voce pode fazer tudo em asp:

if Instr(request.servervariables("HTTP_USER_AGENT"),"MSIE") > 0 then
   response.redirect("paginaIE.asp")
else
   response.redirect("paginaNE.asp")
end if

Julho 6, 2005

da uma olhada c é isso q você quer:

<%@LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Paginação</title>
</head>
<body>
<%
registros = 20
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If
Dim Conn
Dim Rs
Dim Sql
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open= "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
set rs.ActiveConnection = Conn
rs.CursorType = 3
rs.PageSize = registros
Sql = "Select * From Dados"
rs.Open sql
%>
<table border="0">
<tr>
<%
If rs.EOF Then
Response.Write "Nenhum registro encontrado"
Else
rs.AbsolutePage = pagina
While Not rs.EOF AND x < rs.PageSize
x = x + 1
if x > 5 then
response.write "</tr><tr>"
x = 1
end if
%>
<td><%=Rs("Email")%> </td>
<td><%=Rs("Cidade")%> </td>
<%
Rs.MoveNext
Wend
%>
</tr>
</table>
<%
anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "« <a href=default.asp?pagina="&primeira&">Primeira Página</a> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "[ <a href=default.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ] "
End If
If pagina > 1 Then
Response.Write "[ <a href=default.asp?pagina="&anterior&">"&anterior&"</a> ] "
End If
Response.Write "[ "&pagina&" ] "
If Not rs.EOF Then
Response.Write "[ <a href=default.asp?pagina="&proxima&">"&proxima&"</a> ] "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "[ <a href=default.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ] "
End If
If Not rs.EOF Then
Response.Write "<a href=default.asp?pagina="&ultima&">Última Página</a> » "
End If
End If
rs.Close
Set rs = Nothing
%>
</body>
</html>

Julho 6, 2005

OK!!

Tópico Fechado!!

Julho 6, 2005

Todas as duvidas sanadas!!

Tópico Fechado!!

Julho 6, 2005

tenta criar o loop assim:

' Início do loop
If not rsCad_Empresa.EOF Then
Do while not rsCad_Empresa.EOF

Julho 6, 2005

de uma olhada em http://www.connectionstrings.com que voce encontra mais strings de conexão de acordo com o driver q você usa.

Julho 6, 2005

uid é o nome do usuário e PWD a senha para acesso ao banco

Julho 6, 2005

Mais uma coisinha....
e se eu tenho mais de um Estado(UF) em cada seguimento, ou seja, em´presas da área de saúde de SP ou SC ou CE ...
Como eu por estados?

tenta isso:

<%
set conexao=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("banco.mdb")
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

Sql="Select count(empresa) as total, UF from tabela where segmento='saude' group by UF"
set Rs=conexao.execute(sql)
response.write "<table>"
   response.write "<tr><td>UF</td><td>TOTAL</td></tr>"
   Do while not rs.eof
      response.write "<tr><td>" & Rs("UF") & "</td><td>" & Rs("total") & "</td></tr>"
      Rs.MoveNext
   Loop
response.write "</table>"   
%>

Julho 6, 2005

cyberalexxx, tentei fazer usando somente o rs.RecordCount mas não deu certo, coloquei o resultado ai em baixo.
Pergunta: Fiz algo errado?
obs: a tabela tem realmente 21 registros.
ASP
<% @ language=VBScript %>


<%
dim qtd
Set rs=conn.execute("Select * from TBPlays")
qtd=rs.RecordCount
response.write "qtd do record count: " & qtd& " "
qtd=0
rs.movefirst
do while not rs.eof
qtd=qtd+1
rs.movenext
loop
response.write "qtd do loop: " & qtd & " "
set Rs=conn.execute("Select count(id) as total from TBPlays")
response.write "qtd sql: " & Rs("total")
%>
Resultado:
qtd do record count: -1
qtd do loop: 21
qtd sql: 21
Desde já agradeço.

Isso acontece porque nenhum cursor foi especificado, tenta assim:

Julho 5, 2005

Na pagina de resultados ela pode ser assim:

<%
set conexao=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("banco.mdb")
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

Sql="Select count(empresa) as total from tabela where segmento='saude'"
set Rs=conexao.execute(sql)
response.write "Numero de Empresas do Segmento Saude: " & Rs("total")
%>

Julho 5, 2005

tenta sem o parametro do cursor:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=Username;Pwd=asdasd;"
%>

Julho 5, 2005

Instale o driver ODBC e depois use a seguinte string de conexao:

"Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=Username;Pwd=asdasd;"

fonte: http://www.connectionstrings.com

Julho 5, 2005

Existe também a propriedade RecordCount que mostra o numero de registros do recordset:

response.write "Numero de Empresas do Segmento Saude: " & Rs.RecordCount

Julho 5, 2005

Sql="Select count(empresa) as total from tabela where segmento='saude'"
set Rs=conexao.execute(sql)
response.write "Numero de Empresas do Segmento Saude: " & Rs("total")

Julho 5, 2005

Na verdade voce não pode evitar que isso aconteça, já q isso tem q acontecer.

Como o sistema irá ficar: supondo que todos estejam com 1 visista o sistema vai pegar um deles e jogar para 2 e por ai vai até que todos estajam com 2 e o loop começa novamente.

Voce também pode definir em que ordem voce quer que os registros sejam visualizados quando todos tiverem o mesmo numero de visualizações é só definir um segundo campo chave, por exemplo o ID então ficaria assim:

[/code]

assim ele irá pegar dentre os registros com menos visualização aquele q tiver o menor ID.

Julho 5, 2005

tenta assim:

[/code]

Julho 5, 2005

acho q o fato de estar em um loop não tem nada a ver, e se o campo quant não for 0 e sim "" ai sua validação vai pro espaço, pode ser isso o erro

Julho 5, 2005

E para adicionar registros nos bancos a partir da propria página?

de uma olhada aki:

http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais

Julho 4, 2005

voce pode criar uma função que realize a divisão. nos parametros da função voce passa o valor a ser divido e por quanto sera dividido, ai dentro da função voce testa o segundo valor caso seja 0 voce retorna 0 na função caso contrario realize a divisão.

function divide(valor,coeficiente)
   if coeficiente <> 0 then
      divide = 0
   else
      divide = valor/coeficiente
   end if
end function

valor1=100
valor2=2
response.write divide(valor1,valor2) & <"br>"

valor3=50
valor4=0
response.write divide(valor3,valor4)

testa ai!!

Julho 4, 2005

duvidas sobre conexão:

http://www.connectionstrings.com

Julho 4, 2005

hahahahaha... sou muito IMBECIL... pqp... hahaha... valeu cyberalexxx... era isso mesmo... VLW... putz... não acredito q não vi isso...
[ ]'s

beleza!!

Tópico Fechado!!

[]'s

Julho 4, 2005

o campo é numérico???

já tirou as aspas simples???

P.NUM_PEDIDO="&codpedido&"

Entrar

cyberalexxx

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por cyberalexxx

Iis Acesso Externo

Codigo Asp Entre Js

Problema Com Formulário

Codigo Asp Entre Js

Depois Do 5 Registro Pula

Erro De Eof

Contador Simples

Erro De Eof

Conexao Oracle

Conexao Oracle

Contador Simples

Contador Simples

Contador Simples

Conexao Oracle

Conexao Oracle

Contador Simples

Contador Simples

Propaganda Rotatória

Propaganda Rotatória

Divisão Por Zero...

Conexão

Divisão Por Zero...

Conexão

Join

Join

Navegação

Atividades