2 paginas: busca em banco de dados acess o mesmo campo para comparação

[koliveira 0]

Tenho uma pagina que tem um link que passa para a proxima com um dado do banco de dados para comparar e se igual da segunda abre.

o codigo é estes:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./database/internettaxa.mdb")
Conn.open

<%	
Set rs = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT NUMLAN, NUMCON, NUMAPA, PERIOD, TOTMUL, TOTGUIA, VALMUL, DATPAG, DESCR1, VALOR1,DESCR2, VALOR2,DESCR3, VALOR3,DESCR4, VALOR4,DESCR5, VALOR5  FROM Asac0002 WHERE (((ASAC0002.NUMCON=" & Session("IdN") & ") AND (ASAC0002.NUMLAN=" & Session("NumLanscc") & "))) order by ASAC0002.NUMCON, ASAC0002.NUMLAN" 
rs.Open sql2, conn, 3, 3
rs.MoveFirst

if rs.eof then

response.write "registro não encontrado"
	
else
	
numapa  = rs.Fields("NUMAPA")
period  = rs.Fields("PERIOD")
totguia = rs.Fields("TOTGUIA")
valmul  = rs.Fields("VALMUL")
totmul  = rs.Fields("TOTMUL")
datpag  = rs.Fields("DATPAG")
	
valor1 = rs.Fields("valor1")
valor2 = rs.Fields("valor2")
valor3 = rs.Fields("valor3")
valor4 = rs.Fields("valor4")
valor5 = rs.Fields("valor5")

if IsNull(valor1) or (valor1=0) then
   descr1 = ""
   valor1 = ""
else
   descr1 = rs.Fields("DESCR1")
   valor1 = FormatNumber(valor1)
end if  
if IsNull(valor2) or (valor2=0) then
   descr2 = ""
   valor2 = ""
else
  descr2 = rs.Fields("DESCR2")
  valor2 = FormatNumber(valor2)
end if  
if IsNull(valor3) or (valor3=0) then
  descr3 = ""
  valor3 = ""
else
  descr3 = rs.Fields("DESCR3")
  valor3 = FormatNumber(valor3)
end if  
if IsNull(valor4) or (valor4=0) then
  descr4 = ""
  valor4 = ""
else
  descr4 = rs.Fields("DESCR4")
  valor4 = FormatNumber(valor4)
end if  
if IsNull(valor5) or (valor5=0) then
  descr5 = ""
  valor5 = ""
else
  descr5 = rs.Fields("DESCR5")
  valor5 = FormatNumber(valor5)
end if
					
%>

o que puderem me ajudar ficarei muito grata

[Mário Monteiro 179]

O que acontece?