IIS, firewall...

[Cristiano_L_R 0]

estou desenvolvendo um site em asp, e às vezes, as páginas param d carregar no meio do caminho.. isso é coisa do IIS, firewall ou do quê???

[silas_i 0]

Pode ser como a página foi programada brother...Posta um pedaço do código ae pra gente ver...

[Cristiano_L_R 0]

olha o código aí.. tem hora q abre.. tem hora q não só essa, mas outras páginas nõa abrem tudo...<!--#include file="topo.asp" --><script LANGUAGE=javascript><!--function fEscolheCar(){ with(document.frmRefImpressora){ sltMarcaImp.value = null; action = "cad_referencia-cart.asp"; submit(); }}function fEscolheMarca(){ with(document.frmRefImpressora){ action = "cad_referencia-cart.asp"; submit(); }}function fCadastra(){ with(document.frmRefImpressora){ if(sltCodCartucho.value==''){ alert("Selecione o código do cartucho!"); sltCodCartucho.focus(); return false; } if(sltMarcaImp.value==''){ alert("Selecione a marca da impressora!"); sltMarcaImp.focus(); return false; } action = "cad_referencia-cart_2.asp"; submit(); }}//--></SCRIPT> <tr> <td height="10"></td> </tr> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="136" valign="top" bgcolor="#EFEFEF" style="border-style:solid; border-width:1px; border-color:#C5C3C3;"> <!--#include file="menu_lateral_admin.asp"--> </td> <td width="10"> </td> <td valign="top"> <form name="frmRefImpressora" method="post"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="20" class="ft-12" style="padding-left:2px"><font color="#858484"><strong>Cadastre a referência do cartucho</strong></font></td> </tr> <tr> <td style="border-style:solid; border-width:1px; border-color:#C1BFBF;padding:5px 5px"> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td class="ft-10-preto">Código do Cartucho</td> <td width="30"> </td> <td class="ft-10-preto"><p>Marca da Impressora</p></td> </tr> <tr> <td> <select name="sltCodCartucho" class="fonte" style="width:120px" onChange="java script:fEscolheCar()"> <% Dim codCartucho codCartucho = Request.Form("sltCodCartucho") if codCartucho = "" then Response.Write "<option selected>Selecione" strSql = "select CodPro from tb_produto order by CodPro" objRs.Open strSql, objConn while not objRs.EOF Response.Write "<option value="""& objRs("CodPro") &""">"& objRs("CodPro") objRs.MoveNext wend else Response.Write "<option value="""& codCartucho &""" selected>"& codCartucho strSql = "select CodPro from tb_produto where CodPro <> "& codCartucho &" order by CodPro" objRs.Open strSql, objConn while not objRs.EOF Response.Write "<option value='"& objRs("CodPro") &"'>"& objRs("CodPro") objRs.MoveNext wend end if %> </select> </td> <td> </td> <td> <select name="sltMarcaImp" class="fonte" style="width:120px" onChange="java script:fEscolheMarca()"> <% if codCartucho <> "" then Dim codMarca codMarca = Request.Form("sltMarcaImp") if codMarca = "" then Response.Write "<option selected>Selecione" objRs.Close strSql = "select CodMar, NomMar from tb_marca order by NomMar" objRs.Open strSql, objConn while not objRs.EOF Response.Write "<option value="""& objRs("CodMar") &""">"& objRs("NomMar") objRs.MoveNext wend else objRs.Close strSql = "select CodMar, NomMar from tb_marca where CodMar = "& codMarca objRs.Open strSql, objConn Response.Write "<option value="""& objRs("CodMar") &""">"& objRs("NomMar") objRs.Close strSql = "select CodMar, NomMar from tb_marca where CodMar <> "& codMarca &" order by NomMar" objRs.Open strSql, objConn while not objRs.EOF Response.Write "<option value="""& objRs("CodMar") &""">"& objRs("NomMar") objRs.MoveNext wend end if end if %> </select> </td> <td>       <% Dim intNum intNum = Request.QueryString("num") select case intNum case 1 Response.Write "<font face=""verdana,arial,helvetica,sans-serif"" size=""1"" color=""#ff0000""><b>Houve erro. Tente novamente!</b></font>" case 2 Response.Write "<font face=""verdana,arial,helvetica,sans-serif"" size=""1"" color=""#ff0000""><b>Referência cadastrada com sucesso!</b></font>" end select %> </td> </tr> </table></td> </tr> <% if codMarca <> "" then Dim iContador objRs.Close strSql = "select A.CodImp, A.NomImp from tb_impressoras A inner join tb_tipo B on A.CodTip = B.CodTip "& _ "inner join tb_marca C on B.CodMar = C.CodMar where C.CodMar = '" & codMarca &"'" objRs.Open strSql, objConn if not objRs.EOF then %> <tr> <td height="35" class="ft-12" style="padding-left:2px"><font color="#858484"><strong>Liste e altere</strong></font></td> </tr> <tr> <td style="border-style:solid; border-width:1px; border-color:#C1BFBF;"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="right" bgcolor="#EBEAEA" class="borda-bottom-cinza" style="padding:2px 2px"> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td> <!--<input name="Submit24" type="submit" class="ft-10-preto" value="Alterar">--></td> <td width="5"> </td> <td> <input name="Submit23" type="button" class="ft-10-preto" value="Cadastrar" onClick="fCadastra()"></td> <td width="15"> </td> <td> <!--<input name="Submit22" type="submit" class="ft-10-preto" value="Excluir">--></td> </tr> </table></td> </tr> <tr> <td bgcolor="#F4F4F4" class="borda-bottom-cinza"><table border="0" cellspacing="0" cellpadding="0"> <tr> <td width="23"> </td> <td class="ft-10-preto" style="padding-left:22px">Impressoras</td> </tr> </table></td> </tr> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <!--<td width="33%" valign="top" style="border-style:solid; border-width:0px; border-right-width:1px; border-right-color:#CECECE"> --> <% while not objRs.EOF if iContador mod 17 = 0 then Response.Write "</td><td width=""25%"" valign=""top"" style=""border-style:solid; border-width:0px; border-right-width:1px; border-right-color:#CECECE"">" end if %> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="22" class="bordas-lista"> <input type="checkbox" name="chkCadastro" value="<%=objRs("CodImp")%>"> </td> <td class="borda-bottom-cinza" style="padding-left:22px"> <span class="ft-10-preto"> <%=objRs("NomImp")%> </span> </td> </tr> </table> <% iContador = iContador + 1 objRs.MoveNext wend %> </td> </tr> </table> <% else Response.Write "<p align=""center""><font face=""verdana, arial, helvetica, sans-serif"" size=""1"" color=""#ff0000""><b>Não foram encontados registros!</b></font></p>" %> </td> </tr> </table> </td> </tr> <% end if end if %> </table> </form> </td> </tr> </table></td> </tr> </table></td> <td width="10"> </td> </tr></table></body></html>