|
HOME OUR CLASS CLASS OFFICERS LINKS PICTURES COURSES DOSAF GROUPWISE ROTATIONS HUMOR |
Links |
|
<%
'Check to see if title has been entered or not
u_title=request.form("u_title")
if u_title = "" then
%>
<%
end if
%>
<%
if u_title <> "" then
' If there is a user inputted title
' get all of the user inputed values
u_title=request.form("u_title")
u_paragraph1=request.form("u_paragraph1")
u_paragraph2=request.form("u_paragraph2")
u_text_color=request.form("u_text_color")
u_text_size=request.form("u_text_size")
g_filename=replace(u_title," ","_")
set fso = createobject("scripting.filesystemobject")
' create the text (html) file to the server adding the -mmddyyyy after the g_title value
Set act = fso.CreateTextFile(server.mappath("write2htm/"&g_filename & "-"& month(date())& day(date())& year(date()) &".htm"), true)
' write all of the user input to the text (html) document
' The .htm extension can just as easily be .asp or .inc whatever best suits your needs
act.WriteLine ""
act.WriteLine chr(13)
act.WriteLine " " act.WriteLine chr(13) act.WriteLine u_title &" " act.WriteLine chr(13) act.WriteLine "" act.WriteLine chr(13) act.WriteLine u_paragraph1 &" " act.WriteLine chr(13) act.WriteLine "" act.WriteLine chr(13) act.WriteLine u_paragraph2 &" " act.WriteLine chr(13) act.WriteLine "
" act.WriteLine " " act.WriteLine "This document was created on " act.WriteLine now() &" " ' close the document act.Close %> Your page has been successfully create and can be viewed by clicking here<% response.write "" response.write chr(13) response.write " " response.write chr(13) response.write u_title &" " response.write chr(13) response.write "" response.write chr(13) response.write u_paragraph1 &" " response.write chr(13) response.write "" response.write chr(13) response.write u_paragraph2 &" " response.write chr(13) response.write "
" response.write " " response.write "This document was created on " response.write now() &" " end if %> |