Os novos servidores não aceitam mais aquele arquivo htaccess para URL amigáveis
Pesquisei e vi que precisa criar um arquivo webconfig. Mas não achei nada concreto.
Alguém tem um exemplo simples?
↧
URL Rewrite(amigavel) com webconfig
↧
Limite da Memória Intermédia de Resposta excedido
Boas, tenho esta pagina que me da Limite da Memória Intermédia de Resposta excedido, já verifiquei tudo e nao percebo de onde vem, alguem consegue ver alguma coisa?
O erro certo é:
Objeto resposta erro 'ASP 0251 : 80004005'
Limite da Memória Intermédia de Resposta excedido
/Index.asp, linha 0
A execução da página ASP fez com que a Memória Intermédia de Resposta excedesse o respetivo limite configurado.
<%
id="1" 'Identifica o id
Server.ScriptTimeout = 7500
Response.Flush
'Verfifica se existe ligação a net
Dim intStatus, objHTTP
Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
objHTTP.Open "GET", "http://www.google.com/", False
objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"
On Error Resume Next
objHTTP.Send
intStatus = objHTTP.Status
On Error Goto 0
Response.Flush
If intStatus = 200 Then ' se existe ligacao a net entao define variaveis para conexao a db online
Internet = "sim"
nomebd = "painel"
userdb = "root"
passdb = "pass"
servidor = "xxx.xxx.xx.xxx"
Else ' se nao existe ligacao a net entao define variaveis para conexao a db local
internet = "nao"
nomebd = "painel"
userdb = "root"
passdb = "pass"
servidor = "localhost"
End If
Set intStatus = Nothing
Set objHTTP = Nothing
Response.Flush
'faz a ligacao com a bd
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
on error resume next
conn.ConnectionString = "Driver={MYSQL ODBC 5.1 DRIVER};Server="&servidor&";Port=3306;Database="&nomebd&";Uid="&userdb&";Pwd="&passdb&";" ' liga a bd
conn.Open()
if err.number <> 0 then
Response.Write "<br>Ocorreu o seguinte erro: "&Err.Description&", Source: "&Err.Source&"<br><br>"
end if
on error goto 0
'faz os selects das tabelas todas
set textos = conn.Execute("select * from texto where id='"&id&"' ")
set videos = conn.Execute("select * from videos where id='"&id&"' ")
set noticias = conn.Execute("select * from noticias where id='"&id&"' ")
set weather = conn.Execute("select * from weather where id='"&id&"' ")
set ids= conn.Execute("select * from id where id='"&id&"' ")
if textos.eof=true or videos.eof=true or weather.eof=true or ids.eof=true or noticias.eof=true then
response.Write("<script>alert('Ocorreu um erro.\nObrigado');</script>")
end if
Response.Flush
%>
<!doctype html>
<html>
<head>
<title></title>
<meta charset="utf-8"/>
<link rel="stylesheet" href="style.css" type="text/css"/>
<script src="http://api.html5media.info/1.1.5/html5media.min.js"></script>
<script type="text/javascript">
function display_c(){
var refresh=1000; // Refresh rate in milli seconds
mytime=setTimeout('display_ct()',refresh)
}
function addZero(i) {
if (i < 10) {
i = "0" + i;
}
return i;
}
function display_ct() {
var strcount
var x = new Date()
var x1=x.getMonth() + "/" + x.getDate() + "/" + x.getYear();
x1 = addZero(x.getHours())+ ":" +addZero(x.getMinutes());
document.getElementById('ct').innerHTML = x1;
tt=display_c();
}
</script>
</head>
<body onload=display_ct();>
<%
'configurações
logo=ids.fields("header")
video="tv"
Response.Flush
%>
<div id="header" style="display: block;overflow: auto;position: relative;width: 100%;">
<div id="h2" style="float: left;position: relative;width: 67.4%;height:25.5%;z-index:500;">
<img src="img/<%=logo%>" >
</div>
<!----------------------------------------------------------------------- Weather ---------------------------------------------------------------------------------------------------------------------------------->
<div id="head_text" style="z-index: 100; position: absolute;width:100%; overflow: hidden;">
<%if internet="sim" then response.write weather.fields("cod") end if%>
</div>
<!----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
</div>
<!----------------------------------------------------------------------- Marque ---------------------------------------------------------------------------------------------------------------------------------->
<div id="wrapper" style="margin-top:-5%;display: block;position: relative;width: 100%;height: 80%;z-index:-1;">
<div id="w2" style="float:right;display: block;position: relative;width:30%;height:700px;margin-top:15px;z-index:510;">
<div class="container">
<div class="demo-1 well" style="text-align:center;height:100%;font-size:45px;font-weight: bold;">
<%
do while not textos.eof=true
response.write "|<span class='badge'>"&textos.fields("textos")&"</span>"
loop
%>
</div>
</div>
<script src="http://code.jquery.com/jquery-2.1.4.min.js"></script>
<script src="jquery.auto-text-rotating.js"></script>
<script>
$('.demo-1').atrotating({type: 'html'});
</script>
</div>
<!---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
<div id="w1" style="height:710px;width:67%;padding:0px;">
<%
if video="tv" and internet="sim" then
response.write videos.fields("cod")
else
%>
<figure id="video_player">
<div id="video_container">
<video controls="controls" poster="http://demosthenes.info/assets/images/vid-glacier.jpg" autoplay>
<source src="http://demosthenes.info/assets/videos/glacier.mp4" type="video/mp4">
<source src="http://demosthenes.info/assets/videos/glacier.webm" type="video/webm">
</video>
</div>
<%
Response.Flush
' dim fs,fo,x
' set fs=Server.CreateObject("Scripting.FileSystemObject")
' set fo=fs.GetFolder("C:\inetpub\wwwroot\Painel_Informativo\videos\")
' setfir="class='currentvid'"
' for each x in fo.files
' xName = replace (x.name,"."&fs.GetExtensionName(x.Name), "" )
' %>
' <a href="\videos\<%=xName%>.mp4" type="video/mp4" <%=setfir%>>
' <img src="http://demosthenes.info/assets/images/vid-glacier.jpg" alt="<%=Ucase(xName)%>">
' </a>
' <%
' setfir=""
' next
' set fo=nothing
' set fs=nothing
%>
<figcaption>
<a href="http://demosthenes.info/assets/videos/glacier.mp4" class="currentvid">
<img src="http://demosthenes.info/assets/images/vid-glacier.jpg" alt="Athabasca Glacier">
</a>
<a href="http://demosthenes.info/assets/videos/lake.mp4">
<img src="http://demosthenes.info/assets/images/vid-lake.jpg" alt="Athabasca Lake">
</a>
<a href="http://demosthenes.info/assets/videos/mountain.mp4">
<img src="http://demosthenes.info/assets/images/vid-mountain.jpg" alt="Mountain">
</a>
</figcaption>
</figure>
<%end if%>
</div>
</div>
<div id="footer" style="clear: both;display: block;width: 100%;height: 10%;">
<div id="f1" style="float: right;position: relative;width: 31%; height: 100%;z-index:520;font-size:45px;text-align: center;padding-top:40px;color:darkgrey;font-weight: bold;">
<%Response.Write(ExibeData(now())) %>
</div>
<div id="f2" style="float: left;position: relative;width: 68%;height: 100%;z-index:520;">
<!-- start sw-rss-feed code -->
<script type="text/javascript">
<!--
rssfeed_url = new Array();
<%
x=1
do while not noticias.eof=true
%>
rssfeed_url[<%=x%>]="<%=noticias.fields("url")%>";
<%
x=x+1
loop%>
rssfeed_frame_width="1150";
rssfeed_frame_height="150";
rssfeed_scroll="on";
rssfeed_scroll_step="15";
rssfeed_scroll_bar="off";
rssfeed_target="_blank";
rssfeed_font_size="29";
rssfeed_font_face="";
rssfeed_border="off";
rssfeed_css_url="";
rssfeed_title="off";
rssfeed_title_name="";
rssfeed_title_bgcolor="transparent";
rssfeed_title_color="#fff";
rssfeed_title_bgimage="http://";
rssfeed_footer="off";
rssfeed_footer_name="rss feed";
rssfeed_footer_bgcolor="#fff";
rssfeed_footer_color="#333";
rssfeed_footer_bgimage="http://";
rssfeed_item_title_length="150";
rssfeed_item_title_color="black";
rssfeed_item_bgcolor="transparent";
rssfeed_item_bgimage="http://";
rssfeed_item_border_bottom="on";
rssfeed_item_source_icon="off";
rssfeed_item_date="off";
rssfeed_item_description="on";
rssfeed_item_description_length="520";
rssfeed_item_description_color="black";
rssfeed_item_description_link_color="black";
rssfeed_item_description_tag="off";
rssfeed_no_items="0";
rssfeed_cache = "aa115714cc4a2358ba9b311141cde101";
//-->
</script>
<script type="text/javascript" src="http://feed.surfing-waves.com/js/rss-feed.js"></script>
</div>
</div>
<script>
var video_player = document.getElementById("video_player");
video = video_player.getElementsByTagName("video")[0],
video_links = video_player.getElementsByTagName("figcaption")[0],
source = video.getElementsByTagName("source"),
link_list = [],
vidDir = "http://demosthenes.info/assets/videos/",
currentVid = 0,
allLnks = video_links.children,
lnkNum = allLnks.length;
video.removeAttribute("controls");
video.removeAttribute("poster");
(function() {
function playVid(index) {
video_links.children[index].classList.add("currentvid");
source[1].src = vidDir + link_list[index] + ".webm";
source[0].src = vidDir + link_list[index] + ".mp4";
currentVid = index;
video.load();
video.play();
}
for (var i=0; i<lnkNum; i++) {
var filename = allLnks[i].href;
link_list[i] = filename.match(/([^\/]+)(?=\.\w+$)/)[0];
(function(index){
allLnks[i].onclick = function(i){
i.preventDefault();
for (var i=0; i<lnkNum; i++) {
allLnks[i].classList.remove("currentvid");
}
playVid(index);
}
})(i);
}
video.addEventListener('ended', function () {
allLnks[currentVid].classList.remove("currentvid");
if ((currentVid + 1) >= lnkNum) { nextVid = 0 } else { nextVid = currentVid+1 }
playVid(nextVid);
})
video.addEventListener('mouseenter', function() {
video.setAttribute("controls","true");
})
video.addEventListener('mouseleave', function() {
video.removeAttribute("controls");
})
var indexOf = function(needle) {
if(typeof Array.prototype.indexOf === 'function') {
indexOf = Array.prototype.indexOf;
} else {
indexOf = function(needle) {
var i = -1, index = -1;
for(i = 0; i < this.length; i++) {
if(this[i] === needle) {
index = i;
break;
}}
return index;
};}
return indexOf.call(this, needle);
};
var focusedLink = document.activeElement;
index = indexOf.call(allLnks, focusedLink);
document.addEventListener('keydown', function(e) {
if (index) {
var focusedElement = document.activeElement;
if (e.keyCode == 40 || e.keyCode == 39) { // down or right cursor
var nextNode = focusedElement.nextElementSibling;
if (nextNode) { nextNode.focus(); } else { video_links.firstElementChild.focus(); }
}
if (e.keyCode == 38 || e.keyCode == 37) { // up or left cursor
var previousNode = focusedElement.previousElementSibling;
if (previousNode) { previousNode.focus(); } else { video_links.lastElementChild.focus(); }
}
}
});
})();
</script>
</body>
</html>
<%
Response.Flush
Function ExibeData(data)
dia_semana = WeekDay(data)
Select Case dia_semana
Case 1 : dia_semana = "Domingo"
Case 2 : dia_semana = "Segunda"
Case 3 : dia_semana = "Terça"
Case 4 : dia_semana = "Quarta"
Case 5 : dia_semana = "Quinta"
Case 6 : dia_semana = "Sexta"
Case 7 : dia_semana = "Sábado"
End Select
mes = Month(data)
Select Case mes
Case 1 : mes = "Janeiro"
Case 2 : mes = "Fevereiro"
Case 3 : mes = "Março"
Case 4 : mes = "Abril"
Case 5 : mes = "Maio"
Case 6 : mes = "Junho"
Case 7 : mes = "Julho"
Case 8 : mes = "Agosto"
Case 9 : mes = "Setembro"
Case 10 : mes = "Outubro"
Case 11 : mes = "Novembro"
Case 12 : mes = "Dezembro"
End Select
ExibeData = dia_semana &",<br> "& Day(Date()) & " de " & mes & " de " & Year(data)
End Function
'Fecha ligações a bd
Set textos = Nothing
Set videos = Nothing
Set weather = Nothing
Set ids= Nothing
Set noticias = Nothing
conn.Close
Response.Flush
%>
↧
↧
Array Contagem de Anos
Bom dia pessoal.
Eu preciso do seguinte, um Array que faz a contagem dos anos. Exemplo, quero um array que faz a contagem do ano de 2010 até o ano atual.
Eu tenho esse array aqui que peguei como exemplo
<%
'we use the VBScript Array function along with a Dim statement
'to create and populate our array
Dim arrCars
arrCars = Array("BMW","Mercedes","Audi","Bentley","Mini") 'each element must be separated by a comma
'again we could loop through the array and print out the values
For i=0 to 2
response.write arrCars(i) & "<br>"
Next
%>
mas não consegui fazer o que eu queria.
Att;
↧
Como fazer o ASP ou JScript entender aspas duplas ou simples em string
function RecebeJson(VarJson)
{
novoJson = JSON.parse(VarJson);
}
Exemplo:
stringTeste = "Eu estou estudando "Asp Clássico" Estou achando muito legal"
<input type="button" value="chamar" onclick="RecebeJson('<%=stringTeste%>')">
Mas aí o ASP não entende a aspa dupla e da erros variados (Invalid tokens, Invalid strings, etc)
Alguém sabe como posso contornar isso, ou seja, fazer o ASP ou JavaScript entender isso, estou tendo vários problemas com isso quando preciso enviar Json para uma função javascript. É um parto toda vez que o JavaScript possui várias aspas duplas e simples tudo misturado.
Desde já muito obrigado!
↧
Qual a diferença entre Set e Let em classes Asp ?
Qual a diferença entre Set e Let em classes Asp ?
Public Property Let NomePessoa(params)
nome = params
End Property
Public Property Set NomePessoa(params)
nome = params
End Property
↧
↧
Erro de conexão como corrigir ? O que corrigir
Alguem tem uma luz
Set Con = CreateObject("ADODB.Connection")
Con.ConnectionString = "Provider=SQLOLEDB;Data Source=(Local);Initial Catalog=MyBank;Persist Security Info=False;Integrated Security=SSPI"
OpenConnection = Con.Open
Mensagem de erro
Microsoft OLE DB Provider for SQL Server erro '80004005'
Não é possível abrir o banco de dados "SimpleCrudWithBoostrap" solicitado pelo logon. Falha de logon.
↧
Variável 'for' de controlo de loop inválida
Boas, alguem percebe o que esta mal aqui?
vall="noticias, textos"
amae=split(vall, ", ")
for each item in amae
response.write "aaaaaaaaaaaaaaaaaaaaaaaaa"
x=1
do while request.form(item&"_"&x)<>""
response.write "bbbbbbbbbbbbbbbbbbbbbbbbb"
set rs = conn_painel.Execute("select * from "&item&" where cliente='"&cliente&"' and url='"&request.form(vall&x)&"'")
if rs.eof and instr(request.form(item&x), "'")=0 then
response.write "insert into "&item&" "&request.form(item&x)&"<br>"
else
erro = "Não são permitidos os seguintes caracteres (, ').<br>Por favor corrija os dados introduzidos. <br>Obrigado<br>"
end if
x=x+1
loop
response.write "ccccccccccccccccccccccc"
a=split(request.form(item&"_extra"), " ")
linha 551---> for each item in a
response.write "ddddddddddddddddddddddddddddddddddddddd"
set rs = conn_painel.Execute("select * from "&item&" where cliente='"&cliente&"' and url='"&replace(item, "," ,"")&"'")
if rs.eof then
response.write "insert into noticias "&replace(item, "," ,"")&"<br>"
else
erro = "Não são permitidos os seguintes caracteres (, ').<br>Por favor corrija os dados introduzidos. <br>Obrigado<br>"
end if
next
next
Estou a receber o seguinte erro:
Erro de compilação do Microsoft VBScript erro '800a0410'
Variável 'for' de controlo de loop inválida
/back/addpainel.asp, linha 551
for each item in a --------------^
↧
Response.Redirect recebendo variável asp
Pessoal,
A idéia é fazer um select no banco e jogar o resultado como url dentro do Response.Redirect
Já tentei de várias formas mas sem sucesso
<%
set rs=conn.execute("select url from encurta where id="&request.querystring("id")&"")
encurta=rs("url")
Response.Redirect "encurta"
%>
Alguem pode me ajudar ?
Obrigado
Marcos
↧
Foto base64
Boa tarde,
seguinte no meu banco de dados as fotos que foram gravadas em base64, porém no select está me trazendo as informações pela metade.
Alguém poderia me ajudar?
set setaFoto = server.CreateObject("adodb.recordset")
sql_setaFoto = "Select id_cad,foto from cadastro.ob_foto where id_cad="&Session("id")&""
set setaFoto = conn.execute(sql_setaFoto)
Response.Write(setaFoto("foto"))
Desde já obrigado!
↧
↧
There is a duplicate 'system.web.extensions/scripting/scriptResour
estou com esse erro :
There is a duplicate 'system.web.extensions/scripting/scriptResourceHandler' section defined
Print :
Web.config : http://pastebin.com/VSG6KvZ2
estou com esse erro "500.19"
↧
There is a duplicate 'system.web.extensions/scripting/scriptResour
estou com esse erro :
There is a duplicate 'system.web.extensions/scripting/scriptResourceHandler' section defined
Print :
Web.config : http://pastebin.com/VSG6KvZ2
estou com esse erro "500.19"
↧
There is a duplicate 'system.web.extensions/scripting/scriptResour
estou com esse erro :
There is a duplicate 'system.web.extensions/scripting/scriptResourceHandler' section defined
Print :
Web.config : http://pastebin.com/VSG6KvZ2
estou com esse erro "500.19"
↧
Erro de UPDATE "Tipos incompatíveis"
Olá!
Estou fazendo um teste para atualizar uma informação em um dos meus itens do banco de dados; porém houve um erro e não consigo decifra-lo. "Tipos incompatíveis"
Busco as informações no banco:
<%Dim caminho, conexao, rsProduto, seleciona%>
<%
caminho = "D:\web\LocalUser\divinho\banco\db.mdb"
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"
%>
<%
Set rsProduto = Server.CreateObject("ADODB.Recordset")
seleciona = "SELECT * from Produtos where Cod_produto = "& request("cod")
rsProduto.Open seleciona, conexao
Dim cod
cod = request("cod")
%>
<FORM name="frmPrincipal" method="post" id="frmPrincipal" action="teste.asp?cod=<%=cod%>">
<input type=text name=codigo value="<%=rsProduto("Cod_produto")%>">
<input type=text name=nome value="<%=rsProduto("Nome")%>">
<input type="Submit" value="Enviar ">
</form>
Realizando o UPDATE
<%Dim caminho, conexao%>
<%
caminho = "D:\web\LocalUser\divinho\banco\db.mdb"
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"
%>
<%
Dim sql, nome, cod, executecmd
nome = request.form("nome")
cod = request.form("codigo")
sql = "update Produtos set "
sql = sql & " Nome = '" & nome & "'"
sql = sql & " where Cod_produto = " & cod
call executecmd(sql)
Response.Redirect "teste2.asp"
%>
Podem testar através do link: http://divinho.com.br/teste2.asp?cod=344
Agradeço se alguém puder ajudar!
↧
↧
Update com valor duplicado
Boa Tarde amigos, nesse codigo faço um update do mesmo campo em varios itens ao mesmo tempo! O update roda mas ele esta gravando a informação duplicada:
Do form anterior pego o campo retira esse form e dinamico então se tenho 3 registros ele grava o campo retira tres vezes em cada cod_produto o que era para ficar assim:
Cod_produto = 3455 Retira = Dep
Cod_produto = 3244 Retira = Ret
Fica assim
cod_produto = 3455 Retira = Dep,Ret
cod_produto = 3244 Retira = Dep,Ret
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=xxx\prod.mdb;Driver={Microsoft Access Driver (*.mdb)}"
pedido = Session("codped_est")
Set rsProd = conexao.Execute("SELECT cod_produto FROM pedido_item WHERE cod_pedido = "&pedido&" ")
While Not RSProd.EOF
id = rsProd("cod_produto")
cod_pedido = rsProd("cod_pedido")
retira = Request.Form("retira")
conexao.Execute "UPDATE pedido_item SET retira = '"&retira&"' WHERE cod_produto = " &id & " AND cod_pedido = "&pedido&" "
rsProd.MoveNext
Wend
conexao.close
Set RSProd = Nothing
%>
Qual é o problema nessa situação?
Obrigado
↧
Replace de variável + aspas simples recebido de querystring
Boa Tarde Amigos.
Tenho um link de produtos que pega os dados de um produto, vindo de uma variável numérica:
pagina.asp?item=6
Já fiz o replace de forma a substituir valores vazios ou aspas simples que venham após o =, ou seja, se alguém digitar na URL do navegador:
pagina.asp?item=
ou
pagina.asp?item='
Aí da tudo certo, vai para a página que eu quero.
Porém, se alguém digitar aspas simples ou colocar uma letra no fim da URL no navegador:
pagina.asp?item=6'
pagina.asp?item=6a
O ASP dá erro na expressão: Syntax error in string in query expression 'A.PAG = B.LA AND pagina=6''.
Como faço para evitar esse problema?
O replace funciona apenas para a aspas simples isolada mas não para qualquer coisa digitada que não seja número.
↧
Replace de variável + aspas simples recebido de querystring
Boa Tarde Amigos.
Tenho um link de produtos que pega os dados de um produto, vindo de uma variável numérica:
pagina.asp?item=6
Já fiz o replace de forma a substituir valores vazios ou aspas simples que venham após o =, ou seja, se alguém digitar na URL do navegador:
pagina.asp?item=
ou
pagina.asp?item='
Aí da tudo certo, vai para a página que eu quero.
Porém, se alguém digitar aspas simples ou colocar uma letra no fim da URL no navegador:
pagina.asp?item=6'
pagina.asp?item=6a
O ASP dá erro na expressão: Syntax error in string in query expression 'A.PAG = B.LA AND pagina=6''.
Como faço para evitar esse problema?
O replace funciona apenas para a aspas simples isolada mas não para qualquer coisa digitada que não seja número.
↧
upload de multiplos arquivos
Pessoal estou desenvolvendo um sistema de upload com varias imagem na verdade eu queria uma coisa mais simples não sei se isso possível colocar um unco file no tela mais na hora escolher varias imagem ao mesmo tempo. Ou colocando 5 files por exemplo e fazer o upload gravando no mysql.
↧
↧
ADODB.Field error '800a0bcd'
Galera,
Não estou conseguindo resolver esse erro de nenhuma forma, podem me darem uma força ?
O erro e o seguinte:
/tramitacao/detalhaBuscaTramite.asp, line 396
Segue em o código. irei colocar a linha 396 em negrito
<%@ LCID = 1046 %>
<html>
<head>
<%
dim login
dim caracter
login = request("login")
%>
<!--#include virtual="/includes/db.asp"-->
<!--#include virtual="includes/funcoes.asp"-->
<!--#include virtual="/includes/validaSessaoAjax.asp"-->
<form>
<script language="javascript">
function btnVoltar(pagAtual) {
var tipoTramite = $("tipoTramite").value;
var status = $("status").value;
var cor="<%=request("cor")%>";
if (tipoTramite == 1) {
recuperarPaginaGet("tramitacao/listarDocumento.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite, 'resp');
}
else if (tipoTramite == 2) {
recuperarPaginaGet("tramitacao/consultarTramite.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite, 'resp');
}
else if (tipoTramite == 3) {
recuperarPaginaGet("tramitacao/listarPesquisaTramite.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite, 'resp');
}
else if (tipoTramite == 4) {
recuperarPaginaGet("tramitacao/listarPesquisaGerencial.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite, 'resp');
}
else if (tipoTramite == 5) {
recuperarPaginaGet("tramitacao/listarpesquisaDocumento.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite + "&status=" + status, 'resp');
}
else if (tipoTramite == 6) {
recuperarPaginaGet("tramitacao/listarpesquisaDocumentoFinal.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite + "&status=" + status, 'resp');
}
}
function retramitarDocumento() {
var id = $("id").value;
var idTram = $("idTram").value;
var PessoaRem = $("PessoaRem").value;
var confirma = confirm('Tem certeza que deseja tramitar este documento para outro destinatário?');
if (confirma)
recuperarPaginaGet('../tramitacao/retramitarDocumento.asp?tramite=' + idTram + '&numero=' + id + '&id=' + PessoaRem + '', 'resp');
}
function enviarEmail() {
var id = $("id").value;
var confirma = confirm('Deseja reenviar este email ?');
if (confirma)
recuperarPaginaGet('../tramitacao/reenviarEmailAutorizacao.asp?numero=' + id + '', 'resp');
}
function protocolarTramite() {
var id = $("id").value;
var idTram = $("idTram").value;
var PessoaRem = $("PessoaRem").value;
var UserId = $("UserId").value;
var confirma = confirm('Deseja protocolar este documento?');
if (confirma)
recuperarPaginaGet('../tramitacao/atualizarStatusTramite.asp?tramite=' + idTram + '&numero=' + id + '&id=' + PessoaRem + '&userId=' + UserId +'&flag=1' , 'resp');
}
function recusarTramite() {
var id = $("id").value;
var idTram = $("idTram").value;
var PessoaRem = $("PessoaRem").value;
var UserId = $("UserId").value;
var confirma = confirm('Deseja recusar este documento?');
if (confirma)
recuperarPaginaGet('../tramitacao/atualizarStatusTramiterecusado.asp?tramite=' + idTram + '&numero=' + id + '&id=' + PessoaRem + '&userId=' + UserId +'&flag=1', 'resp');
}
function protocolarTramite2() {
var id = $("id").value;
var idTram = $("idTram").value;
var PessoaRem = $("PessoaRem").value;
var UserId = $("valorUseridTram").value;
var confirma = confirm('Deseja protocolar este documento?');
if (confirma)
recuperarPaginaGet('../tramitacao/atualizarStatusTramite.asp?tramite=' + idTram + '&numero=' + id + '&id=' + PessoaRem + '&userId=' + UserId +'&flag=1' , 'resp');
}
</script>
</head>
<%
dim id,rsdoc,sql
dim tipoTramite
dim status
tipoTramite = request("tipoTramite")
status = request("status")
id = cLng(Request.QueryString("id"))
sql = "select dc.id_tipo_documento, " & _
"dc.nr_documento, " & _
"to_char(dc.dt_criacao, 'dd/mm/rrrr') as dt_criacao, " & _
"dc.id_documento, " & _
"tp.id_tipo_documento, " & _
"tp.ds_tipo_documento, " & _
"dc.id_pessoa_criador " & _
"from tb_doc_documento dc, tb_doc_tipo_documento tp " & _
"where dc.id_tipo_documento = tp.id_tipo_documento " & _
"and dc.id_documento ="&id
Set rsdoc = retornaRs(sql)
dim rs
dim sSql
dim ins
dim nome, numero
dim userId
userId = cLng(Session("userId"))
nome = Request.QueryString("nome")
numero = Request.QueryString("numero")
sSql ="SELECT ab.id_tramite,cd.nm_pessoa as de,ef.nm_pessoa as para,ab.dt_saida,ab.dt_recebimento,ab.id_pessoa_destino,ab.id_pessoa_remetente,ab.ds_motivo,ab.ds_observacao,ab.ds_motivo "&_
"from tb_doc_tramite ab, tb_ico_pessoa cd, tb_ico_pessoa ef "&_
"where ab.id_pessoa_remetente = cd.id_pessoa and ab.id_pessoa_destino = ef.id_pessoa and ab.id_documento ="&id& _
"order by ab.id_tramite desc"
Set rs = retornaRs(sSql)
if not rs.EOF then
%>
Total de registros: <%=rs.recordcount%>
<br/>Páginas:
<%
'''''''''''''''''''''''''''''''''''''PAGINAÇÃO'''''''''''''''''''''''''''''''''''''''''''''
Dim qtdRegistrosListados
Dim i, paginaParaListar, classe, tipoLista
qtdRegistrosListados = 10
rs.CacheSize = qtdRegistrosListados
rs.PageSize = qtdRegistrosListados
if request("pagina") = "" or request("pagina") = "0" then
rs.absolutePage = 1
session("paginaAtual") = 1
else
rs.absolutePage = cLng(request("pagina"))
session("paginaAtual") = cLng(request("pagina"))
end if
paginaParaListar = "tramitacao/detalhaBuscaTramite.asp"
IF (session("paginaAtual") >1) then
response.Write( "<a class='quadroPaginacao' onmouseOver="&chr(13)&"document.getElementById('setaVoltar').src='../images/setaVoltar.gif'"&chr(13)&" onmouseOut="&chr(13)&"document.getElementById('setaVoltar').src='../images/setaVoltarBranca.png'"&chr(13)&" href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & session("paginaAtual")-1 & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & "><img id='setaVoltar' src='../images/setaVoltarBranca.png' /><a/>")
end if
IF(rs.pagecount >9) THEN
'A IDEIA É MOSTRAR NO MÁXIMO 10 PAGINAS NA LISTA
'MOSTRA OS PRIMEIROS DA LISTA, PADRAO É 3, MAS PODE IR ATE 6
IF(RS.PAGECOUNT >3) THEN
IF(session("paginaAtual") <6) THEN
if(session("paginaAtual") < 3) then
limiteRegistroInicial = 3
elseif(session("paginaAtual") >= 3) then
limiteRegistroInicial = session("paginaAtual")+1
end if
for i=1 to limiteRegistroInicial
'SELECIONA A CLASS CSS PARA O SELECIONADO
if(i =session("paginaAtual")) then
classe= "paginaAtual"
else
classe = "quadroPaginacao"
end if
Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"
next
Response.Write "... "
'MOSTRA OS 3 ULTIMOS
for i= rs.pagecount-2 to rs.pagecount
'SELECIONA A CLASS CSS PARA O SELECIONADO
if(i =session("paginaAtual")) then
classe= "paginaAtual"
else
classe = "quadroPaginacao"
end if
Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"
next
ELSE
'MOSTRA OS 3 PRIMEIROS
for i=1 to 3
'SELECIONA A CLASS CSS PARA O SELECIONADO
if(i =session("paginaAtual")) then
classe= "paginaAtual"
else
classe = "quadroPaginacao"
end if
Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"
next
Response.Write "... "
if((rs.pagecount - session("paginaAtual")) >= 5 ) then
'MOSTRA TRES PAGINAS, SENDO QUE A DO MEIO É A PAGINA ATUAL
for i=session("paginaAtual")-1 to session("paginaAtual")+1
'SELECIONA A CLASS CSS PARA O SELECIONADO
if(i =session("paginaAtual")) then
classe= "paginaAtual"
else
classe = "quadroPaginacao"
end if
Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"
next
Response.Write "... "
'MOSTRA OS 3 ULTIMOS
for i= rs.pagecount-2 to rs.pagecount
'SELECIONA A CLASS CSS PARA O SELECIONADO
if(i =session("paginaAtual")) then
classe= "paginaAtual"
else
classe = "quadroPaginacao"
end if
Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"
next
else
'MOSTRA AS ULTIMAS PAGINAS SENDO NO MAXIMO 6.
'MOSTRA A PAGINA ANTERIOR ANTES DA ATUAL
if (session("paginaAtual") = rs.pagecount) then
indice = session("paginaAtual")-2
else
indice = session("paginaAtual")-1
end if
for i=indice to rs.pagecount
'SELECIONA A CLASS CSS PARA O SELECIONADO
if(i =session("paginaAtual")) then
classe= "paginaAtual"
else
classe = "quadroPaginacao"
end if
Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"
next
end if
END IF
END IF
ELSE
'SE O NUMERO DE PAGINAS FOREM MENOR QUE 9 ENTAO MOSTRA TODOS.
for i=1 to rs.pagecount
'SELECIONA A CLASS CSS PARA O SELECIONADO
if(i =session("paginaAtual")) then
classe= "paginaAtual"
else
classe = "quadroPaginacao"
end if
Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"
next
END IF
IF (session("paginaAtual") < rs.pagecount ) then
response.Write( "<a class='quadroPaginacao' onmouseOver="&chr(13)&"document.getElementById('setaAdiante').src='../images/setaAdiantar.gif'"&chr(13)&" onmouseOut="&chr(13)&"document.getElementById('setaAdiante').src='../images/setaAdiantarBranca.png'"&chr(13)&" href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & session("paginaAtual")+1 & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & "><img id='setaAdiante' src='../images/setaAdiantarBranca.png' /><a/>")
end if
'''''''''''''''''''''''''''''''''''''FIM DA PAGINAÇÃO'''''''''''''''''''''''''''''''''''''''''''''
%><br><br />
<body>
<div id="scriptsGerais">
<!-- Prototype e scriptaculous -->
<script src="Js/prototype.js"type="text/javascript"></script>
<script src="Js/Scriptaculous/scriptaculous.js" type="text/javascript"></script>
<script src="Js/Scriptaculous/unittest.js" type="text/javascript"></script>
<!-- Final da declaração dos Js de framaworkjavascript -->
<!-- Modalbox para a vinculação de faturas -->
<script type="text/javascript" src="Js/scriptaculous.js"></script>
<script type="text/javascript" src="Js/modalbox/modalbox.js"></script>
<!-- Fim da declaração -->
<script src="Js/funcoes_reembolso.js"type="text/javascript"></script>
<script src="Js/preAjax.js" type="text/javascript"></script>
<script src="Js/validaFormulario.js" type="text/javascript"></script>
<script src="Js/tabelas.js" type="text/javascript"></script>
<script src="validacao.js" type="text/javascript"></script>
<script src="Js/menu.js" type="text/javascript"></script>
<script src="Js/funcoes_hotel.js" type="text/javascript"></script>
<script src="Js/funcoes_editarRequisicao.js" type="text/javascript"></script>
<script src="Js/funcoes_prestacoesdeconta.js" type="text/javascript"></script>
</div>
<h3>Trâmites da(o) <U><%=rsdoc("ds_tipo_documento")%></U> Número <U><%=rsdoc("nr_documento")%></U></h3>
<table name"tblConteudo" id="tblConteudo" class="tablelist">
<tr class="tablelist_cat">
<th>De:</th>
<th>Para:</th>
<th>Enviado</th>
<th>Recebido</th>
<%if NOT rs.eof then%>
<th>Motivo</th>
<%end if%>
</tr>
<%
for i = 1 to qtdRegistrosListados
if not rs.EOF then
dim slt,aste
slt ="SELECT DECODE (count(ID_PESSOA_ASSISTENTE),0,0,1) as conta "&_
"FROM TB_DOC_ASSISTENTE WHERE ID_PESSOA_ASSISTIDA ="&cLng(rs("id_pessoa_remetente"))& "and sysdate between dt_inicio and dt_fim and id_pessoa_assistente =" &cLng(Session("userId"))
Set aste = retornaRs(slt)
dim slt2,aste2
slt2 ="SELECT DECODE (count(ID_PESSOA_ASSISTENTE),0,0,1) as conta "&_
"FROM TB_DOC_ASSISTENTE WHERE ID_PESSOA_ASSISTIDA ="&cLng(rs("id_pessoa_destino"))& "and sysdate between dt_inicio and dt_fim and id_pessoa_assistente =" &cLng(Session("userId"))
Set aste2 = retornaRs(slt2)
dim consulta,cons
dim idteste,idteste2
dim rsRecebimento
sSql = "select nm_pessoa from tb_ico_pessoa "&_
"where id_pessoa = (select id_pessoa_recebimento from tb_doc_tramite "&_
"where id_tramite = "&rs("id_tramite")&")"
set rsRecebimento = retornaRs(sSql)
status = Request.QueryString("status")
consulta = "select ID_PERFIL from TB_ICO_USUARIO_SISTEMA_PERFIL where ID_SISTEMA = 5 AND ID_PESSOA ="&Session("userId")
set cons = retornaRs(consulta)
if Not cons.EOF then
cons = cLng(cons("ID_PERFIL"))
end if
sSql ="SELECT * from tb_ico_colaborador where id_pessoa =" &Session("userId")
Set rsCC = retornaRs(sSql)
centroCusto = rsCC("cd_centro_custo")
if cons = 24 then
sSql ="SELECT * from VW_DOC_CENTRO_EM_TRAMITE_FULL where id_documento_pai is null and cd_centro_custo_dest =" ¢roCusto& " and id_documento = "& id &" order by id_documento desc"
Set rsCons = retornaRs(sSql)
if not rsCons.eof then
admCC = 1
else
sSql ="SELECT * from VW_DOC_CENTRO_EM_TRAMITE_FULL where id_documento_pai is null and cd_centro_custo =" ¢roCusto& " and id_documento = "& id &" order by id_documento desc"
Set rsCons = retornaRs(sSql)
if not rsCons.eof then
admCC = 2
end if
end if
end if
%>
<%
'guardar valor do id do usuario destinatário'
dim Idlogquery
dim Sqq
Sqq = "select e.ID_USUARIO from VW_ICO_COLABORADOR_FULL e, doc_apex.tb_doc_tramite d where d.id_pessoa_destino=e.ID_PESSOA and id_documento="&rsdoc("id_documento") & " and d. dt_recebimento is null"
set Idlogquery = retornaRs(Sqq)
%>
<%
'guardar id do tramite'
dim Idtram
dim Sqm
Sqm = "select d.id_tramite from VW_ICO_COLABORADOR_FULL e, doc_apex.tb_doc_tramite d where d.id_pessoa_destino=e.ID_PESSOA and id_documento="&rsdoc("id_documento") & " and d. dt_recebimento is null"
set Idtram = retornaRs(Sqm)
%>
<!-- primeira consulta destinatário assistido -->
<%
dim RsQtdeTramiteDest
dim sSql1
dim useridValidas
dim qtdeTramiteDest
useridValidas = Idlogquery("id_usuario")
sSql1 = "select count(*) as qtdeDest from tb_doc_tramite where id_tramite='"&Idtram("id_tramite")& "' and id_pessoa_destino=(select id_pessoa from tb_ico_usuario where ds_login='"&trim(useridValidas)& "') "
Set RsQtdeTramiteDest = retornaRs(sSql1)
qtdeTramiteDest = RsQtdeTramiteDest("qtdeDest")
%>
<!-- segunda consulta destinatário assistente -->
<%
dim sSql2
dim RsQtdeTramiteAssist
dim qtdeTramiteAssist
sSql2 = "select count(*) as qtdeAssist from tb_doc_assistente where id_pessoa_assistente=(select id_pessoa from tb_ico_usuario where ds_login='"&trim(useridValidas)& "') and id_pessoa_assistida=(select id_pessoa_destino from tb_doc_tramite where id_tramite='"&Idtram("id_tramite") & "') and sysdate between dt_inicio and dt_fim"
Set RsQtdeTramiteAssist = retornaRs(sSql2)
qtdeTramiteAssist = RsQtdeTramiteAssist("qtdeAssist")
'qtdeTramiteAssist = 0
'response.write "</script>var nQtdeAssist="+qtdeTramiteAssist+";</script>"
%>
<%
dim sSql3
dim RsUserid
dim RsUseridTram
sSql3 = "SELECT id_pessoa FROM tb_ico_usuario where ds_login='"&trim(useridValidas)& "'"
Set RsUserid = retornaRs(sSql3)
RsUseridTram = RsUserid("id_pessoa")
%>
<script type="text/javascript" language="javascript">
function OpenSel(op) {
if (op == 1) {
document.getElementById('Layer1').style.display="block";
}
else if (op == 2) {
document.getElementById('Layer1').style.display="none";
}
}
function validarLogin(){
var useridValida = document.getElementById("useridValida").value;
var passwdValida = document.getElementById("passwdValida").value;
if ((useridValida == '') && (passwdValida == '')) {
alert("Por favor informe seu login e senha de acesso ao sistema.");
useridValida.focus();
passwdValida.focus();
return false;
}
if (useridValida == '') {
alert("Por favor informe seu login de acesso ao sistema.");
useridValida.focus();
return false;
}
if (passwdValida == '') {
alert("por favor informe sua senha de acesso ao sistema.");
passwdValida.focus();
return false;
}
else{
new Ajax.Request("../tramitacao/login_valida_teste.asp", {
parameters: "useridValida="+useridValida+"&passwdValida="+passwdValida,
method: 'post',
onSuccess: function(response){
console.log(response.responseText);
var resultteste = response.responseText;
var loginOk = "00";
if(resultteste == loginOk) {
Alerta();
}
if(resultteste !== loginOk){
alert("Login e Senha invalidos! \n Digite novamente!");
passwdValida.focus();
}
}
});
}
//pasando valor do userid para a consulta asp
new Ajax.Request("../tramitacao/detalhaBuscaTramite.asp", {
parameters: "useridValida="+useridValida,
method: 'post',
onSuccess: function(response){
console.log(response.responseText); }
});
}
function Alerta(){
var nQtdeDest = document.getElementById("useriValida").value;
var nQtdeAssist = document.getElementById("useriValidaAssis").value;
if ( nQtdeDest > 0) {
//alert(nQtdeDest);
protocolarTramite2();
fechaDiv2();
}
else if(nQtdeAssist > 0) {
protocolarTramite2();
fechaDiv2(); }
else if(nQtdeDest == 0 && nQtdeAssist == 0 ) {
// alert(nQtdeDest);
// alert(nQtdeAssist);
alert("Usuáro não pode protocolar este tramite!!");
fechaDiv2(); }
}
function fechaDiv2()
{
Effect.Shrink('Layer1');
}
</script>
<script src="md5.js"></script>
<tr>
<!-- div janela em tramite -->
<style type="text/css">
#Layer1 {
position:absolute;
width:266px;
height:140px;
z-index:1;
left: 560px;
top: 199px;
background-color: #685a2d;
display: none;
}
.style3 {
text-align: center;
color: #FFFFFF;
font-weight:
bold;
;
}
</style>
<style type="text/css">
.txtarea {
height: 15px;
margin-left: 2px;
}
</style>
<body onLoad="Alerta('<%=login%>');">
<div id="login">
<div id="Layer1">
<fieldset> <br>
<span class="style3"> Usuário: </span> <br>
<input id="useridValida" name="useridValida" class="txtarea" type="text" value="<%=Idlogquery("id_usuario")%>" style="width:150px" /> <br><br>
<span class="style3"> Senha:</span> <br>
<input id="passwdValida" name="passwdValida" class="txtarea" type="password" value="" style="width:150px" /> <br><br>
<div style="position:absolute;top:80%;left:16%;float:left" id="divBotoes" >
<input type="button" value="Validar" id="validar" onclick="validarLogin();" />
</div>
<div style="position:absolute;top:80%;left:53%;float:left" id="divBotoes">
<input type=button value="Cancelar" onclick="fechaDiv2()" />
</div>
</fieldset>
</div> <!-- fim de div -->
</div>
<style type="text/css">
#valorAssist {
display: none;
}
#valorAssistente {
display: none;
}
#valorUseridProtTram {
display: none;
}
</style>
</body>
<div id="valorAssist">
<input id="useriValida" name="useriValida" class="txtarea" type="text" value="<%=qtdeTramiteDest%>" style="width:150px" /> <br><br>
</div> <!-- fim de div -->
<div id="valorAssistente">
<input id="useriValidaAssis" name="useriValidaAssis" class="txtarea" type="text" value="<%=qtdeTramiteAssist%>" style="width:150px" /> <br><br>
</div> <!-- fim de div -->
<div id="valorUseridProtTram">
<input id="valorUseridTram" name="valorUseridTram" class="txtarea" type="text" value="<%=RsUseridTram%>" style="width:150px" /> <br><br>
</div> <!-- fim de div -->
<td>
<%=rs("de")%>
</td>
<td>
<%=rs("para")%>
</td>
<td>
<%=rs("dt_saida")%>
</td>
<% if(IsNull(rs("dt_recebimento"))) and cLng(Session("userId")) <> 84 then%>
<td>
<img src="../images/icon_certo.png" type="button" onClick="OpenSel(1)" title="Protocolar Trâmite" />
<img src="../images/excluir.png" type="button" onClick="recusarTramite()" title="Recusar Trâmite" />
</td>
<input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
<input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
<input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
<%elseif (IsNull(rs("dt_recebimento"))) and cLng(Session("userId")) = cLng(rs("id_pessoa_remetente")) then%>
<td>
<img src="../images/carta.png" type="button" onClick="enviarEmail()" title="Reenviar Email" />
<img src="../images/alterarC.gif" type="button" onClick="retramitarDocumento()" title="Retramitar" />
<input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
<input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
<input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
</td>
<% elseif (aste.recordcount<>0) then
if cLng(aste("conta"))=1 and IsNull(rs("dt_recebimento")) then %>
<td>
<img src="../images/carta.png" type="button" onClick="enviarEmail()" title="Reenviar Email" />
<img src="../images/alterarC.gif" type="button" onClick="retramitarDocumento()" title="Retramitar" />
<input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
<input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
<input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
</td>
<% elseif (aste2.recordcount<>0) then
if cLng(aste2("conta"))=1 and IsNull(rs("dt_recebimento")) then %>
<td>
<img src="../images/icon_certo.png" type="button" onClick="protocolarTramite()" title="Protocolar Trâmite" />
<img src="../images/excluir.png" type="button" onClick="recusarTramite()" title="Recusar Trâmite" />
</td>
<input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
<input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
<input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
<%elseif (IsNull(rs("dt_recebimento"))) and cLng(Session("userId")) = cLng(rs("id_pessoa_destino")) then%>
<td>
<img src="../images/icon_certo.png" type="button" onClick="protocolarTramite()" title="Protocolar Trâmite" />
<img src="../images/excluir.png" type="button" onClick="recusarTramite()" title="Recusar Trâmite" />
</td>
<input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
<input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
<input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
<% elseif admCC = 1 and IsNull(rs("dt_recebimento")) then%>
<td>
<img src="../images/icon_certo.png" type="button" onClick="protocolarTramite()" title="Protocolar Trâmite" />
<img src="../images/excluir.png" type="button" onClick="recusarTramite()" title="Recusar Trâmite" />
</td>
<input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
<input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
<input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
<% elseif admCC = 2 and IsNull(rs("dt_recebimento")) then%>
<td>
<img src="../images/carta.png" type="button" onClick="enviarEmail()" title="Reenviar Email" />
<img src="../images/alterarC.gif" type="button" onClick="retramitarDocumento()" title="Retramitar" />
<input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
<input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
<input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
</td>
<%else %>
<td>
<% if not rsRecebimento.eof then %>
<span title="Protocolado por <%=rsRecebimento("nm_pessoa")%>">
<%=rs("dt_recebimento")%>
</span>
<%end if %>
</td>
<%end if %>
<%end if %>
<%end if %>
<td>
<%=rs("ds_motivo")%>
</td>
</tr>
<%
rs.movenext
else
exit for
end if
next
else
%>
<br />
Este documento ainda não foi tramitado...<br>
<br />
<%
end if
%>
</table>
<input type="button" value="<< Voltar" onClick="recuperarPaginaGet('../tramitacao/listarPesquisaTramite.asp?numero=<%=numero%>&nome=<%=nome%>&pagina=<%=session("paginaAtual")%>', 'resp');" name="BOTAOVOLTAR">
<input type="hidden" id="id" name="id" value="<%=rsdoc("id_documento")%>" />
<input type="hidden" value="<%=tipoTramite%>" id="tipoTramite" name="tipoTramite"/>
<input type="hidden" value="<%=status%>" id="status" name="status"/>
</form>
</body>
</html>
↧
Passar valor em request.form (DANDO ERRO)
Boa tarde pessoal, tudo bem?
Estou com um código que está me dando dor de cabeça.
Esse código recebe valores vindo de uma tabela SQL e tem um UPLOAD.
Quando vou selecionar o arquivo e anexar da um erro:
Objeto Request erro 'ASP 0206 : 80004005'
Não é possível chamar BinaryRead
/envia_arquivo_convites_ind.asp, linha 242
Não é possível chamar BinaryRead após usar a coleção Request.Form.
Eu estou utilizando esse codigo:
<%
email_cobranca = Request.Form("email_cobranca")
tipo = Request.Form("tipo")
moeda = Request.Form("moeda")
item_id = Request.Form("item_id")
item_descr = Request.Form("item_descr")
item_quant = Request.Form("item_quant")
item_valor = Request.Form("item_valor")
frete = Request.Form("frete")
peso = Request.Form("peso")
itemCode = Request.Form("itemCode")
Dim objCDOSYSMail
Dim corpo
item_id2 = Request.QueryString("item_id")
item_descr2 = Request.QueryString("item_descr")
item_quant2 = Request.QueryString("item_quant")
item_valor2 = Request.QueryString("item_valor")
frete2 = Request.QueryString("frete")
'v_situacao = " disabled" 'variavel que habilita os campos do e-mail
Select Case Request.QueryString("acao") 'Verifica parametro acao para executar determinado script
Case "upload" 'caso a acao seja upload, executa script do SaFileUp
Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")
obj_Upload.Path = Server.MapPath("./envio_arquivos") 'local onde será gravado o arquivo
obj_Upload.Form("File").Save
Session("arquivo") = obj_Upload.Form("File").ServerName 'recupera o nome do arquivo no servidor
Set obj_Upload = Nothing
' v_situacao = "" 'habilita os campos pra enviar o e-mail
v_foco = " onLoad=""document.frm_email.nome.focus();""" 'coloca o cursor no campo do form de e-mail
Case "email" 'caso a acao seja email, executa script do CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'objeto de configuração do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.prsolucaoweb.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="contato@prsolucaoweb.com.br"
objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="prweb009"
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.Bcc = "contato@prsolucaoweb.com.br"
objCDOSYSMail.Subject = "::..Pedido de Convites..::"
objCDOSYSMail.From = "contato@prsolucaoweb.com.br"
objCDOSYSMail.AddAttachment(Session("Arquivo")) 'anexa o arquivo
nome = Request.Form("nome")
email = Request.Form("email")
fone = Request.Form("fone")
celular = Request.Form("celular")
cep = Request.Form("cep")
endereco = Request.Form("endereco")
numero = Request.Form("numero")
bairro = Request.Form("bairro")
cidade = Request.Form("cidade")
uf = Request.Form("uf")
assunto = Request.Form("assunto")
mensagem = Request.Form("mensagem")
'Corpo do email
corpo = "<font style="&Chr(34)&"font-family:Verdana"&Chr(34)&"color="&Chr(34)&"black"&Chr(34)&"size="&Chr(34)&"16"&Chr(34)&"><br>"
corpo = corpo + "<center><img src="&Chr(34)&"http://www.pclofer.com.br/images/logo.png"&Chr(34)&"/></center><br><br>"
corpo = corpo + "<p><center><font style="&Chr(34)&"font-family:Calibri"&Chr(34)&"size="&Chr(34)&"4"&Chr(34)&">::. SOLICITAÇÃO COMPRA CONVITES .::</font><p><p></center><br>"
corpo = corpo + "Assunto: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & assunto & "</font><br>"
corpo = corpo + "COD. PRODUTO: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & item_descr2 & "</font><br>"
corpo = corpo + "Quantidade: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & item_quant2 & "</font><br><br>"
corpo = corpo + "COM ENVELOPE</font><br><br>"
corpo = corpo + "_____________________________________________</font><br><br>"
corpo = corpo + "E-mail: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & email & "</font><br>"
corpo = corpo + "Tel. Fixo: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & fone & "</font><br>"
corpo = corpo + "Celular.: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & celular & "</font><br>"
corpo = corpo + "Mensagem: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & mensagem & "</font><br>"
corpo = corpo + "-------------------------------------------------------------------------------------------------------------------</font><br><br>"
corpo = corpo + "DADOS PARA ENTREGA:</font><br>"
corpo = corpo + "Nome Cliente: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & nome & "</font><br>"
corpo = corpo + "CEP: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & cep & "</font><br>"
corpo = corpo + "Endereço: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & endereco & "</font> - Nº: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & numero & "</font><br>"
corpo = corpo + "Bairro: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & bairro & "</font> - Cidade: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & cidade & "</font> - UF: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & uf & "</font><br><br>"
corpo = corpo + "-------------------------------------------------------------------------------------------------------------------</font><br><br>"
objCDOSYSMail.HTMLBody = corpo
objCDOSYSMail.Send 'envia o e-mail com o anexo
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Response.Write("<script>window.open('https://pagseguro.uol.com.br/checkout/checkout.jhtml?itemCode=5625541C8CB1475EB58BFEA776291D94&tipo=CBR&email_cobranca=convites@pclofer.com.br&item_id="&item_id2&"&item_descr="&item_descr2&"&item_quant="&item_quant2&"&item_valor="&item_valor2&"&extras="&frete2&",_blank');</script>")
Session("Arquivo") = ""
End Select
%>
Como que faço para que não de mais o erro.
Por favor!!!!!!!!!!!!!!!!!
↧
Qual o por que desse erro ?
Erro de tempo de execução do Microsoft VBScript erro '800a01b6'
O objeto não dá suporte para a propriedade ou método: 'RecordCount'
Estou obtendo esse erro ao tentar descobrir quantos registros foram retornados,
O estranho é que em outras ocasiões, eu mesmo já usei método e não tive problemas
Set objCommand= Server.CreateObject("ADODB.Command")
Set objRecordset = Server.CreateObject("ADODB.Recordset")
if not IsNull(Connection) then
With objCommand
.CommandText = "SELECT * FROM Usuario NOLOCK"
.CommandType = 1
.ActiveConnection = Connection
Set objRecordset = .Execute()
End With
end if
↧