Info_Tec's Content

#390301 Inclusão De Arquivos Via Asp

Posted by Info_Tec on 23/06/2004, 12:07 in ASP

Só uma coisa, se vc usar isso para copiar/exibir conteúdo de outro site em sue site vc estará indo contra as leis de direito autoral.

Vc precisará ter em seu server o WinHttp.WinHttpRequest.5.1 para requisitar dados de outro site.

Set OWinn = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
OWinn.Open "Get","http://www.fotolog.com.br",False
OWinn.Send
Response.Write oWinn.RequestText
Set oWinn = Nothing

Link para mais ajuda.

#381283 Enquete

Posted by Info_Tec on 08/06/2004, 14:51 in ASP

Ok, vamos lá:

<input name="liberar" type="checkbox" <%if rs("liberado") = -1 then response.Write("checked")%> value="<%=RS("liberado")%>">
'Aqui em cima, deveria ser Value="<%=RS("idenquete")%>"
<input name="id" type="hidden" value="<%=RS("idenquete")%>">
'Essa linha acima passará a não ser nescessária para Deletar e ou Editar

E seu arquivo para liberar:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
response.Expires = 0
If session("nivel_acesso") = "" Then 'se não for gerente
Response.redirect "restrito.asp"
Response.End
End If
%>
<%
Dim SQL,liberar
liberar = request.form("liberar")

SQL = "UPDATE enquete SET liberado= -1 WHERE idenquete In ("& liberar &");"
response.write(SQL)
conexao.execute(SQL)
%>
<%
conexao.close
set conexao = nothing
%>

Teste ai e verifique.

#381279 Cdonts

Posted by Info_Tec on 08/06/2004, 14:44 in ASP

Cara nessa linha vc tem Aspas abertas mas não as fecha, se mensagem vem de um form creio que deveria estar Request.Form("Mensagem")

#381260 Enquete

Posted by Info_Tec on 08/06/2004, 14:11 in ASP

Os nomes dos CheckBoxes sendo o mesmo, quando vc for recuperar eles virão separados por "," caso exista mais de 1 marcado, dessa forma vc pode fazer o Update usando o In no seu Where, ficaria +/- assim:

UPDATE enquete SET liberado = 'seu valor para liberado' WHERE idenquete In ("& id &");

#381199 Enquete

Posted by Info_Tec on 08/06/2004, 12:50 in ASP

Olhando com um pouquinho mais de calma reparei que não existe os campos id e nem Liberar em seu Form, e sim id<%=cont%> e Liberar<%=cont%>. Aconselho a repensar um pouco sua lógica. Tente usar CheckBoxes passando o ID como Value para liberar a enquete, dessa forma creio que ficara melhor.

#381190 Cdonts

Posted by Info_Tec on 08/06/2004, 12:36 in ASP

Esse é todo o código? Verifique se no inicio do script não existe um "On Error Resume Next" e outra coisa que notei:

mailobj.body = " Mensagem
------------------^
mailobj.send

#381186 Enquete

Posted by Info_Tec on 08/06/2004, 12:30 in ASP

Tente trocar seu Update por esse, veja se a var id está realmente recebendo valor:

SQL = "UPDATE enquete SET liberado = '" & liberar & "' WHERE idenquete = "& id &";"

Response.Write SQL

Response.End

conexao.execute(SQL)

#381181 Problemas Com Código

Posted by Info_Tec on 08/06/2004, 12:09 in ASP

Pelo que notei você tem uns 3 RecordSet's nesse script, dá uma verificada com calma nele, pois ainda tem RecordSet sem .MoveNext.

#380706 Consulta Com Bd Em Sybase

Posted by Info_Tec on 07/06/2004, 17:05 in ASP

Aqui, nesse código:

<%
Set RS = Server.CreateObject("ADODB.Recordset")
SQL2 = "select * from openquery("CONEXÃO", 'select d_dat_nas, c_nom_cli, "
'-----------------------------------------------------^ Não seria " ?
SQL2 = SQL2 & " from dba.cadclientes"
SQL2 = SQL2 & " where cc.d_dat_nas = 27/05/2004 "
RS.Open SQL2
%>

E aqui um erro, vc deve fazer assim:

<%=RS("c_nom_cli")%>

Mas aconselho a dar uma revisada nessa SQL, me parece estar errada, mas como não conheço como se usa com o SyBase.

#380697 Problemas Com Código

Posted by Info_Tec on 07/06/2004, 17:00 in ASP

