<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Arquivos programação - Adeilson :)</title>
	<atom:link href="https://adeilson.com.br/tag/programacao/feed/" rel="self" type="application/rss+xml" />
	<link>https://adeilson.com.br/tag/programacao/</link>
	<description>Anotações ao alcance de todos ! ! !</description>
	<lastBuildDate>Fri, 24 Feb 2017 17:44:03 +0000</lastBuildDate>
	<language>pt-BR</language>
	<sy:updatePeriod>
	hourly	</sy:updatePeriod>
	<sy:updateFrequency>
	1	</sy:updateFrequency>
		<item>
		<title>Sequência de números em linha no SQL Server</title>
		<link>https://adeilson.com.br/2017/02/24/sequencia-de-numeros-em-linha-no-sql-server/</link>
					<comments>https://adeilson.com.br/2017/02/24/sequencia-de-numeros-em-linha-no-sql-server/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Fri, 24 Feb 2017 17:44:03 +0000</pubDate>
				<category><![CDATA[Utilitários]]></category>
		<category><![CDATA[desenvolvimento]]></category>
		<category><![CDATA[developer]]></category>
		<category><![CDATA[programação]]></category>
		<category><![CDATA[sql]]></category>
		<category><![CDATA[sql_server]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=496</guid>

					<description><![CDATA[SELECT STUFF((SELECT ' ' + CAST(NUMBER AS VARCHAR) FROM MASTER..SPT_VALUES WHERE NUMBER BETWEEN 2000 AND 2010 FOR XML PATH ('')), 1, 1, ''); &#160;]]></description>
										<content:encoded><![CDATA[<pre class="lang:tsql decode:true ">SELECT
  STUFF((SELECT
    ' ' + CAST(NUMBER AS VARCHAR)
  FROM MASTER..SPT_VALUES
  WHERE NUMBER BETWEEN 2000 AND 2010
  FOR XML PATH ('')), 1, 1, '');</pre>
<p>&nbsp;</p>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2017/02/24/sequencia-de-numeros-em-linha-no-sql-server/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
		<item>
		<title>Debug de uma janela popup</title>
		<link>https://adeilson.com.br/2015/10/30/debug-de-uma-janela-popup/</link>
					<comments>https://adeilson.com.br/2015/10/30/debug-de-uma-janela-popup/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Fri, 30 Oct 2015 11:16:40 +0000</pubDate>
				<category><![CDATA[ABAP]]></category>
		<category><![CDATA[abap]]></category>
		<category><![CDATA[desenvolvimento]]></category>
		<category><![CDATA[developer]]></category>
		<category><![CDATA[programação]]></category>
		<category><![CDATA[sap]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=424</guid>

					<description><![CDATA[Crie um arquivo TXT com o seguinte conteúdo: [FUNCTION] Command=/H Title=Debugger Type=SystemCommand Após isso, sobre uma janela popup, arraste esse arquivo (drag and drop).]]></description>
										<content:encoded><![CDATA[<p>Crie um arquivo TXT com o seguinte conteúdo:</p>
<p>[FUNCTION]<br />
Command=/H<br />
Title=Debugger<br />
Type=SystemCommand</p>
<p>Após isso, sobre uma janela popup, arraste esse arquivo (drag and drop).</p>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2015/10/30/debug-de-uma-janela-popup/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
		<item>
		<title>Matchcode com tabela interna</title>
		<link>https://adeilson.com.br/2015/10/23/matchcode-com-tabela-interna/</link>
					<comments>https://adeilson.com.br/2015/10/23/matchcode-com-tabela-interna/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Fri, 23 Oct 2015 17:34:41 +0000</pubDate>
				<category><![CDATA[ABAP]]></category>
		<category><![CDATA[abap]]></category>
		<category><![CDATA[desenvolvimento]]></category>
		<category><![CDATA[developer]]></category>
		<category><![CDATA[programação]]></category>
		<category><![CDATA[sap]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=417</guid>

					<description><![CDATA[REPORT zmatch. TYPES: BEGIN OF ty_t001w, werks TYPE t001w-werks, sep TYPE c LENGTH 3, name1 TYPE t001w-name1, END OF ty_t001w. DATA: t_t001w TYPE TABLE OF ty_t001w, "#EC NEEDED w_t001w TYPE ty_t001w, l_index TYPE sy-tabix. "#EC NEEDED SELECTION-SCREEN BEGIN OF BLOCK &#8230; <a href="https://adeilson.com.br/2015/10/23/matchcode-com-tabela-interna/">Continue lendo <span class="meta-nav">&#8594;</span></a>]]></description>
										<content:encoded><![CDATA[<pre class="lang:abap decode:true  " title="Matchcode com tabela interna">REPORT  zmatch.

TYPES: BEGIN OF ty_t001w,
    werks TYPE t001w-werks,
    sep   TYPE c LENGTH 3,
    name1 TYPE t001w-name1,
  END OF ty_t001w.

DATA: t_t001w TYPE TABLE OF ty_t001w,                       "#EC NEEDED
      w_t001w TYPE ty_t001w,
      l_index TYPE sy-tabix.                                "#EC NEEDED

SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS: p1 TYPE c LENGTH 4.
SELECT-OPTIONS: p2 FOR w_t001w-werks NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1.
  SELECT werks name1
    INTO CORRESPONDING FIELDS OF TABLE t_t001w
    FROM t001w
   WHERE vtweg = '10'.

  w_t001w-sep = ' - '.
  MODIFY t_t001w FROM w_t001w TRANSPORTING sep WHERE sep IS INITIAL.

  CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
    EXPORTING
      endpos_col   = 70
      endpos_row   = 20
      startpos_col = 43
      startpos_row = 1
      titletext    = 'SELECIONAR O CENTRO'
    IMPORTING
      choise       = l_index
    TABLES
      valuetab     = t_t001w
    EXCEPTIONS
      break_off    = 1
      OTHERS       = 2.

  IF sy-subrc IS NOT INITIAL.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  IF l_index IS NOT INITIAL.
    READ TABLE t_t001w INTO w_t001w INDEX l_index.
*    MESSAGE w_t001w-name1 TYPE 'I'.
    p1 = w_t001w-werks.
  ENDIF.

START-OF-SELECTION.
*  CLEAR: t_t001w, t_t001w[], w_t001w.
*  SELECT werks name1
*  INTO CORRESPONDING FIELDS OF TABLE t_t001w
*  FROM t001w
* WHERE werks = p1.
*  READ TABLE t_t001w INTO w_t001w INDEX 1.
  WRITE: / w_t001w-name1.

END-OF-SELECTION.</pre>
<p>&nbsp;</p>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2015/10/23/matchcode-com-tabela-interna/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
		<item>
		<title>CommonDialog com Múltiplos Arquivos VB6</title>
		<link>https://adeilson.com.br/2010/02/25/commondialog-com-multiplos-arquivos-vb6/</link>
					<comments>https://adeilson.com.br/2010/02/25/commondialog-com-multiplos-arquivos-vb6/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Thu, 25 Feb 2010 11:36:30 +0000</pubDate>
				<category><![CDATA[Utilitários]]></category>
		<category><![CDATA[desenvolvimento]]></category>
		<category><![CDATA[microsoft]]></category>
		<category><![CDATA[programação]]></category>
		<category><![CDATA[vb6]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=100</guid>

					<description><![CDATA[On Error GoTo Erro CD1.CancelError = True CD1.Filter = &#8220;Bibliotecas&#124;*.OCX;*.DLL&#124;Todos os Arquivos&#124;*.*&#8221; CD1.FilterIndex = 1 CD1.DialogTitle = &#8220;Selecionar Bibliotecas&#8221; CD1.MaxFileSize = &#38;H7FFF &#8216; 32KB buffer CD1.flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNLongNames Or cdlOFNAllowMultiselect Or cdlOFNExplorer CD1.ShowOpen If CD1.FileName &#60;&#62; &#8230; <a href="https://adeilson.com.br/2010/02/25/commondialog-com-multiplos-arquivos-vb6/">Continue lendo <span class="meta-nav">&#8594;</span></a>]]></description>
										<content:encoded><![CDATA[<p>On Error GoTo Erro<br />
CD1.CancelError = True<br />
CD1.Filter = &#8220;Bibliotecas|*.OCX;*.DLL|Todos os Arquivos|*.*&#8221;<br />
CD1.FilterIndex = 1<span id="more-100"></span> CD1.DialogTitle = &#8220;Selecionar Bibliotecas&#8221;<br />
CD1.MaxFileSize = &amp;H7FFF &#8216; 32KB buffer<br />
CD1.flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNLongNames Or cdlOFNAllowMultiselect Or cdlOFNExplorer<br />
CD1.ShowOpen<br />
If CD1.FileName &lt;&gt; &#8220;&#8221; Then<br />
If InStr(CD1.FileName, Chr(0)) Then<br />
&#8216;selecionado vários arquivos<br />
Arquivos = Split(CD1.FileName, Chr(0))<br />
For i = 1 To UBound(Arquivos)<br />
MsgBox Arquivos(0) &amp; &#8220;\&#8221; &amp; Arquivos(i)<br />
Next<br />
Else<br />
&#8216;selecionado um único arquivo<br />
MsgBox CD1.FileName<br />
End If<br />
End If<br />
On Error GoTo 0<br />
Erro:</p>
<p>Contribuição: Adriano Paladini</p>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2010/02/25/commondialog-com-multiplos-arquivos-vb6/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
		<item>
		<title>Script para gerar número randômico no SQL Server</title>
		<link>https://adeilson.com.br/2010/02/23/script-para-gerar-numero-randomico-no-sql-server/</link>
					<comments>https://adeilson.com.br/2010/02/23/script-para-gerar-numero-randomico-no-sql-server/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Tue, 23 Feb 2010 18:43:39 +0000</pubDate>
				<category><![CDATA[Utilitários]]></category>
		<category><![CDATA[banco]]></category>
		<category><![CDATA[microsoft]]></category>
		<category><![CDATA[programação]]></category>
		<category><![CDATA[sql]]></category>
		<category><![CDATA[sql_server]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=95</guid>

					<description><![CDATA[Random Number Generator There are many methods to generate random number in SQL Server. Method 1 : Generate Random Numbers (Int) between Rang ---- Create the variables for the random number generation DECLARE @Random INT; DECLARE @Upper INT; DECLARE @Lower &#8230; <a href="https://adeilson.com.br/2010/02/23/script-para-gerar-numero-randomico-no-sql-server/">Continue lendo <span class="meta-nav">&#8594;</span></a>]]></description>
										<content:encoded><![CDATA[<div class="entry">
<div class="snap_preview">
<p style="text-align: justify;"><span style="font-weight: bold;"> Random Number Generator</span></p>
<p style="text-align: justify;">There are many methods to generate random number in SQL Server.</p>
<p style="text-align: justify;"><span style="font-weight: bold;">Method 1 : Generate Random Numbers (Int) between Rang</span></p>
<p><code style="font-size: 12px;"><span style="color: green;">---- Create the variables for the random number generation</span></code></p>
<p><code style="font-size: 12px;"><span style="color: blue;">DECLARE </span><span style="color: #434343;">@Random </span><span style="color: blue;">INT</span><span style="color: gray;">;<span id="more-95"></span></span></code></p>
<p><code style="font-size: 12px;"><span style="color: blue;">DECLARE </span><span style="color: #434343;">@Upper </span><span style="color: blue;">INT</span><span style="color: gray;">;</span></p>
<p></code><code style="font-size: 12px;"><span style="color: blue;">DECLARE </span><span style="color: #434343;">@Lower </span><span style="color: blue;">INT</span></code></p>
<p style="text-align: justify;"><code style="font-size: 12px;"><span style="color: green;">---- This will create a random number between 1 and 999</span></code></p>
<p><code style="font-size: 12px;"><span style="color: blue;">SET </span><span style="color: #434343;">@Lower </span><span style="color: blue;">= </span><span style="color: black;">1 </span><span style="color: green;">---- The lowest random number</span></code></p>
<p><code style="font-size: 12px;"><span style="color: blue;">SET </span><span style="color: #434343;">@Upper </span><span style="color: blue;">= </span><span style="color: black;">999 </span><span style="color: green;">---- The highest random number</span></p>
<p><span style="color: blue;">SELECT </span><span style="color: #434343;">@Random </span><span style="color: blue;">= </span><span style="color: magenta;">ROUND</span><span style="color: gray;">(((</span><span style="color: #434343;">@Upper </span><span style="color: gray;">- </span><span style="color: #434343;">@Lower </span><span style="color: gray;">-</span><span style="color: black;">1</span><span style="color: gray;">) * </span><span style="color: magenta;">RAND</span><span style="color: gray;">() + </span><span style="color: #434343;">@Lower</span><span style="color: gray;">), </span><span style="color: black;">0</span><span style="color: gray;">)</span></p>
<p></code><code style="font-size: 12px;"><span style="color: blue;">SELECT </span><span style="color: #434343;">@Random</span></code></p>
<p><span style="font-weight: bold;">Method 2</span> : <span style="font-weight: bold;">Generate Random Float Numbers</span></p>
<p><code style="font-size: 12px;"><span style="color: blue;">SELECT </span><span style="color: magenta;">RAND</span><span style="color: gray;">( (</span><span style="color: magenta;">DATEPART</span><span style="color: gray;">(</span><span style="color: black;">mm</span><span style="color: gray;">, </span><span style="color: magenta;">GETDATE</span><span style="color: gray;">()) * </span><span style="color: black;">100000 </span><span style="color: gray;">)</span></code></p>
<p><code style="font-size: 12px;">+ (<span style="color: magenta;">DATEPART</span><span style="color: gray;">(</span><span style="color: black;">ss</span><span style="color: gray;">, </span><span style="color: magenta;">GETDATE</span><span style="color: gray;">()) * </span><span style="color: black;">1000 </span><span style="color: gray;">)</span></code></p>
<p><code style="font-size: 12px;"> </code><code style="font-size: 12px;">+ <span style="color: magenta;">DATEPART</span><span style="color: gray;">(</span><span style="color: black;">ms</span><span style="color: gray;">, </span><span style="color: magenta;">GETDATE</span><span style="color: gray;">()) )</span></code></p>
<p><span style="font-weight: bold;"> </span></p>
<p>Method 3 : Random Numbers Quick Scripts</p>
<p><code style="font-size: 12px;"><span style="color: green;">---- random float from 0 up to 20 - [0, 20)</span></code></p>
<p><code style="font-size: 12px;"><span style="color: blue;">SELECT </span><span style="color: black;">20</span><span style="color: gray;">*</span><span style="color: magenta;">RAND</span><span style="color: gray;">()</span></code></p>
<p><code style="font-size: 12px;"><span style="color: green;">-- random float from 10 up to 30 - [10, 30)</span></p>
<p><span style="color: blue;">SELECT </span><span style="color: black;">10 </span><span style="color: gray;">+ (</span><span style="color: black;">30</span><span style="color: gray;">-</span><span style="color: black;">10</span><span style="color: gray;">)*</span><span style="color: magenta;">RAND</span><span style="color: gray;">()</span></p>
<p><span style="color: green;">--random integer </span><span style="color: gray;">BETWEEN </span><span style="color: black;">0</span></p>
<p><span style="color: gray;">AND </span><span style="color: black;">20 </span><span style="color: gray;">- </span><span style="color: black;">[0, 20]</span></p>
<p><span style="color: blue;">SELECT </span><span style="color: magenta;">CONVERT</span><span style="color: gray;">(</span><span style="color: blue;">INT</span><span style="color: gray;">, (</span><span style="color: black;">20</span><span style="color: gray;">+</span><span style="color: black;">1</span><span style="color: gray;">)*</span><span style="color: magenta;">RAND</span><span style="color: gray;">())</span></p>
<p><span style="color: green;">----random integer </span><span style="color: gray;">BETWEEN </span><span style="color: black;">10</span></p>
<p><span style="color: gray;">AND </span><span style="color: black;">30 </span><span style="color: gray;">- </span><span style="color: black;">[10, 30]</span></p>
<p></code><code style="font-size: 12px;"><span style="color: blue;">SELECT </span><span style="color: black;">10 </span><span style="color: gray;">+ </span><span style="color: magenta;">CONVERT</span><span style="color: gray;">(</span><span style="color: blue;">INT</span><span style="color: gray;">, (</span><span style="color: black;">30</span><span style="color: gray;">-</span><span style="color: black;">10</span><span style="color: gray;">+</span><span style="color: black;">1</span><span style="color: gray;">)*</span><span style="color: magenta;">RAND</span><span style="color: gray;">())</span></code></p>
<p><span style="font-weight: bold;"> </span></p>
<p>Method 4 : Random Numbers (Float, Int) Tables Based with Time</p>
<p><code style="font-size: 12px;"><span style="color: blue;">DECLARE </span><span style="color: #434343;">@t </span><span style="color: blue;">TABLE</span><span style="color: gray;">( </span><span style="color: black;">randnum float </span><span style="color: gray;">)</span></code></p>
<p><code style="font-size: 12px;"><span style="color: blue;">DECLARE </span><span style="color: #434343;">@cnt </span><span style="color: blue;">INT</span><span style="color: gray;">; </span><span style="color: blue;">SET </span><span style="color: #434343;">@cnt </span><span style="color: blue;">= </span><span style="color: black;">0</span></code></p>
<p><code style="font-size: 12px;"><span style="color: blue;">WHILE </span><span style="color: #434343;">@cnt </span><span style="color: gray;">&lt;=</span><span style="color: black;">10000</span></p>
<p><span style="color: blue;">BEGIN</span></p>
<p>SET <span style="color: #434343;">@cnt </span><span style="color: blue;">= </span><span style="color: #434343;">@cnt </span><span style="color: gray;">+ </span><span style="color: black;">1</span></p>
<p><span style="color: blue;">INSERT INTO </span><span style="color: #434343;">@t</span></p>
<p><span style="color: blue;">SELECT </span><span style="color: magenta;">RAND</span><span style="color: gray;">( (</span><span style="color: magenta;">DATEPART</span><span style="color: gray;">(</span><span style="color: black;">mm</span><span style="color: gray;">, </span><span style="color: magenta;">GETDATE</span><span style="color: gray;">()) * </span><span style="color: black;">100000 </span><span style="color: gray;">)</span></p>
<p>+ (<span style="color: magenta;">DATEPART</span><span style="color: gray;">(</span><span style="color: black;">ss</span><span style="color: gray;">, </span><span style="color: magenta;">GETDATE</span><span style="color: gray;">()) * </span><span style="color: black;">1000 </span><span style="color: gray;">)</span></p>
<p>+ <span style="color: magenta;">DATEPART</span><span style="color: gray;">(</span><span style="color: black;">ms</span><span style="color: gray;">, </span><span style="color: magenta;">GETDATE</span><span style="color: gray;">()) )</span></p>
<p><span style="color: blue;">END</span></p>
<p>SELECT <span style="color: black;">randnum</span><span style="color: gray;">, </span><span style="color: magenta;">COUNT</span><span style="color: gray;">(*)</span></p>
<p><span style="color: blue;">FROM </span><span style="color: #434343;">@t</span></p>
<p></code><code style="font-size: 12px;"><span style="color: blue;">GROUP BY </span><span style="color: black;">randnum</span></code></p>
<p><span style="font-weight: bold;"> </span></p>
<p>Method 5 : Random number on a per row basis</p>
<p><code style="font-size: 12px;"><span style="color: black;"> </span><span style="color: green;">---- The distribution is pretty good however there are the occasional peaks.</span></code></p>
<p><code style="font-size: 12px;">---- If you want to change the range of values just change the 1000 to the maximum value you want.</code></p>
<p><code style="font-size: 12px;">---- Use this as the source of a report server report and chart the results to see the distribution</p>
<p><span style="color: blue;">SELECT </span><span style="color: black;">randomNumber</span><span style="color: gray;">, </span><span style="color: magenta;">COUNT</span><span style="color: gray;">(</span><span style="color: black;">1</span><span style="color: gray;">) </span><span style="color: black;">countOfRandomNumber</span></p>
<p><span style="color: blue;">FROM </span><span style="color: gray;">(</span></p>
<p><span style="color: blue;">SELECT </span><span style="color: magenta;">ABS</span><span style="color: gray;">(</span><span style="color: magenta;">CAST</span><span style="color: gray;">(</span><span style="color: magenta;">NEWID</span><span style="color: gray;">() </span><span style="color: blue;">AS </span><span style="color: black;">binary</span><span style="color: gray;">(</span><span style="color: black;">6</span><span style="color: gray;">)) %</span><span style="color: black;">1000</span><span style="color: gray;">) + </span><span style="color: black;">1 randomNumber</span></p>
<p><span style="color: blue;">FROM </span><span style="color: black;">sysobjects</span><span style="color: gray;">) </span><span style="color: black;">sample</span></p>
<p><span style="color: blue;">GROUP BY </span><span style="color: black;">randomNumber</span></p>
<p></code><code style="font-size: 12px;"><span style="color: blue;">ORDER BY </span><span style="color: black;">randomNumber</span></code></p>
<p>Fonte: <strong>Pinal Dave (</strong><a href="http://blog.SQLAuthority.com" target="_blank"><strong>http://blog.SQLAuthority.com</strong></a><strong>), Simon Sabin (<a href="http://sqlblogcasts.com/blogs/simons/archive/2005/06/13/Random-number-on-a-per-row-basis.aspx" target="_blank">http://sqlblogcasts.com</a>)</strong></p>
<p><strong> </strong></p>
</div>
</div>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2010/02/23/script-para-gerar-numero-randomico-no-sql-server/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
		<item>
		<title>Deixar endereço dinâmico ASP</title>
		<link>https://adeilson.com.br/2010/01/05/deixar-endereco-dinamico-asp/</link>
					<comments>https://adeilson.com.br/2010/01/05/deixar-endereco-dinamico-asp/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Tue, 05 Jan 2010 00:48:10 +0000</pubDate>
				<category><![CDATA[Utilitários]]></category>
		<category><![CDATA[asp]]></category>
		<category><![CDATA[desenvolvimento]]></category>
		<category><![CDATA[developer]]></category>
		<category><![CDATA[programação]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=36</guid>

					<description><![CDATA[http://&#60;%=Request.ServerVariables(&#8220;HTTP_HOST&#8221;)%&#62;]]></description>
										<content:encoded><![CDATA[<p>http://&lt;%=Request.ServerVariables(&#8220;HTTP_HOST&#8221;)%&gt;</p>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2010/01/05/deixar-endereco-dinamico-asp/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
		<item>
		<title>Página ASP interpretando imagem jpg</title>
		<link>https://adeilson.com.br/2010/01/05/pagina-asp-interpretando-imagem-jpg/</link>
					<comments>https://adeilson.com.br/2010/01/05/pagina-asp-interpretando-imagem-jpg/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Tue, 05 Jan 2010 00:43:18 +0000</pubDate>
				<category><![CDATA[Utilitários]]></category>
		<category><![CDATA[asp]]></category>
		<category><![CDATA[desenvolvimento]]></category>
		<category><![CDATA[developer]]></category>
		<category><![CDATA[programação]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=28</guid>

					<description><![CDATA[&#60;!&#8211; imagem.asp &#8211;&#62; &#60;% &#8216;IF Request.ServerVariables(&#8220;HTTP_REFERER&#8221;) &#60;&#62; Request.ServerVariables(&#8220;SERVER_NAME&#8221;) and Request.ServerVariables(&#8220;HTTP_REFERER&#8221;) = &#8220;&#8221; THEN &#8216;response.write &#8220;Página inválida!&#8221; &#8216;response.End() &#8216;end if Set Objstr = Server.CreateObject(&#8220;ADODB.Stream&#8221;) ObjStr.Type = 1 &#8216;adtext ObjStr.Open Objstr.LoadFromFile Server.MapPath(&#8220;imagens\calendar.jpg&#8221;) mytextFile = ObjStr.Read Set ObjStr = Nothing Response.ContentType = &#8220;image/jpg&#8221; &#8230; <a href="https://adeilson.com.br/2010/01/05/pagina-asp-interpretando-imagem-jpg/">Continue lendo <span class="meta-nav">&#8594;</span></a>]]></description>
										<content:encoded><![CDATA[<p>&lt;!&#8211; imagem.asp &#8211;&gt;<br />
&lt;% &#8216;IF Request.ServerVariables(&#8220;HTTP_REFERER&#8221;) &lt;&gt; Request.ServerVariables(&#8220;SERVER_NAME&#8221;) and Request.ServerVariables(&#8220;HTTP_REFERER&#8221;) = &#8220;&#8221; THEN<br />
&#8216;response.write &#8220;Página inválida!&#8221;<br />
&#8216;response.End()<br />
&#8216;end if<br />
Set Objstr = Server.CreateObject(&#8220;ADODB.Stream&#8221;)<br />
ObjStr.Type  = 1 &#8216;adtext<br />
ObjStr.Open<br />
Objstr.LoadFromFile Server.MapPath(&#8220;imagens\calendar.jpg&#8221;)<br />
mytextFile = ObjStr.Read<br />
Set  ObjStr = Nothing<br />
Response.ContentType = &#8220;image/jpg&#8221;<br />
Response.BinaryWrite mytextFile<br />
Response.End<br />
%&gt;</p>
<p>&lt;!&#8211; teste.asp &#8211;&gt;<br />
&lt;img src=&#8221;imagem.asp&#8221; /&gt;</p>
<div><span style="font-family: monospace;"><span style="line-height: normal; white-space: pre-wrap;"><br />
</span></span></div>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2010/01/05/pagina-asp-interpretando-imagem-jpg/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
		<item>
		<title>Linha do erro no VB6</title>
		<link>https://adeilson.com.br/2010/01/05/linha-do-erro-no-vb6/</link>
					<comments>https://adeilson.com.br/2010/01/05/linha-do-erro-no-vb6/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Tue, 05 Jan 2010 00:37:01 +0000</pubDate>
				<category><![CDATA[Achados]]></category>
		<category><![CDATA[desenvolvimento]]></category>
		<category><![CDATA[developer]]></category>
		<category><![CDATA[programação]]></category>
		<category><![CDATA[vb6]]></category>
		<category><![CDATA[visual_basic_6]]></category>
		<category><![CDATA[windows]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=23</guid>

					<description><![CDATA[http://msdn.microsoft.com/en-us/library/97sx19w1(VS.80).aspx]]></description>
										<content:encoded><![CDATA[<p><a href="http://msdn.microsoft.com/en-us/library/97sx19w1(VS.80).aspx">http://msdn.microsoft.com/en-us/library/97sx19w1(VS.80).aspx</a></p>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2010/01/05/linha-do-erro-no-vb6/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
		<item>
		<title>Testar post no ASP</title>
		<link>https://adeilson.com.br/2010/01/05/testar-post-no-asp/</link>
					<comments>https://adeilson.com.br/2010/01/05/testar-post-no-asp/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Tue, 05 Jan 2010 00:33:39 +0000</pubDate>
				<category><![CDATA[Utilitários]]></category>
		<category><![CDATA[asp]]></category>
		<category><![CDATA[desenvolvimento]]></category>
		<category><![CDATA[developer]]></category>
		<category><![CDATA[programação]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=18</guid>

					<description><![CDATA[If Request.ServerVariables(&#8220;REQUEST_METHOD&#8221;) = &#8220;POST&#8221; Then]]></description>
										<content:encoded><![CDATA[<p>If Request.ServerVariables(&#8220;REQUEST_METHOD&#8221;) = &#8220;POST&#8221; Then</p>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2010/01/05/testar-post-no-asp/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
		<item>
		<title>Cabeçalho ASP</title>
		<link>https://adeilson.com.br/2010/01/05/cabecalho-asp/</link>
					<comments>https://adeilson.com.br/2010/01/05/cabecalho-asp/#respond</comments>
		
		<dc:creator><![CDATA[Adeilson]]></dc:creator>
		<pubDate>Tue, 05 Jan 2010 00:32:57 +0000</pubDate>
				<category><![CDATA[Utilitários]]></category>
		<category><![CDATA[asp]]></category>
		<category><![CDATA[desenvolvimento]]></category>
		<category><![CDATA[developer]]></category>
		<category><![CDATA[programação]]></category>
		<category><![CDATA[web]]></category>
		<guid isPermaLink="false">http://adeilson.com.br/?p=16</guid>

					<description><![CDATA[&#60;%response.Charset = &#8220;ISO-8859-1&#8243;%&#62; &#60;%@LANGUAGE=&#8221;VBSCRIPT&#8221; CODEPAGE=&#8221;65001&#8243;%&#62;]]></description>
										<content:encoded><![CDATA[<p>&lt;%response.Charset = &#8220;ISO-8859-1&#8243;%&gt;<br />
&lt;%@LANGUAGE=&#8221;VBSCRIPT&#8221; CODEPAGE=&#8221;65001&#8243;%&gt;</p>
]]></content:encoded>
					
					<wfw:commentRss>https://adeilson.com.br/2010/01/05/cabecalho-asp/feed/</wfw:commentRss>
			<slash:comments>0</slash:comments>
		
		
			</item>
	</channel>
</rss>
