(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%>
