Prueba con esto:
Código:
<%
For i=1 to Len(Campo_CEROS)
RS("campo" & i) = Mid(Campo_CEROS,i,1)
Next
%>
donde Campo_CEROS sería la variable que contiene la cadena de ceros, entiendo que en forma de texto y RS el objeto Recordset de la conexión a la base de datos que hallas hecho previamente.
Un saludo.