cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Posts postados por cyberalexxx
-
-
-
-
-
entre as tags <head></head>
-
poste o erro que esta sendo apresentado!!
-
-
geralmente isso acontece quando se esquece de fechas aspas!!
posta a linha que ta apresentando o erro.
-
os valores do form foram recuperados??
ex:
parametro = request("nomedocampo")
-
Cyberalexxx eu deletei uma strQuery como você indicou...
Ficou assim...
dim rsRegiao, strQuery
dim rsCategoria
dim rsNoticia, idNoticia
O erro agora aparece na linha 71, veja o erro:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/admin/noticias/editar.asp, line 71
Veja o que tem na linha 71: em vermelho:
Set rsRegiao = Server.CreateObject("ADODB.Recordset")rsRegiao.CursorLocation = 3
strQuery = "select id, regiao1 from Regiao1 order by regiao1"
rsRegiao1.Open strQuery, Dados
Set rsCategoria = Server.CreateObject("ADODB.Recordset")
rsCategoria.CursorLocation = 3
strQuery = "select id, categorias from Categorias order by categorias"
voce criou o recordset como rsregiao e depois tentou abrir com rsregiao1, por isso o erro.
-
<%
regs = 10
pag = request.querystring("pagina")
if pag = "" then
pag = 1
end if
set rs = server.CreateObject("ADODB.Recordset")
set rs.activeconnection = abredb
rs.cursortype = 3
rs.pagesize = regs
sql = "SELECT * FROM cinema"
rs.open sql
if rs.eof or rs.bof then
response.write "ddd"
else
rs.absolutepage = pag
contador = 0
%>
<div align="center">
<center>
<%
regs = 10
pag = request.querystring("pagina")
set rs = server.CreateObject("ADODB.Recordset")
set rs.activeconnection = abredb
rs.cursortype = 3
rs.pagesize = regs
sql = "SELECT * FROM cinema ORDER by cod_cinema DESC"
rs.open sql
if rs.eof or rs.bof then
response.write "ddd"
else
rs.absolutepage = pag
contador = 0
%>
<table width="85" border="0" cellspacing="4" cellpadding="4">
<%
for x = 1 to rs.pagesize
if contador = 0 then response.write "<tr>" end if
%>
<%do while not rs.eof and contador < rs.pagesize%>
<td align="center" width="81">
<div align="center">
<center>
<table width="80" border="0" cellspacing="1">
<tr>
<td width="77" align="center" valign="middle"><img src="cinema/images/<%=rs("foto")%>" border="0"></td>
</tr>
<tr>
<td width="77" height="40" align="center" valign="middle"><font face="Verdana" size="1"><font color="#FFFFFF"><%=rs("titulo")%></font></font></td>
</tr>
</table>
</center>
</div>
</td>
<%
contador = contador +1
rs.movenext
loop
%>
<%
contador = contador+1
if contador = 6 then
response.write "</tr>"
contador=0
end if
next
%>
</table>
</center>
</div>
<%
end if
rs.close
set rs = nothing
set conn=nothing
%>
Da uma olhada quantos IF (em vermelho) e End if (em azul) tem no seu código!!
Ta errado voce precisa ter um end if para cada if
-
voce esta defindo a variavel strQuery duas vezes!! é só apagar uma.
-
Eu coloco a validação em JS na pagina do form e depois valido em VBScript na pagina ASP que processa os dados por medida de segurança.
Caso voce queira fazer em JS me avise que eu movo o tópico pra lá.
-
Isso já foi discutido algumas vezes por aki, mais nunca vi uma solução 100% eificaz, a maneira geralmente sugerida é colocar a rotina dentro do global.asa só que existe um problema ai, para a rotina ser executada algum usuário teria que abrir alguma pagina do site, para disparar o evento Session On Start onde voce colocária uma validação e as rotinas desejadas
-
voce passa os dados que voce quer que sejam lidos pela pagina ASP que esta recebendo os parametros, por exemplo em uma pagina de alteração voce informa o id do registro que voce quer alterar então ficaria assim: altera.asp?id=1
-
Se trocar os nomes qual a diferença??
A lógica ? Os dois códigos não chegam ao mesmo resultado?
Não vou me estender muito sobre o assunto, pois o forum é de programação e não de matemática financeira, mais quando voce se refere a trocar nomes, caso voce esteja falando de pagamento no inicio do periodo ou pagamento no fim do período existe uma diferença muito grande, com pagamento no inicio do período o recurso é capitzalizado um mes antes do que no pagamento no final do período, outro exemplo são as funções financeiras do excel de uma olhada nas construções das mesmas sempre que se fala em calulo de montante, juros ou parcelas existe uma opção para informar o tipo de pagamento se é inicio ou fim do período, o default é fim do período pois geralmente essas funções são usadas para calculos de financiamentos, onde voce pega o recurso hoje e começa a pagar no final do período ou seja em 30 dias o inicio do periodo é a tomada do recurso e o fim do período é o pagamento da parcela.
-
apesar que esta dando uma pekena diferença de uma fração de centavos:
saldo conta q eu fiz: 101,505
saldo da conta do sistema: 101,51
mas nem da nada não
apesar que, em longo prazo isso pode significar diferença...mas vou fazer as contas certinho depois com um matematico...valeu aih de novo!
Não precisa de matematico não!!
Calculei com a HP12c usando os dois métodos (pagamento no inicio e no fim do período) e o resultado bateu.
-
da uma olhada, a unica coisa que pode mudar é a questão da forma de pagamento (inicio do periodo ou fim do periodo)
o código que eu já tinha postado era com pagamento no inicio do período, segue abaixo o código adaptado para pagamento no final do período:
-
fiz o calculo usando a HP12C e o resultado bate com o resultado da tabela do meu script.
Obs: caso for conferir usando a HP12C voce deve ligar a opção Begin (g7) por se tratar de pagamento no inicio do período ou seja a pessoa deposita no inicio do período e obtém o rendimento no final do mesmo, portando os 200 reais iniciais já são remunerados no fim do primeiro período, sendo assim o saldo final acumulado será o saldo no final do ultimo período.
-
faz assim entaum:
<% PMT = 200 'valor mensal i = 0.6 'taxa de juros n = 3 'numero de periodos (meses) for x = 1 to n saldo = (VF + PMT) juros = saldo * (i/100) VF = saldo + juros next response.write "Valor Futuro: " & FormatNumber(VF,2) %>
o mesmo código com um demonstrativo mensal:
-
Como além de programador sou formado em economia (com pós em gestão financeira), essa ficou mole para mim:
-
estou com muito serviço agora, portando só vou colocar o esqueleto do código:
' coloque aki a conexao com o banco ' crie o recordset dim controle controle = 0 response.write "<table><tr>" Do while not Recordset.eof controle = controle + 1 response.write "<td>" & recordset("id") & "<br>" & recordset("produto") & recordset("disponivel") & "</td>" if controle mod 3 = 0 then response.write "</tr><tr>" end if recordset.MoveNext Loop response.write "</tr></table>"
entendeu???
-
para varrer as pastas e aquivos voce precisará usar FSO.
fiz um exemplo aki de uma testada e analise:
<%
Set fso=Server.createobject("Scripting.FileSystemObject")
pastaprincipal = "c:\teste"
Set pasta=fso.GetFolder(pastaprincipal)
Set pastas=pasta.Subfolders
for each diretorio in pastas
response.write "Nome da Sub-Pasta: " & diretorio.name & "<br>"
set subpasta=fso.getfolder(pastaprincipal & "\" & diretorio.name)
set arquivos = subpasta.files
response.write "Arquivos da Sub-Pasta:<br>"
for each arquivo in arquivos
response.write arquivo.name & "<br>" 'aki eu mostro o nome do arquivo, no seu caso seria apenas capturar o conteudo XML do arquivo.
next
response.write "<br><br>"
next
%>
-
Só um detalhe o arquivo deve estar no servidor.
Caso voce queira mandar em anexo um arquivo que esteja no lado do cliente, voce terá que fazer o upload do arquivo antes de anexa-lo ao objeto de email.
-
function cortadata(data) cortadata = right("0" & day(data),2) & "/" & right("0" & month(data),2) end function response.write cortadata(now)
Soma Sql
em ASP
Postado
tenta assim: