[Response.expires]

faz assim:

<%
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>

[Erro Na Funcao]

tenta isso

sub Troca()
   If cor = "#F1F2F3" Then
      cor = "#E8EAEC"
   Else
      cor ="#F1F2F3"
   End If
End Sub

while not rs_02.eof 

    troca()

        response.write("<tr bgcolor= "& cor & " >")

[Tem Como Capturar Todos Os Campos De Um Formulário]

Sua duvida não era como capturar todos os campos do formulário???

na pagina que processa os dados do formulário coloque esse código:

for each variavel in request.form
        response.write variavel & " - " & request(variavel) & "<br>"
next

[Recuperar Dados Com Upload]

tenta assim:

response.write objUpload.Form("campo").Value

[Combobox]

Se é que eu entendi, seria assim:

SQL = "Select * from tabela where campo = '" & request("campodocombo") & "'"

[Tem Como Capturar Todos Os Campos De Um Formulário]

já tentou o seguinte:

for each request.querystring in request.form

[Response.redirect]

VLEW GENTE!

fechado!!

[Mensagem No Corpo Da Página Via Asp]

Eu não testei ainda... Mas eu acho q é exatamente isso !!! Só que eu queria saber como é que eu poderia fazer se eu fosse colocar este response.write dentro de uma tabela que já existe, por exemplo.. Abraços.

Oks,

Rafael Portal

<table>
   <tr>
      <td>
          <%
          if request("status") = "ok" then
             response.write "Dados Inseridos com sucesso"
          end if
          %>
       </td>
   </tr>
</table>

[Mensagem No Corpo Da Página Via Asp]

vejamos se eu entendi:

pagina que insere:

response.redirect("cadastro.asp?status=ok")

pagina de cadastro:

if request("status") = "ok" then
   response.write "Dados Inseridos com sucesso"
end if

[Bd Access]

com um banco só o desempenho é melhor, quanto a manutenção voce pode faze-la via script: create table, alter table, drop table e por ai vai.

[Exclusão De Arquivo No Servidor!]

OK!!

Qualquer duvida adicional, mande PM para algum moderador que o tópico é reaberto.

[]'s

[Exclusão De Arquivo No Servidor!]

faz esse teste e posta o resultado aki:

If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) = true Then
   response.write "arquivo: " & "e:\home\wdot\web\fkf\adm\obra\" & nome_fisico & "encontrado"
   response.end
   fso.deletefile server.MapPath("obra") & "\" & nome_fisico
else
   response.write "arquivo: " & "e:\home\wdot\web\fkf\adm\obra\" & nome_fisico & "não encontrado"
   response.end
End If

[Ordenar]

beleza!!!

Fechado!!

[Ordenar]

entaum funfou???

[Ordenar]

to achando que o nome do campo esta errado, pelo que me lembro do tópico anterior o nome do campo era metas.vlr_meta e não metas.vlr_metas

[Exclusão De Arquivo No Servidor!]

tenta assim:

If arquivo_leg.FileExists("e:\home\wdot\web\fkf\adm\obra\" & nome_fisico) = true Then
fso.deletefile server.MapPath("obra") & "\" & nome_fisico
End If

[Ordenar]

o erro esta na sintaxe do select max:

SELECT (max(previstoxrealizado.realizado) *100 / metas.vlr_metas) AS TOTAL, metas.central, metas.mes
FROM previstoxrealizado, metas WHERE previstoxrealizado.mes = metas.mes and previstoxrealizado.central = metas.central and metas.mes = 'Março/05'
GROUP BY central
ORDER BY Total ASC

[Usar Url Com Variavel]

ok testado e aprovado!!!

podem fechar o tópico!

abraços a todos.

Fechado!!

[]'s

[Busca Aleatória De Registros]

Select top 5 * from tabela order by rnd(campo)

[Ordenar]

Ai voce teria que colocar os dados em uma array e depois ordena-la.

já vou avisando da um trabalho lascado, já pesquisei sobre isso uma vez.

[Comparação De Valore ( Com Loop )]

também acho cara..... é meu proximo passo huauha

pode fechar o top !

ok!!

Fechado!!

[PaginaÇao De Texto...]

paginação em um arquivo texto, fiz correndo entaum ele ta meio bagunçado da pra deixar ele mais dinamico e enxuto:

<%
if request("pagina") = "" then
   pagina = 1
else
   pagina = request("pagina")
end if

limite=1000 

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set arquivo = FSO.OpenTextFile("c:\texto.txt",1)
quantidade=1
caracteres=0
do while arquivo.AtEndOfStream=false 
   linha = arquivo.Readline
   caracteres=caracteres+len(linha)
   if caracteres > limite then
      caracteres=0 
      quantidade=quantidade+1
   end if
loop
set arquivo = nothing

response.write "Numero de Paginas= " & quantidade & "<br>"

If CInt(pagina) > 1 Then
   Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a>"&" "&"</b>")
Else
   Response.Write("Anterior ")
End If

inicio=Cint(pagina)-9
fim=Cint(pagina) + 9
for i = inicio to fim
    if i <> CInt(pagina) and i > 0 and i <= quantidade then
       response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
     elseif i=Cint(pagina) then
       response.write " [<b>" & pagina & "</b>] "
     end if
next

If CInt(pagina) < quantidade Then
   Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></b></FONT></center>")
Else
   Response.Write("Próxima<br><br>")
End If

Set arquivo = FSO.OpenTextFile("c:\texto.txt",1)
quantidade=1
caracteres=0
do while arquivo.AtEndOfStream=false and quantidade <= Cint(pagina)
   linha = arquivo.Readline
   caracteres=caracteres+len(linha)
   if quantidade = CInt(pagina) then
      response.write linha
   end if
   if caracteres > limite then
      caracteres=0 
      quantidade=quantidade+1
   end if
loop
%>

[Comparação De Valore ( Com Loop )]

Que bom q deu certo, mais ainda acho q da pra fazer tudo em um só select.

[Gravar Txt]

Tenta esse tutorial:

http://scriptbrasil.com.br/forum/index.php...ndpost&p=180803

[Ordenar]

assim:

'conecta no MDB
<%
Set conn = createobject("adodb.connection")
conn.Open "DBQ=" & Server.MapPath("banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
Set rs = Conn.Execute("SELECT nome, time, gols, media, (gols/media) as media2 FROM tabela WHERE funcao='goleiro' ORDER BY media2 DESC")
If not rs.EOF Then
Do until rs.eof
%>

<%= rs("nome") %> - <%= rs("time") %> - <%= rs("gols") %> - <%= rs("media") %> - <%= Round ( rs("media2"),2) %>