Abra um editor de sua preferência e digite o seguinte:

 

Salve este arquivo como “exemplo.asp”. Pronto, seu primeiro script em ASP foi concluído, a utilidade dele é exibir uma string na página do navegador e com este exemplo, você poderá testar também se o ASP está funcionando ou não.

O resultado deste script será:

Seu texto aqui!

Crie a seguinte estrutura em seu script para que possa conectar:

<%

Dim Conexao

Sub AbreConexao

 

Set Conexao = Server.CreateObject(”ADODB.Connection”)

‘ strConn = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=banco.mdb;”

strConn= “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=banco.mdb;”

Conexao.Open strConn

 

End Sub

 

 

‘Sub rotina para o fechamento da conexão

Sub FechaConexao

 

Conexao.Close

Set Conexao = Nothing

 

End Sub

%>

 

Substitua o nome “banco.mdb” pelo nome do arquivo que desejar conectar.

 

Esta é uma dica para aqueles cuja possuem experiência em programar na linguagem.

Basta utilizar este código abaixo, substituindo onde for necessário:

 

<%

  sch = “http://schemas.microsoft.com/cdo/configuration/”

  Set cdoConfig = Server.CreateObject(”CDO.Configuration”)

  

  Dim nome, email, assunto, mensagem, br

 

  nome = Trim(Request.Form(”nome”))

  email = Trim(Request.Form(”email”))

  assunto = Trim(Request.Form(”assunto”))

  mensagem = Trim( Request.Form(”mensagem”))

  br = “<br>”

 

  cdoConfig.Fields.Item(sch & “sendusing”) = 2

  cdoConfig.Fields.Item(sch & “smtpauthenticate”) = 1

  cdoConfig.Fields.Item (sch & “smtpserver”) = “mail.SEUDOMINIO.XX”

  cdoConfig.Fields.Item(sch & “smtpserverport”) = 25

  cdoConfig.Fields.Item (sch & “sendusing”) = 2

  cdoConfig.Fields.Item(sch & “smtpconnectiontimeout”) = 30

  cdoConfig.Fields.Item(sch & “sendusername”) = ” SEU E-MAIL AQUI “

  cdoConfig.Fields.Item(sch & “sendpassword”) = “SUA SENHA “

  cdoConfig.fields.update

  Set cdoMessage = Server.CreateObject(”CDO.Message”)

  Set cdoMessage.Configuration = cdoConfig

 

  cdoMessage.From = email

  cdoMessage.To = “E-MAIL DE DESTINO “

  cdoMessage.Subject = assunto

 

  htmlText = “<font face=Verdana size=2><b>Nome:</b> ” & nome & br & “<b>E-mail:</b> ” & email & br & ” <b>Assunto:</b> ” & assunto & br & “<b>Mensagem:</b> ” & mensagem & br &”</font>”

 

  cdoMessage.HTMLBody = htmlText

  On Error Resume Next

  cdoMessage.Send

  Set cdoMessage = Nothing

  Set cdoConfig = Nothing

 

  response.Write(”Valeu! ” & nome & br & “Sua mensagem foi enviada com sucesso!”)

  %>

 

Obs.: As variáveis declaradas estão sendo enviadas por uma outra página, basta enviar as informações com o método GET ou POST para a página onde conterá este script acima.

Muitas vezes é necessário alterar permissões de arquivos ou pastas, neste exemplo estaremo ensinando como definir essas permissões.

Entrei em seu painel de controle e clique na opção “Administrador de Arquivos”, logo em seguido clique sobre a permissão do arquivo como mostra a seguinte tela:

Neste exemplo estamos dando permição na pasta “images”. Logo em seguida aparecerá a seguinte tela:

Basta escolher as permissões que desejar e clicar no botão OK.

Pronto, permissões definidas!