<%
IDPa =request("IDPa")
%>
<%
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.open "PASP","PASP","PASP"
Set Session("PASP_conn2") = conn2
sql = "select * from parm_01 where IDPa="& IDPa &""
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, conn2, 3, 3
rs2.movefirst
%>
<%
IDPa = rs2("IDPa")
Email_Des=rs2("Email")
Date_Ann=rs2("Date")
Rub_Ann=rs2("Vteach")&" " &rs2("Rubric")
rs2.close
conn2.close
set rs2=nothing
set conn2=nothing
%>