valeu velho.... muito obrigado !!
[]'s
- Fórum WMO
- → Viewing Profile: Posts: UweedI
Community Stats
- Group Usuários
- Active Posts 20
- Profile Views 1102
- Member Title Novato no fórum
- Age Age Unknown
- Birthday Birthday Unknown
-
Sexo
Não informado
0
Neutral
User Tools
Friends
UweedI hasn't added any friends yet.
Latest Visitors
Posts I've Made
In Topic: Pausar Uma Movie
06/10/2004, 10:55
In Topic: Ajuda
31/10/2003, 09:55
faz assim:
primeiro vc da um response.write pra ve se o nome do usuario esta vindo mesmo
<%
usuario=request.querystring("usuario")
response.write "Usuario "&usuario
response.end
%>
se estiver ok retire os response.write e troca o seu selct por esse:
sql = "select pm,pb,tp,tc,si,te,media,faltas from "&usuario&"order by Código"
primeiro vc da um response.write pra ve se o nome do usuario esta vindo mesmo
<%
usuario=request.querystring("usuario")
response.write "Usuario "&usuario
response.end
%>
se estiver ok retire os response.write e troca o seu selct por esse:
sql = "select pm,pb,tp,tc,si,te,media,faltas from "&usuario&"order by Código"
In Topic: Erro Na Paginação
30/10/2003, 17:01
tenta deste jeito aqui
<%
Dim login
login = request.form("login") 'recuperando o valor para login numerico
if login="" then
login= request.querystring("login")
end if
n_page=request("n_page")
If n_page="" Then n_page = 1
set db = server.CreateObject("ADODB.Connection")
db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set RecSet=Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * FROM monitorias WHERE re= "& login & "", db, 3,3
IF RecSet.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
RecSet.PageSize = 1 'registros por página
RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página
contador=0
do While not RecSet.EOF AND contador < RecSet.PageSize
contador=contador+1
response.write "<font face=verdana size=2><b>"
response.write RecSet("nome")&"</b><BR>"
RecSet.MoveNext
loop
response.write "<br>"
For navega= 1 to RecSet.PageCount
If navega = Cint(n_page) Then
response.write "<font face=verdana size=2><b>"
response.write navega
Else
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste4.asp?login=" & login & "&n_page=" & navega & ">" & navega & "</a>" & space(1)
End If
Next
response.write "<br><br>"
anterior = n_page - 1
proxima = n_page + 1
If anterior > 0 Then
response.write "<a href=paginacaoteste4.asp?n_page="&anterior&"&login =" & login & ">Anterior</a>"
End If
If proxima < navega Then
response.write space(1) & "<a href=paginacaoteste4.asp?n_page="&proxima&"&login =" & login & ">Próxima</a>"
End If
End If
%>
<%
Dim login
login = request.form("login") 'recuperando o valor para login numerico
if login="" then
login= request.querystring("login")
end if
n_page=request("n_page")
If n_page="" Then n_page = 1
set db = server.CreateObject("ADODB.Connection")
db.Open "DBQ=C:\inetpub\wwwroot\monitoria\monitoria.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set RecSet=Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * FROM monitorias WHERE re= "& login & "", db, 3,3
IF RecSet.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
RecSet.PageSize = 1 'registros por página
RecSet.AbsolutePage = Cint(n_page) 'redireciona os registros para a página
contador=0
do While not RecSet.EOF AND contador < RecSet.PageSize
contador=contador+1
response.write "<font face=verdana size=2><b>"
response.write RecSet("nome")&"</b><BR>"
RecSet.MoveNext
loop
response.write "<br>"
For navega= 1 to RecSet.PageCount
If navega = Cint(n_page) Then
response.write "<font face=verdana size=2><b>"
response.write navega
Else
response.write "<font face=verdana size=2><b>"
response.write space(1) & "<a href=paginacaoteste4.asp?login=" & login & "&n_page=" & navega & ">" & navega & "</a>" & space(1)
End If
Next
response.write "<br><br>"
anterior = n_page - 1
proxima = n_page + 1
If anterior > 0 Then
response.write "<a href=paginacaoteste4.asp?n_page="&anterior&"&login =" & login & ">Anterior</a>"
End If
If proxima < navega Then
response.write space(1) & "<a href=paginacaoteste4.asp?n_page="&proxima&"&login =" & login & ">Próxima</a>"
End If
End If
%>
In Topic: Erro Na Paginação
29/10/2003, 18:29
blz cara
é o seguinte: quando vc faz uma busca utilizando like ele devolve todos os resultados que tenham na string o valor do like
exemplo:
banco= login1
digito =1
no resultado vai aparecer o login1 tbm, pois nele vc tem a string 1 tbm
acredito que deve estar retornando mais de um resultado por causa disso
para testar se é isso mesmo troque
RecSet.Open "SELECT * FROM monitorias WHERE re LIKE '%" & login & "%'", db, 3,3
por
RecSet.Open "SELECT * FROM monitorias WHERE re = '%" & login & "%'", db, 3,3
[ ]"s
é o seguinte: quando vc faz uma busca utilizando like ele devolve todos os resultados que tenham na string o valor do like
exemplo:
banco= login1
digito =1
no resultado vai aparecer o login1 tbm, pois nele vc tem a string 1 tbm
acredito que deve estar retornando mais de um resultado por causa disso
para testar se é isso mesmo troque
RecSet.Open "SELECT * FROM monitorias WHERE re LIKE '%" & login & "%'", db, 3,3
por
RecSet.Open "SELECT * FROM monitorias WHERE re = '%" & login & "%'", db, 3,3
[ ]"s
In Topic: Parar Execução De Script
29/10/2003, 17:55
response.end
- Fórum WMO
- → Viewing Profile: Posts: UweedI
- Privacy Policy
- Regras ·