<%
dim estemes, hoje, semana, data, ano, Connstring, con, rs, strsql
Function GetMonth(iThisMonth,iThisYear)
GetMonth=month(dateserial(iThisYear,iThisMonth,1))
End Function
estemes=GetMonth(Month(Now), Year(Now))
'hoje = "0"&Day(Date)
hoje = Day(Date)
semana = hoje+8
'response.Write(semana)
'response.End()
data = date()
ano=(Year(Now))
proximomes= estemes+1
%>
<%
Connstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("teste1\dados\agenda.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;"
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open ConnString
%>
S I A M F E S P