Dim TempStr,Rows
TempStr=""
Rows=int(len(rs_viewproduct("instructions"))/18)
For i=0 to Rows-1
TempStr=TempStr+mid(rs_viewproduct("instructions"),(i*18)+1,18)&" <br>"
Next
TempStr=TempStr+right(rs_viewproduct("instructions"),Len(rs_viewproduct("instructions"))-Rows*18)
Response.write TempStr ,Len(rs_viewproduct("instructions"))-Rows*3 Response.write TempStr