Sujet : ubound
Bonjour, alors que cette page marchais vendredi depuis plus rien
J'utilise les tableaux pour afficher mes résultats stockés en mémoire afin de ne pas acceder à chaque fois à la base (visu.asp)
Mon tableau et ma connexion sont crées dans un autre fichier
(charge.asp).
visu.asp :
<%
fintab=UBOUND(application("tableau"),2)
deb=cint(Request.querystring("deb"))
if deb="" or deb <0 then
deb=0
end if
fin =deb+3
if fin >= fintab then
cptsui=deb
else
cptsui=deb+4
cptpre=deb-4
end if
for i=deb to fin
if i <= fintab then
chemin="../photo/"+application("tableau")(0,i)+".jpg"
%>
<table border>....
<%
end if
%>
<%
next
%>
charge.asp :
<%
'/////////////////////////////////////////// connexion a la base
BASDON="DBQ=" & server.MapPath("../based/vda.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};"
Set CONBASDON=server.createObject("ADODB.Connection")
CONBASDON.Open BASDON
'////////////////////////////////////////// creation d'un recordset
on error resume next
Set ficadr=server.createObject("ADODB.recordSet")
ficadr.open "SELECT t_tabval.tabref, t_peintre.peilib, t_support.suplib, t_tabval.tabdi1, t_tabval.tabdi2, t_tabval.tablib, t_tabval.tabeu1, t_tabval.tabeu2, t_tabval.taboms FROM t_tabval left JOIN t_peintre ON t_tabval.tabpei = t_peintre.peicod left JOIN t_support ON t_tabval.tabsup = t_support.supcod where tabtop=false and tabtyp<>'v' and tabtyp<>'d' and tabtyp<>'o' and tabtyp<>'p'order by peilib;", CONBASDON
tableau=ficadr.getrows()
application.lock
application("tableau")=tableau
application.unlock
ficadr.close
response.redirect ("../default2.asp")
%>
mais j'ai toujours "http erreur 500 interne au serveur"
Quelqu'un aurais t-il la réponse parce que là je sèche.
Merci d'avance