Asp Com Sql

Helena.fleur · Janeiro 9, 2007

Olá para todos.

preciso de ajuda pra tirar uma dúvida.

tenho 2 paginas asp com vbscript na primeira aparece os campos e o contéudo de uma tabela sql, nessa tabela tem os campos codigo e total que soma o total de clientes para cada codigo. e na outra tabela tem o codigo que é o mesmo da tabela anterior e o nome dos clientes e os numeros dos contratos de cada cliente.

O que eu quero é que quando eu clicar em um numero que esteja no campo total da tabela 1 liste na outra pagina o nome dos clientes, o codigo e o numero do contrato.

Da maneira que eu fiz está aparecendo em parte o que eu quero, o problema é que quando eu dou um clique em qualquer numero do campo total sempre aparece na outra pagina todos os codigo, nome dos clientes e contratos.

se alguém puder me ajudar agradeço muito.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

' technocurve arc 3 asp vb mv block1/3 start

Dim moColor1, moColor2, moColor

moColor1 = "#B3D9FF"

moColor2 = "#FFFFFF"

moColor3 = "#CCCCCC"

moColor = moColor1

' technocurve arc 3 asp vb mv block1/3 start

%>

<%

Dim objRS

Dim objRS_numRows

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.ActiveConnection = MM_objConn_STRING

objRS.Source = "SELECT * FROM dbo.Con_DescontosEMGEA_GiterFO"

objRS.CursorType = 0

objRS.CursorLocation = 2

objRS.LockType = 1

objRS.Open()

objRS_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = 45

Repeat1__index = 0

objRS_numRows = objRS_numRows + Repeat1__numRows

%>

<html>

<head>

<title>Untitled Document</title>

</head>

<body>

<tr>

<td width="84%" bgcolor="#2F80D0"><div align="center"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>CONTRATOS

PARTICIPANTES DO PROGRAMA</strong></font></div></td>

</tr>

</table>

<br>

<td width="107"><div align="center"><font face="Georgia, Times New Roman, Times, serif"><strong>AGÊNCIA</strong></font></div></td>

<td width="117"><div align="center"><font face="Georgia, Times New Roman, Times, serif"><strong>TOTAL</strong></font></div></td>

</tr>

<%

While ((Repeat1__numRows <> 0) AND (NOT objRS.EOF))

%>

<tr <%

' technocurve arc 3 asp vb mv block2/3 start

Response.Write(" style='background-color:" & moColor & "' onMouseOver='this.style.backgroundColor=" & chr(34) & moColor3 & chr(34) & "' onMouseOut='this.style.backgroundColor=" & chr(34) & moColor & chr(34) & "'")

' technocurve arc 3 asp vb mv block2/3 start

%>>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

objRS.MoveNext()

Wend

%>

<%

' technocurve arc 3 asp vb mv block3/3 start

if moColor = moColor1 then

moColor = moColor2

else

moColor = moColor1

end if

' technocurve arc 3 asp vb mv block3/3 start

%>

</table>

</body>

</html>

<%

objRS.Close()

Set objRS = Nothing

%>

________________________________________________________________________________________

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

' technocurve arc 3 asp vb mv block1/3 start

Dim moColor1, moColor2, moColor

moColor1 = "#99CCFF"

moColor2 = "#CCCCCC"

moColor3 = "#FF9900"

moColor = moColor1

' technocurve arc 3 asp vb mv block1/3 start

%>

<%

Dim ObjRS

Dim ObjRS_numRows

Set ObjRS = Server.CreateObject("ADODB.Recordset")

ObjRS.ActiveConnection = MM_Cn_STRING

ObjRS.Source = "SELECT * from dbo.[Descontos EMGEA GITER_FO]"

ObjRS.CursorType = 1

ObjRS.CursorLocation = 2

ObjRS.LockType = 1

ObjRS.Open()

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = -1

Repeat1__index = 0

ObjRS_numRows = ObjRS_numRows + Repeat1__numRows

%>

<html>

<head>

<title>Untitled Document</title>

</head>

<body>

<tr>

<td width="84%" bgcolor="#2F80D0"><div align="center"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>CONTRATOS

PARTICIPANTES DO PROGRAMA</strong></font></div></td>

</tr>

</table>

<td width="149" height="24"><div align="center"><font size="3" face="Georgia, Times New Roman, Times, serif"><strong>CONTRATO</strong></font></div></td>

<td width="302"><div align="center"><font size="3" face="Georgia, Times New Roman, Times, serif"><strong>MUTUÁRIO</strong></font></div></td>

</tr>

<%

While ((Repeat1__numRows <> 0) AND (NOT ObjRS.EOF))

%>

<tr <%

' technocurve arc 3 asp vb mv block2/3 start

Response.Write(" style='background-color:" & moColor & "' onMouseOver='this.style.backgroundColor=" & chr(34) & moColor3 & chr(34) & "' onMouseOut='this.style.backgroundColor=" & chr(34) & moColor & chr(34) & "'")

' technocurve arc 3 asp vb mv block2/3 start

%>>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

ObjRS.MoveNext()

Wend

%>

<%

' technocurve arc 3 asp vb mv block3/3 start

if moColor = moColor1 then

moColor = moColor2

else

moColor = moColor1

end if

' technocurve arc 3 asp vb mv block3/3 start

%>

</table>

</body>

</html>

<%

ObjRS.Close()

Set ObjRS = Nothing

%>

.Andreia. · Janeiro 10, 2007

não sei se entendi bem, na tela 2 voce quer que filtre somente pelo cliente selecionado na tela 1? Se for é só você usar o WHERE na SQL da tela 2

Helena.fleur · Janeiro 11, 2007

eu quero assim: quando clicar em um dos valores que estão no campo total na tela 1, na tela 2 filtra por esse Uno_codigo.

Cada valor que tem no campo total na tela 1 pertence a um Uno_Codigo diferente.

Entrar

Asp Com Sql

Pergunta

Helena.fleur

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

.Andreia.

Link para o comentário

Compartilhar em outros sites

Helena.fleur

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades