<% response.charset="utf-8" %> <% call SiteInfo dim MemID,mQusetion call MemInfo() %> Password protection

Password protection

Protection question
Protection answer:
Security code:
 
<% sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_Members where MemName='"&session("MemName")&"'" rs.open sql,conn,1,1 if rs.eof then response.write "No details" else MemID=rs("ID") mQusetion=rs("Question") end if rs.close set rs=nothing end sub %>