Ir para conteúdo

POWERED BY:

Arquivado

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

valmello

ASP DreamWeaver

Por , em ASP Clássico

Recommended Posts

valmello    0

valmello
Postado

Bom dia!

Um feliz Natal para Todos.

http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

 

Estou com um problema com o Go To Datail Page.

Coloquei em um Recordset alguns itens e em um deles inseri um link através do Go To Datail Page para exibir os detalhes dos dados, no caso do cliente.

Porém a lista está sendo exibida corretamente, mas o link de qq registro só leva para o primeiro registro do banco.

Ao passar o link mostra na barra de status o código correto, mas só exibe o primeiro registro do banco.

Na barra de endereço mostra que consultou o registro desejado também mas não funciona corretamente

Alguém pode me ajudar?

 

Só para deixar mais claro.

Eu tenho dentro do meu banco de dados o seguinte

Registro 7 - 1º registro do banco

Registro 8 - 2º registro do banco

Registro 9 - 3º registro do banco

 

Na lista se eu clico no registro 7 me mostra os detalhes do registro 7

Barra de endereço (http://localhost/sys_zappro/sys_itau/DetalhesCli.asp?cod=7)

 

Na lista se eu clico no registro 8 me mostra os detalhes do registro 7

http://localhost/sys_zappro/sys_itau/DetalhesCli.asp?cod=8

 

Na lista se eu clico no registro 9 me mostra os detalhes do registro 7

Barra de endereço (http://localhost/sys_zappro/sys_itau/DetalhesCli.asp?cod=9)

 

Aparentemente a consulta está correta, mas não funciona corretamente.

 

Fico no aguardo!

 

Segue o código como está

ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

 

<%

Dim ListaCli

Dim ListaCli_cmd

Dim ListaCli_numRows

 

Set ListaCli_cmd = Server.CreateObject ("ADODB.Command")

ListaCli_cmd.ActiveConnection = MM_lib_conexao_STRING

ListaCli_cmd.CommandText = "SELECT * FROM cliente WHERE cod ORDER BY cod ASC"

ListaCli_cmd.Prepared = true

 

Set ListaCli = ListaCli_cmd.Execute

ListaCli_numRows = 0

%>

<%

Dim MM_paramName

%>

<%

' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

 

Dim MM_keepNone

Dim MM_keepURL

Dim MM_keepForm

Dim MM_keepBoth

 

Dim MM_removeList

Dim MM_item

Dim MM_nextItem

 

' create the list of parameters which should not be maintained

MM_removeList = "&index="

If (MM_paramName <> "") Then

  MM_removeList = MM_removeList & "&" & MM_paramName & "="

End If

 

MM_keepURL=""

MM_keepForm=""

MM_keepBoth=""

MM_keepNone=""

 

' add the URL parameters to the MM_keepURL string

For Each MM_item In Request.QueryString

  MM_nextItem = "&" & MM_item & "="

  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))

  End If

Next

 

' add the Form variables to the MM_keepForm string

For Each MM_item In Request.Form

  MM_nextItem = "&" & MM_item & "="

  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))

  End If

Next

 

' create the Form + URL string and remove the intial '&' from each of the strings

MM_keepBoth = MM_keepURL & MM_keepForm

If (MM_keepBoth <> "") Then

  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)

End If

If (MM_keepURL <> "")  Then

  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)

End If

If (MM_keepForm <> "") Then

  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

End If

 

' a utility function used for adding additional parameters to these strings

Function MM_joinChar(firstItem)

  If (firstItem <> "") Then

    MM_joinChar = "&"

  Else

    MM_joinChar = ""

  End If

End Function

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>Untitled Document</title>

</head>

 

<body>

<p><a href="CobItau.asp">Cob Itaú</a></p>

<p><a href="CadCli.asp">Cadastro de Sacado</a></p>

<p><a href="ListaCli.asp">Listar Sacado</a></p>

<table width="700" border="0" cellpadding="0" cellspacing="4">

  <tr>

    <td>Código</td>

    <td>Nome Fantasia</td>

    <td>Contato</td>

    <td>Telefone</td>

    <td>E-mail</td>

  </tr>

        <%

startrw = 0

endrw = HLooper1__index

numberColumns = 1

numrows = 5

while((numrows <> 0) AND (Not ListaCli.EOF))

        startrw = endrw + 1

        endrw = endrw + numberColumns

 %>

         <%

While ((startrw <= endrw) AND (Not ListaCli.EOF))

%>

  <tr>

    <td><%=(ListaCli.Fields.Item("cod").Value)%></td>

    <td><a href="DetalhesCli.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "cod=" & ListaCli.Fields.Item("cod").Value %>"><%=(ListaCli.Fields.Item("fantasia").Value)%></a></td>

    <td><%=(ListaCli.Fields.Item("contato").Value)%></td>

    <td><%=(ListaCli.Fields.Item("tel").Value)%></td>

    <td><%=(ListaCli.Fields.Item("email").Value)%></td>

  </tr>

          <%

        startrw = startrw + 1

        ListaCli.MoveNext()

        Wend

        %>

      </tr>

      <%

 numrows=numrows-1

 Wend

 %>

</table>

</body>

</html>

<%

ListaCli.Close()

Set ListaCli = Nothing

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

Cara, se esse é realmente o problema, entao o problema nao eh na pagina que leva o parametro, e sim na pagina que mostra os detalhes...

 

como você mesmo disse, o parametro do ID do registro é levado corretamente certo? (se o ID é 9, mostra 9, se é 7, mostra 7, etc...) o problema é na pagina de detalhes...

 

(o ID que falo é o seu cod)

 

você tem que alterar seu select para que ele mostre o registro de acordo com o ID passado e nao com um ID fixo.

de uma olhada no select da sua pagina de detalhes.. la você vai ter que capturar o ID passado:

 

Ex: cod = Request("cod")

 

e dai vai ter que fazer um select tipo:

 

Ex: SELECT * FROM cliente WHERE cod = "&cod&" "

 

Pq dai o cliente mostrado na pagina de detalhes vai ser mostrado de acordo com o cod passado...

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