<%
Dim FSO,recordsfile,Totalrecords
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set recordsfile = fSO.OpenTextFile(Server.MapPath("/magazine/templates/layout1.html"))
Totalrecords = recordsfile.ReadAll
recordsfile.Close
Set recordsfile = Nothing
Set FSO = Nothing
dim content
'content = "Type here..."
content = Totalrecords
dim contactstring
contactstring = "Email: "
contactstring = contactstring &"
Sales: sales@ASPEdit.Net
"
contactstring = contactstring &" "
contactstring = contactstring &"General: info@ASPEdit.Net "
contactstring = contactstring &"
Support: support@ASPEdit.Net
Address:
"
contactstring = contactstring &"
CuteSoft
35 SHERWOOD CRES
"
contactstring = contactstring &"BELLEVILLE ON "
contactstring = contactstring &"K8P 5G2 "
contactstring = contactstring &"Canada "
dim temp_styledropdownMenuNames,temp_styledropdownMenuList,temp_snippetDropDownMenuNames,temp_snippetDropDownMenuList,temp_imagesDropDownMenuNames,temp_imagesDropDownMenuList
temp_styledropdownMenuNames = "Heading,Head,Subhead,NormalRed,Comment"
temp_styledropdownMenuList = "Heading,Head,Subhead,NormalRed,Comment"
temp_snippetDropDownMenuNames = "Contact Info,Copyright"
temp_snippetDropDownMenuList = contactstring&",Copyright 2003 Cutesoft.All right seserved."
temp_imagesDropDownMenuNames = "Contact us,Hi Canada,Need a tool,Flower,Business,Beautiful Smile,Content tools,Nice Couple"
temp_imagesDropDownMenuList = "/uploads/j0182534.jpg,/uploads/j0182611.jpg,/uploads/j0178413.jpg,/uploads/j0313820.jpg,/uploads/PH01956J.jpg,/uploads/j0262681.jpg,/uploads/j0316779.jpg,/uploads/ph01736j.jpg"
temp_linksDropDownMenuNames = "ASPEdit,Mail to us,Yahoo.com,Google.com,ASP.NET"
temp_linksDropDownMenuList = "Http://www.ASPEdit.net,mailto:support@ASPEdit.Net,Http://www.yahoo.com,Http://www.google.com,Http://www.asp.net"
Dim editor
Set editor = New ASPEdit 'Create a new editor class object
'Set the ID of this editor class
editor.ID = "Editor1"
'Set the initial HTML value of editor control
editor.Text = content
editor.FilesPath = "ASPEdit_Files"
'Specifies the URL path of the Image Gallery. default "Uploads"
editor.ImageGalleryPath = "/webimages"
'Specifies the URL path of the Flash Gallery. default "Uploads"
'editor.FlashPath= "/webimages"
'Specifies the URL path of the Downloadable Files. default "Uploads"
'editor.DocumentPath= "/webimages"
editor.MaxImageSize = 50
'Specifies the URL path of the Help button.
editor.HelpUrl = "http://www.houseviewonline.com"
editor.AutoConfigure = "enableall"
'if session("access") < 3 then
editor.AllowUpload = true
'end if
'A list of strings for the paragraph dropdownlist.
editor.ParagraphsList = "Normal,Heading 1,Heading 2,Heading 3,Formatted,Definition Term"
'A list of fonts for the font face dropdownlist.
editor.FontFacesList = "Arial,Verdana,Tahoma,Arial Black"
'A list of numbers for the zoom dropdownlist.
editor.ZoomsList = "500%,200%,125%,100%,25%"
'A list of numbers for the font size dropdownlist.
editor.FontSizesList = "1,2,3,4,5,7"
'editor.StyleSheetPath = "mystylesheet.css"
'The width for the Links drop down.
'editor.LinksDropDownWidth = 100
'The width for the Paragraphs drop down.
'editor.ParagraphsDropDownWidth = 100
'The width for the Sizes drop down.
'editor.SizesDropDownWidth = 100
'The width for the Zooms drop down.
'editor.ZoomsDropDownWidth = 100
'The width for the Styles drop down.
'editor.StylesDropDownWidth = 100
'The width for the Code Snippets drop down.
'editor.CodeSnippetsDropDownWidth = 100
'The width for the Images drop down.
'editor.ImagesDropDownWidth = 100
'The width for the fonts drop down.
'editor.FontsDropDownWidth = 100
'Columns attributes of this |