<% ' This is used to control whether or not we empty the guestbook at ' the first hit after midnight. We do it just to keep the list ' short. You'll probably want to set this to False Const bDeleteEntries = True ' Allows us to easily clear the guestbook if we notice someone is ' getting rude! All you need to do is pass it ?force=anything ' Possibly something else you might not want. To disable it comment ' out the Request.QueryString line and uncomment the "" one. Dim bForce bForce = Request.QueryString("force") 'bForce = "" ' Now that we're done implementing features you probably won't want, ' let's get to the actual script... Dim strFile ' String variable to store the path / file we write to ' I use MapPath here to make the script somewhat location independent. ' If I specified the physical path, you'd need to edit it to run this ' on your own server. This way it should work fine as long as it's in ' the same directory as the guestbook file. The include line also ' needs to be changed if you change this! This file needs to exist ' BEFORE you run this script! strFile = Server.MapPath("_private/subscribe.htm") ' If the script doesn't have anything posted to it we display the form ' otherwise we process the input and append it to the guestbook file. If Request.Form.Count = 0 Then ' Display the entry form. %>
       
Home      Contact Us         Categories    Stores   

 Home > Subscribe To Newsletter


Signing up for our Weekly Newsletter is easy and it's free!  Just complete the form below and click submit.

First Name:
Last Name:
E-mail Address:
Comment:
 

Click here if you are already subscribed and would like to unsubscribe.
 <% Else ' Log the entry to the guestbook file Dim objFSO 'FileSystemObject Variable Dim objFile 'File Object Variable ' Create an instance of the FileSystemObject Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the TextFile (FileName, ForAppending, AllowCreation) Set objFile = objFSO.OpenTextFile(strFile, 8, false) ' Log the results ' I simply bold the name and do a
. ' You can make it look however you'd like. ' Once again I remind readers that we by no means claim to ' be UI experts. Although one person did ask us if we had a ' graphic designer! I laughed so hard that I almost hurt myself! objFile.Write "
" objFile.Write Server.HTMLEncode(Request.Form("fname")) objFile.Write ", " objFile.Write Server.HTMLEncode(Request.Form("lname")) objFile.Write ", " objFile.Write Server.HTMLEncode(Request.Form("email")) objFile.Write ", " objFile.Write Server.HTMLEncode(Request.Form("comment")) objFile.Write ", " & now() ' Close the file and dispose of our objects objFile.Close Set objFile = Nothing Set objFSO = Nothing ' Tell people we've written their info %>

Thank You for Subscribing to our Newsletter
Click here if you would like to unsubscribe.

Back To PriceLowBargains.com's Home Page <% End If %>