ursolouco

Vai na bica mesmo... ou gambiarra, como quiser.. <%nData=Dateadd('d',1,nData)%> Aumenta um dia em nData, mas não testei, fiz aqui no susto, veja se funciona..

valeu Moçada alguém de saia aqui ? O seu TXT que você diz é um campo TEXTFIELD ? seria isso ? você quer com Refresh ou sem Refresh ? Em ASP, seria feito da seguinte forma: <% sPalavra = Request.Form("Combo") If Not isNull(sPalavra) Then Response.Write("<input type='text' value='" & sPalavra & "'>") End if%> Abraços!! [urso]

Referencia!!!

Tem certeza que isso é ASP e não JAVASCRIPT ?

Salve Senhores!! Desculpe incomodar por aqui, mas alguém aqui, tem algum link ou apostila que dê boas orientações sobre Stored Procedures (Criação, Manipulação e Comandos para as mesmas ) ? Muito Obrigado!!! [ursolouco]

Só completando... o Brinkster tem uma FAQ onde fala sobre os componente liberados para acesso no plano free (isso é, se for este plano que for usar :-)) recomendo uma pequena leitura, antes do envio dos arquivos, pois eles bloqueiam e até fecham contas gratuitas que desrespeitam o termo de utilização.

Brother!!! Joga o arquivo "error.txt" para dentro a pasta dos arquivos e faz um teste por favor.... <% 'por: Cubbos Computação Gráfica - Adriano dos Anjos Dim iMail, assunto, nome, email, mensagem nome = Request.form("nome") email = Request.form("email") assunto = Request.Form("assunto") mensagem = Request.Form("mensagem") meu_email = "adriano.anjos@terra.com.br" corpo = "Nome:" & nome & "<BR>" corpo = corpo & "E-mail:" & email & "<BR>" corpo = corpo & "Mensagem:" & mensagem & "<br>" Set iMail = CreateObject("CDONTS.NewMail") iMail.From = email iMail.To = meu_email iMail.Subject = Assunto iMail.MailFormat = 0 iMail.BodyFormat = 0 iMail.Body = corpo iMail.Attachfile "error.txt","error.txt" iMail.Send Set iMail = Nothing %> Abraços!!!

Não.. Win98 - PWS WinME - PWS NT4/ XP Pro - IIS

Sei lá, você pode programar tudo em NOTEPAD, mais vai sofrer Acho melhor você adquirir o Visual Studio .Net 2003. Eu acessei uma vez a pagina da MSDN e eles estavam dando por 60 dias trial a versão do .Net para testar, agora já não sei mais. Ou ainda, se preferir, é claro, você pode ir em: www.asp.net e fazer o download do webmatrix para desenvolver suas paginas. Abrços!!

Se for usar em páginas ASP sim...

Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Joe’s Widgets Corp." Mailer.FromAddress= "Joe@somehost.com" Mailer.RemoteHost = "mailhost.localisp.net" Mailer.AddRecipient "John Smith", "jsmith@anotherhostname.com" Mailer.Subject = "Great SMTP Product!" Mailer.BodyText = "Dear Stephen" & VbCrLf & "Your widgets order has been processed!" if Mailer.SendMail then Response.Write "Mail sent..." else Response.Write "Mail send failure. Error was " & Mailer.Response end if

<% 'por: Cubbos Computação Gráfica - Adriano dos Anjos Dim iMail, assunto, nome, email, mensagem nome = Request.form("nome") email = Request.form("email") assunto = Request.Form("assunto") mensagem = Request.Form("mensagem") meu_email = "adriano.anjos@terra.com.br" corpo = "Nome:" & nome & "<BR>" corpo = corpo & "E-mail:" & email & "<BR>" corpo = corpo & "Mensagem:" & mensagem & "<br>" Set iMail = CreateObject("CDONTS.NewMail") iMail.From = email iMail.To = meu_email iMail.Subject = Assunto iMail.MailFormat = 0 iMail.BodyFormat = 0 iMail.Body = corpo iMail.Attachfile "Caminho_do_Arquivo_a_ser_Anexado","Arquivo.Extesao" iMail.Send Set iMail = Nothing %> Olha ai..

Estranho!! Olhei o codigo agora, esqueci de colocar isso aqui.. iMail.Attachfile "Caminho_do_Arquivo_a_ser_Anexado","arquivo.extensao" Mais ou menos assim: objMail.Attachfile "c:\caminho\seusite\teste.gif", "teste.gif" Veja se é isto..

Sim!! Só que aí, tem que ser feito upload do arquivo, salvar o caminho em Session e depois criar seu objeto de e-mail. Abraços!!!

<% 'por: Cubbos Computação Gráfica - Adriano dos Anjos Dim iMail, assunto, nome, email, mensagem nome = Request.form("nome") email = Request.form("email") assunto = Request.Form("assunto") mensagem = Request.Form("mensagem") meu_email = "adriano.anjos@terra.com.br" corpo = "Nome:" & nome & "<BR>" corpo = corpo & "E-mail:" & email & "<BR>" corpo = corpo & "Mensagem:" & mensagem & "<br>" Set iMail = CreateObject("CDONTS.NewMail") iMail.From = email iMail.To = meu_email iMail.Subject = Assunto iMail.MailFormat = 0 iMail.BodyFormat = 0 iMail.Body = corpo iMail.Attachfile "Caminho_do_Arquivo_a_ser_Anexado" iMail.Send Set objMail = nothing %>

Usando qual componente ?

