Retour à Forum de site web

Incompatibilité de la récupération des données

  • Dalton Gilson
  • Born
  • Born
  • No Avatar
  • Inscription: Juin 01, 2003
  • Messages: 2
  • Status: Offline

Message Juin 1st, 2003, 7:33 am

Salut Gurus
Quelque chose d'assez étrange qui se passe avec un de mes scripts - Im construction d'un site avec des pages ASP gestion d'une base de données SQL Server 2000, de traiter avec des «contrats» de toutes sortes (en portugais).
- Le but de ce jeu réel de pages est de permettre aux utilisateurs de calculer l'évolution des prix (par exemple) soit un paiement périodique d'un contrat conformément à l'escalade des coûts économiques - s'il vous plaît de reconnaître que, dans le recalcul de Brasil Les tarifs des contrats ne peut être faite après une période d'au moins 12 mois (thats-à-dire: tout le monde recalcule ses frais pendant 12 mois...).
- Dans une première page ( "calcatualizacao"), l'utilisateur choisira, à partir de la table de base de données "indecontb" (qui signifie «indices Economicos tableau, une page qui montre l'évolution mensuelle de 04 différents types d'indices économiques), l'indice (comme son contrat règle) qui doivent être pris en considération pour le calcul du prix qu'il veut pour recalculer - son code est ici:
Code: [ Select ]
<%@enablesessionstate=false%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Contratos on Line &:& Atualize o valor do seu Contrato conforme o &Índice econômico</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<LINK href="../../../inc/estiloCoL.css" type=text/css rel=stylesheet></HEAD>
<BODY>.....
<FORM name="calcatualizacao" method="POST" action="../../../biblioteca/indseconomicos/calcatualizacao2.asp">
Qual o índice utilizado pelo seu Contrato — ou que Você queira atualizar?<br>
<input type="radio" name="indatualiz" value="igpm"> "IGP-<i>M</i>" - Índice Geral de Preços do <i>Mercado financeiro</i><BR>
<input type="radio" name="indatualiz" value="igpdi"> "IGP-<i>DI</i>" - Índice Geral de Preços - <i>Disponibilidade Interna</i><BR>
<input type="radio" name="indatualiz" value="ipca"> "IPCA" - Índice de Preços ao Consumidor - <i>Ampliado</i><BR>
<input type="radio" name="indatualiz" value="poup01"> Índice de Rendimentos da <i>Caderneta de Poupança</i> do dia 1º do mês</DIV>
.....(there comes the "reset" and the "submit" buttons</FORM></BODY></HTML>
  1. <%@enablesessionstate=false%>
  2. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  3. <HTML><HEAD><TITLE>Contratos on Line &:& Atualize o valor do seu Contrato conforme o &Índice econômico</TITLE>
  4. <META http-equiv=Content-Type content="text/html; charset=windows-1252">
  5. <LINK href="../../../inc/estiloCoL.css" type=text/css rel=stylesheet></HEAD>
  6. <BODY>.....
  7. <FORM name="calcatualizacao" method="POST" action="../../../biblioteca/indseconomicos/calcatualizacao2.asp">
  8. Qual o índice utilizado pelo seu Contrato — ou que Você queira atualizar?<br>
  9. <input type="radio" name="indatualiz" value="igpm"> "IGP-<i>M</i>" - Índice Geral de Preços do <i>Mercado financeiro</i><BR>
  10. <input type="radio" name="indatualiz" value="igpdi"> "IGP-<i>DI</i>" - Índice Geral de Preços - <i>Disponibilidade Interna</i><BR>
  11. <input type="radio" name="indatualiz" value="ipca"> "IPCA" - Índice de Preços ao Consumidor - <i>Ampliado</i><BR>
  12. <input type="radio" name="indatualiz" value="poup01"> Índice de Rendimentos da <i>Caderneta de Poupança</i> do dia 1º do mês</DIV>
  13. .....(there comes the "reset" and the "submit" buttons</FORM></BODY></HTML>
;
- Dans la deuxième page ( «calcatualizacao2"), une «forme» est ouvert pour l'utilisateur:
(1er) informe la valeur réelle de la Marché qu'il veut recalculer - Cette information sera recueillie directement par une "entrée", et après,
(2st) indique le mois et année, il veut apporter cette valeur - le choix de la ligne respectifs directement d'une liste des données de ce indecontb "" table (chaque ligne informe le mois / année et le montant de la retenue index, son dernier numéro, et plus, l'escalade cumulatif des derniers «12 mois»);
- Qui font partie s'exécuter dans la même forme, mais il n'ya pas bouton «Soumettre» dans cette page, car le lien à la page suivante vient automatiquement quand on clic de ces lignes dans la table de la base - son code est également ici:
Code: [ Select ]
<%@ LANGUAGE = "VBScript"
ENABLESESSIONSTATE = False %>
<%
Option Explicit
On Error Resume Next
Response.Expires = 0
%>
<!-- #include virtual="../../../inc/inc-conexao.asp" -->
<!-- #include virtual="../../../inc/clsDatefunctions.asp" -->
<%
Dim objConn, objRS, strQ, x, varcodigoind
Dim strConnection
dim date_functions
Call abre_objConn

Set date_functions = new classDateFunctions
Set objRS = Server.CreateObject("ADODB.Recordset")
x = request.form("indatualiz")
varcodigoind = request.querystring("tit")
Set objRS.ActiveConnection = objConn

strQ = "SELECT TOP 24 indecontb.codigoind, indecontb.mesind, indecontb.anoind, indecontb.numeroind, indecontb.varmesind, indecontb.vardozemesind FROM indecontb WHERE tipoind LIKE '%" & x & "%' ORDER BY anoind DESC, mesind DESC"

objRS.Open strQ
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Contratos on Line &:& Atualize o valor do seu &Contrato conforme o &Índice econômico</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<LINK href="../../../inc/estiloCoL.css" type=text/css rel=stylesheet>
<!-- #include virtual = "../inc/scrollbarbranco.css" --></head>

<BODY background="../../../imagens/back1.gif" onload="document.calcatualizacao2.valatualiz.focus()">.....
<FORM name="calcatualizacao2" method="POST" action="../../../biblioteca/indseconomicos/calcatualizacao3.asp">
<DIV style="position:absolute; align:center; top:120px; width:526px; font-family:verdana,arial; color:#000066; size:8pt;"><B>&Valor do Contrato ou parcela que Você queira atualizar: R$ </B><INPUT name="valatualiz" size=11 maxLength=15></DIV><BR>

<ilayer width=526 height=178><DIV style="position:absolute; align:left; left:10px; top:150px; width:526px; font-family:verdana,arial; color:#000066; size:8pt;"><B>&Clique sobre o mês/ano para o qual Você quer trazer o valor contratual:</B>

<layer width=526 height=2000>
<div style="left:5px; top:140; width:526px; height:150px; overflow:scroll;">

<TABLE class="letras" style="BEHAVIOR: url(../../../inc/sort.htc); BACKGROUND-COLOR: #E6E8FA" borderColor=#FFFFFF cellSpacing=0 cellPadding=2 border=1>

<THEAD><TR align=left>
<TD align="center" background="../../../imagens/blankEFEBEF.gif" width="70" style="font-family:verdana,tahoma,arial; font-size:7.5pt; color:#880000;"><B>Mês/Ano</B></FONT></TD>
<%
if x = "igpm" then
  x = "IGP-M"
elseif x = "igpdi" then
   x = "IGP-DI"
elseif x = "ipca" then
   x = "IPCA"
elseif x = "poup01" then
   x = "Poupança : dia 1º"
end if
%>
<TD align="left" background="../../../imagens/blankEFEBEF.gif" width="165" style="font-family:verdana,tahoma,arial; font-size:7.5pt; color:#880000;"><B>&<% = x %> do mês</B></FONT></TD>
<TD align="left" background="../../../imagens/blankEFEBEF.gif" width="150" style="font-family:verdana,tahoma,arial; font-size:7.5pt; color:#880000;"><B>&% <i>X</i> último mês</B></FONT></TD>
<TD align="left" background="../../../imagens/blankD8D9B0.gif" width="150" style="font-family:verdana,tahoma,arial; font-size:7.5pt; color:#880000;"><B>&% <i>X</i> últimos 12 meses</B></FONT></TD></TR></THEAD>

<TBODY>
<%
While Not objRS.EOF
  Response.Write "<TR><TD align='center' valign='top' width='70'><FONT color=#000066 size=1><a href='../../../biblioteca/indseconomicos/calcatualizacao3.asp?tit=" & objRs("codigoind") & "'>" & objRS("mesind") & "/" & objRS("anoind") & "</a></FONT></TD>"

  Response.Write "<TD align='right' valign='top' width='165'><FONT color=#000066 size=1><a href='../../../biblioteca/indseconomicos/calcatualizacao3.asp?tit=" & objRs("codigoind") & "'>" & FormatNumber(objRS("numeroind"), 4, -1) & "</a>&&&&&&&</FONT></TD>"

  Response.Write "<TD align='right' valign='top' width='150'><FONT color=#000066 size=1><a href='../../../biblioteca/indseconomicos/calcatualizacao3.asp?tit=" & objRs("codigoind") & "'>" & FormatNumber(objRS("varmesind"), 4, -1) & "&%</a>&&&&&&</FONT></TD>"

  Response.Write "<TD align='right' valign='top' background='../../../imagens/blankFFF7E7.gif' width='150'><FONT color=#880000 size=1><a href='../../../biblioteca/indseconomicos/calcatualizacao3.asp?tit=" & objRs("codigoind") & "'>" & FormatNumber(objRS("vardozemesind"), 4, -1) & "&%</a>&&&&&&</FONT></TD>"
  objRS.MoveNext
Wend

objRS.close
Call fecha_objConn
Set objRS = Nothing
%>
</TR></TBODY></TABLE></DIV></layer></DIV></ilayer></FORM>..... (and, finally, just the "back" button)
  1. <%@ LANGUAGE = "VBScript"
  2. ENABLESESSIONSTATE = False %>
  3. <%
  4. Option Explicit
  5. On Error Resume Next
  6. Response.Expires = 0
  7. %>
  8. <!-- #include virtual="../../../inc/inc-conexao.asp" -->
  9. <!-- #include virtual="../../../inc/clsDatefunctions.asp" -->
  10. <%
  11. Dim objConn, objRS, strQ, x, varcodigoind
  12. Dim strConnection
  13. dim date_functions
  14. Call abre_objConn
  16. Set date_functions = new classDateFunctions
  17. Set objRS = Server.CreateObject("ADODB.Recordset")
  18. x = request.form("indatualiz")
  19. varcodigoind = request.querystring("tit")
  20. Set objRS.ActiveConnection = objConn
  22. strQ = "SELECT TOP 24 indecontb.codigoind, indecontb.mesind, indecontb.anoind, indecontb.numeroind, indecontb.varmesind, indecontb.vardozemesind FROM indecontb WHERE tipoind LIKE '%" & x & "%' ORDER BY anoind DESC, mesind DESC"
  24. objRS.Open strQ
  25. %>
  26. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  27. <HTML><HEAD><TITLE>Contratos on Line &:& Atualize o valor do seu &Contrato conforme o &Índice econômico</TITLE>
  28. <META http-equiv=Content-Type content="text/html; charset=windows-1252">
  29. <LINK href="../../../inc/estiloCoL.css" type=text/css rel=stylesheet>
  30. <!-- #include virtual = "../inc/scrollbarbranco.css" --></head>
  32. <BODY background="../../../imagens/back1.gif" onload="document.calcatualizacao2.valatualiz.focus()">.....
  33. <FORM name="calcatualizacao2" method="POST" action="../../../biblioteca/indseconomicos/calcatualizacao3.asp">
  34. <DIV style="position:absolute; align:center; top:120px; width:526px; font-family:verdana,arial; color:#000066; size:8pt;"><B>&Valor do Contrato ou parcela que Você queira atualizar: R$ </B><INPUT name="valatualiz" size=11 maxLength=15></DIV><BR>
  36. <ilayer width=526 height=178><DIV style="position:absolute; align:left; left:10px; top:150px; width:526px; font-family:verdana,arial; color:#000066; size:8pt;"><B>&Clique sobre o mês/ano para o qual Você quer trazer o valor contratual:</B>
  38. <layer width=526 height=2000>
  39. <div style="left:5px; top:140; width:526px; height:150px; overflow:scroll;">
  41. <TABLE class="letras" style="BEHAVIOR: url(../../../inc/sort.htc); BACKGROUND-COLOR: #E6E8FA" borderColor=#FFFFFF cellSpacing=0 cellPadding=2 border=1>
  43. <THEAD><TR align=left>
  44. <TD align="center" background="../../../imagens/blankEFEBEF.gif" width="70" style="font-family:verdana,tahoma,arial; font-size:7.5pt; color:#880000;"><B>Mês/Ano</B></FONT></TD>
  45. <%
  46. if x = "igpm" then
  47.   x = "IGP-M"
  48. elseif x = "igpdi" then
  49.    x = "IGP-DI"
  50. elseif x = "ipca" then
  51.    x = "IPCA"
  52. elseif x = "poup01" then
  53.    x = "Poupança : dia 1º"
  54. end if
  55. %>
  56. <TD align="left" background="../../../imagens/blankEFEBEF.gif" width="165" style="font-family:verdana,tahoma,arial; font-size:7.5pt; color:#880000;"><B>&<% = x %> do mês</B></FONT></TD>
  57. <TD align="left" background="../../../imagens/blankEFEBEF.gif" width="150" style="font-family:verdana,tahoma,arial; font-size:7.5pt; color:#880000;"><B>&% <i>X</i> último mês</B></FONT></TD>
  58. <TD align="left" background="../../../imagens/blankD8D9B0.gif" width="150" style="font-family:verdana,tahoma,arial; font-size:7.5pt; color:#880000;"><B>&% <i>X</i> últimos 12 meses</B></FONT></TD></TR></THEAD>
  60. <TBODY>
  61. <%
  62. While Not objRS.EOF
  63.   Response.Write "<TR><TD align='center' valign='top' width='70'><FONT color=#000066 size=1><a href='../../../biblioteca/indseconomicos/calcatualizacao3.asp?tit=" & objRs("codigoind") & "'>" & objRS("mesind") & "/" & objRS("anoind") & "</a></FONT></TD>"
  65.   Response.Write "<TD align='right' valign='top' width='165'><FONT color=#000066 size=1><a href='../../../biblioteca/indseconomicos/calcatualizacao3.asp?tit=" & objRs("codigoind") & "'>" & FormatNumber(objRS("numeroind"), 4, -1) & "</a>&&&&&&&</FONT></TD>"
  67.   Response.Write "<TD align='right' valign='top' width='150'><FONT color=#000066 size=1><a href='../../../biblioteca/indseconomicos/calcatualizacao3.asp?tit=" & objRs("codigoind") & "'>" & FormatNumber(objRS("varmesind"), 4, -1) & "&%</a>&&&&&&</FONT></TD>"
  69.   Response.Write "<TD align='right' valign='top' background='../../../imagens/blankFFF7E7.gif' width='150'><FONT color=#880000 size=1><a href='../../../biblioteca/indseconomicos/calcatualizacao3.asp?tit=" & objRs("codigoind") & "'>" & FormatNumber(objRS("vardozemesind"), 4, -1) & "&%</a>&&&&&&</FONT></TD>"
  70.   objRS.MoveNext
  71. Wend
  73. objRS.close
  74. Call fecha_objConn
  75. Set objRS = Nothing
  76. %>
  77. </TR></TBODY></TABLE></DIV></layer></DIV></ilayer></FORM>..... (and, finally, just the "back" button)

--...mais le problème apparaît quand nous arrivons au "page3" ( "calcatualizacao3") visant à démontrer ces données (et où le programme va effectuer un calcul simple de la valeur réelle X de l'indice souhaité escalade, et montrer la valeur à neuf):
- Presque toutes les données sont affichées - à moins que la «valeur réelle contractuelle" (que l'on qui sont recueillis directement auprès d'un "input" à "calcatualizacao2" page)
- Je ne parviennent pas pourquoi! J'ai même essayé de transférer que les «inputs» de commande pour page3, mais c'est devenu pire: les autres données...disparu! S'il vous plaît regardez le code:
Code: [ Select ]
<%@ LANGUAGE = "VBScript"
ENABLESESSIONSTATE = False %>
<%
Option Explicit
On Error Resume Next
Response.Expires = 0
%>
<!-- #include virtual="../../../inc/inc-conexao.asp" -->
<!-- #include virtual="../../../inc/clsDatefunctions.asp" -->
<%
Dim objConn, objRS, strQ, y, i, m, a, n, k, varcodigoind
Dim strConnection
dim date_functions
Call abre_objConn

Set date_functions = new classDateFunctions
Set objRS = Server.CreateObject("ADODB.Recordset")
y = Request.form("valatualiz")
varcodigoind = request.querystring("tit")
Set objRS.ActiveConnection = objConn

strQ = "SELECT TOP 24 indecontb.codigoind, indecontb.mesind, indecontb.anoind, indecontb.numeroind, indecontb.varmesind, indecontb.vardozemesind, indecontb.tipoind FROM indecontb WHERE codigoind LIKE '%" & varcodigoind & "%'"
objRS.Open strQ
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Contratos on Line &:& Atualize o valor do seu &Contrato conforme o &Índice econômico</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<LINK href="../../../inc/estiloCoL.css" type=text/css rel=stylesheet>
<!-- #include virtual = "../inc/scrollbarbranco.css" --></head>

<BODY background="../../../imagens/back1.gif" onload="document.calcatualizacao2.valatualiz.focus()">.....
<FORM><DIV style="position:absolute; width:526px; top:57px;">
<%
i = objRS("tipoind")
m = objRS("mesind")
a = objRS("anoind")
n = objRS("numeroind")
k = FormatNumber(objRS("vardozemesind"), 4, -1)
%>
Nome do índice: <% = i %><BR>
Mês/ano a que se refere: <% = m %>/<% = a %><BR>
Índice respectivo: <% = n %><BR>
Variação nos últimos 12 meses: <% = k %><BR><BR>

Valor contratual atual-k: R$ <% = y %><BR>
Valor contratual atual-valatualiz: R$ <% = valatualiz %><BR>
</FORM>
  1. <%@ LANGUAGE = "VBScript"
  2. ENABLESESSIONSTATE = False %>
  3. <%
  4. Option Explicit
  5. On Error Resume Next
  6. Response.Expires = 0
  7. %>
  8. <!-- #include virtual="../../../inc/inc-conexao.asp" -->
  9. <!-- #include virtual="../../../inc/clsDatefunctions.asp" -->
  10. <%
  11. Dim objConn, objRS, strQ, y, i, m, a, n, k, varcodigoind
  12. Dim strConnection
  13. dim date_functions
  14. Call abre_objConn
  16. Set date_functions = new classDateFunctions
  17. Set objRS = Server.CreateObject("ADODB.Recordset")
  18. y = Request.form("valatualiz")
  19. varcodigoind = request.querystring("tit")
  20. Set objRS.ActiveConnection = objConn
  22. strQ = "SELECT TOP 24 indecontb.codigoind, indecontb.mesind, indecontb.anoind, indecontb.numeroind, indecontb.varmesind, indecontb.vardozemesind, indecontb.tipoind FROM indecontb WHERE codigoind LIKE '%" & varcodigoind & "%'"
  23. objRS.Open strQ
  24. %>
  25. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  26. <HTML><HEAD><TITLE>Contratos on Line &:& Atualize o valor do seu &Contrato conforme o &Índice econômico</TITLE>
  27. <META http-equiv=Content-Type content="text/html; charset=windows-1252">
  28. <LINK href="../../../inc/estiloCoL.css" type=text/css rel=stylesheet>
  29. <!-- #include virtual = "../inc/scrollbarbranco.css" --></head>
  31. <BODY background="../../../imagens/back1.gif" onload="document.calcatualizacao2.valatualiz.focus()">.....
  32. <FORM><DIV style="position:absolute; width:526px; top:57px;">
  33. <%
  34. i = objRS("tipoind")
  35. m = objRS("mesind")
  36. a = objRS("anoind")
  37. n = objRS("numeroind")
  38. k = FormatNumber(objRS("vardozemesind"), 4, -1)
  39. %>
  40. Nome do índice: <% = i %><BR>
  41. Mês/ano a que se refere: <% = m %>/<% = a %><BR>
  42. Índice respectivo: <% = n %><BR>
  43. Variação nos últimos 12 meses: <% = k %><BR><BR>
  45. Valor contratual atual-k: R$ <% = y %><BR>
  46. Valor contratual atual-valatualiz: R$ <% = valatualiz %><BR>
  47. </FORM>

Vous mai-Gurus être gentil pour m'aider à trouver ce patch mystérieux? Merci, merci beaucoup, depuis maintenant!
Sincèrement Dalton
  • Anonymous
  • Bot
  • No Avatar
  • Inscription: 25 Feb 2008
  • Messages: ?
  • Loc: Ozzuland
  • Status: Online

Message Juin 1st, 2003, 7:33 am

  • Dalton Gilson
  • Born
  • Born
  • No Avatar
  • Inscription: Juin 01, 2003
  • Messages: 2
  • Status: Offline

Message Juin 1st, 2003, 4:07 pm

Par la voie: en vue de rendre plus facile à lire, vous avez ici les 03 scripts, en. Txt:
-- http://www.contratosonline.com.br/bibli ... zacao1.txt
-- http://www.contratosonline.com.br/bibli ... zacao2.txt
-- http://www.contratosonline.com.br/bibli ... zacao3.txt
Merci
Dalton

Page 1 sur 1

Afficher de l'information

  • Total des messages de ce sujet: 2 messages
  • Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 77 invités
  • Vous ne pouvez pas poster de nouveaux sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas éditer vos messages
  • Vous ne pouvez pas supprimer vos messages
  • Vous ne pouvez pas joindre des fichiers
 
 

© 2011 Unmelted, LLC. Ozzu® est une marque déposée de Unmelted, LLC