<%
'Page/form name: error.asp
'Purpose : display error message
'Date Modified: 26-Jun-2001
'Author :Bhawna Narula
%>
<%
dim errno
errno=trim(Request.QueryString("errorno"))
Response.Write err.description
dim errtype,strerrdesc
errtype=trim(request("errortype"))
if errtype="err_con" then
strerrdesc="Error! In the inputs or the connection.Server may be shutdown or the network connection is not working properly "
else%>
<% if errtype="err_object" then
strerrdesc="Error! in Object Creation"
elseif errtype="security" then
dim rsSec
set rsSec=server.CreateObject("adodb.recordset")
strsql="select codedesc,code from AccessMaster,ITPO_CODE where PageCode='" & trim(Request("page")) & "' AND codetype='UTY' and code=usertype"
'Response.Write strsql
rsSec.open strsql,objConn
do until rsSec.eof
'if rsSec("code") <>"SUS" then
straccess= straccess & rsSec("codedesc") & " , "
'end if
rsSec.movenext
loop
if straccess <>"" then
straccess=mid(straccess,1,(len(straccess) -2))
end if
strerrdesc="Only " & straccess & " are authorized to view this page. If you are not registered as either of the above user " & _
" Click Here to register OR Click Here For Online Associate Registration
If already registered , Please login"
rsSec.close
set rsSec=nothing
elseif errtype="sec" then
strerrdesc="You are not authorized to view this Page"
elseif errtype="err_record" then
strerrdesc="Error ! In recordset Creation"
elseif errtype="" then
if errno<>"" then
strsql="select CodeDesc from ITPO_CODE where CodeType='ERR' and Code='" & errno & "'"
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.Open strsql,objConn
if rs.EOF =false then
strerrdesc=rs("CodeDesc")
end if
rs.Close
set rs= nothing
end if
end if
end if
%>
India Trade Fair Promotion Organisation