Dundas Upload!! Simples e facil.... veja

Qual componente você vai usar no servidor ?

Toma ai..

Paginação de Vetores: Pag_GetRows.asp <!--#include file="conexaoNwind.inc" --> <!--#include file="adcvbs.inc" --> <html> <head> <title>Pagina&ccedil;&atilde;o - GetRows - Ursolouco</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- body { font-family: Verdana; font-size: 10px; color: #000000; } a { text-decoration: none; } a:link { color: #000099; } a:visited { color: #330099; } a:hover { text-decoration: underline; } --> </style> </head> <body> <p> <% Inicio = Request.QueryString("Inicio") Final = Request.QueryString("Final") Quantidade = Request.QueryString("Quantidade") If Not isNumeric(Inicio) or Len(Inicio)=0 Then Inicio = 0 Else Inicio = CInt(Request.QueryString("Inicio")) End If If Not isNumeric(Final) or Len(Final)=0 Then Final = 0 Else Final = CInt(Request.QueryString("Final")) End If If Not isNumeric(Quantidade) or Len(Quantidade)=0 Then Quantidade = 5 Else Quantidade = Quantidade End If If Not isArray(ArrRs) Then Set Rs = Server.CreateObject("Adodb.recordset") strSQL = "SELECT * FROM Customers;" Set Rs = Conn.Execute(strSQL) ArrRs = Rs.GetRows Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing End If 'ArrRs = Coluna, Linhas na tabela 'Onde: Coluna -> Campo da tabela a ser exibido 'Linha: Registro a ser percorrido de acordo com o Loop TotalColunas = UBound(ArrRs,1) TotalRegistros = UBound(ArrRs, 2)+1 If (TotalRegistros - Quantidade) < (Inicio + Quantidade) Then Quantidade = (TotalRegistros - Inicio) End If If Parar > TotalRegistros Then Parar = TotalRegistros Else Parar = Inicio + Quantidade End If For I = Inicio To (Parar-1) For U = 0 To (TotalColunas-6) Response.Write(ArrRs(U,I) & "&nbsp;" & "-" & "&nbsp;") Next Response.Write("<br>") Next response.Write("<br>") If Inicio > 1 Then Response.Write("<a href=Pag_GetRows.asp?Inicio=" & (Inicio - Quantidade) & "&" & "Final=" & Parar - Quantidade & "&" & "Quantidade=" & Quantidade & ">") response.Write("<<<<-- VOLTAR") Response.Write("</a>") End If Response.Write("&nbsp;" & "<b>" & "|" & "</b>" & "&nbsp;") If parar < TotalRegistros Then Response.Write("<a href=Pag_GetRows.asp?Inicio=" & Inicio + Quantidade & "&" & "Final=" & Parar + Quantidade & "&" & "Quantidade=" & Quantidade & ">") Response.Write(" AVANÇAR -->>>>") Response.Write("</a>") End If %> </p> </body> </html> conexaoNwind.inc <% cBanco = Server.MapPath("NWIND.mdb") Set Conn = Server.CreateObject("adodb.connection") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source ="& cBanco &";" Conn.Open(strConn) %> Já havia deixando pendurado aqui na seção, mas como ninguém procura, resolvi novamente colocar aqui. Abraços!! [urso]

Mk!!! você diz Templates ? Seria isso que você precisa ? Seria um padrão inteiro para o site..... ? Se for isso, não sei ao certo, mas acho que seja Templates.

Algo sobre On Error !!! Veja se pode lhe ajudar...

Brother!! Achei um tutorial na web do nosso amigo 'GordoBR' que ensina a criar UDL e gerar uma string de conexão para banco de dados SQL Server. Em relação a conectar ambos bancos de dados na mesma pagina, basta que você manipule todos os dados do access sobre uma conexão, após encerrar ela, abra a conexão com SQL, e faça o que é necessario (Vice-versa). Abraços!!! [urso]

Aspers!!!! Estava lendo este tópico (quente não ? ) e realmente percebi um pequeno bate--papo ou importunancia a dúvida. Como sempre disse e volto a dizer, "ninguém aqui é obrigado fazer código pra ninguém". Já tive uma situação desagradavel no forum e sei do que estou falando. Tudo bem que o Mestre Fyoda não conheçe muito sobre desenvolvimento em ASP mas o mesmo, chegou pedindo um código com explicação e foi orientado a estudar/manipular intervalos entre datas com metodo DateDiff. Esta correto, mas se o mesmo realizasse uma pequena busca no forum por 'Data', ele vai achar milhões de coisas interessantes, faceis, e até a resposta para o seu problema e o melhor de tudo, vai aprender e resolver intervalo entre datas; Fora isso, peço, friamente à todos, que evitem dizer onde estão e motivos por não darem código, afina de contas não são obrigado. Se forem demostrar ou enviarem algo que você acredita que seja interessante para pessoa com dúvida, ultilize PM/Email do forum para comunicação, ou até mesmo, se você tem aquela função, que acredita que seja util não só a si, coloque ela no tópico para funções e responda o tópico dizendo que há algo lá semelhante ao que você precisa. E, é isso aí pessoal, vamos fazer do forum, um ótimo lugar para discutir idéia e orientar ajuda. Abraços à todos!!! [ursão]

Oi Jissa!! Observou este pedido no tópico que você deixou no link ? Foi por isso que foi fechado. E outra coisa Brother, não vai não, fica aí com a gente que você mais do nunca é uma referencia no forum. Abraços!!! [urso]