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,1
While 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
%>