Seu Do While está em Loop infinito. Você não deu .MoveNext ele está direto em um só registro.

#380627 Global.asa

Posted by Info_Tec on 07/06/2004, 15:20 in ASP

Sim pode.

#380572 Exibir Valores Por Extenso

Posted by Info_Tec on 07/06/2004, 13:57 in ASP

Tem que criar uma função que faça isso. Se não me engano nehuma linguagem faz isso direto.

#379759 Apagar Depois Do Primeiro Espaço

Posted by Info_Tec on 06/06/2004, 00:37 in ASP

Vamos lá, procure por InStr, ele retorna a posição inicial de uma string pesquisada em um Texto. Vc irá usála juntamente com a Função Left.

#374008 Retorna Número De Id Em Instrução Insert Sql

Posted by Info_Tec on 28/05/2004, 14:09 in ASP

Pode acontecer de estar acontecendo 2 inserções ao mesmo tempo (diferença de centésimos de segundos) e quando vc vai fazer seu Select Top 1 Order Desc pode ser que vc selecione o dado errado. O ideal é vc fazer um Select por todos os dados que vc acabou de inserir.

Entendeu?

#373905 Servidor

Posted by Info_Tec on 28/05/2004, 12:04 in ASP

Bom dia,

com certeza o iis é bem mais completo, mas pra quem está começando e não quer instalar o iis, o pws resolve até que bem.

abçs
amanda

O PWS só é possivel istalar nos Win 9X, Vc não consegue instalar o IIS nesses sistema. Assim como vc não consegue instalar o PWS nos Win baseados no NT.

#373612 Servidor

Posted by Info_Tec on 27/05/2004, 20:18 in ASP

Amanda, uma correção, o PWS (Personal Web Server - Servidor Web Pessoal) é uma versão para os Windows 9X (95, 98-98SE e ME) bem, mas bem reduzida do IIS, nele não é possivel fazer várias coisas que o IIS faz. O IIS é a versão "profissional", que só funciona nos Windows basseados no NT (XP Pro, 2K, 2KServer, 2K3), com ele se pode criar domínios e subdomínios, enviar e-mails e tudo que se tem em um servidor.

#372767 Sessionid Do Brasil

Posted by Info_Tec on 26/05/2004, 15:57 in ASP

Na Busca por LCID, e não SessionID. 1046

#372646 Pq Desse Erro?

Posted by Info_Tec on 26/05/2004, 13:42 in ASP

Uma coisa que notei, todas as linhas que contém "--->>>" irão dar esse erro, pois esse trecho deve ser um comentário no código, então vc deve acrescetar uma ' (aspa simples) nesses pontos.

#372617 Direção

Posted by Info_Tec on 26/05/2004, 13:06 in Javascript / DOM / AJAX / ECMAScript

Isso é JavaScript, por favor seja mais atento à descrição das Salas.

#372019 Suporte A Busca Regressiva

Posted by Info_Tec on 25/05/2004, 15:41 in ASP

Da próxima vez edite o tópico anterior para acrescentar os dados faltantes.

Sete o CursorType para 2 e teste. Favor retornar se funcionou.

#371382 Somar Variáveis

Posted by Info_Tec on 24/05/2004, 17:46 in ASP

Só uma coisa: "70,00" é diferente de 70,00 tá bom?

#371373 Somar Variáveis

Posted by Info_Tec on 24/05/2004, 17:33 in ASP

Use o Cdbl para transformar os valores. Teste e dê retorno se funcionou.

#371357 Contador

Posted by Info_Tec on 24/05/2004, 17:15 in ASP

Em páginas html, se não me engano vc deve colocar entre as tags <script> </script> o endereço do arquivo .ASP que faz essa atualização.

#368315 Netscape :/

Posted by Info_Tec on 20/05/2004, 12:57 in HTML, CSS e Metodologias

Esse não é um problema exatamente de ASP, e sim de HTML, vou mover para a sala específica, talvez lá vc encontrre sua resposta.

#367643 Diferença Entre Addnew E Insert Into

Posted by Info_Tec on 19/05/2004, 12:26 in ASP

Com o "Insert Into ..." usa-se só SQL, o que reduz o processamento, uma vez que só é criada a conexão e executada a inserção diretamente.
Com o ".AddNew" vc deve instanciar um RecordSet, carregando dados para ele (pode ser toda a tabela quanto apenas 1 dado), o que pode aumentar o tempo de processamento. Além de que, se não for carregado todos os campo vc só poderá adicionar dados a esses campos.

Tipos

See this member's