repare que o recordeset é executado antes de ser criado... por isso o erro... o dreamweaver faz essas bagaça de coloco código no lugar errado SEMPRE!!!... <%
Dim NoticiasHJ
Dim NoticiasHJ_cmd
Dim NoticiasHJ_numRows
Set NoticiasHJ_cmd = Server.CreateObject ("ADODB.Command")
NoticiasHJ_cmd.ActiveConnection = MM_CadNoticias_STRING
NoticiasHJ_cmd.CommandText = "SELECT * FROM Noticias WHERE [DATA] = date()"
NoticiasHJ_cmd.Prepared = true
Set NoticiasHJ = NoticiasHJ_cmd.Execute
NoticiasHJ_numRows = 0
if NoticiasHJ.eof then
response.write "não existem registros para exibir"
else
while not NoticiasHJ.eof
response.write NoticiasHJ("data")
NoticiasHJ.movenext
wend
end if
%>
<html>
<head>
<title>Acessando o Banco </title>
</head>
<body>
<%
'Cria a Conexão'
Set CN = CreateObject("ADODB.CONNECTION")
'Cria o driver - Access OLEDB
DRV = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
DRV = DRV & Server.MapPath("sgp.mdb")
'Cria a Instrução SQL'
'Cria o RecordSet'
Set RS = Server.CreateObject("ADODB.Recordset")
'Abre a conexão'
CN.Open DRV
SQL = "SELECT Projeto * FROM Projetos"
'Abre o recordset
RS.Open SQL,CN,adOpenForwardOnly,adLockOptimistic
if rs.eof then
response.write "nada"
else
While not rs.eof
response.write RS("PROJETO")
RS.movenext
wend
end if
rs.close
set rs=nothing
%>
</body></html>
outra coisa <!--#include file="anc/banco_abre_projetos.asp"--> você coloca essa include 2 vocês na mesma pagina... tire a primeira o codigo funcionara da mesma forma
bom na verdade isso nunca será a solução.... é mais facil hospedar isso em algum lugar... o que trará menos dor de cabeça 1- ninguém irea copiar o sistema; 2- ninguém vai fuçar e editar alguma coisa;(sempre tem) 3- obviamente ninguém vai apagar nada..
experimente public function inteiro(var_numero)
dim i as integer
for i = 1 to len(var_numero)
if mid(var_numero,i,1) <> "," then
inteiro = inteiro & mid(var_numero,i,1)
else
exit function
end if
next
end function
vou citar 2 trecho sdo seu codigo... vou perguntar por curiosidade isso entra no multinivel??? um usuario cadastra outro que precisa cadastrar +3 para esse cadastrar mais um??? certo né.. agora esse é o ponto interresante se ele deve cadastrar com 3 ou mais de cada um (todos), correto? com quantos você testou ??? exatamente 3??? pode ser isso, talvez não mais vale lembrar... > (maior que) porque eu coloquei 2??? porque seria a mesma coisa de >=3, obviamente...