Funçao preeenchimento de tabela asp

Jessi1412 · 29 de outubro de 2014

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                                        %>