% if request("pid") <> "" then pid = request("Pid") SET ObjPost = SERVER.CREATEOBJECT("ADODB.RECORDSET") strsql = "Select * from Tbl_Post where Post_Id="&pid&"" ObjPost.open strsql,Conn,3,3 if ObjPost("Quest_ID") <> "" then Qid =Split(ObjPost("Quest_ID"),",") SET ObjQus = SERVER.CREATEOBJECT("ADODB.RECORDSET") strsql1 = "Select * from Tbl_Question" ObjQus.open strsql1,Conn,3,3 end if end if %>
|
||||
|