<%
option explicit
dim strDSN, cn, rc
'strDSN="dsn=internetsolution;uid=sa;pwd=;database=internetsolution"
'strDSN="dsn=internet;uid=sa;pwd=;database=teste"
strDSN="dsn=eProject;uid=sa;pwd=;database=eProject"
function conectar
set cn = Server.CreateObject("Adodb.connection")
cn.Open strDSN
set conectar = cn
end function
function f_recordset(strSQL, con)
set rc = Server.CreateObject("ADOR.Recordset")
rc.Open strSQL, con, 2, 1
set f_recordset = rc
end function
function t_i(v_i)
if not isnumeric(v_i) then
t_i = 0
else
t_i = v_i
end if
end function
Function formataDataBrasil(d)
formataDataBrasil = right("00"&DatePart("d",d),2) & "/" & right("00"&DatePart("m",d),2) & "/" & DatePart("yyyy", d)
End Function
function converteParaDataCanonica(d)
dim i1, i2, day, month, year, monthString
i1=instr(d,"/")
i2=instr(i1+1,d,"/")
day=left(d,i1-1)
month=mid(d,i1+1,i2-i1-1)
year=right(d,len(d)-i2)
select case month
case 1: monthString="Jan"
case 2: monthString="Feb"
case 3: monthString="Mar"
case 4: monthString="Apr"
case 5: monthString="May"
case 6: monthString="Jun"
case 7: monthString="Jul"
case 8: monthString="Aug"
case 9: monthString="Sep"
case 10: monthString="Oct"
case 11: monthString="Nov"
case 12: monthString="Dec"
end select
converteParaDataCanonica=day&"-"&monthString&"-"&year
end function
%>
Psiclínica S/C Ltda.