|
|
<%
Response.Expires = 0
Session.LCID = iNU_FORMATO_DATA
Session.Timeout = 20
DIM sHtml 'html que vai ser jogado na tela
DIM sHtmlLista 'html com a lista de noticias
DIM sSql 'Varavel que recebe a strig com
DIM oConexao
DIM iIdsocio
DIM sCombo
DIM iRet
'Conectando com a base de dados
iRet = ConectaBase( oConexao )
IF iRet < 0 THEN
Response.Write( "Erro ao Conectar com a base de dados." )
Response.End
END IF
' Carrego o .TPL da tela pesquisa Conta
sHtml = LeTemplate( "Consulta_Cadastro.tpl" )
IF Request.QueryString( "qsPesquisa" ) = "S" THEN
'Chamada da função que monta a lista de noticias
IF MontaListaCadastro( sHtmlLista ) < 0 THEN
Response.Write( "Erro ao montar lista de Noticias" )
Response.End
END IF
END IF
'substituo por vazio no tpl
sHtml = SubstituiString( sHtml, "##NOME##" , request.form("fsNmsocio") )
sHtml = SubstituiString( sHtml, "##AREA_ATUACAO##" , request.form("fsAreaAtuacao") )
sHtml = SubstituiString( sHtml, "##ESPECIALIDADE##" , request.form("fsEspecialidade") )
sHtml = SubstituiString( sHtml, "##AMBIENTE##" , request.form("fsAmbiente") )
sHtml = SubstituiString( sHtml, "##INSTITUICAO##" , request.form("fsInstituicao") )
' Substituo no Html geral, a lista que montei
sHtml = SubstituiString( sHtml, "##LISTA##", sHtmlLista )
Response.Write sHtml
%>
|
|