<% Dim oRS Set oRS = Server.CreateObject("ADODB.Recordset") Set oRS.ActiveConnection = PostCard_GetDatabaseConn() oRS.Open "select numero, imgurl, imgpqurl from imagens" Sub WriteOne( oRS ) Dim Ref, name, img, imgpq imgpq = oRS("imgpqurl").Value Ref = "prepara.asp?numero=" & oRS("numero").Value & "&imagem=" & imgpq Response.Write "

" oRS.MoveNext End Sub %>

Mar, serras, ilhas, enseadas, praias, pontos históricos, tudo se mistura para extasiar os olhos de moradores e visitantes e transformar Angra em local privilegiado para todos que a conhecem.
Compartilhe estes momentos de rara beleza com quem você gosta.
Mande um Cartão Angra on Line.

Escolha ao lado o cartão que desejar
e clique para enviá-lo.