cyberalexxx

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

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 & " >")

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

tenta assim: response.write objUpload.Form("campo").Value

Se é que eu entendi, seria assim: SQL = "Select * from tabela where campo = '" & request("campodocombo") & "'"

já tentou o seguinte: for each request.querystring in request.form

fechado!!

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

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

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.

OK!! Qualquer duvida adicional, mande PM para algum moderador que o tópico é reaberto. []'s

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

beleza!!! Fechado!!

entaum funfou???

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

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

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

Fechado!! []'s

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

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.

ok!! Fechado!!

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 %>

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

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

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) %>