<%@ Language=VBScript %> <% option explicit Response.Expires=-1 %> <% Dim databaseDir, Conn, volcan databaseDir = Server.MapPath("..\baseigepn.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & databaseDir) dim rsHits, queryString dim nombre queryString = "SELECT v.volnombre, i.InfFecha, i.InfPeriodoI, i.InfPeriodoF, i.InfTipo, i.InfEnlace, InfTitulo FROM InformeGeneral i, volcan v where v.volid=i.volid and i.inftipo = '" & Request.QueryString("tipo") & "' and v.volid=" & Request.QueryString("volcan") & " ORDER BY i.InfFecha DESC" Set rsHits = Server.CreateObject("ADODB.Recordset") rsHits.Open queryString, Conn ' It should reeturn one and one only if rsHits.Eof = false then volcan = rsHits("volnombre") response.write "
" & VbCrLf & "" & VbCrLf & "" & VbCrLf response.Write "" & VbCrLf response.write "
" response.write "Visitas: " response.write ShowNumberGraphically(GetCurrentHitCount("volcanicos", true), 5) response.write "
" & VbCrLf 'response.write "
" response.Write "
" response.Write "" response.Write " " response.Write "" response.Write "" response.Write " " response.Write "" response.Write "" response.Write "" response.Write "" Do While Not rsHits.Eof response.Write " " response.Write "" response.Write "" response.Write "" response.Write "" rsHits.movenext loop response.Write "

INFORME DE ACTIVIDAD VOLCAN " & volcan & "

TITULO

FECHA DE PUBLICACION

TIPO

" & rsHits("InfFecha") & "

" & rsHits("InfTipo") & "

" response.Write "
" 'response.write "
" else response.write "
" & VbCrLf & "" & VbCrLf & "" & VbCrLf response.Write "" & VbCrLf response.write "
" response.Write "
" response.Write "" response.Write " " response.Write "" response.Write "" response.Write "

NO HAY INFORMACION

" response.Write "
" 'response.write "
" end if %> Untitled Document
Principal | Noticias | Quienes Somos | Contactenos | ©2006 Instituto Geofísico - EPN