<%
session.lcid=2057
lcid=2057
formdate=2
scriptname=Request.ServerVariables("script_name")
password = "password"
usesummary = "yes"
recordsperpage = 3
prefs=Server.MapPath("blog_prefs.asp")
Response.Write "![]()
"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(prefs)
sitename=Replace(Request.Form("sitename"), """", "'")
objTextFile.WriteLine "<" & chr(37)
objTextFile.WriteLine "session.lcid=2057"
objTextFile.WriteLine "lcid=2057"
objTextFile.WriteLine "formdate=0"
objTextFile.WriteLine "scriptname=Request.ServerVariables(""script_name"")"
objTextFile.WriteLine "password = ""password"""
objTextFile.WriteLine "usesummary = ""yes"""
objTextFile.WriteLine "recordsperpage = 5"
objTextFile.WriteLine chr(37) & ">"
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>