[ASP] PB migration de Access 2000 vers SQLServer 2000

PB migration de Access 2000 vers SQLServer 2000 [ASP] - Programmation

Marsh Posté le 31-01-2002 à 20:58:11    

(re)Salut,
J'ai migré une BDD d'intranet de Access 2000 vers SQL Server 2000. La migration c'est effectué sans PB, j'ai rajouté les CLés primaires et tout ce qu'il faut.
Mais certains enregistrements ne sont pas renvoyés dans mes pages asp.
Le nombre d'enregistrement retourné est correct, le PB ne semble pas lié à un type précis de champ(ntext, text etc..)
Voici la page qui pose probleme ça pose problème au niveau de "target" juste après ma boucle (for)...
(target, titre et lien sont concernés mais je peux les afficher sans problème en dehors de la boucle for....peut-être un indice sachant que cette page fonctionne sans problème avec ACCESS)
 
<% @ Language = VBScript %>
<%
Set objconn = Server.CreateObject("ADODB.Connection" )  
connstring = "driver={SQL Server};" & "server=SCULLY;uid=sa; pwd=; database=INTRANET"  
objconn.open connstring  
%>
<!-- #include file="../modification/initialisation.asp" --> <!-- Stocke uniquement des variables en "dur" -->
<%
keldep=request.queryString("dep" )
combien="SELECT * FROM departement,colonnes Where departement.num_dep=colonnes.num_dep AND departement.num_dep="& keldep
Set DD=objconn.Execute(combien)
SQLQuery = "SELECT * FROM contenu WHERE num_dep=" & keldep
Set RS = objconn.Execute(SQLQuery)
nom_dep=DD("nom_dep" )
nb_col=DD("nb_col" )
%>
<html>
<!-- Petit javascript de popup innocent + feuille de style -->
<body marginwidth="0" marginheight="0" leftmargin="1" topmargin="1">
 <table border="1" cellpadding="5" cellspacing="0" width="796" bordercolor="navy">
   <tr>  
  <% For i=1 to nb_col %>
    <td width="265" valign="top">
     <div align="center">
      <p class="soustitre">
      <%
      Do while Not DD.EOF
      numero_col=DD("numero_col" )
      If numero_col=i Then
        titre_col=DD("titre_col" )
        response.write titre_col
      End If
      DD.moveNext
      Loop
      DD.moveFirst
      %>
      </p>
     </div>
     <ul>
     <%
     Do While Not RS.EOF
       
      If rs("num_col" )=i Then
      response.write rs("target" )
        target=rs("target" )
        num_cont=rs("num_cont" )
        lien=rs("lien" )
        IF target = "popup" THEN
         response.write "<li><a href='javascript:ouvre(" & num_cont & " );'>" & RS("titre" ) & "</a><br><br>"
        Else
         response.write "<li><a href='" & lien & "' target='" & target & "'>" & rs("titre" ) & "</a><br><br>"
        End If  
     End If
     RS.MoveNext
     Loop
     RS.MoveFirst
     %>
     </ul>
    </td>
     <% If i=3 Then response.write "</tr><tr>"%>
  <%Next%>
</tr></table></body></html>
<%rs.close%>
 
A vos aspirines :o)
TZ  :hello:

Reply

Marsh Posté le 31-01-2002 à 20:58:11   

Reply

Marsh Posté le 01-02-2002 à 08:25:01    

euh, up comme on dit ... :o)

Reply

Marsh Posté le 01-02-2002 à 11:33:25    

up

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed