<%@LANGUAGE="VBSCRIPT"%> <% Response.Charset = "iso-8859-1" %> Rosāngela Melo - Site Oficial

<% rs.MoveNext loop end if rs.close set rs = nothing call ofCnn %>
<% call onCnn dim sql, rs dim contador, ctd contador = 0 'sql = "select idAgenda, dataAgenda, cidadeAgenda from "&nameBD&".agenda WHERE dataAgenda >= '"&formataDataMysql(date)&"' and dataAgenda <= '"&formataDataMysql(DateAdd("d",5,date))&"' order by dataAgenda asc " sql = "select idAgenda, dataAgenda, cidadeAgenda from "&nameBD&".agenda order by dataAgenda desc " set rs = Server.CreateObject("adodb.recordset") rs.Open sql, cnn if not rs.eof then do while not rs.eof contador = contador + 1 if cint(contador) <> "" or cint(contador) > 0 then if cint(contador) >=1 and cint(contador) =< 9 then ctd = "0"&replace(cint(contador),0,"") else ctd = contador end if end if %>
<%=rs("dataAgenda")%>
<%=ucase(rs("cidadeAgenda"))%>
">VER AGENDA COMPLETA
© ROSANGELA MELO- SITE OFICIAL 2011 - TODOS OS DIREITOS SÃO RESERVADOS.