DECOUPAGE D'UN CHAMP TEXTE EN 255 CHARACTERES POUR BASE ACCESS

comments=Replace(Request.Form("comments"),"'"," ")
comments=Replace(comments,chr(13)," ")
comments=Replace(comments,chr(10),"")
DIM ma_var()
ReDIM ma_var(LEN(comments))
ma_var(0)=MID(comments,1,254)
comments0=ma_var(0)
if Int(Len(comments)/255)>0 then
		if (Len(comments) MOD 255) <> 0 then 
		finchaine=Int((Len(comments)/255)+1)
		else
		finchaine=Int((Len(comments)/255))
		end if
for i=1 to finchaine
ma_var(i)=MID(comments,255*i,255)
SELECT CASE i
CASE 1
comments1=ma_var(i)
CASE 2
comments2=ma_var(i)
CASE 3 
comments3=ma_var(i)
CASE 4 
comments4=ma_var(i)
CASE 5 
comments5=ma_var(i)
CASE 6 
comments6=ma_var(i)
CASE 7 
comments7=ma_var(i)
CASE 8 
comments8=ma_var(i)
CASE 9 
comments9=ma_var(i)
END SELECT
next
end if