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