<%@LANGUAGE="VBSCRIPT"%>
<%
Response.Buffer = True
Dim iMonth, iYear
iMonth=Request ("month")
iYear=Request ("year")
if iMonth = "" then iMonth = Month(Now)
sMonth=NameFromMonth(iMonth)
if iYear = "" then iYear = Year(Now)
Dim blog_id
Dim rsblog
Dim blog_autore
Dim email
Dim blog_titolo
Dim blog_testo
Dim blnComments
Dim strMode
Dim page
Dim Block
Dim data
Dim ora
Dim mese
Dim anno
page = Request.Querystring("page")
Block = Request.Querystring("Block")
strMode = "edit"
If Session("admin") = False or IsNull(Session("admin")) = True then
Response.Redirect"login.asp?strMode=" & strMode & ""
End If
Set rsblog = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT blog.* "
strSQL = strSQL & "FROM blog "
strSQL = strSQL & "WHERE blog.blog_id = " & CLng(Request.QueryString("blog_id")) & ";"
rsblog.Open strSQL, adoCon
If NOT rsblog.EOF then
blog_autore = rsblog("blog_autore")
email = rsblog("blog_email")
blog_titolo = rsblog("blog_titolo")
blog_testo = rsblog("blog_testo")
blog_id = CLng(rsblog("blog_id"))
blnComments = CBool(rsblog("commenti"))
data = rsblog("data")
ora = rsblog("ora")
mese = rsblog("mese")
anno = rsblog("anno")
End If
blog_testo = Replace(blog_testo, " ", vbCrLf)
rsblog.Close
Set rsblog = Nothing
%>
<% = Ublogname %>
