En la sentencia SQL:
SELECT * FROM costos_maxirest WHERE turno = 1 & and local = 1
Si solo necesitas el campo bme, pide ese campo solo. Estará más optimizado.
SELECT bme FROM costos_maxirest WHERE turno = 1 & and local = 1
Supongo que no sabes cuantos registros tiene esa tabla con esos criterios. Si sabes de antemano que van a ser 31 registros puedes hacerlo asi:
Código:
<%
Dim cnn, rs, SQL
set cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
cnn.open "circulacion", "sa", ""
set rs = cnn.execute("SELECT * FROM costos_maxirest WHERE turno = 1 & and local = 1")
rs.moveFirst()
%>
<%
FInicio = "31/12/2006"
dia=DateDiff("d", FInicio ,date())
%>
<FORM METHOD="POST" ACTION="cargado.asp">
<%
for i = 1 to 31
if not rs.EOF and rs.RecordCount >= i then
rs.move(i-1)
valor_bme = rs("bme")
end if
%>
<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center" class="Estilo10"><%=((Date() - dia) + i)%></div></td>
<td><span class="Estilo10">
<input name="bme<% = i %>" type="text" value="<%=valor_bme %>"/>
</span></td>
<td><div align="center" class="Estilo10">
<input name="fecha<% = i %>" type="hidden" value="<%=((Date() - dia) + i)%>" /></td>
<td><div align="center" class="Estilo10">
<input name="turno<% = i %>" type="hidden" value="1" />
</div></td>
<td><div align="center" class="Estilo10">
<input name="local<% = i %>" type="hidden" value="1" />
</div></td>
</tr>
</table>
<%next%>
<INPUT TYPE="hidden" value="<% = i %>" name="cantidad">
<INPUT TYPE="hidden" value="<% = i %>" name="cantidad2">
<INPUT TYPE="hidden" value="<% = i %>" name="cantidad3">
<INPUT TYPE="hidden" value="<% = i %>" name="cantidad4">
<br>
<INPUT TYPE="SUBMIT" value="Insertar">
</p>
</p>
</FORM>
Espero no haber metido mucho la pata
Es que es viernes
Un saludo