[Update + Inner Join]

Prezados,

Estou com uma dificuldade com o Inner Join + Update, segue o code:

conexao.execute("update CAT_PROD x INNER JOIN CAT_CES y ON y.ces_prod_cat = x.prod_cod SET SUM(x.prod_estoq-y.ces_qtde)")

Erro:

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

Desde já agradeço

[Programa em VBS, alternando entre dois diretorios]

Alguém poderia me ajudar?

Att,

[Programa em VBS, alternando entre dois diretorios]

Então quintelab,

muito obrigado pela resposta, ficaria assim:

Set FSOSample = CreateObject("Scripting.FileSystemObject")
If FSOSample.FolderExists("C:\ProgramFiles\teste\teste.exe") Then
wscript.echo "Programa Teste instalado!!!" 
[b]
Elseif[/b]

FSOSample.FolderExists("C:\ProgramFiles\teste\teste2.exe") Then
wscript.echo "Programa Teste instalado!!!" 

Else
Set TESTE= createobject ("Wscript.Shell")
TESTE.Run "\\1.1.1.1\testeinstall\testepackage.exe /S"

End If

[Programa em VBS, alternando entre dois diretorios]

Então quintelab eu queria executar no primeiro caminho e depois executar no segundo caminho, como por exemplo:

Set FSOSample = CreateObject("Scripting.FileSystemObject")

If FSOSample.FolderExists("C:\ProgramFiles\teste\teste.exe") Then

wscript.echo "Programa Teste instalado!!!"

If FSOSample.FolderExists("C:\ProgramFiles\teste\teste2.exe") Then

wscript.echo "Programa Teste instalado!!!"

Else

Set TESTE= createobject ("Wscript.Shell")

TESTE.Run "\\1.1.1.1\testeinstall\testepackage.exe /S"

End If

Estou com dúvida como posso executar o programa nos dois caminhos

[Programa em VBS, alternando entre dois diretorios]

Possuo um código em VBS e necessito que ele acessar um diretorio ler executar a aplicação, depois entrar em outro diretorio executar a aplicação e finalizar o programa.

Segue o código:

Set FSOSample = CreateObject("Scripting.FileSystemObject")

If FSOSample.FolderExists("C:\ProgramFiles\teste\teste.exe") Then

wscript.echo "Programa Teste instalado!!!"

Else

Set TESTE= createobject ("Wscript.Shell")

TESTE.Run "\\1.1.1.1\testeinstall\testepackage.exe /S"

End If

[Paginação em Ajax parou de funcionar]

Prezados (as),

Estou com um problema, meu site contém uma páginação em AJAX, porém neste final de semana

esta páginação parou de funcionar.

Existe algum componente, ou possibilidade que possa ter desconfigurado em meu servidor?

Desde já agradeço!

[Converter Script MYSQL para SQL Server]

Prezados(as),

Estou necessitando realizar a conversão de um script dump(.sql) MYSQL para SQL SERVER, porém estou encontrando dificuldade. Alguém possui a informação de software que realize esta converção?

Desde já agradeço!

Att,

[Pegar apenas o dia da data]

SK15,

Muito Obrigado pela resposta era essa minha dúvida.

Fechou...

Abraços e Valeu

É o contrário o resultado do banco sempre vem primeiro antes de qualquer 'filtragem' ... <_<

<%= Day(rsTeste("nasc")) %>

Lucas

Obrigado pela resposta, estou fazendo isso no select, porém como ficaria na hora de escrever, algo do tipo?

<%=rsTeste (day("nasc"))%>

Tenho que converter a String correto?

Desde já agradeço!

[Pegar apenas o dia da data]

Lucas

Obrigado pela resposta, estou fazendo isso no select, porém como ficaria na hora de escrever, algo do tipo?

<%=rsTeste (day("nasc"))%>

Tenho que converter a String correto?

Desde já agradeço!

[Pegar apenas o dia da data]

Tenho cadastrado em uma base access a data de aniversário (date) do usuário e gostaria de quando fosse escrever a data na página ao

invés de retornar o valor ex.: 15/10/2010, gostaria de pegar somente o dia ex.: 15.

Estou com dúvida aqui : <%=rsTeste("nasc")%>

