<%@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 blog_email Dim blog_titolo Dim blog_testo Dim blnComments Dim strMode Dim strEmailSubject Dim strEmailBody Dim page Dim Block Dim msg Dim errore Dim data Dim ora Dim mese Dim anno Dim mese_inserimento errore = false page = Request.Form("page") Block = Request.Form("Block") strMode = Request.Form("strMode") if Ublogtype = "closed" then If Session("admin") = False or IsNull(Session("admin")) = True then Response.Redirect"login.asp?strMode=" & strMode & "" End If end if If strMode = "edit" Then blog_id = CLng(Request.Form("blog_id")) If Trim(Request.form("blog_autore")) = "" Or Trim(Request.form("blog_titolo"))= "" Or Trim(Request.form("blog_testo"))= "" Then errore = true End If blog_autore = Request.Form("blog_autore") blog_email = Request.Form("email") blog_titolo = Request.Form("blog_titolo") blog_testo = Request.Form("blog_testo") ' Format user input and remove html tags blog_autore = removeAllTags(blog_autore) blog_email = removeAllTags(blog_email) blog_titolo = removeAllTags(blog_titolo) If strMode = "new" AND Ublogtype = "open" Then blog_testo = removeAllTags(blog_testo) blog_testo = UBBcode(blog_testo) else blog_testo = removemaligno(blog_testo) End if blog_testo = Replace(blog_testo, VbCrLf, "
") ' end format data = Request.Form("data") ora = Request.Form("ora") blnComments = CBool(Request.Form("comments")) mese = Request.Form("mese") anno = Request.Form("anno") If mese <> "" Then mese_inserimento =Right(CStr(100+mese), 2) else mese_inserimento =Right(CStr(100+Month(Date)), 2) end if If errore = false then If strMode = "edit" Then strSQL = "SELECT blog.* FROM blog WHERE blog.blog_id = " & blog_id & ";" Else strSQL = "SELECT * FROM blog" End If Set rsblog = Server.CreateObject("ADODB.Recordset") rsblog.Open strSQL, strCon, 3, 3 strSQL = "SELECT * FROM blog order by blog_id desc" Set rsblog1 = Server.CreateObject("ADODB.Recordset") rsblog1.Open strSQL, strCon, 3, 3 if rsblog1.eof then id = 1 else id = rsblog1("blog_id") + 1 end if If NOT strMode = "edit" Then rsblog.AddNew rsblog.Fields("blog_id") = id end if rsblog.Fields("blog_titolo") = blog_titolo rsblog.Fields("blog_testo") = blog_testo rsblog.Fields("blog_autore") = blog_autore rsblog.Fields("blog_email") = blog_email If data <> "" Then rsblog.Fields("data") = data else rsblog.Fields("data") = Date() end if If ora <> "" Then rsblog.Fields("ora") = ora else rsblog.Fields("ora") = Time() end if rsblog.Fields("mese") = mese_inserimento If anno <> "" Then rsblog.Fields("anno") = anno else rsblog.Fields("anno") = Year(Date) end if rsblog.Fields("commenti") = blnComments rsblog.Update rsblog.Requery If blnEmail = True AND strMode <> "edit" Then strEmailSubject = strLangSubjectEmailNewBlog strEmailBody = strLangEmailHi strEmailBody = strEmailBody & "

" & strLangEmailBodyBlog1 & "" strEmailBody = strEmailBody & "
" & strLangEmailBodyBlog2 & "" strEmailBody = strEmailBody & "

" & strLangFormTitle & ": " & blog_titolo strEmailBody = strEmailBody & "

" & strLangFormAuthor & ": " & blog_autore strEmailBody = strEmailBody & "
" & strLangFormEmail & ": " & email strEmailBody = strEmailBody & "
" & strLangFormText & ":
" & blog_testo Dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Ublogname & " <" & emailamministratore & ">" objCDOMail.To = "<" & emailamministratore & ">" objCDOMail.Subject = strEmailSubject objCDOMail.Body = strEmailBody objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Importance = 1 objCDOMail.Send Set objCDOMail = Nothing End If rsblog.Close Set rsblog = Nothing If strMode = "edit" then msg = strLangInfoEditBlog Response.Redirect "editallblog.asp?page="& page & "&Block="& Block &"&msg="& msg &"" elseif Ublogtype ="open" then Response.Redirect "index.asp" else msg = strLangInfoInsertBlog Response.Redirect "editallblog.asp?msg="& msg &"" end if end if %>

<% if strMode= "edit" then %><% = strLangNavEditBlog %>     <% = data %><% else %><% = strLangSelectNewBlog %>     <% = Date() %><% end if %>

	<% If errore = True Then %> <% = strLangErrorMessageNeedAuthorTitleText %> <% if strMode = "new" then %> <% = strLangNavBackPrevPage %> <% else %> <% = strLangNavBackPrevPage %> <% End If End If %>

<% Set adoCon = Nothing Set strCon = Nothing %>