% set clsobj = new ConfigFileSetup clsobj.ReadRes("../../") resid=clsobj.ResId set clsobj=nothing set con=server.CreateObject("ADODB.Connection") set rs=server.CreateObject("ADODB.recordset") con.Open "Filedsn=commonuser" rs.Open "select domain_name from commonview where user_id='" & resid & "'",con,1,2 if not rs.EOF then domain_name=rs(0) end if rs.close rs.Open "select form_mail from formview where form_id='" & resid & "'",con,1,2 if rs.recordcount > 0 then res_email=rs(0) end if %>
| |||||||||||||||||||||||||||||||||||||||||||||