Ou seja escrevendo assim retorna tudo, porém quero só o dia.

Desde já agradeço!

[SQL x Oracle]

Prezados,

Obrigado pela resposta. Possuo acesso total aos dois bancos (SQL e Oracle). Irei pesquisar mais sobre Linked

Server. Vocês possuem algum exemplo?

Abraços

[SQL x Oracle]

Prezados,

Estou desenvolvendo um sistema em C# com SQL, porém necessito obter informações de outro sistema que possui como banco Oracle. Ou seja necessito entrar no Oracle realizar a consulta e trazer as informações.

Alguém sabe como posso realizar esta consulta?

Desde já agradeço.

Att,

[Erro para autenticar no AD.]

Alguém consegue me ajudar?

[Identificar o sistema operacional em aplicação]

Prezados,

Possuo o seguinte código para identificar o sistema operacional dos meus visitantes, porém não esta funcionando com o WINDOWS VISTA E O WINDOWS 7, pode me dar uma ajuda?

<HTML>

<HEAD>

<TITLE>Sistema operacional</TITLE>

&lt;script language="javascript">

function sistema()

{

if(navigator.userAgent.indexOf('Linux') != -1)

{ var so = "Linux"; }

else if((navigator.userAgent.indexOf('Win')!= -1)&&(navigator.userAgent.indexOf('95')!= -1))

{ var so = "Windows 95"; }

else if((navigator.userAgent.indexOf('Win')!= -1)&&(navigator.userAgent.indexOf('98')!= -1))

{ var so = "Windows 98"; }

else if((navigator.userAgent.indexOf('Vista')!= -1)&&(navigator.userAgent.indexOf('Vista')!= -1))

{ var so = "Windows Vista"; }

else if((navigator.userAgent.indexOf('Win')!= -1)&&(navigator.userAgent.indexOf('NT')!= -1))

{ var so = "Windows NT/XP"; }

else

if((navigator.userAgent.indexOf('Win')!=-1)&&(navigator.userAgent.indexOf('2000')!=-1))

{ var so = "Windows 2000"; }

else if(navigator.userAgent.indexOf('Mac') != -1)

{ var so = "Macintosh"; }

else if(navigator.userAgent.toLowerCase().indexOf('unix') != -1)

{ var so = "Unix"; }

else { var so = "Outro"; }

alert(so)

}

</script>

</HEAD>

<BODY onload="sistema()">

</BODY>

Obrigado

[Identificar o sistema operacional em aplicação]

Prezados,

Possuo o seguinte código para identificar o sistema operacional dos meus visitantes, porém não esta funcionando com o WINDOWS VISTA E O WINDOWS 7, pode me dar uma ajuda?

<HTML>

<HEAD>

<TITLE>Sistema operacional</TITLE>

<script language="javascript">

function sistema()

{

if(navigator.userAgent.indexOf('Linux') != -1)

{ var so = "Linux"; }

else if((navigator.userAgent.indexOf('Win')!= -1)&&(navigator.userAgent.indexOf('95')!= -1))

{ var so = "Windows 95"; }

else if((navigator.userAgent.indexOf('Win')!= -1)&&(navigator.userAgent.indexOf('98')!= -1))

{ var so = "Windows 98"; }

else if((navigator.userAgent.indexOf('Vista')!= -1)&&(navigator.userAgent.indexOf('Vista')!= -1))

{ var so = "Windows Vista"; }

else if((navigator.userAgent.indexOf('Win')!= -1)&&(navigator.userAgent.indexOf('NT')!= -1))

{ var so = "Windows NT/XP"; }

else

if((navigator.userAgent.indexOf('Win')!=-1)&&(navigator.userAgent.indexOf('2000')!=-1))

{ var so = "Windows 2000"; }

else if(navigator.userAgent.indexOf('Mac') != -1)

{ var so = "Macintosh"; }

else if(navigator.userAgent.toLowerCase().indexOf('unix') != -1)

{ var so = "Unix"; }

else { var so = "Outro"; }

alert(so)

}

</script>

</HEAD>

<BODY onload="sistema()">

</BODY>

Obrigado

[Erro ao realizar query]

Rafael obrigado pela ajuda, segue:

BD é Access e o campo é "AutoNumber" e deu isso:

Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

