Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Jessi_1412

funçao em asp completar toda a tabela

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Se vc puder detalhar mais, ficará mais fácil para entendermos.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde @wilnet

 

Preciso de uma funçao que faça o preeenchimento da tabela toda usando o while e os if que usei para preencher a segunda tabela.Pra nao precisar fazer um if para cada coluna.

 

Desculpe a má explicaçao :(

Compartilhar este post


Link para o post
Compartilhar em outros sites

Jessi, (pode ser que eu que não estou entendo rsrsr) o que deseja com base no code postado, vou te passar umas dicas legal para trabalhar com a estrura de vários If, Then, Else de repente pode te dar uma luz.

 

 

Exemplo 01

 

Veja o que pode fazer com uma boa estrutura

If condição Then
   Instrução 1
   Instrução 2
Else
   If condição2 Then
      Instrução A
      Instrução B
   Else
   If condição3 Then
      Instrução C
      Instrução D
   Else
      Instrução X
   End If
End If

Exemplo 02

If rs(campo1) = "True" Then

Response.Write "mensagem 01"

Else

Response.Write "mensagem 02"

End If

If rs(campo2) = "True" Then

Response.Write "mensagem 03"

Else

Response.Write "mensagem 04"

End If

Compartilhar este post


Link para o post
Compartilhar em outros sites

@wilnet obrigado pelas dicas entao,

 

Ve se fica melhor de entender tenho uma tabela e preencho uma coluna com o if do seu exemplo, porem tenho mais 20 colunas para nao fazer 20 blocos de codigo (iguais o que preeencheo a primeira coluna) mudando nos ifs apenas as variaveis, me falaram que preciso fazer uma função ai mantei só um bloco de ifs e a funçao se encarrega do resto.


Compartilhar este post


Link para o post
Compartilhar em outros sites

usa SELECT CASE

Compartilhar este post


Link para o post
Compartilhar em outros sites

o operador SELECT CASE é utilizado para condições que possuam muitos elementos.

    <%@language="VBScript"%>
     
    <%
    str_hora = hour(now)
     
    Select Case str_hora
    case 0
    response.write "Agora é meia noite"
    case 1
    response.write "Agora é 1 hora"
    case 2
    response.write "Agora são 2 horas"
    case 3
    response.write "Agora são 3 horas"
    case 4
    response.write "Agora são 4 horas"
    case 5
    response.write "Agora são 5 horas"
    case 6
    response.write "Agora são 6 horas"
    case 7
    response.write "Agora são 7 horas"
    case 8
    response.write "Agora são 8 horas"
    case 9
    response.write "Agora são 9 horas"
    case 10
    response.write "Agora são 10 horas"
    case 11
    response.write "Agora são 11 horas"
    case 12
    response.write "Agora são 12 horas"
    case 13
    response.write "Agora são 13 horas"
    case 14
    response.write "Agora são 14 horas"
    case 15
    response.write "Agora são 15 horas"
    case 16
    response.write "Agora são 16 horas"
    case 17
    response.write "Agora são 17 horas"
    case 18
    response.write "Agora são 18 horas"
    case 19
    response.write "Agora são 19 horas"
    case 20
    response.write "Agora são 20 horas"
    case 21
    response.write "Agora são 21 horas"
    case 22
    response.write "Agora são 22 horas"
    Case else
    response.write "Agora são 23 horas"
    End Select
    %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

var_codigo = RS("id")

Select Case var_codigo
case 0
Response.Write "<div class='circulo_amarelo'><img src='imagens/bolaamarela.png'></div> "
case 1
Response.Write "<div class='circulo_verde'><img src='imagens/bolaverde.png'></div> "
case 2
Response.Write "<div class='circulo_azul'><img src='imagens/bolaazul.png'></div> "
case 3
...

...

...

...
Case else
Response.Write "Nada encontrado"
Response.Write "<br>"

End Select
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.