Archive for the ‘asp’ category

Problema no upload de imagem no ASP

janeiro 11th, 2016

Especificamente utilizando o componente Scripting.Dictionary, com o método Item desse componente ocorre o erro

Microsoft VBScript runtime error ‘800a01a8’
Object required: ‘UploadRequest.Item(…)’

Pesquisando, vi que o problema ocorre depois da instalação do seguinte KB: KB3104002

A Microsoft já disponibilizou correção para ele. O link explicando o problema é https://support.microsoft.com/en-us/kb/3104002

Para download é https://support.microsoft.com/en-us/kb/3125446

Consegui me nortear através do link http://www.scriptbrasil.com.br/forum/topic/181611-erro-de-tempo-de-execu%C3%A7%C3%A3o-do-microsoft-vbscript-erro-800a01a8/

Quebra de linha em ASP

agosto 18th, 2014

No ASP clássico a quebra de linha é vbCrLf

1
<% response.write "Oi" & vbCrLf & "Tudo bem?" %>

É importante usar o vbCrLf, além da tag
, pois o
quebra a linha no html, se for enviar um email com muitos caracteres e não houver essa quebra no asp, pode haver quebra na mensagem devido à não utilização da quebra de linha no asp, conforme é explicado no link

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)
%>