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