Jump to content


webber

Member Since 08/04/2006
Offline Last Active 06/02/2009, 11:36
-----

Topics I've Started

Intranet + Banco De Dados

04/08/2008, 17:39

Olá. Gostaria de saber se os scripts ASP para conexão, acesso e manipulação de dados do Access através de uma Intranet são os mesmos da Internet, ou há alguma diferença a ser feita? E no caso de PHP/SQL?

Valor Aleatório Sem Repetição

07/05/2008, 15:38

Galera,

preciso pegar um número aleatoriamente entre 1 e 80, mas quando a linha do tempo voltar ao início, o número não pode ser repetido. Inicialmente fiz um random básico:

FRAME 1:

onEnterFrame = function() {

var sorteio = random(79)+1;
objeto = "frasco" + sorteio;

}

--------------------------------

FRAME 2:

trace(objeto);

--------------------------------

FRAME 3:

goToAndPlay(1);

--------------------------------

Como vocês podem ver, quero que apareça uma lista randômica no output. Ex:

frasco2
frasco35
frasco7
frasco12

e assim vai...

Mas no código que fiz, o número se repete. Ex:

frasco5
frasco72
frasco16
frasco5
...

Pesquisando na web, descobri que isso se faz com Array, mas não consegui fazer aqui. Alguém poderia me ajudar nisso???

Abraços

Conexão Com Bd Access

31/03/2008, 14:39

Pessoal, será que alguém pode me ajudar? Não consigo enviar os dados do formulário para o BD. O erro que dá é:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/bioetica/enviar.asp, line 48



Sendo que a linha 48 é o

Set strCadInscritos = Conexao.Execute (strQuery)


Segue o script todo:


<%@ Language=VBScript %>

<!--#Include File = "adovbs.inc"-->
<%
'Recebe campos do formulario
Dia = Cstr(Request.Form ("txtDia"))
Nome = Cstr(Request.Form ("txtNome"))
Cracha = Cstr(Request.Form ("txtCracha"))
Endereco = Cstr(Request.Form ("txtEndereco"))
Bairro = Cstr(Request.Form ("txtBairro"))
Prefixo = Cstr(Request.Form ("txtPrefixo"))
Telefone = Cstr(Request.Form ("txtTelefone"))
Email = Cstr(Request.Form ("txtEmail"))
Profissao = Cstr(Request.Form ("txtProfissao"))
Pastoral = Cstr(Request.Form ("txtPastoral"))
Area = Cstr(Request.Form ("txtArea"))


'Conecta com o Banco
Set Conexao = Server.CreateObject ("Adodb.Connection")
strCaminho = "DBQ=e:\home\scorcelli1\dados\dados.mdb"
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & strCaminho

'comando SQL de Inclusao
strQuery = "INSERT INTO tblInscritos"
strQuery = strQuery + " (Dia, Nome, Cracha, Endereco, Bairro, Prefixo, Telefone, Email, Profissao, Pastoral, Area)"
strQuery = strQuery + " VALUES ('"+Dia+"', "
strQuery = strQuery + " '"+Nome+"', "
strQuery = strQuery + " '"+Cracha+"', "
strQuery = strQuery + " '"+Endereco+"', "
strQuery = strQuery + " '"+Bairro+"', "
strQuery = strQuery + " '"+Prefixo+"', "
strQuery = strQuery + " '"+Telefone+"', "
strQuery = strQuery + " '"+Email+"', "
strQuery = strQuery + " '"+Profissao+"', "
strQuery = strQuery + " '"+Pastoral+"', "
strQuery = strQuery + " '"+Area+"' ) "

Set strCadInscritos = Conexao.Execute (strQuery)

'se tudo Ok redireciona
Response.Redirect ("resposta.html")

'fechando conexoes
Set strCadInscritos = Nothing
Conexao.Close
%>

Cd Multimídia Com Formulário

18/09/2007, 11:54

Olá.

Preciso fazer um CD multimídia em flash, sendo que em uma das seções deverá haver um formulário para a pessoa preencher e enviar os dados para um endereço de e-mail. Como poderei fazer isso?

Abraços

IPB Skin By Virteq