<%@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 rsconfigurazione Dim operazione Dim username Dim password Dim nomeblog Dim email_address Dim email_notify Dim n_record Dim cookie Dim tipologia If Session("admin") = False or IsNull(Session("admin")) = True then Response.Redirect"login.asp?strMode=config" End If username = Request.Form("username") password = Request.Form("password") nomeblog = Request.Form("nomeblog") email_address = Request.Form("email_address") ' remove tag username = removeAllTags(username) password = removeAllTags(password) nomeblog = removeAllTags(nomeblog) email_address = removeAllTags(email_address) email_notify = Request.Form("email_notify") n_record = CInt(Request.Form("n_record")) cookie = Request.Form("cookie") tipologia = Request.Form("tipologia") operazione = Request.Form("mode") If operazione = "change" Then strSQL = "UPDATE configurazione SET username = '"&username&"',password = '"&password&"',nomeblog = '"&nomeblog&"',email_address = '"&email_address&"',email_notify = '"&email_notify&"',n_record = '"&n_record&"',cookie = '"&cookie&"',tipologia = '"&tipologia&"';" adoCon.Execute strSQL Else Set rsconfigurazione = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT configurazione.* FROM configurazione ORDER BY username;" rsconfigurazione.CursorType = 3 rsconfigurazione.Open strSQL, adoCon If NOT rsconfigurazione.EOF Then username = rsconfigurazione.Fields("username") password = rsconfigurazione.Fields("password") nomeblog = rsconfigurazione.Fields("nomeblog") email_address = rsconfigurazione.Fields("email_address") email_notify = rsconfigurazione.Fields("email_notify") n_record = rsconfigurazione.Fields("n_record") cookie = rsconfigurazione.Fields("cookie") tipologia = rsconfigurazione.Fields("tipologia") End If rsconfigurazione.Close Set rsconfigurazione = Nothing End If %>

<% = strLangSelectConfigBlog %>

	<% = UCase(strLangSelectConfigBlog) %> <% = strLangFormRequiredFields %> <% = strLangFormUblogTitle %> :* <% = strLangFormUsernameAdmin %> :* <% = strLangFormPasswordAdmin %> :* <% = strLangFormEmailAdmin %> : <% = strLangFormEmailNotify %> : <% = strLangFormYes %> >    <% = strLangFormNo %> > <% = strLangFormNumberOfRecords %> : >1 >2 >3 >4 >5 >6 >7 >8 >9 >10 >12 >14 >18 >20 <% = strLangFormAntiSpam %> : <% = strLangFormAntiSpamMessage %> <% = strLangFormYes %> >    <% = strLangFormNo %> > <% = strLangFormTypeOfUblog %> : <% = strLangFormTypeOfUblogmessage %> ><% = strLangFormOpenUblog %> ><% = strLangFormClosedUblog %>

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