Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Página fecha ao exibir registros

danyllo.franco

Perguntado por danyllo.franco,

 Share

Pergunta

danyllo.franco

danyllo.franco

Postado
Postado (editado)

Bom dia Galera ! :lol:

estou precisando de uma força. Estou desenvolvendo um sistema de cadastro de funcionários que está dividido em três parte: inclusão, busca e listagem de todos os cadastrados. Meu banco já possui 2389 registros que estavam em .xls e utilizei um conversor para passá-lo para MDB.

Quando estou na página onde são listados todos os registros ao clicar no link para inclusão o Internet Explorer fecha automaticamente. Alguém tem alguma do que pode estar acontecendo. Desculpe não usar o codebox porque pra mim não está funcionando. Segue código da página listar todos.....ValeWWW !!!

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Seleciona da tabela contato
strQuery = "SELECT * FROM contato"
Set ObjRs = objConn.Execute(strQuery)
%>
<html>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<head>
<title>:: Banco de talentos - Alteração de dados ::</title>
</head>
<body bgcolor="#FFFFFF">
<div align="center" style="width: 756; height: 119">
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="1" align="center">
    <tr>
      <td width="448" valign="top" height="136"> 
        <table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
          <tr bgcolor="ffffff"> 
            <td colspan="3">
              <table width="100%" border="0" cellspacing="2" cellpadding="2">
                <tr>
                  <td bgcolor="#f5f5f5">
                    <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_inclusao.asp" class="menu">Incluir</a></font></b></font></div>
                  </td>
                  <td bgcolor="#f5f5f5">
                    <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="procura.asp" class="menu"><font color="#000099">Buscar</font></a></font></b></font></div>
                  </td>
                  <td bgcolor="#f5f5f5">
                    <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Visualizar/Alterar</font></b></font></div>
                  </td>
                </tr>
              </table>
              
            </td>
          </tr>
          <tr> 
            <td colspan="3"> 
              <table width="736" border="0" cellspacing="0" cellpadding="0" height="18">
                <tr> 
                  <td align="center" height="1" width="734"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br>
                    Selecione o(s) &iacute;ten(s) a ser(em) excluido(s)</b></font></td>
                </tr>
              </table>


              <form method="GET" action="form_altera.asp">

                <table width="950" border="0" cellspacing="0" cellpadding="0" height="1">
                  <tr> 
                    <td height="1" align="center" width="734"> 

                      <table border="0" width="950" height="63" cellpadding="2" align="center">
                        <tr bgcolor="#0099FF"> 
                          <td width="50" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Mat.:</font></b> 
                            </font></td>
                          <td width="600" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Nome:</font></b> 
                            </font></td>
                          <td colspan="2" height="2" align="center"> <font size="1" color="FFFFFF"><b></b> 
                            </font> <font size="1" color="FFFFFF"><b><font face="Verdana">Admissão:</font></b> 
                            </font></td>
                          <td width="162" height="2" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Cargo:</font></b> 
                            </font></td>
                          <td width="261" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Centro de Custo:</font></b> 
                            </font></td>
<td width="800" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Site:</font></b> 
                            </font></td>
<td width="50" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Empresa:</font></b> 
                            </font></td>
<td width="50" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Consultoria:</font></b> 
                            </font></td>
<td width="50" height="2" align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Notas:</font></b> 
                            </font></td>    

                          <td width="66" height="2" align="center"> <font size="1" color="FFFFFF"> 
                            <input type="submit" name="Submit" value="Alterar">
                            </font></td>
                        </tr>

                        <%While Not objRS.EOF %> 
                        <tr bgcolor="#ffffd0"> 
                          <td width="22" height="2" align="center"> 
                            <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              <%Response.write objRS("matricula")%> </font> </b></font></div>
                          </td>

                          <td width="151" height="2" align="center"> 
                            <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              <%Response.write objRS("nome")%> </font> </b></font></div>
                          </td>
                          <td colspan="2" height="2" align="center"> 
                            <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              </font> </b></font> <font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%Response.write objRS("admissao")%> 
                              </font></b></font></div>
                          </td>
                          <td width="162" height="2" align="center"> 
                            <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"><%Response.write objRS("cargo")%> 
                              </font></b></font></div>
                          </td>
                          <td width="261" height="2" align="center"> 
                            <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("centro_custo")%></font></b></font></div>
                          </td>
 <td width="261" height="2" align="center"> 
                            <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("site")%></font></b></font></div>
                          </td>
 <td width="261" height="2" align="center"> 
                            <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("empresa")%></font></b></font></div>
                          </td>
 <td width="66" height="2" align="center"> 
                            <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("consultoria")%></font></b></font></div>
                          </td>

 <td width="66" height="2" align="center"> 
                            <div align="left"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%Response.write objRS("notas")%></font></b></font></div>
                          </td>

                          <td width="66" height="2" align="center"> 
                            <div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              <input type="radio" name="radio" value="<%=objRS(0)%>">
                              </font> </b></font></div>
                          </td>
                        </tr>
                        <%
  'Move para o próximo registro
  objRS.MoveNext
  Wend
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %> 
                      </table>
                    </td>
                  </tr>
                </table>
              </form>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</div>
</body>
</html>

Editado por bareta
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0
danyllo.franco

danyllo.franco

Postado
  • Autor
Postado
pra q serve isso??

<input type="radio" name="radio" value="<%=objRS(0)%>">

:huh:

Você seleciona o funcionario na lista pelo radio, e ao clicar em alterar é direcionado a página de alteração. Tentei tirar esse rádio, mas não é esse o problema. Ah! detalhe, a página é de intranet não sei se a informação ajuda.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,5k
    • Posts
      652,4k
×
×
  • Criar Novo...