Os serviços
prestados pelo 8º Serviço Registral de Imóveis são:
Certidões
Registros e Averbações
<%
Dim DescricaoTipCert
' Cria os objetos
Set DescricaoTipCert = tipcert.value
Select Case DescricaoTipCert
Case DescricaoTipCert="0"
textarea1.write ""
Case DescricaoTipCert="1"
textarea1.write = "Paulo"
Case DescricaoTipCerte="2"
textarea1.write = "Fabiana"
Case DescricaoTipCert="3"
textarea1.write = "Heloisa"
End Select
%>