{\rtf1\ansi\ansicpg1252\uc1\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1046\deflangfe1046{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f36\fswiss\fcharset0\fprq2{\*\panose 020b0604030504040204}Verdana;} {\f37\froman\fcharset238\fprq2 Times New Roman CE;}{\f38\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f40\froman\fcharset161\fprq2 Times New Roman Greek;}{\f41\froman\fcharset162\fprq2 Times New Roman Tur;} {\f42\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f43\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f44\froman\fcharset186\fprq2 Times New Roman Baltic;}{\f45\froman\fcharset163\fprq2 Times New Roman (Vietnamese);} {\f397\fswiss\fcharset238\fprq2 Verdana CE;}{\f398\fswiss\fcharset204\fprq2 Verdana Cyr;}{\f400\fswiss\fcharset161\fprq2 Verdana Greek;}{\f401\fswiss\fcharset162\fprq2 Verdana Tur;}{\f404\fswiss\fcharset186\fprq2 Verdana Baltic;} {\f405\fswiss\fcharset163\fprq2 Verdana (Vietnamese);}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255; \red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;\red53\green53\blue53;\red0\green153\blue255;\red255\green51\blue0; \red0\green102\blue0;}{\stylesheet{\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 \snext0 Normal;}{\*\cs10 \additive \ssemihidden Default Paragraph Font;}{\* \ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}{\*\cs15 \additive \strike0\ulnone\cf18\animtext0\striked0 \sbasedon10 \styrsid16474787 Hyperlink;}{\s16\ql \li0\ri0\sb100\sa100\sbauto1\saauto1\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 \sbasedon0 \snext16 \styrsid16474787 Normal (Web);}{\*\cs17 \additive \b \sbasedon10 \styrsid14960781 Strong;}}{\*\rsidtbl \rsid1578012\rsid1580005\rsid2641475\rsid2819002\rsid5073905\rsid5259816\rsid5512496\rsid13860610\rsid14960781\rsid16474787}{\*\generator Microsoft Word 10.0.2627;}{\info {\title T\'edtulo: Enviando e-mails com tags HTML}{\author Digerati}{\operator Digerati}{\creatim\yr2002\mo10\dy30\hr13\min2}{\revtim\yr2002\mo10\dy30\hr13\min2}{\version2}{\edmins1}{\nofpages2}{\nofwords322}{\nofchars1741}{\*\company Digerati} {\nofcharsws2059}{\vern16437}}\margl1701\margr1701\margt1417\margb1417 \deftab708\widowctrl\ftnbj\aenddoc\hyphhotz425\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\formshade\horzdoc\dgmargin\dghspace180\dgvspace180\dghorigin1701\dgvorigin1417 \dghshow1\dgvshow1\jexpand\viewkind1\viewscale100\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule\nobrkwrptbl\snaptogridincell\allowfieldendsel\wrppunct\asianbrkrule\rsidroot2819002 \fet0\sectd \linex0\headery708\footery708\colsx708\endnhere\sectlinegrid360\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3 \pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}} {\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\trowd \irow0\irowband0 \ts11\trgaph15\trleft-29\trftsWidth2\trwWidth5000\trftsWidthA1\trautofit1\trspdl7\trspdt7\trspdb7\trspdr7\trspdfl3\trspdft3\trspdfb3\trspdfr3\trpaddl15\trpaddt15\trpaddb15\trpaddr15\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalb\clbrdrt\brdrtbl \clbrdrl\brdrtbl \clbrdrb\brdrtbl \clbrdrr\brdrtbl \clcbpat8\cltxlrtb\clftsWidth2\clwWidth4000\clcbpatraw8 \cellx7075\pard\plain \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 {\b\f36\fs20\insrsid2641475 T\'edtulo: }{\f36\fs20\insrsid2641475 Rotinas de Loop}{\insrsid2641475 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 { \fs20\insrsid2641475 \trowd \irow0\irowband0\ts11\trgaph15\trleft-29\trftsWidth2\trwWidth5000\trftsWidthA1\trautofit1\trspdl7\trspdt7\trspdb7\trspdr7\trspdfl3\trspdft3\trspdfb3\trspdfr3\trpaddl15\trpaddt15\trpaddb15\trpaddr15\trpaddfl3\trpaddft3 \trpaddfb3\trpaddfr3 \clvertalb\clbrdrt\brdrtbl \clbrdrl\brdrtbl \clbrdrb\brdrtbl \clbrdrr\brdrtbl \clcbpat8\cltxlrtb\clftsWidth2\clwWidth4000\clcbpatraw8 \cellx7075\row }\trowd \irow1\irowband1 \ts11\trgaph15\trleft-29\trftsWidth2\trwWidth5000\trautofit1\trspdl7\trspdt7\trspdb7\trspdr7\trspdfl3\trspdft3\trspdfb3\trspdfr3\trpaddl15\trpaddt15\trpaddb15\trpaddr15\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrtbl \clbrdrl\brdrtbl \clbrdrb\brdrtbl \clbrdrr\brdrtbl \clcbpat8\cltxlrtb\clftsWidth1\clcbpatraw8 \cellx8867\pard \ql \li0\ri0\sa240\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\b\f36\fs20\insrsid2641475 Conteudo:}{\f36\fs20\insrsid2641475 \par }\pard\plain \s16\ql \li0\ri0\sb100\sa100\sbauto1\saauto1\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 {\f36\fs20\cf17\insrsid2641475 Loops s\'e3o rotinas que devem ser repetidas at \'e9 que uma determinada condi\'e7\'e3o seja satisfeita. Existem 3 comandos que permitem tal situa\'e7\'e3o:\line \line }{\field\fldedit{\*\fldinst {\f36\fs20\cf17\insrsid2641475 HYPERLINK "http://www.aspbrasil.com.br/tutoriais/detalhes_tut.asp?cod_tutorial=16" \\l "do#do" }}{\fldrslt {\cs15\f36\fs20\cf18\insrsid2641475 Do...Loop}}}{\f36\fs20\cf17\insrsid2641475 \line }{\field\fldedit{\*\fldinst {\f36\fs20\cf17\insrsid2641475 HYPERLINK "http://www.aspbrasil.com.br/tutoriais/detalhes_tut.asp?cod_tutorial=16" \\l "for#for" }}{\fldrslt {\cs15\f36\fs20\cf18\insrsid2641475 For...Next}}}{\f36\fs20\cf17\insrsid2641475 \line }{\field\fldedit{\*\fldinst {\f36\fs20\cf17\insrsid2641475 HYPERLINK "http://www.aspbrasil.com.br/tutoriais/detalhes_tut.asp?cod_tutorial=16" \\l "while#while" }}{\fldrslt {\cs15\f36\fs20\cf18\insrsid2641475 While...Wend}}}{\f36\fs20\cf17\insrsid2641475 \line \line Abaixo seguem as caracter\'ed sticas e exemplos de cada comando.}{\f36\fs20\insrsid2641475 \par }{\b\f36\fs20\cf17\insrsid2641475 {\*\bkmkstart do}{\*\bkmkend do}Do...Loop}{\f36\fs20\insrsid2641475 \par }{\f36\fs20\cf17\insrsid2641475 O comando Do...Loop executa uma determinada rotina at\'e9 que a condi\'e7\'e3o se torne verdadeira. Observe o exemplo abaixo: }{\f36\fs20\insrsid2641475 \par }{\b\f36\fs20\insrsid2641475 \line }{\b\f36\fs20\cf19\insrsid2641475 <% }{\b\f36\fs20\insrsid2641475 \line }{\b\f36\fs20\cf20\insrsid2641475 x = 0\line Do Until x=10\line x = x + 1\line Loop \line response.write x}{\b\f36\fs20\insrsid2641475 \line }{\b\f36\fs20\cf19\insrsid2641475 %>}{\b\f36\fs20\insrsid2641475 }{\f36\fs20\insrsid2641475 \par }{\f36\fs20\cf17\insrsid2641475 para interromper o Loop, usa-se o comando}{\b\f36\fs20\cf17\insrsid2641475 Exit Do}{\f36\fs20\insrsid2641475 \par }{\field\fldedit{\*\fldinst {\f36\fs20\insrsid2641475 HYPERLINK "http://www.aspbrasil.com.br/script/16_a.asp" \\t "_blank" }}{\fldrslt {\cs15\b\f36\fs20\cf18\insrsid2641475 clique aqui para rodar o c\'f3digo acima}}}{\f36\fs20\insrsid2641475 \line \line }{\f36\fs20\cf17\insrsid2641475 {\*\bkmkstart for}{\*\bkmkend for}For...Next}{\f36\fs20\insrsid2641475 \par }{\f36\fs20\cf17\insrsid2641475 O comando For...Next executa uma determinada rotina at\'e9 que o contador (uma vari\'e1vel) atinja o valor determinado. }{\f36\fs20\cf17\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 Observe o exemplo:}{ \f36\fs20\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 \par }{\b\f36\fs20\cf17\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 \line }{\b\f36\fs20\cf19\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 <%}{ \b\f36\fs20\cf17\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 \line }{\b\f36\fs20\cf20\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 For i=1 to 50\line response.write i\line next }{ \b\f36\fs20\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 \line }{\b\f36\fs20\cf19\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 %>}{\b\f36\fs20\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 }{ \f36\fs20\lang1033\langfe1046\langnp1033\insrsid2641475\charrsid2641475 \par \~ \par }{\b\f36\fs20\insrsid2641475 observe que n\'e3o \'e9 necess\'e1rio nenhuma rotina de incrementa\'e7\'e3o de valores em i. A cada ciclo, o valor de i \'e9 acrescido de uma unidade, automaticamente. }{\f36\fs20\insrsid2641475 \par }{\f36\fs20\cf17\insrsid2641475 para interromper o Loop, usa-se o comando }{\b\f36\fs20\cf17\insrsid2641475 Exit For}{\field\fldedit{\*\fldinst {\b\f36\fs20\insrsid2641475 HYPERLINK "http://www.aspbrasil.com.br/script/16_b.asp" \\t "_blank" }}{\fldrslt { \b\f36\fs20\cf18\insrsid2641475 \line \line }{\cs15\b\f36\fs20\cf18\insrsid2641475 clique aqui para rodar o c\'f3digo acima}}}{\f36\fs20\insrsid2641475 \par }{\b\f36\fs20\insrsid2641475 {\*\bkmkstart while}{\*\bkmkend while}While...Wend}{\f36\fs20\insrsid2641475 \par }{\f36\fs20\cf17\insrsid2641475 O comando While...Wend executa uma determinada rotina at\'e9 que a condi\'e7\'e3o imposta seja alcan\'e7ada. Observe o exemplo dado:}{\f36\fs20\insrsid2641475 \par }{\b\f36\fs20\cf17\insrsid2641475 \line }{\b\f36\fs20\cf19\insrsid2641475 <%}{\f36\fs20\insrsid2641475 \par }\pard\plain \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 {\f36\fs20\insrsid2641475 \par }\pard\plain \s16\ql \li0\ri0\sb100\sa100\sbauto1\saauto1\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 {\b\f36\fs20\cf17\insrsid2641475 q \line = "SELECT * FROM cadastro where cidade = 'S\'e3o Paulo'"\line \line connstring = "DBQ=c:\\teste.mdb;Driver=\{Microsoft Access Driver (*.mdb)\}" \line \line Set Conexao = Server.CreateObject("ADODB.Connection")\line \line Conexao.Open connstring, "","" \line \line Set tabela = Conexao.Execute (q) \line \line }{\b\f36\fs20\cf20\insrsid2641475 While not tabela.EOF\line \line response.write tabela("nome").value\line \line tabela.movenext \line \line wend }{\b\f36\fs20\insrsid2641475 \line \line \line }{ \b\f36\fs20\cf19\insrsid2641475 %>}{\b\f36\fs20\insrsid2641475 }{\f36\fs20\insrsid2641475 \cell }\pard\plain \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 { \fs20\insrsid2641475 \trowd \irow1\irowband1\ts11\trgaph15\trleft-29\trftsWidth2\trwWidth5000\trautofit1\trspdl7\trspdt7\trspdb7\trspdr7\trspdfl3\trspdft3\trspdfb3\trspdfr3\trpaddl15\trpaddt15\trpaddb15\trpaddr15\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrtbl \clbrdrl\brdrtbl \clbrdrb\brdrtbl \clbrdrr\brdrtbl \clcbpat8\cltxlrtb\clftsWidth1\clcbpatraw8 \cellx8867\row }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\b\f36\fs20\insrsid2641475 Autor: } {\field\fldedit{\*\fldinst {\f36\fs20\insrsid2641475 HYPERLINK "mailto:dangelo@aspbrasil.com.br" }}{\fldrslt {\cs15\f36\fs20\cf18\insrsid2641475 Fernando D'Angelo}}}{\insrsid2641475 \cell }\pard \ql \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fs20\insrsid2641475 \trowd \irow2\irowband2\lastrow \ts11\trgaph15\trleft-29\trftsWidth2\trwWidth5000\trautofit1\trspdl7\trspdt7\trspdb7\trspdr7\trspdfl3\trspdft3\trspdfb3\trspdfr3\trpaddl15\trpaddt15\trpaddb15\trpaddr15\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3 \clvertalt\clbrdrt\brdrtbl \clbrdrl\brdrtbl \clbrdrb\brdrtbl \clbrdrr\brdrtbl \clcbpat8\cltxlrtb\clftsWidth1\clcbpatraw8 \cellx8867\row }\pard \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid2641475 {\insrsid5512496\charrsid2641475 \par }}