Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lezão

Response.Redirect

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola galera, bom dia!

 

Estou tentando fazer algo aki q até acho impossivel

 

Quero fazer assim 

Then Response.Redirect "clubes/Editar_resultados.asp?pagina=<%=rs("Partidas")%>"

Mas só roda assim 

Then Response.Redirect "clubes/Editar_resultados.asp?pagina="&Partidas&"'"

E qnd eu vou na pagina pra ver se deu certo fica assim 

Editar_resultados.asp?pagina=%27

Da esse tipo de erro

Provider error '80020005'

Type mismatch.

Editar_resultados.asp, line 46

E o certo seria assim

Editar_resultados.asp?pagina=7

esse é o codigo Normal


<%Response.Buffer = True%>
<!--#INCLUDE FILE="config.inc"-->

<html>
<body>

<%
UserName = Replace(Trim(Request.Form("username")), "'", "''")
PassWord = Replace(Trim(Request.Form("password")), "'", "''")

If UserName = "" OR PassWord = "" Then Response.Redirect "default.asp"

SQL = "Select ID, UserName, [PassWord], Clearance, ExpireDate From Login"
Set RS = MyConn.Execute(SQL)

While Not RS.EOF  
  If UserName = RS("UserName") And PassWord = RS("Password") Then
    If RS("ExpireDate") > Now() Then
      Session("allow") = True
      Session("clearance") = RS("Clearance")
      Level = RS("Clearance")
    Else
      Response.Redirect "utility.asp?method=expired"
    End If
  End If
  RS.MoveNext
Wend

CleanUp(RS)


If Session("allow") = True Then
  If Level = 3 Then Response.Redirect "Main.asp"
  If Level < 3 Then Response.Redirect "clubes/Editar_resultados.asp?pagina="&Partidas&"'"
Else
  Response.Redirect "default.asp"
End If

%>



</body>
</html>

Agora oq eu estou tentando fazer esta assim e dando esses erros 


<%Response.Buffer = True%>
<!--#INCLUDE FILE="config.inc"-->

<html>
<body>

<%
UserName = Replace(Trim(Request.Form("username")), "'", "''")
PassWord = Replace(Trim(Request.Form("password")), "'", "''")

If UserName = "" OR PassWord = "" Then Response.Redirect "default.asp"

SQL = "Select ID, UserName, [PassWord], Clearance, ExpireDate From Login"
Set RS = MyConn.Execute(SQL)

While Not RS.EOF  
  If UserName = RS("UserName") And PassWord = RS("Password") Then
    If RS("ExpireDate") > Now() Then
      Session("allow") = True
      Session("clearance") = RS("Clearance")
      Level = RS("Clearance")
    Else
      Response.Redirect "utility.asp?method=expired"
    End If
  End If
  RS.MoveNext
Wend

CleanUp(RS)

registros = 1
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If 
 
'Efetuando a conexão com a base de dados criada ----------------------- 
Set conexao = Server.CreateObject("AdoDB.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("../Dados/Amador_2015.mdb")
conexao.open 


Set rs = Server.Createobject("ADODB.RECORDSET") 
set rs.ActiveConnection = Conexao 
rs.CursorType = 3 
rs.PageSize = registros  
 
sql = "SELECT * FROM Partidas ORDER BY id ASC"
rs.Open sql 
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina

' Criando a barra de navegação
' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
' Senão imprime sem link
If CInt(pagina) > 1 Then
Response.Write("")
Else
Response.Write("")
End If

If Session("allow") = True Then
  If Level = 3 Then Response.Redirect "Main.asp"
  If Level < 3 Then Response.Redirect "clubes/Editar_resultados.asp?pagina="&Partidas&"'"
Else
  Response.Redirect "default.asp"
End If

' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
' Senão imprime sem link
If CInt(pagina) < rs.PageCount Then
Response.Write("")
Else
Response.Write("")
End If
End If

' Fecha e destroi os objetos RS e conn
rs.Close :
Set RS = Nothing : Set objRS = Nothing


%>



</body>
</html>

AONDE FOI Q EU ERREI????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

pagina="&Partidas&"'"

 

Apenas tire a apostrofe simples

 

ficando assim

 

pagina="&Partidas&""

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ola Mario Monteiro, boa tarde!

 

Sua logica funcionou, mas funcionou assim 

Editar_resultados.asp?pagina=

Teria q pegar os valores q estaun no banco de dados.

deveria retornar o valor assim 

Editar_resultados.asp?pagina=7

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

A variavel usada esta vazia de onde vem o valor dela?

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

naun esta vazia naun

 

eu entro na pagina ja na net e coloco o valor assim 

Editar_resultados.asp?pagina=7

ele entra normal!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

entendi

 

está vindo do banco o valor

 

troque ali Partidas por rs("Partidas") deve resolver

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Tranquilo bom trabalho

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito