Tenho um uma duvida coloquei no arquivo "Grava_inclu_licita.asp" um IF linha 154 quando testei funcionou blz, então copiei o IF e colei em outro arquivo "Grava_alterar_licita.asp" que não funcionou, não entendi porque.
Só que agora o IF que criei no 1º arquivo não esta rodando ele esta indo direto p/ depois do ELSE , fiquei sem entender mais ainda.
Poderiam me ajudar.
Este é o IF
<% Var1=win_edital
IF (Var1="Sim") Then %>
<p align="center"> <a href="upload1novo.asp<%=chave%>"><font face="verdana" size="2" color="#000080"><U>Enviar edital? <Font color="red"><b>(somente arquivo em formato "ZIP")</U></B></font></font></a>
<% Else %>
<p align="center"><font face="verdana" size="4" color="maroon">Licitação <font face="verdana" size="2"><B><%=wuf&"-"&wmodal&"-"&wnl%></B></font> incluída.</font>
<hr>
<% End IF %>
<!--#include file="cabeçalho.htm"-->
<html>
<head>
<title>Execução do Incluir</title>
</head>
<body style="font-family: Verdana, Arial">
<script language="JavaScript"><!--
function verfonte()
{
if (event.button==2)
{
window.alert('JavaSite\n\n\O código fonte deste site não pode ser exibido.\n\nClique em Ok, para continuar navegando no site.')
}
}
document.onmousedown=verfonte
// --></script>
<% session.lcid = 1046 %>
<!--#include file=data.asp-->
<BR>
<BR>
<%
'Recupera do Form_Inclu_Licita.asp o valor das variáveis passadas
wUF = Request.form("SG_UF")
wCP = request.form("NU_CP")
wModal = Request.form("SG_Modalidade")
wNL = Request.form("NU_NL")
wAbertura = Request.form("DT_Abertura")
wHora = Request.form("HR_Hora")
wObjeto = Request.form("TE_Objeto")
wPublicar = Request.form("DT_Publicar")
wStatus = Request.form("NM_Status")
wTexto1 = Request.form("TE_Texto1")
wProposta = Request.form("TE_Proposta")
wentrada = Request.form("TE_Entrada")
win_edital = Request.form("IN_Edital")
'response.write wuf & "<BR>" & wcp & "<BR>" & wmodal & "<BR>" & wnl & "<BR>" & wabertura & "<BR>" & whora & "<BR>" & wobjeto & "<BR>" & wpublicar & "<BR>" & wstatus & "<BR>" & wtexto1 & "<BR>" & wproposta & "<BR>" & wentrada & "<BR>" & win_edital & " <BR>"
' Mostra a variável de conexão
Conexao="Provider=SQLOLEDB; Data Source=10.2.9.125; Initial Catalog=Publicar; User ID=sa; Password=''"
' response.end
'Cria um objeto recordset
set rstMain = Server.CreateObject("ADODB.Recordset")
<!---- Inicio Verificando Duplicidade ---->
' Passo 1 - Converter (NU_NL) String para Número.
wNL=CDbl(wNL)
wNL=CStr(wNL)
' Passo 2 - montar a cláusula SQL para checar se a licitação já está cadastrada
strSQL = "SELECT * FROM licita1 WHERE sg_uf='" & wuf & "' AND sg_modalidade='" & wmodal & "' AND nu_nl='" & wnl & "'"
' Passo 3 - fazer a consulta e ver se existe ou não
rstMain.Open strSQL,conexao
If not rstMain.EOF then ' Se entrar no if, é porque já existe - não pode incluir
%>
<h2 align=center><font face="Trebuchet MS" color=#463EDD>A licitação "<%=wuf&"-"&wmodal&"-"&wnl%>" já existe.</FONT></h5>
<h5 align=center><a href="javascript:history.back()">Retorne para a página anterior</a></h2>
</body>
</html>
<%
rstMain.Close
Set rstMain=Nothing
response.end
End if
<!---- Fim da Verificação ---->
' Se passou do if, pode incluir.
' Antes, tem de fechar a consulta:
rstMain.Close
<!-- Incio Verificando tamanho NL -->
numero=wnl
IF len(numero)<5 then ' Se não tiver 5 dígitos, é porque tem mais 7 e não precisa colocar o zero à esquerda
response.write "<p align=center><font face='Trebuchet MS' size='5' color='red'> <B>ATENÇÃO!!!</B></font> <font face='Trebuchet MS' size='2' color='navy'><BR><BR> Numero da licitação digitado foi este <font face='Trebuchet MS' size='2' color='blue'><U>("&numero&")</U></font> não poder ter menos que 5 digitos. </B><br></font></p>"
response.write "<p align=center><font face='Trebuchet MS' size='2' ><a href=javascript:history.back()>Retorne e acerte o numero da licitação.</a></font></p>"
response.end 'Este comando manda o ASP não processar mais, já que a quantidade de caracter no campo NU_NL é menor 5.
End IF
<!---- Fim da Verificação ---->
<!-- Incio Verificando tamanho NumerodaCP -->
numero=wCP
IF len(numero)<>10 then 'Se não tiver 10 dígitos.
response.write "<p align=center><font face='Trebuchet MS' size='5' color='red'> <B>ATENÇÃO!!!</B></font> <font face='Trebuchet MS' size='2' color='navy'><BR><BR> Numero da CP digitado foi este <font face='Trebuchet MS' size='2' color='blue'><U>("&numero&")</U></font>. Não poder ter menos que 10 digitos. </B><br></font></p>"
response.write "<p align=center><font face='Trebuchet MS' size='2' ><a href=javascript:history.back()>Retorne e acerte o numero da CP.</a></font></p>"
response.end 'Este comando manda o ASP não processar mais, já que a quantidade de caracter no campo NumerodaCP é menor 10.
End IF
<!---- Fim da Verificação ---->
<!--Inico Verificando Datas -->
dt_abertura=wabertura
dt_publicar=wpublicar
IF cdate(dt_publicar) >= cdate(dt_abertura) then
response.write "<p align=center><font face='Trebuchet MS' size='3' color='red'> <B>ATENÇÃO!!! <BR> A data de publicação não pode ser maior ou igual que a data de abertura.</B><br></font></p>"
response.write "<p align=center><font face='Trebuchet MS' size='2' ><a href=javascript:history.back()>Retorne e acerte as datas.</a></font></p>"
response.end 'Este comando manda o ASP não processar mais, ja que a data Publicar é maior ou igual que a Abertura.
End IF
<!---- Fim da Verificação ---->
wentrada = now()
wID_Edital =wuf&wmodal&wnl
'MONTA A STRING SQL DE INCLUSÃO NA TABELA PUBLICAR
strSQL = "INSERT INTO licita1 (SG_UF, NU_CP, SG_MODALIDADE, NU_NL, DT_ABERTURA, HR_HORA, TE_OBJETO, NM_STATUS, DT_PUBLICAR, TE_TEXTO1, TE_PROPOSTA, TE_ENTRADA, ID_EDITAL,IN_EDITAL) " &_
" VALUES ('"& wuf &"' , "& wcp &" , '"& wmodal &"' , '"& wnl &"' , '"& wabertura &"', '" & whora & "', '" & wobjeto &"', '" & wstatus & "' , '" & wpublicar &"', '" & wtexto1 & "', '" & wProposta &"', '" & wentrada & "', '" & wID_Edital & "', '" & wIN_Edital & "')"
rstMain.Open strSQL,conexao
'response.write strSQL &"<BR>"
'response.end
'rstMain.Close
chave="?sg_uf=" & wuf & "&sg_modalidade=" & wmodal & "&nu_nl=" & wnl
%>
<% Var1=win_edital
IF (Var1="Sim") Then %>
<p align="center"> <a href="upload1novo.asp<%=chave%>"><font face="verdana" size="2" color="#000080"><U>Enviar edital? <Font color="red"><b>(somente arquivo em formato "ZIP")</U></B></font></font></a>
<% Else %>
<p align="center"><font face="verdana" size="4" color="maroon">Licitação <font face="verdana" size="2"><B><%=wuf&"-"&wmodal&"-"&wnl%></B></font> incluída.</font>
<hr>
<% End IF %>
<%
'Libera a memória (destrói o objeto recordset)
Set rstMain=Nothing
%>
<p align="center">
<a href="Form_Inclu_Licita.asp"><U>Nova inclusão</U></a>
</p>
<!-- include file = "mostra_codigo.inc"-->
</body>
</html>
