Simplemente Sumar

[univercity]

Que tal,

Para decirles la verdad, estoy pegado con este cuento de hace rato siendo, una cosa tan facil, pero no se donde esta el error...

lo que necesito es sumar desde una base de datos los registros de un campo... miren les dejo el codigo completo para que lo vean, el error que me esta dando es que simplemente no me suma...



<%
dim cnn,rst

set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("./bdwine/Vinos.mdb"))

sqltext = "SELECT * from tabla1 where cepa='"&request.querystring("tipo")&"'"

rst.Open sqltext,cnn,3,3
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="253" style="border: 1 solid #FFFFFF">
<tr>
<td align="center" bgcolor="#ffffff" width="172"></td>
<td align="center" bgcolor="#ffffff" width="172">&nbsp;</td>
<td align="center" bgcolor="#ffffff" width="204">&nbsp;</td>
<td align="center" bgcolor="#ffffff" width="251">&nbsp;</td>
</tr>
<tr>
<td width="1" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Cepa</font></b></td>
<td width="1" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Litros</font></b></td>
<td width="33" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Total</font></b></td>
<td width="80" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Asignados</font></b></td>
</tr>
<tr>
<td width="1" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF"><font face="Verdana" size="0.8"><%=rst("cepa")%> </font></td>

<%


Do While Not rst.EOF


h = rst("litros") + 1
D = clng(h)
L = 0
total = L + d
total2 = formatnumber(total)

rst.MoveNext
Loop
%>




<td width="1" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF"><%= total2%> </td>

<td width="33" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF">&nbsp;</td>

<td width="80" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF">&nbsp;</td>

<%



rst.Close
Set rst = Nothing
cnn.Close
Set con = Nothing
%>
</tr>
</table>

Haber si me echan una manito.... gracias

[univercity]

Lo he solucionado... era una tonterilla , pero bueno cuando te trancas no hay como... les dejo el codigo por si a alguien le interesa...

<%
dim cnn,rst

set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("./bdwine/Vinos.mdb"))

sqltext = "SELECT * from tabla1 where cepa='"&request.querystring("tipo")&"'"

rst.Open sqltext,cnn,3,3
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="253" style="border: 1 solid #FFFFFF">
<tr>
<td align="center" bgcolor="#ffffff" width="172"></td>
<td align="center" bgcolor="#ffffff" width="172">&nbsp;</td>
<td align="center" bgcolor="#ffffff" width="251">&nbsp;</td>
</tr>
<tr>
<td width="1" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Cepa</font></b></td>
<td width="1" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Litros</font></b></td>
<td width="80" bgcolor="#336699" align="center" style="border: 1 groove #FFFFFF"><b><font face="Verdana" size="1" color="#FFFFFF">Asignados</font></b></td>
</tr>
<tr>
<td width="1" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF"><font face="Verdana" size="0.8"><%=rst("cepa")%> </font></td>

<%

h = rst("litros")

Do While Not rst.EOF


D = clng(h)
F = rst("litros")
G = clng(f)
total = D + G
total2 = formatnumber(total)

rst.MoveNext
Loop


%>




<td width="1" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF"><font size="1" face="Verdana"><%= total2%></font></td>

<td width="80" bgcolor="<%=cColor%>" align="left" style="border: 1 groove #FFFFFF">&nbsp;</td>

<%



' rst.Close
'Set rst = Nothing
'cnn.Close
'Set con = Nothing
%>
</tr>
</table>

</center>
</div>