%@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 data Dim ora Dim giorno Dim mese Dim anno Dim strMode strMode = "new" %>
![]() |
|
<% = strLangSelectNewBlog %> ![]()
<% = Date() %>
|
|
![]() |
<% if Ublogtype = "open" then %> <% elseif Session("admin") = False or IsNull(Session("admin")) = True then Response.Redirect"login.asp?strMode=" & strMode & "" else %> <% end if %> |