!--include file="nomedoarquivo.asp"--

coloque dentro de <>

<% Dim conexao
Dim Caminho
Dim RS
Caminho ="C:\inetpub\wwwroot\site\database\BDproject.mdb"
Set conexao = Server.CreateObject("ADODB.Connection") conexao.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Caminho
%>

Navegar pela internet significa se expor a uma quantidade absurda de ameaças de diferentes tipos. O mais grave é que, a cada dia, milhares de novos vírus são desenvolvidos pelo simples “prazer” de prejudicar os usuários da internet. E foi-se o tempo em que estes perigos se limitavam a e-mails. Hoje, visitar uma página mal intencionada pode ser suficiente para colocar a segurança de suas informações em risco.

O NOD32 é um antivírus desenvolvido para prever as ameaças e impedir que você as acesse, ao invés de remediar seu computador já infectado. O programa foi altamente elogiado e caiu nas graças do público justamente por essa característica preventiva, chamada Proteção Proativa.

Este é um protetor com um altíssimo nível de detecção e eliminação de vírus, trojans, worms, adwares, spywares, phishings e rootkits — palavras que tiram o sono de inúmeros usuários. O programa protege diferentes sistemas: Windows XP, MS-DOS, servidores e outros.

Méritos para: http://www.baixaki.com.br/download/nod32.htm

For variavel := inicio to fim do
begin
processo;
end;

procedure Tform1.usandoFor;
begin
for i:=1 to 10 do
begin
ShowMessage("Mensagem " + IntToStr(i));
end;
end;
end.

while (condição) do
begin
processo;

contador;
end;

i:= 1;
procedure Tform1.usandoWhile;
begin
while(i <= 10) do
begin
ShowMessage("Mensagem " + IntToStr(i));
i:=i+1;
end;
end;
end.