[Resolvido] Tabela de Horas com erro

[Ronaldo Bueno 23]

Olha eu novamente aqui, abri um tópico dizendo que tinha 3 problemas e um o Klonder já ajudou a resolver, espero conseguir esse também rsrrs.

 

Tenho uma tabela com os seguinte campos, medico, especialidade, dia da semana, hora inicial, hora final:

 

na hora de preencher os registro fica assim:

 

medico XXX neurocirurgião segunda-feira 08:00 12:00

medico XXX neurocirurgião terça-feira 08:00 10:00

medico XXX neurocirurgião quarta-feira 12:00 16:00

medico XXX neurocirurgião quinta-feira 16:00 18:00

medico XXX neurocirurgião sexta-feira 10:00 14:00

 

medico AAA neurocirurgião segunda-feira 08:00 12:00

medico AAA neurocirurgião terça-feira 08:00 10:00

medico AAA neurocirurgião quarta-feira 12:00 16:00

medico AAA neurocirurgião quinta-feira 16:00 18:00

medico AAA neurocirurgião sexta-feira 10:00 14:00

 

e assim por diante.

 

O que eu queria fazer era uma tabela assim:

 

Dias da Semana e Horários:

Medico especialidade segunda terça quarta quinta sexta

XXX neurocirurgião 08:00 12:00 08:00 10:00 12:00 16:00 16:00 18:00 10:00 14:00

AAA neurocirurgião 08:00 12:00 08:00 10:00 12:00 16:00 16:00 18:00 10:00 14:00

 

ai um colega me ajudou a chegar nesse código:

 

<%
registro=0
contalinha=1
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open CONEXÃO
strQueryat = "Select * from atenderdiasemana"
Set rsat=Server.CreateObject("ADODB.Recordset")
rsat.Open strQueryat, objConn
while not rsat.EOF
registro = registro+1				
if registro=1 then
response.write("<tr><td>"&rsat("medico")&"</td><td>"&rsat("especialidade")&"</td><td class='colorir' align='center'>"&rsat("horainicial")&"</td><td class='colorir' align='center'>"&rsat("horafinal")&"</td>")
Else
if contalinha<4 then
response.write("<td class='colorir' align='center'>"&rsat("horainicial")&"</td><td class='colorir' align='center'>"&rsat("horafinal")&"</td>")
elseif contalinha=4 then
response.write("<td class='colorir' align='center'>"&rsat("horainicial")&"</td><td class='colorir' align='center'>"&rsat("horafinal")&"</td></tr><tr>")
else
contalinha=0
registro=0
end if
contalinha=contalinha+1
end if
rsat.movenext
wend
response.write("</tr>")
%>

ai esta acontecendo o seguinte:

 

os dados estão muito misturados, tipo ele começa com o primeiro médico, ai ele mostra só até quinta do primeiro e na mesma linha coloca a segunda de outro, assim vai, até que o ultimo termina em terça e alguns médico ele não mostra.

 

Alguém poderia me ajudar ??? Obrigado

[Ronaldo Bueno 23]

resolvido

[Ted k' 126]

como? :)