<% Dim name, title, message, thefilename name = Request.Form("txtName") title = Request.Form("txtTitle") content = Request.Form("txtaMessage") ''''''''''''''''''''''''''''''''''''''''' 'puts name and title into the table ' '''''''''''''''''''''''''''''''''''''''' 'include file for the wrappe 'make db connection Connect() 'insert record addToGuestBook() thefilename = "guestfiles/guest" & getUniqID() &".txt" Response.Write("
" & thefilename) 'disconnect to db Disconnect() ''''''''''''''''''''''''''''''''''''''' 'puts message into a file ' ''''''''''''''''''''''''''''''''''''''' 'make file and insert content makeFile() 'Redirct to the display php Response.redirect("display.asp") %>