Galera como o outro topico ta meio longo vou postar nesse aqui uma dificuldade especifica, preciso fazer um myRst.fields dentro do loop so que ao colocar ele recebo a msg de erro:
Operação não permitida quando o objeto está fechado.
nao pode recolher campo do mysql dentro do loop? o que estou fazendo de errado???
no codigo abaixo:
<%
var_status =("ATI")
'Faz o select no banco so nos itens que estão ativos"ATI"
vSql = "SELECT * FROM TAB_QUADRO_BRASFELS where status='"&VAR_STATUS&"' "
Set myRst = Server.CreateObject("ADODB.Recordset")
myRst.Open vSql, conn, 3, 3
'começa o loop
do while not myRst.EOF
var_data_inicial=myRst.fields("DATA_INICIAL")
var_data_fim=myRst.fields("DATA_FIM")
var_valor=myRst.fields("Valor")
var_valor_dia= (var_valor/30)
'verifica se a data fim é maior que a data inicial
If DateValue(var_data_fim)=>DateValue(var_data_inicial) Then
DiasUso = DateDiff("d",var_data_inicial,var_data_fim)
'se a data de uso for igual a 29 soma-se +1 para fechar 30 dias de uso
If DiasUso = "29" Then
DiasUso= DiasUso+1
End If
End if
'faz o calculo de cobrança
var_cobranca = DiasUso * var_valor_dia
var_cobranca = (Round (var_cobranca))
'faz update no banco e seta o campo "valor_uni" com o valor que foi cobrado naquele mes
vSql="UPDATE TAB_QUADRO_BRASFELS SET VALOR_UNI='"&var_cobranca&"'"
Set myRst = Server.CreateObject("ADODB.Recordset")
myRst.Open vSql, conn, 3, 3
'faz a conta do valor total a cada vez que passar pelo loop ele somaria ele + o valor de cobrança do item
Var_total=var_total+var_cobranca
myRst.MoveNext
loop
%>
<%
'aqui exibi o valor total
'aqui exibi o valor total
Response.Write "Cobranca: R$ "
Response.Write (Round (var_total))
Response.Write ",00"
response.end
%>