[Erro ao realizar query]

Prezados,

Tenho uma tela onde o usuário altera a senha dele na minha aplicação, porém está remetendo o seguinte erro:

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'cod_usuario = Clng('0'30'.

/alterarSenha.asp, line 3

A linha 3 é esta:

Set rs = conexao.execute("Select * from usuarios where cod_usuario = Clng('0'" & request.cookies("css")("coduser"))

Alguém pode me ajudar?

[Erro para autenticar no AD.]

Prezados,

Estou tentando fazer os usuários da minha intranet se conectarem no AD, porém quando tento acessar com senha e login o mesmo está me exibindo a seguinte mensagem de erro na linha 143:

Microsoft VBScript runtime error '800a000d'

/Type mismatch: '[object]'

login_restrito_teste.asp, line 56

Segue o código para me ajudarem

<%

Dim UserName

Dim Password

UserName = ""

Password = ""

Domain = "1.1.0.1"

UserName = request.form("UserName")

Password = request.form("Password")

function AuthenticateUser(UserName, Password, Domain)

dim strUser

' assume failure

AuthenticateUser = false

strUser = UserName

strPassword = Password

strQuery = "SELECT cn FROM 'LDAP://" & Domain & "' WHERE objectClass='*' "

set oConn = server.CreateObject("ADODB.Connection")

oConn.Provider = "ADsDSOOBJECT"

oConn.Properties("User ID") = strUser

oConn.Properties("Password") = strPassword

oConn.Properties("Encrypt Password") = true

oConn.open "DS Query", strUser, strPassword

set cmd = server.CreateObject("ADODB.Command")

set cmd.ActiveConnection = oConn

cmd.CommandText = strQuery

on error resume next

set oRS = cmd.Execute

if oRS.bof or oRS.eof then

AuthenticateUser = false

else

AuthenticateUser = true

end if

set oRS = nothing

set oConn = nothing

end function

result = AuthenticateUser(UserName, Password, Domain)

if result then

set rsLogin=server.createobject("ADODB.Recordset")

sqlstr = "Select * from usuarios where nom_login='"&LOG&"' AND des_senha='"&SENHA&"'"

rsLogin.open sqlstr, conexao,3,3

If rsLogin.EOF then %>

<script language="javascript">

alert("Login e senha invalidos.");

<%If request("vemail") = "S" then

response.cookies("siteIdm")("cod_idm") = 1%>

window.location='<%=request("redireciona") & "&vemail=S"%>';

<%Else%>

window.location='default.asp';

<%End If%>

</script>

<% response.end

Else

'Aqui eu verifico se a senha do prg esta desabilitada tpo_senha D

IF rsLogin("tpo_senha") = "D" then %>

<script>

alert("Conta de usuário desabilitada. .");

<%If request("vemail") = "S" then

response.cookies("siteIdm")("cod_idm") = 1%>

alert(<%=request("redireciona") & "&vemail=S"%>);

window.location='<%=request("redireciona") & "&vemail=S"%>';

<%Else%>

window.location='default.asp';

<%End If%>

</script>

<%response.end

End if

'Aqui eu verifico se é o 1º acesso do usuário. E

IF rsLogin("tpo_senha") = "E" then

rsLogin("tpo_senha") = "D"

rsLogin.Update

response.cookies("css")("GRUPO") = rsLogin("grupo")

response.cookies("css")("CODUSUARIO") = rsLogin("cod_usuario")

response.cookies("css")("tpo_senha") = rsLogin("tpo_senha")

session("logado") = "S"

response.redirect " "

End If

IF rsLogin("tpo_senha") = "P" then

If CDate(rsLogin("dt_expira")) < date then%>

<script>

alert("Conta expirada.\n\Contate o administrador para reabilitá-la.");

<%If request("vemail") = "S" then

response.cookies("siteIdm")("cod_idm") = 1%>

window.location='<%=request("redireciona") & "&vemail=S"%>';

<%Else%>

window.location='default.asp';

<%End If%>

</script>

<% response.end

End if

End if

response.cookies("css")("GRUPO") = rsLogin("grupo")

response.cookies("css")("CODUSER") = rsLogin("cod_usuario")

response.cookies("css")("tpo_senha") = rsLogin("tpo_senha")

