Ir ao conteúdo
  • Cadastre-se
Jessi1412

Funçao preeenchimento de tabela asp

Recommended Posts

Boa Tarde, 

 

Tenho o seguinte codigo, nele tem uma tabela com os campo (Codigo., Id, 1, 2, 3...)

Preciso prencher toda essa tabela usando os ifs de compraçao para aparecer as bolinhas de acordo com sua data.

Como posso fazer isso. A unica coisa que me disseram é que preciso fazer uma funçao para isso.

 

Obs: Desculpe novamente a má explicação é que nunca trabalhei com asp e estou começando agora em programação.

 

Desde ja grata

<!DOCTYPE html><html><head><meta charset="UTF-8"><link rel="stylesheet" type="text/css" href="estilo/estilo.css"><meta name="viewport" content="width=device-width, initial-scale=1.0"><title>Lembretes Online</title></head><%'Conectar no banco de dados'Set Conecta=Server.CreateObject("ADODB.Connection")        Conecta.Provider = "44444"    Conecta.Properties("Data Source").value = ""    Conecta.Properties("Initial Catalog").value = ""    Conecta.Properties("User Id").value = "1111"    Conecta.Properties("Password").value = "11111"    Conecta.Open%><body><div class="corpo">    <div class="topo">        <div class="topo logo">             <table width="100%" border="0" cellspacing="1" cellpadding="1" class="tabela">                <tr>                    <td><img src=""></td>                    <td> </td>                    <td>                        <table width="100%" border="0" cellspacing="2" cellpadding="1" class="tabela">                         <tr>                            <td>                             <div align="right"><font size="1"><a href="">Log Out (Sair)</a>                                | <a href="">Pendências</a></font></div>                            </td>                         </tr>                        </table>                    </td>                </tr>                <tr>                    <td> </td>                    <td> </td>                                    </tr>            </table>        </div>    </div>    <div class="corpo_tabela">        <table class="table table-responsive" border="1">            <thead>                <tr>                    <th style="text-align: center;" class="texto" >Codigo</th>                    <th style="text-align: center;" class="texto">Descrição</th>                            <th style="text-align: center;" class="texto">1</th>                    <th style="text-align: center;" class="texto">2</th>                            <th style="text-align: center;" class="texto">3</th>                    <th style="text-align: center;" class="texto">4</th>                    <th style="text-align: center;" class="texto">5</th>                    <th style="text-align: center;" class="texto">6</th>                        </tr>            </thead>             <%                        Set RS=CreateObject("ADODB.Recordset")                    SQL="SELECT DadosBasicos.id,dataprevista, dataprevista1, dataprevista2, dataprevista3, dataprevista4, dataprevista5, dataprevista6, datasaida, datasaida1, datasaida2 FROM DadosBasicos inner join eng_mac on DadosBasicos.id=carga.id WHERE CARGA.fot>='01/01/2014' AND CARGA.fot<='12/30/2015' order by CARGAENG.fotfabrica "                                        RS.Open SQL, conecta, 1,1While Not RS.EOF    If RS("id") <> "" Then        Response.Write "<tbody> "        Response.Write "<tr> "        Response.Write "<td>"        Response.Write (RS("id"))        Response.Write "</td> "        Response.Write "<td>Teste 1</td>"                            If RS("datasaida") <> "" Then        'If isNull(datasaida) Then 'se nao for null a data entra a bolinha verde'        Response.Write "<td>"        Response.Write "<div class='circulo_verde'><img src='imagens/bolaverde.png'></div> "        Response.Write "<div class='descricao'>Passa o mouse e aparece o que conteudo da div, porém essa div</div>"        Response.Write "</td>"                                                            'elseif cdate(dataprevista) <= date() then                                Elseif RS("dataprevista") >= Date Then ' Verifica se a data prevista esta menor que a data de saida                                Response.Write "<td>"                                Response.Write "<div class='circulo_amarelo'><img src='imagens/bolaamarela.png'></div> "                                Response.Write "<div class='descricao'>Passa o mouse e aparece o que conteudo da div, porém essa div</div>"                                Response.Write "</td>"                                                            'elseif cdate(dataprevista) > date() then                            Elseif RS("dataprevista") < DATE Then ' Verifica se a data passou do prazo                            Response.Write "<td>"                            Response.Write "<div class='circulo_vermelho'><img src='imagens/bolavermelho.png'></div>"                            Response.Write "<div class='descricao'>Passa o mouse e aparece o que conteudo da div, porém essa div precisa ter o tamanho da tela do usuario</div>"                            Response.Write "</td>"                                                        Else                            Response.Write "<td>"                            Response.Write "<p>Data de previsao vazia</p>"                            Response.Write "</td>"                            END IF                        Response.Write "</tr> "                        Response.Write "</tbody> "                                                                                        Else                        Response.Write "Nada encontrado"                        Response.Write "<br>"                End If                RS.MoveNext                                Wend                                        rs.close                    set rs=nothing                    conecta.close                    set conecta = nothing                                        %>

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×