Erro de Expected 'End' no ASP - !!!

[falcolandrao 0]

:( Pessoal me ajudem neste erro de end, existe algo no codigo não permitindo o fechamento do codigo: Vejam o erro

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/helpdesk/admin/inc_footer.asp, line 45

Pagina toda do inc_footer.asp:

 

ASP

[*] <br /><br />

 

[*] <table width="80%" align="center" cellpadding="2" cellspacing="0" border="1" bgcolor="#DAE6D6" bordercolor="#9BC08E" style="border: 1px;"><tr>

 

[*] <td>

 

[*] <table width="100%" align="center" cellpadding="0" cellspacing="0" border="0"><tr>

 

[*]  <td>

 

[*] <table cellpadding="1" cellspacing="0" border="0"><form action="<%=SET_BASE_PATH%>admin/issue/issue_search.asp" method="get" name="frmSearch" onSubmit="return ValidSEARCH()"><tr>

 

[*]  <td style="font: 10px; color: black;"><%= arrCOMMON(0) %>:</td>

 

[*]  <td style="font: 10px; color: black;"><input class="INP_BOX1" type="text" value="<%=APO(Request.QueryString("searchfor"))%>" size="20" maxlength="50" name="searchfor"></td>

 

[*] <td style="font: 10px; color: black;"><%= arrCOMMON(1) %>:</td>

 

[*] <td style="font: 10px; color: black;"><select class="INP_DROP" name="searchin"><option selected value="3"><%= arrCOMMON(2) %></option><option value="4"><%= arrCOMMON(3) %></option><option value="1"><%= arrCOMMON(4) %></option><option value="2"><%= arrCOMMON(5) %></option><option value="6"><%= arrCOMMON(6) %></option><option value="5"><%= arrCOMMON(7) %></option></select></td>

 

[*]  <td style="font: 10px; color: black;"><input type="Image" src="<%=SET_BASE_PATH%>admin/img/ico_go.gif" width="22" height="18" alt="" border="0"></td>

 

[*] </tr><input type="Hidden" name="category" value="0" /></form></table>

 

[*] </td>

 

[*] <td align="right">

 

[*] <table cellpadding="2" cellspacing="0" border="0"><form action="<%=SET_BASE_PATH%>admin/issue/goto.asp" method="post" name="frmGoTO" onSubmit="return ValidGOTO()"> <tr>

 

[*]  <td style="font: 10px; color: black;"><%= arrCOMMON(8) %>:</td>

 

[*]  <td><input type="Text" name="ID" value="" maxlength="6" size="3" class="INP_BOX1"></td>

 

[*]  <td style="font: 10px; color: black;"><%= arrCOMMON(9) %>:</td>

 

[*]  <td><select class="INP_DROP" name="mode"><option value="1"><%= arrCOMMON(10) %><option value="2"><%= arrCOMMON(11) %></select></td> 

 

[*] <td><input type="Image" src="<%=SET_BASE_PATH%>admin/img/ico_go.gif" width="22" height="18" alt="" border="0"></td>

 

[*] </tr><input type="Hidden" name="set" value="go" /></form></table>  

 

[*] </td>

 

[*] <td style="font: 10px; color: black;"> </td>

 

[*] </tr></table>

 

[*] </td>

 

[*] </tr></table>

 

[*] <table width="80%" align="center" cellpadding="0" cellspacing="0" border="0">

 

[*] <tr><td colspan="3"><img src="<%=SET_BASE_PATH%>admin/img/pixel.gif" width="1" height="7" alt="" border="0"></td></tr><tr>

 

[*]  <td style="font: 10px; color:#808080;">

 

[*] <% timeNow = milliDif()

 

[*] response.write arrLINE(0) & timeNow-timeThen %> ms. 

 

[*]  </td><td align="right">

 

[*] <table cellpadding="2" cellspacing="0" border="0"><tr>

 

[*] <td align="center"><font size="1" color="#808080">Help-Desk por Expinion.net    </font></td>

 

[*]  <% If Trim(arrSECURITY(9)) = "1" Then %><td width="63"><a href="<%=SET_BASE_PATH%>admin/draft/index_popup.asp" onclick="NewWindow(this.href,'name','450','200','yes');return false;" style="font-size: 10px;"><img src="<%=SET_BASE_PATH%>admin/img/ico_drafts.gif" width="63" height="14" alt="<%= arrLINE(1) %>" border="0"></a></td><% End If %>

 

[*]  <% If Trim(arrSECURITY(20)) = "1" Then %><td width="63"><a href="<%=SET_BASE_PATH%>admin/tool/TODO/index_popup.asp" onclick="NewWindow(this.href,'name','450','200','yes');return false;" style="font-size: 10px;"><img src="<%=SET_BASE_PATH%>admin/img/ico_todo.gif" width="63" height="14" alt="<%= arrLINE(2) %>" border="0"></a></td><% End If %>

 

[*]  <% If Trim(arrSECURITY(26)) = "1" Then %><td width="63"><a href="<%=SET_BASE_PATH%>admin/tool/contact/index_popup.asp" onclick="NewWindow(this.href,'name','450','200','yes');return false;" style="font-size: 10px;"><img src="<%=SET_BASE_PATH%>admin/img/ico_contact2.gif" width="63" height="14" alt="<%= arrLINE(3) %>" border="0"></a></td><% End If %>

 

[*] </tr></table>

 

[*] </td>

 

[*]  <td width="100" align="right" style="font-size: 10px;"> <%If Instr(ucase(Request.ServerVariables("HTTP_USER_AGENT")), "MSIE") Then%><a style="font-size: 10px;" href="#" onclick="ConfirmLogOut('<%=SET_BASE_PATH%>admin/index.asp?Logout=True')"><%Else%><a style="font-size: 10px;" href="<%=SET_BASE_PATH%>admin/index.asp?Logout=True"><%End If%><img src="<%=SET_BASE_PATH%>admin/img/ico_logOut.gif" width="57" height="14" alt="" border="0"></a> </td>

 

[*] </tr></table>

 

[*] <br /><br />

 

[*]</body></html>

 

[*]<% Response.Flush %>

 

[*] Aqui é o trecho onde esta com erro mas a linha 45 é <% Response.Flush %> o erro esta um pouco antes neste trecho onde tem um end if vejam:

 

[*]<td width="100" align="right" style="font-size: 10px;"> <%If Instr(ucase(Request.ServerVariables("HTTP_USER_AGENT")), "MSIE") Then%><a style="font-size: 10px;" href="#" onclick="ConfirmLogOut('<%=SET_BASE_PATH%>admin/index.asp?Logout=True')"><%Else%><a style="font-size: 10px;" href="<%=SET_BASE_PATH%>admin/index.asp?Logout=True"><%End If%><img src="<%=SET_BASE_PATH%>admin/img/ico_logOut.gif" width="57" height="14" alt="" border="0"></a> </td>

 

[*] </tr></table>

Aguardo qualquer sugestão, já fiz de tudo mas nada,obrigado pessoal...

[Guybrush 0]

<%If Instr(ucase(Request.ServerVariables("HTTP_USER_AGENT")), "MSIE") Then%>Vamos organizar melhor, ok Dim BrowserSet Browser = Request.ServerVariables("HTTP_USER_AGENT")<%if Instr(ucase(Browser,"MSIE")) <> 0 Then%>

[Mário Monteiro 179]

não é não permitidoele esta avisando que falta um end

[dark0 0]

ele ta dizendo que falta um end.pode ser de end if, ou end Sub, ou End Function.da uma olhada no seu codigo, e veja se você fechou todos os ifs ou subs ou functions que abriuabraços

[Guybrush 0]

Na Linha 41: <%If Instr(ucase(Request.ServerVariables("HTTP_USER_AGENT")), "MSIE") Then%>Então na Linha 45:<%If Instr(ucase(Request.ServerVariables("HTTP_USER_AGENT")), "MSIE") Then%><a style="font-size: 10px;" ...............Você Não terminou (end if) da linha 41X)só isso