session("logado") = "S"

If request("vemail") = "S" then

response.cookies("siteIdm")("cod_idm") = 1

response.redirect request("redireciona")

Else

if rsLogin("grupo") = "|1|" then

response.redirect " "

elseif rsLogin("grupo") = "|3|" then

'response.redirect ""%>

<script language="javascript">

window.location.href ="";

</script>

<% else rsLogin("grupo") = "|4|"

response.redirect " "

End If

End if

rsLogin.Close

Set rsLogin = Nothing

conexao.close

Set conexao = nothing

%>

Desde já agradeço

[Trocar Editor dentro da página]

Prezados(as), bom dia

Estou necessitando trocar meu editor de textos (WysiWygEditor) dentro da minha aplicação, isso porque ele não está funcionando no Windows Vista por utilizar um componente chamado "Dynamic html editing control Microsoft".

Alguém sabe a maneira pratica que eu possa utilizar outro Objeto (active x) sem ter que mudar de editor?

Desde já agradeço!

[WysiWygEditor - Não funciona no Windows Vista]

Rafael, obrigado pela resposta.

Você tem o link do tópico?

O sistema está rodando no servidor 2003, e estou utilizando o Internet Explorer 8.0.

Eu conheço o FCKEditor, porém estou tendo dificuldades para fazer ele gravar as informações no banco.

Obrigado,

[WysiWygEditor - Não funciona no Windows Vista]

Prezados(as),

Posssuo um editor WysiWygEditor em minha página que não está funcionando no Win Vista, apenas do Win Xp, pois instala o Activex Microsoft dynamic html editing control.

Alguém tem a informação de como posso resolver isso? Onde posso baixar esse componente para instalar no Vista?

Desde já agradeço!

[Webpart Zone - Erro Servidor]

Alguém sabe por onde posso pesquisa a solução?

Necessito configurar o webconfig, para dar permissão aos usuários?

Desde já agradeço

[Webpart Zone - Erro Servidor]

Prezados(as),

Estou desenvolvendo um sistema que utiliza webpartszone em uma das páginas. Porém ocorre que quando publico o mesmo local, a página é publicada normalmente, porém quando disponilizo no servidor o mesmo exibe a seguinte mensagem:

The specified display mode is not supported on this page. Make sure personalization is enabled and the corresponding zones are present on the page. The display mode can be set during and after Page_Init.

Parameter name: value

Line 21: else

Line 22: {

Line 23: WebPartManager1.DisplayMode = WebPartManager.EditDisplayMode;

Line 24: CarregaSaudacao();

Line 25: }

Penso que pode ser alguma coisa na permissão junto ao IIS 6, porém como posso resolver o caso?

Desde já agradeço!

[Após executar arquivo .exe apaga do diretório]

Prezados(as),

A situação que eu possuo é a seguinte, executo um arquivo .exe e quando o mesmo finalizar a instalação eu gostaria de ir no diretório e apagar o mesmo.

Segue o código:---------------------------

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Diagnostics;
using System.IO;

namespace RemoveAgent
{
    class Remove
    {
        static void Main(string[]args)
        {
            System.Diagnostics.Process.Start(@"C:\Arquivos de programas\exe\atualiza.exe");
        }      
       
              File.Delete(@"C:\Arquivos de programas\exe\atualiza.exe")
       }
}

Necessito colocar um Timer, para executar o File.Delete?

Desde já agradeço

[Integrar aplicação ASP ao AD]

Bareta

Estou desenvolvendo a integração da minha aplicação de intranet com o Active Directory. Porém o mesmo está atribuindo

um erro "error '8007054b' " na seguinte linha "Set objRootDSE = GetObject("LDAP://rootDSE")".

Segue o código:

<%
Vlogin = Request.Form("login")
Vsenha = Request.Form("senha")
VDominio = "meudominio"

Set objRootDSE = GetObject("LDAP://rootDSE") ---> 'Linha que dá erro!
Set objDSObj = GetObject("LDAP:")

On Error resume Next

Set objAuth = objDSObj.OpenDSObject("LDAP://"& VDominio &"/rootDSE", VLogin, VSenha, 1)

If Err.number = -2147023570 

then   

Response.Redirect("erro.asp?flag=InvalidLogin")

End If