Variables en Response.Write

[Franc_]

Un amigo de aca del foro em ayudo a sumar, mediante una variable, me salio normal, pero cuando puse dos variables, as sumas me salen juntas, deberia ser:100 y 200 , pero me sale 100200, no los separa, las variables son cant y dol, no se que esta mal, gracias

<%
Dim conexion, registros, basedatos
basedatos = Server.MapPath("abc.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute("SELECT * FROM Ejemplo WHERE fecha Between #1/2/2004# And #1/2/2004#")

cant=0
dol=0
Do While Not registros.EOF
%>

<% cant = cant + registros.Fields("Cantidad").Value%>
<% dol = dol + registros.Fields("importe1").Value%>

<%
registros.MoveNext
Loop
response.write cant
response.write dol
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>