Juan Manuel Farah -- Endodoncia

<% ''dest_act; ''tit_desc; publ_act = Request.QueryString("tipo") select case publ_act case "casos": tit_desc = "Caso" dest_act = "temas" case "temas": tit_desc = "Tema" dest_act = "casos" end select %><% vercaso=CInt("0"&Request.QueryString("caso")) if vercaso>0 then colasql=" and NUMERO=" & vercaso else colasql="" listadocasos="LISTADO CASOS ANTERIORES" titcaso="Caso radiográfico Nº" titdiagnostico="DIAGNÓSTICO" titRELATO="RELATO" titFIGURA="Figura" titCOMENTARIO="COMENTARIO" diagnosticar=true set cnn=CreateObject("ADODB.Connection") set rs=CreateObject("ADODB.Recordset") 'response.write Server.Mappath("access_db") 'response.write Application("conexion") cnn.Open Application("conexion") sql="select NUMERO, AUTOR, RELATO, FOTO1, FOTO2, FOTO3, FOTO4, FOTO5, FOTO6," &_ "DIAGNOSTICO,DETALLE_DIAGNOSTICO,COMENTARIO,FECHA_PUBLICACION" &_ " from CASOS where FECHA_PUBLICACION < now()"&colasql&" order by NUMERO desc" rs.Open sql,cnn,3,1,1 numero=rs("NUMERO") autor=rs("AUTOR") RELATO=rs("RELATO") dim FOTO(6) for ijk=1 to 6 FOTO(ijk)=trim(""&rs("FOTO"&ijk)) next DETALLE_DIAGNOSTICO=trim(rs("DETALLE_DIAGNOSTICO")) DIAGNOSTICO=trim(rs("DIAGNOSTICO")) COMENTARIO=trim(rs("COMENTARIO")) FECHA_PUBLICACION=CDate(rs("FECHA_PUBLICACION")) 'if Dateadd("d",7,FECHA_PUBLICACION)<= date() then diagnosticar=true 'FECHA_CREACION,VISITAS rs.Close set rs=nothing cnn.Execute "UPDATE CASOS set VISITAS=VISITAS+1 where NUMERO=0"&numero cnn.Close set cnn=nothing %> Juan Manuel Farah -- Endodoncia

<%=tit_desc%> N°<%=numero%>
<%=aHTML(autor)%>

<%select case publ_act case "casos" %> Relato:

<%=aHTML(RELATO)%>

<%for ijk=1 to 6 if FOTO(ijk)>"" then%>Figura # <%=ijk%>

" border="0" />

<%end if next%> Diagnóstico:

<%=aHTML(DIAGNOSTICO)%>

<%if DETALLE_DIAGNOSTICO>"" then%>Tratamiento:

<%=aHTML(DETALLE_DIAGNOSTICO)%>

<%end if%> Comentario:

<%=aHTML(COMENTARIO)%>

<%case "temas"%> Lorem ipsum dolor sit amet

Lorem ipsum dolor sit amet, consectetur adipisci elit.

Lorem ipsum dolor sit amet, consectetur adipisci elit.

<%end select%>