% dim con,rs,rs1,ss set con = server.CreateObject("adodb.connection") set rs = server.CreateObject("adodb.Recordset") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/epraja/NGO/NGOS.mdb" con.cursorlocation = 3 a = Session("org") sql = "select ORG_NAME from org where ORG_CODE = '" & a &"'" rs.open sql,con,1,2 if not rs.eof then ss = rs(0) end if %>
|