Jump to content


UweedI

Member Since 21/09/2003
Offline Last Active 22/12/2004, 14:12
-----

Posts I've Made

In Topic: Pausar Uma Movie

06/10/2004, 10:55

valeu velho.... muito obrigado !!

[]'s

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"

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
%>

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

In Topic: Parar Execução De Script

29/10/2003, 17:55

response.end

IPB Skin By Virteq