Archive for fevereiro de 2012

Como criar DSN no ColdFusion para MS access 2007

fevereiro 28th, 2012

Como criar uma DSN no ColdFusion para MS access 2007, com extensão *.accdb?

Então, primeiramente, tu tem que instalar o driver pro servidor reconhecer a extensão *.accdb, esse driver tu encontra no site da Microsoft, especificamente no link http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=23734

Depois de instalar, vai no painel de controle > ferramentas administrativas > fontes de dados (OBDC), na janela que abrir clica na aba fonte de dados do sistema.

Nessa parte clique em adicionar, na nova janela que abrir, selecione “Microsoft Access Driver(*.mdb, *.accdb)” 12.00.4518.1014, tem que ser exatamente isso, depois clique em cluir, dê um nome para o Data Source, clique em selecionar para selecionar o banco access com a extensão .accdb, depois clica em ok nas janelas abertas.

Pronto, agora vamos para o administrador do ColdFusion, lá tu cria uma DSN com o driver “ODBC Socket”, dá um nome para a DSN e seleciona a DSN que tu crio no painel de controle, no sistema do ColdFusion, então é só clicar em Submit para criá-la.

Fonte: http://blogs.adobe.com/vikaschandran/2010/12/03/creating-ms-access-2007-database-accdb-extension-datasource-with-coldfusion-9/

Exemplo de envio de email com CFMAIL

fevereiro 28th, 2012
1
2
3
4
5
6
7
8
9
<cfmail
	from = "Script de envio de emails ASP <email@dominio.com.br>"
	to = "Contato Site <email@dominio.com.br>"
	subject = "Assunto do email"
	server = "smtp-web.kinghost.net"
	type = "text"
>
Este é um email teste
</cfmail>

Exemplo OWC11.ChartSpace

fevereiro 23rd, 2012

Abaixo um exemplo funcional do OWC11.ChartSpace

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 <%
Set oChart = CreateObject("OWC11.ChartSpace")
Set c = oChart.Constants
oChart.Border.Color = c.chColorNone
Dim categories(3), Vals(3), Vals2(3)
' críe um array que represente os valores da primeira série.
Vals(0) = 20
Vals(1) = 40
Vals(2) = 30
Vals(3) = 10
' críe um array que represente os valores da segunda série.
Vals2(0) = 35
Vals2(1) = 35
Vals2(2) = 25
Vals2(3) = 5
' gráfico de coluna com as duas séries e quatro categorias.
' críe um array que represente as categorias, as categorias serão as mesmas para as duas séries.
categories(0) = "Zona Norte"
categories(1) = "Zona Sul"
categories(2) = "Zona Oeste"
categories(3) = "Zona Leste"
With oChart
' adicionando um objeto do gráfico.
.Charts.Add
' adicionando o tipo do gráfico.
.Charts(0).Type = oChart.Constants.chChartTypeColumn3d
' adicionando a primeira série ao gráfico.
.Charts(0).SeriesCollection.Add
' ajustando o subtítulo da série (o texto da legenda).
.Charts(0).SeriesCollection(0).Caption = "Faturamento por Região - Setembro"
' adicionando as categorias e os valores da primeira série.
.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Vals
End With
' adicionando a segunda série ao gráfico, legenda, categorias e valores.
With oChart
.Charts(0).SeriesCollection.Add
.Charts(0).SeriesCollection(1).Caption = "Faturamento por Região - Agosto"
.Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, Categories
.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, Vals2
.Charts(0).HasLegend = True
.Charts(0).HasTitle = True
End With
Response.Expires = 0
Response.Buffer = true
Response.Clear
Response.ContentType = "image/gif"
'ajustando o tamanho do gráfico (figura).
Response.BinaryWrite oChart.GetPicture("gif",750, 400)
%>