|
|
<%
Response.Expires = 0
Session.LCID = iNU_FORMATO_DATA
Session.Timeout = 20
DIM sHtml
DIM oRs
DIM oConexao
DIM iRet
DIM sCombo
DIM sQuery
'Testo se o usuário está logado
'CheckLogin( "SecaoTerminada.htm" )
' Carrego os .TPL
sHtml = LeTemplate("CadastroNovo.tpl")
' Conectando com a base de dados
IF ConectaBase( oConexao ) < 0 THEN
Response.Write( "Erro ao Conectar com a Base" )
Response.end
END IF
sHtml = SubstituiString( sHtml, "##ID_ASSOCIADO##" , "" )
sHtml = SubstituiString( sHtml, "##NOME##" , "" )
sHtml = SubstituiString( sHtml, "##CPF##" , Request.QueryString("QsCpf") )
sHtml = SubstituiString( sHtml, "##ENDERECO##" , "" )
sHtml = SubstituiString( sHtml, "##TELEFONE##" , "" )
sHtml = SubstituiString( sHtml, "##EMAIL##" , Request.QueryString("QsEmail") )
sHtml = SubstituiString( sHtml, "##SITUACAO##" , "" )
sHtml = SubstituiString( sHtml, "##CIDADE##" , "" )
sHtml = SubstituiString( sHtml, "##ESTADO##" , "" )
sHtml = SubstituiString( sHtml, "##CEP##" , "" )
sHtml = SubstituiString( sHtml, "##LOGIN##" , "" )
sHtml = SubstituiString( sHtml, "##SENHA##" , "" )
sHtml = SubstituiString( sHtml, "##DISABLED##" , "disabled")
sHtml = SubstituiString( sHtml, "##READONLY##" , "readonly")
sHtml = SubstituiString( sHtml, "##EXCLUIR##" , "" )
sHtml = SubstituiString( sHtml, "##DT_FILIACAO##" , "")
sHtml = SubstituiString( sHtml, "##TITULACAO##" , "")
sHtml = SubstituiString( sHtml, "##AREA_ATUACAO##" , "")
sHtml = SubstituiString( sHtml, "##ESPECIALIDADE##" , "")
sHtml = SubstituiString( sHtml, "##AMBIENTE##" , "")
' Status
sQuery = "SELECT st_id_status, st_tx_status FROM drd_status where st_id_status <> 5 AND st_id_status <> 6 AND st_id_status <> 10 "
MontaCombo oConexao, sQuery, "", sCombo
sHtml = SubstituiString( sHtml, "##COMBO_STATUS##" , sCombo )
sHtml = SubstituiString( sHtml, "##DT_ULTIMA_ANUIDADE##", "")
sHtml = SubstituiString( sHtml, "##INSTITUICAO##" , "")
sHtml = SubstituiString( sHtml, "##FAX##" , "")
sHtml = SubstituiString( sHtml, "##END_CORRESPONDENCIA##", "")
sHtml = SubstituiString( sHtml, "##JUSTIFICATIVA##" , "")
Response.write (sHtml)
%>
|
|