<%if session("usr")<>0 then
if request.form<>"" then
rstipos.Open "select * from tipos where codtipo="&request.querystring("id"),conn ,adOpenKeyset ,adLockOptimistic
if request.form("ntipo")<>"" then rstipos("nombretipo")=request.form("ntipo")
if request.form("numero")<>"" then rstipos("numero")=request.form("numero")
rstipos.update
rstipos.close
conn.close
strHtml = "" & vbCrLf
strHtml = strHtml & "" & vbCrLf
Response.Write strHTML
else
rstipos.Open "select * from tipos where codtipo="&request.querystring("id"),conn ,adOpenKeyset ,adLockOptimistic
%>
<%end if
else
response.redirect "index.asp"
end if%>