<% dim sField dim lugar Function TraerMes(lugar) Dim Cn1 Dim Rs1 Set Cn1 = Server.CreateObject ("ADODB.Connection") Cn1.Open "Provider = SQLOLEDB; Data Source = (local); Initial Catalog = porquebiotecnologia; User Id = porquebiotecnologia; Password = menor158mena;" sSql = "Select Max(Mes) Mes From Textos where Tipo = '"&lugar &"' and anio = 2002" Set Rs1 = Cn1.Execute(sSql) TraerMes = Rs1("Mes") Set Cn1 = Nothing End Function Function TraerSemana(sField, lugar) Dim Cn2 Dim Rs2 Set Cn2 = Server.CreateObject ("ADODB.Connection") Cn2.Open "Provider = SQLOLEDB; Data Source = (local); Initial Catalog = porquebiotecnologia; User Id = porquebiotecnologia; Password = menor158mena;" sSql2 = "Select Max(Semana) Semana From Textos where Mes = " & sField & " and Tipo = '"& lugar & "' and anio = 2002" Set Rs2 = Cn2.Execute(sSql2) TraerSemana = Rs2("Semana") Set Cn1 = Nothing End Function %> PorqueBiotecnologia.com.ar

> Home Educativa

www.porquebiotecnologia.com.ar