cyberalexxx

Sera que não são os caracteres japas nesta variavel: ElseIF Instr(Guest_Soft,"unix") or Instr(Guest_Soft,"linux") or Instr(Guest_Soft,"SunOS") or Instr(Guest_Soft,"BSD") Then Guest_OS="类Unix操作系统"

beleza! to fechando o tópico.

agora não me lembro de uma forma agil de fazer isso, que tal fazer usando o método gambi: for x=1 to 10 ' avançando 10 registros RercordSet.MoveNext next do while not RecordSet.Eof 'mostrar os dados RecordSet.MoveNext loop Ps.: Metodo Gambi = Gambiarra

Eu estou usando o InfiniteHost (server do Jissa ex-adm aki do forum)

exato!!!! []'s

voce tem que impedir q o navegador armazene o conteuda da pagina em cache, olha aki um exemplo Response.Expiresabsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache"

No seu caso a duvida é Access X Delphi, vou mover o tópico para a sessão de Access.

Voce tera que alterar as configurações no painel de controle do servidor.

Essa propriedade informa o tempo(minutos) em que uma página ASP pode permanecer ativa na Cache do Web Browser.

Movendo para .NET []'s

como não conheço suas variaveis de um response.write na varialvel SQl antes de executa-la e poste o resultado para vermos como a instrução esta sendo feita.

Eu trabalho usando o seguinte: MySQL Aministrator MySQL Query Browser

SELECT * FROM tabela where data between '2005-03-01' and '2005-03-08'

Acabei de simular uma query igual a q voce quer em muita tabela minha e funfou na boa!! Meu BD é 4.1, veja um exemplo que funcionou comigo: SELECT * FROM op where banco = 341 and data = (select max(data) from op)

O banco é mysql, portanto não aceita Select Top

faz assim: Set rs = Conn.Execute("SELECT * FROM contrdiariooperadoras WHERE Central='Apae Jaú' AND data = (SELECT MAX(data) from contrdiariooperadoras)")

Primeiro passo: verificar no servidor em que o site será hospedado que componente de upload ele suporta, ai com base nesse componente iniciar a criação do código.

'separa palavras (busca com varias palavras) e cria as instruções SQL dim busca, onde, pesq, sql busca=split(request.form("chave"),chr(32)) dim onde for x = 0 to Ubound(busca) if x > 0 then onde=onde + " and " end if pesq=busca(x) onde=onde+"texto like '%" & pesq & "%'" next sql = "select * from tabela where " & onde & " order by campo"

faça uma comparação com o dado do banco se for pra marcar o checkbox é só colocar um checked: fica mais ou menos assim: response.write"<input type='checkbox' name='nome' value=" if condição=marcar then ' aki voce testa o campo response.write"'ON' checked>" else response.write"'off'>" end if

Olha aki um exemplo de parte de um sistema de busca que eu fiz esses dias: 'separa palavras (busca com varias palavras) e cria as instruções SQL busca=split(session("palavra"),chr(32)) dim onde if request("cont")<>"s" then for x = 0 to Ubound(busca) if x > 0 then onde=onde + " and " end if pesq=busca(x) pesq = ""&pesq&"" onde=onde+"texto like '%" & pesq & "%'" next session("sql") = "select * from texto where " & onde & " order by cdigo" session("sqlc") ="select count(texto) from texto where " & onde & " order by cdigo" end if

beleza!! tópico fechado!! Se precisar mande PM pra algum moderador abrir o tópico. []'s

Ok!! Tópico Fechado!!

tenta assim:´ SET RS = Server.CreateObject("AdoDB.RecordSet") Sql = "Select Top 1 * From Bebe Order by Codigo Desc" Rs.Open Sql,conexao ultimo = Rs.fields("codigo") StrListatesteBebe = "UPDATE Bebe SET " StrListatesteBebe = StrListatesteBebe & "foto = '" & foto & "' where Codigo=" & ultimo Conexao.execute(StrListatesteBebe)

poste como esta ficando a instrução SQL e a descrição do erro, que fica mais facil ajudar.