asp的數據庫問題，困我兩星期的問題，請幫忙解決 謝謝！
困我兩星期的問題
原代碼：
<%
set   ps=server.CreateObject( "adodb.recordset ")
ql= "select   *   from   db_people   where   username= ' "&session( "adminname ")& " ' "
ps.open   ql,conn,1,1

function   case1
if   ps( "shenhe ")=1   or   ps( "chaoji ")=1   then
response.Write( " ")
else
response.Write( " <script   language=javascript> alert( '信息可靠&#63474; ');location= 'javascript:history.go(-1) ' </script> ")
end   if    
end   function

function   case2
if   ps( "huiyi ")=1   or   ps( "chaoji ")=1   then
response.Write( " ")
else
response.Write( " <script   language=javascript> alert( '信息可靠);location= 'javascript:history.go(-1) ' </script> ")
end   if    
end   function

function   case3
if   ps( "gonggong ")=1   or   ps( "chaoji ")=1   then
response.Write( " ")
else
response.Write( " <script   language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end   if    
end   function

function   case4
if   ps( "geren ")=1   or   ps( "chaoji ")=1   then
response.Write( " ")
else
response.Write( " <script   language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end   if    
end   function

function   case5
if   ps( "huibao ")=1   or   ps( "chaoji ")=1   then
response.Write( " ")
else
response.Write( " <script   language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end   if    
end   function


function   case6
if   ps( "caigoushen ")=1   or   ps( "chaoji ")=1   then
response.Write( " ")
else
response.Write( " <script   language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end   if    
end   function

function   case7
if   ps( "caigou ")=1   or   ps( "chaoji ")=1   then
response.Write( " ")
else
response.Write( " <script   language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end   if    
end   function

function   case8
if   ps( "kucun ")=1   or   ps( "chaoji ")=1   then
response.Write( " ")
else
response.Write( " <script   language=javascript> alert( '信息可靠 ');location= 'javascript:history.go(-1) ' </script> ")
end   if    
end   function

function   case9
if   ps( "shangbao ")=1   or   ps( "chaoji ")=1   then
response.Write( " ")
else
response.Write( " <script   language=javascript> alert( '信息可靠 ');loca