Bueno, salvo que necesitas definir la conexión a la BD y demás cosillas, la cosa sería más o menos así:
Código:
<%
Set cmd=server.CreateObject("ADODB.command")
Set cmd.ActiveConnection = Conexion
VectorCasillas = SPLIT(Request("marcas"),",")
For i=0 to UBound(VectorCasillas)
strSQL = "INSERT INTO Tabla (Valor) VALUES ('" & VectorCasillas(i) & "')"
cmd.CommandText = strSQL
cmd.Execute
Next
%>