ursolouco

valeu !!! E que frequento mais a seção de Asp/Asp.Net... Eu importuno mais por lá... os karas desta seção, não sei, mas me parecem que não gostam muito de mim..

Brother!!! Essas instruções SQL devem ser realizadas dentro do seu mysql, ou seu script deve realizar alguma verificação (se existe a tabela) caso ela não exista sua conexão executa a instrução e cria a tabela. Abraços!!!

Até aqui, vou enxer o saco. http://br.php.net/manual/pt_BR/function.strlen.php Abraços!!!

Brother!! Mais ou menos, isso aqui para mover um arquivo, usando FSO. Veja se pode lhe ajudar... Abraços!!!!

Salve Flavio!! Seja bem vindo a Script Brasil !!! Não sei ao certo, se é possivel executar programas externos com puro código ASP, mas de acordo c/ esta informação, você pode redirecionar o visitante para outros servidor com método Redirect do objeto Response e enviar informações por querystring (http://www.site.com.br/cadastro/index.asp?Acao=Inclui&Metodo=Novo&Tabela=Clientes) ou via Cookies (tanto ASP ou JavaScript). Em seu segundo servidor, realização a inclusão e operação necessarias, e novamente redirecionaria o cliente para o site 1. Outro procedimento q você pode fazer é criação de um COM+, mas é mais trabalhoso e mais caro (em recursos do servidor). Abraços!!! [urso]

estranho hein... tem algum outro componente no host para que possa ser feito o upload dos arquivos ?

Experimentar, preencher os campos, e ver se os dados, estão sendo recebidos com o seguinte codigo: <% 'v.ursolouco - loucura na web Set objUpLoad = Server.CreateObject("Persits.Upload") Count = objUpLoad.Save("d:\Inetpub\clientes\xxxxx\Html\uploads") Nome = objUpLoad.Form("Nome") EMail = objUpLoad.Form("Email") Mensagem = objUpLoad.Form("Mensagem") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Nome Response.Write(Nome & "<br>") Mailer.FromAddress = EMail Response.Write(EMail & "<br>") Response.Write(Mensagem) Mailer.RemoteHost = "smtp.vanet.com.br" Mailer.AddRecipient "Formulário" , "contato@contato.com.br" Mailer.Subject = "Formulário" If Mailer.SendMail Then Response.redirect "http://www.manito.com.br/obrigado.asp" Else Response.Write("Não foi possivel realizar o envio") End if %>

Relaxa..... Eu também to começando em programação... <% 'v.ursolouco - loucura na web Set objUpLoad = Server.CreateObject("Persits.Upload") Count = objUpLoad.Save("d:\Inetpub\clientes\xxxxx\Html\uploads") Nome = objUpLoad.Form("Nome") EMail = objUpLoad.Form("Email") Mensagem = objUpLoad.Form("Mensagem") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Nome Mailer.FromAddress = EMail Mailer.RemoteHost = "smtp.vanet.com.br" Mailer.AddRecipient "Formulário" , "contato@contato.com.br" Mailer.Subject = "Formulário" If Mailer.SendMail Then Response.redirect "http://www.manito.com.br/obrigado.asp" Else Response.Write("Não foi possivel realizar o envio") End if %> Fiz este código por cima, veja se funciona... Bjão!!!

nome = Upload.Form("Nome") Mailer.FromName = CStr(nome) Talvez seja isso... A 1ª linha puxa o campo nome, do form de upload e deixa-o numa variavel. a 2ª linha, atribui a propriedade FromName do objeto Mailer o conteudo da variavel nome.

Brother!! Experimenta tentar mudar o método: Set RS = Conn.Execute(SQL) Abraços!!!

Acho que pro tiro ser mais certeiro quem que ser algo assim: Mailer.FromName = Upload.Form("nome") Se este não matar.... ao menos aléja!!! Falando sério... vou parar de gracinha, tem gente precisando de ajuda... Documentation: <% For Each Item in Upload.Form Response.Write Item.Name & "= " & Item.Value & "<BR>" Next %>

Sei lá!! Vamos ver se matamos esta coruja... var_Urso = Mailer.Form("Campo") Tenta aí...

Dá uma olhadinha, também, na documentação: Object Session (v.MSDN) Sexta feira hoje né... estou felizão..

Xuxu!!! View Code pra galera lhe ajudar...

View Code pra galera lhe ajudar....

www.infinitehost.com.br Abraços!!

Brother!! Aceita sugestão ? Que tal você criar um consulta armazenada (stored procedure) dentro do seu banco de dados com os campos necessarios para a operação e ultilizando o objeto Command executa-la e retornar os dados para 1 RecordSEt ? Abraços!!!

É Brother!! É por isso que somos programador, porque somos confusos e nossa confusão, no confusamento de idéias, temos confusões de onde confundidamente saem resultados confulsos.. Mas é isso ae, sempre que temos que trabalhar com vetor, cada um interpreta ou entende de uma forma, certa ou não, ela vai ser clara à você, fazendo com que o resultado, no final seja o mesmo Mas é isso ae Brother.... fórum é bom por isso, porque temos capacidade de gerar boas e sadias discussões sobre o assunto, seria bom, se todo lugar fosse assim. Um Forte Abraço!!! [ursão] - Seu Brother de discussão!!

Ok!! Preço camarada..... no e-mail: ursolouco@yahoo.com.br

$$$ Quanto companheiro ? Tem funcionário seu aqui ? Só chegar e pedir ?

E ai Alexxx!! Brother!!! Foi como falei naquele POST (Brain Storn - Chuva de Idéias)... este lance de UBound Realmente confude a cuca. Segunda a MSDN, retorna o maior 'indice' de um vetor..... e não a quantidade de itens... Quebrando uma variavel com Split, sem redimensionamento, novamente, se usado uBound ele vai retornar o maior indice e não a quantidade... Concorda ? Quando não declaro a variavel e crio o array através de split, sabendo que a array gerada tem 3 elementos e peço o Ubond o retorno é 2. Neste caso, vai ser exibido dois, pois todo vetor sempre se inicia de 0. Concorda ? ***************************************************************** Veja agora, um código, mostrando o mesmo exemplo: <% Dim Analista(5) Analista(0) = "The Dark0" Analista(1) = "Alexx" Analista(2) = "Bolomaster" Analista(3) = "MarioFDF" Programador = Array() Contador = 0 Redim Preserve Programador(Contador) Contador = Contador + 1 Programador(0) = "ursolouco" Redim Preserve Programador(Contador) Contador = Contador + 1 Programador(1) = "Victor" Redim Preserve Programador(Contador) Contador = Contador + 1 Programador(2) = "Nelson" Redim Preserve Programador(Contador) Contador = Contador + 1 Programador(3) = "Guto" Redim Preserve Programador(Contador) Contador = Contador + 1 Programador(4) = "Bareta" Redim Preserve Programador(Contador) Contador = Contador + 1 Programador(5) = "Resopi" Redim Preserve Programador(Contador) Contador = Contador + 1 Programador(6) = "Hara" Redim Preserve Programador(Contador) Contador = Contador + 1 Programador(7) = "Renatinha_Muito_Gatinha" Response.Write("<p>O maior indice do array Analista é :" & UBound(Analista) & "</p>") 'OutPut/Saida: 5 'Porque seu vetor, foi declarado, com 5 indices; 'Lembre-se que UBound, vai pegar o maior indice do vetor e não itens. Response.Write("<p>O maior indice do array Programador é: " & UBound(Programador) & "</p>") 'OutPut/Saida: 7 'UBound vai percorrer todos os itens do seu vetor, iniciado de 0 %>

Brother!!! Particularmente, acho esse mano, uns dos melhores programadores do mundo.. http://www.macoratti.net Referencia, até internacionalmente... Abraços!!!!

Brother!! Tópico de funções, olha lá Abraços

Salve Victor!! Vou ser mais modesto...... palavra = CStr(Request("pesquisa")) URL ="http://www.google.com/search?q=" & Server.UrlEncode(Palavra) Response.Redirect(Url) Fiz isso, porque não sei ao certo, se o método Redirect vai puxar os itens da session e o UrlEncode vai colocar o sinal de "+" caso o visitante digite uma palavra composta (urso + louco) Abraços!!!

Brother!!! Como é local a intranet, ultilizei o seguinte método à uma agencia de comunicação : <% Usuario = CStr(Trim(Request.Form("usuario"))) Senha = CStr(Trim(Request.Form("senha"))) Call Login(Usuario) Function Login(Usuario) If Not isEmpty(Usuario) Then cBanco = Server.MapPath("./db/intranet.mdb") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = " & cBanco Set Conn = Server.CreateObject("Adodb.Connection") Conn.Open(strConn) Set objCmd = Server.CreateObject("adodb.command") With objCmd .ActiveConnection = Conn .CommandType = adCmdStoredProc .CommandText = "cst_Login" End With objCmd.Parameters.Append objCmd.CreateParameter(":usuario", advarchar, AdParamInput, 20, "1") objCmd(":usuario") = Usuario Set Rs = Server.CreateObject("adodb.recordset") Set Rs = objCmd.Execute objCmd.Parameters.Delete ":Usuario" Set objCmd = Nothing If Rs.Eof Then Call eLogin("Usuario") Else vDados = Rs.GetRows Call vSenha(vDados(1,0)) Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing End If Else Call eLogin("Usuario") End If End Function Function vSenha(sBanco) If StrComp(Senha, sBanco, 1) <> 0 Then Call eLogin("Senha") Else Response.Cookies("Login") Response.Cookies("Login")("User") = Usuario Response.Cookies("Login")("Senha") = Senha Response.Cookies("Login").Expires = Hour(Now()+2) Response.Redirect("intranet.asp") End If End Function Function eLogin(Campo) Response.Cookies("Login") Response.Cookies("Login")("User") = Usuario Response.Redirect("index.asp?Erro=" & Server.UrlEncode(Campo)) End Function %> Sendo que ´há uma stored procedures do banco de dados, que agiliza muito a consulta, e os métodos de validação, utilizei cookies. Abraços!!!