<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Juan Manuel Medina, JuanMa
 

DIARIO DEL CAMINO

<% conexion = "Driver={MySQL ODBC 3.51 Driver};Server=hl266.dinaserver.com;Database=qeb805;Uid=qeb805;Pwd=JuanMa09" //conexion = "Driver={MYSQL};Server=lldb934.servidoresdns.net;Database=qeb805;Uid=qeb805;Pwd=JuanMa09"// Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open conexion Set RS = Server.CreateObject("ADODB.Recordset") Set RS2 = Server.CreateObject("ADODB.Recordset") If Request.QueryString("id") <> "" Then sql = "SELECT * FROM tbDiario WHERE id = " & request.QueryString("id") RS.Open sql, oConn,3,1 response.Write "
" response.Write "
" response.Write "

" & RS("titular") & " " If RS("fecha") <> "0000-00-00" then response.Write "(" & Day(CDate(RS("fecha"))) & "/" & Month(CDate(RS("fecha"))) & "/" & Year(CDate(RS("fecha"))) & ")" End If response.Write "

" response.Write "

" response.Write Replace(RS("texto"), vbCrLf, "
") response.Write "

" If RS("enlace") <> "" Then response.Write "

 

" & HTMLDecode(RS("enlace")) & "

" End If response.Write "

 

" sql = "SELECT * FROM tbFotosDiario WHERE entrada = " & RS("id") & " ORDER BY id ASC" RS2.Open sql, oConn,3,1 If not RS2.EOF then response.Write "

GALERÍA DE IMÁGENES

" While Not RS2.EOF response.Write "" RS2.movenext Wend response.Write "

 

" end if RS2.close response.Write "

« Ir al Diario

" response.Write "
" response.Write "
" RS.close Else sql = "SELECT * FROM tbDiario ORDER BY fecha DESC, id DESC" RS.Open sql, oConn,3,1 While Not RS.EOF response.Write "
" response.Write "
" response.Write "

" & RS("titular") & " " If RS("fecha") <> "0000-00-00" then response.Write "(" & Day(CDate(RS("fecha"))) & "/" & Month(CDate(RS("fecha"))) & "/" & Year(CDate(RS("fecha"))) & ")" End If response.Write "

" response.Write "

" response.Write Replace(Left(RS("texto"),400), vbCrLf, "
") & " ... " response.Write "

seguir leyendo »

" response.Write "
" response.Write "
" sql = "SELECT * FROM tbFotosDiario WHERE entrada = " & RS("id") & " ORDER BY id ASC" RS2.Open sql, oConn,3,1 If Not RS2.EOF Then response.Write "" End If RS2.close response.Write "
" RS.movenext response.Write "
" response.Write "
" response.Write "

 

" response.Write "
" response.Write "
" Wend RS.close End If set RS = nothing set RS2 = nothing oConn.close set oConn = nothing Private Function HTMLDecode(byVal encodedstring) Dim tmp, i tmp = encodedstring tmp = Replace( tmp, """, chr(34) ) tmp = Replace( tmp, "<" , chr(60) ) tmp = Replace( tmp, ">" , chr(62) ) tmp = Replace( tmp, "&" , chr(38) ) tmp = Replace( tmp, " ", chr(32) ) For i = 1 to 255 tmp = Replace( tmp, "&#" & i & ";", chr( i ) ) Next HTMLDecode = tmp End Function %>

 

Inicio · Donativo · Próximo reto · Galería · Noticias · Libro de visitas · Contacto

© Juan Manuel Medina, 2009 Torrevieja.

Web desarrollada por Xalmar.