<%@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 strMode 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 = CBool(Request.Form("email_notify")) n_record = CInt(Request.Form("n_record")) cookie = CBool(Request.Form("cookie")) tipologia = Request.Form("tipologia") strMode = Request.Form("mode") Set rsconfigurazione = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT configurazione.* From configurazione;" rsconfigurazione.CursorType = 2 rsconfigurazione.LockType = 3 rsconfigurazione.Open strSQL, strCon If strMode = "change" Then rsconfigurazione.Fields("username") = username rsconfigurazione.Fields("password") = password rsconfigurazione.Fields("nomeblog") = nomeblog rsconfigurazione.Fields("email_address") = email_address rsconfigurazione.Fields("email_notify") = email_notify rsconfigurazione.Fields("n_record") = n_record rsconfigurazione.Fields("cookie") = cookie rsconfigurazione.Fields("tipologia") = tipologia rsconfigurazione.Update rsconfigurazione.Requery End If 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 = CBool(rsconfigurazione.Fields("email_notify")) n_record = rsconfigurazione.Fields("n_record") cookie = CBool(rsconfigurazione.Fields("cookie")) tipologia = rsconfigurazione.Fields("tipologia") End If rsconfigurazione.Close Set rsconfigurazione = Nothing %>

<% = 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 %>