|
|
|
|
|
|
|
|
|
|
|
 |
 |
 |
|
|||||||
 |
|
|||||||||
 |
 |
 |
 |
 |
 |
 |
 |
|
||
FAQs & ADVICE
Calculate the Cost of Disorganization
FREE PUBLICATIONS! |
Subscribe to "Organizing Solutions!" today! Just for signing up, you will receive 2 FREE Reports! |
Sign up or Subscribe!
<% ' ------------------------------------------------------------------------- ' SUBSCRIBE SECTION strAction = Request.QueryString("action") If strAction = "" Then ' Get values from a small subscribe form, ' if they actually exist If Request.Form("WANTS_DECLUTTERTIPS") = "1" Then strWANTS_DECLUTTERTIPS = "checked" End If If Request.Form("WANTS_TIMEMGTTIPS") = "1" Then strWANTS_TIMEMGTTIPS = "checked" End If If Request.Form("WANTS_ORGSOLUTIONS") = "1" Then strWANTS_ORGSOLUTIONS = "checked" strWANTS_TIMEMGTTIPS = "checked" strWANTS_DECLUTTERTIPS = "checked" End If %><% ElseIf strAction = "ADD" Then strSignedUpFor = "" If Request.Form("WANTS_DECLUTTERTIPS") = "1" Then frmWANTS_DECLUTTERTIPS = CInt(vbTrue) strSignedUpFor = strSignedUpFor & "De-cluttering Tips" Else frmWANTS_DECLUTTERTIPS = CInt(vbTrue) End If If Request.Form("WANTS_TIMEMGTTIPS") = "1" Then frmWANTS_TIMEMGTTIPS = CInt(vbTrue) strSignedUpFor = strSignedUpFor & " | Time Mgmt Tips" Else frmWANTS_TIMEMGTTIPS = CInt(vbTrue) End If If Request.Form("WANTS_ORGSOLUTIONS") = "1" Then frmWANTS_ORGSOLUTIONS = CInt(vbTrue) strSignedUpFor = strSignedUpFor & " | E-newsletter" Else frmWANTS_ORGSOLUTIONS = CInt(vbFalse) End If If Request.Form("WANTS_ATTACHMENT") = "1" Then frmWANTS_ATTACHMENT = CInt(vbTrue) Else frmWANTS_ATTACHMENT = CInt(vbFalse) End If frmFIRST_NAME = Replace( Request.Form("FIRST_NAME"),"'","''" ) frmLAST_NAME = Replace( Request.Form("LAST_NAME"),"'","''" ) frmEMAIL = Replace( Request.Form("EMAIL"),"'","''" ) frmPHONE = Replace("(" & Request.Form("PHONE1") & ") " & Request.Form("PHONE2") & "-" & Request.Form("PHONE3"),"'","''") Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Open "Driver={SQL Server}; Database=calahansolutions; Server=Mail1; Uid=calahansolutions; password=calahansolutions!23;" ' create SQL statement strSql = "SELECT * " & _ "FROM listserv L " & _ "WHERE email='" & frmEMAIL & "'" objRS.Open strSql, objConn If objRS.EOF Then 'create insert SQL statement strSql = "INSERT INTO listserv(first_name, last_name, email, phone, wants_decluttertips, wants_timemgttips, wants_orgsolutions, wants_attachment, date_added) " & _ "VALUES('" & frmFIRST_NAME & "', " & _ "'" & frmLAST_NAME & "', " & _ "'" & frmEMAIL & "', " & _ "'" & frmPHONE & "', " & _ "" & frmWANTS_DECLUTTERTIPS & ", " & _ "" & frmWANTS_TIMEMGTTIPS & ", " & _ "" & frmWANTS_ORGSOLUTIONS & ", " & _ "" & frmWANTS_ATTACHMENT & ", " & _ "GETDATE() )" ' perform execution of SQL statement 'Response.Write(strSql) objConn.Execute (strSql) objRS.Close strSql = "SELECT * " & _ "FROM listserv L " & _ "WHERE email='" & frmEMAIL & "'" objRS.Open strSql, objConn intListservID = objRS("listservID") objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing Else 'user already has email address intListservID = objRS("listservID") objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing Session("listservID") = intListservID Response.Redirect("cu_subscribe.asp?action=ALREADYADDED") End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Send mail to customer. Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.calahansolutions.com" Mail.Username = "info@calahansolutions.com" Mail.Password = "Info!23" Mail.From = "info@calahansolutions.com" Mail.FromName = "Calahan Solutions.com" Mail.IsHTML = True 'Response.write "EMAIL = " & frmEmail 'edit this nd call it later strBody = CreateBody ("") strTime = "" strDeclut = "" extra = "Thank you for contacting Calahan Solutions! Below is the De-Cluttering Strategies & Tips Report you requested." & _ " If we can help you further, please let us know.
" & _ "Thanks,
Stephanie
________________________________________________________________
Stephanie L. H. Calahan - President
" & _ "Organization Consulting for Business Home and Life
" & _ "T: 309.825.7833 . F: 309.422.7665
" & _ "** Visit http://www.calahansolutions.com and get FREE organizing tips! **
" IF frmWANTS_DECLUTTERTIPS = CInt(vbTrue) Then If frmWANTS_ATTACHMENT = CInt(vbTrue) Then Mail.AddAttachment DeClutteringPDF 'strSignedUpFor = strSignedUpFor & "De-cluttering Tips" Else strDeclut = "De-Cluttering Strategies & Tips" strBody = "" & ReadFile(DeClutteringHTML) & "" End If Mail.addAddress frmEMAIL Mail.Subject = "CalahanSolutions.com: Information Requested (Decluttering Tips)" strHeader = CreateHeader (frmFIRST_NAME, "", Extra ) strFooter = CreateFooter2 (frmFIRST_NAME,frmEMAIL,intListservID) Mail.Body = strHeader & strBody & strFooter On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description Set Mail = Nothing End If End If mail.reset() strBody = CreateBody (" ") If frmWANTS_TIMEMGTTIPS = CInt(vbTrue) Then If frmWANTS_ATTACHMENT = CInt(vbTrue) Then Mail.AddAttachment TimeMgmtPDF Else strTime = " | General Time & Productivity Tips" strBody = strBody & "" & ReadFile(TimeMgmtHTML) & "
" End If Mail.addAddress frmEMAIL Mail.Subject = "CalahanSolutions.com: Information Requested (Time & Productivity Tips)" extra = "Thank you for contacting Calahan Solutions! Below is the Time and Productivity Report you requested." & _ " If we can help you further, please let us know.
" & _ "Thanks,
Stephanie
________________________________________________________________
Stephanie L. H. Calahan - President
" & _ "Organization Consulting for Business Home and Life
" & _ "T: 309.825.7833 . F: 309.422.7665
" & _ "** Visit http://www.calahansolutions.com and get FREE organizing tips! **
" strHeader = CreateHeader (frmFIRST_NAME, "",Extra ) strFooter = CreateFooter2 (frmFIRST_NAME,frmEMAIL,intListservID) Mail.Body = strHeader & strBody & "
" & strFooter On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description Set Mail = Nothing End If End If Set Mail = Nothing 'If frmWANTS_ATTACHMENT = CInt(vbTrue) Then ' IF frmWANTS_DECLUTTERTIPS = CInt(vbTrue) Then ' Mail.AddAttachment server.MapPath("/documents/listserv/decluttering_tips.pdf") 'strSignedUpFor = strSignedUpFor & "De-cluttering Tips" ' End If ' If frmWANTS_TIMEMGTTIPS = CInt(vbTrue) Then ' Mail.AddAttachment server.MapPath("/documents/listserv/time_tips.pdf") ' 'strSignedUpFor = strSignedUpFor & " | Time Mgmt Tips" ' End If ' If frmWANTS_ORGSOLUTIONS = CInt(vbTrue) Then 'strSignedUpFor = strSignedUpFor & " | E-newsletter" ' End If 'Else ' IF frmWANTS_DECLUTTERTIPS = CInt(vbTrue) Then ' strDeclut = "De-Cluttering Strategies & Tips" ' strBody = "" & ReadFile("decluttering_tips.htm") & "
" ' End If ' If frmWANTS_TIMEMGTTIPS = CInt(vbTrue) Then ' strTime = " | General Time & Productivity Tips" ' strBody = strBody & "" & ReadFile("time_tips.htm") & "
" ' End If ' ' If frmWANTS_ORGSOLUTIONS = CInt(vbTrue) Then ' 'strSignedUpFor = strSignedUpFor & " | E-newsletter" ' End If 'End If 'strHeader = CreateHeader (frmFIRST_NAME, "Calahan Solutions.com: Information Requested " & strDeclut & strTime ) 'strFooter = CreateFooter (frmFIRST_NAME,frmEMAIL,intListservID) 'Mail.Body = strHeader & strBody & strFooter 'On Error Resume Next 'Mail.Send 'If Err <> 0 Then ' Response.Write "Error encountered: " & Err.Description' ' End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' send email to Stephanie for contact Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.calahansolutions.com" Mail.Username = "info@calahansolutions.com" Mail.Password = "Info!23" Mail.From = "info@calahansolutions.com" Mail.FromName = "Calahan Solutions.com" Mail.IsHTML = False Mail.AddAddress "stephanie.calahan@calahansolutions.com" 'Mail.AddBcc "jnoellsch@mcsot.com" Mail.AddBcc "jnoellsch@mcsot.com" Mail.Subject = "CalahanSolutions.com: New listserv sign-up!" Mail.Body = "Name: " & frmFIRST_NAME & " " & frmLAST_NAME & vbCrLf & _ "Email: " & frmEMAIL & vbCrLf & _ "Phone: " & frmPHONE & vbCrLf & _ "Signed up for: " & strSignedUpFor & "" Mail.send Set Mail = Nothing 'Send the user a welcome email ' send email to Stephanie for contact Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.calahansolutions.com" Mail.Username = "info@calahansolutions.com" Mail.Password = "Info!23" Mail.From = "info@calahansolutions.com" Mail.FromName = "Calahan Solutions.com" Mail.IsHTML = True Mail.AddAddress frmEMAIL 'Mail.AddBcc "jnoellsch@mcsot.com" 'Mail.AddBcc "jnoellsch@mcsot.com" Mail.Subject = "Thank You for Signing Up For Organizing Solutions" Mail.Body = ReadFile(Server.Mappath("./listserv/thank_4_subscrib.htm")) On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If Set Mail = Nothing ' send user to confirmation page Response.Redirect("cu_confm_signup.asp") %> <% ElseIf strAction = "ALREADYADDED" Then %>
<% ElseIf strAction = "CUSTOMERVIEW" Then ' check for session ID for their listserv ' primary key value If Session("listservID") = "" Then If Request.QueryString("listservID") = "" Then Response.Redirect("cu_subscribe.asp?action=ERR") Else Session("listservID") = Request.QueryString("listservID") End If End If Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Open "Driver={SQL Server}; Database=calahansolutions; Server=Mail1; Uid=calahansolutions; password=calahansolutions!23;" 'create confirmation SQL statement strSql = "SELECT * " & _ "FROM listserv L " & _ "WHERE L.listservID='" & Session("listservID") & "'" objRS.Open strSql, objConn 'get signed up info strFirstName = objRS("first_name") strLastName = objRS("last_name") strEmail = objRS("email") strPhone = objRS("phone") strDateAdded = objRS("date_added") strWantsAttachment = "" strWantsHTML = "" strDeclutterTips = "" strTimeMgmtTips = "" strOrgSolutions = "" If objRS("wants_attachment") = CInt(vbTrue) Then strWantsAttachment = "PDF Attachment" Else strWantsAttachment = "HTML" End If If objRS("wants_decluttertips") = CInt(vbTrue) Then strDeclutterTips = "De-clutter Tips Report" Else strDeclutterTips = "De-clutter Tips Report" End If If objRS("wants_timemgttips") = CInt(vbTrue) Then strTimeMgtTips = "Increasing Time and Productivity Tips Report" Else strTimeMgtTips = "Increasing Time and Productivity Tips Report" End If If objRS("wants_orgsolutions") = CInt(vbTrue) Then strOrgSolutions = "Free E-newsletter" Else strOrgSolutions = "Free E-newsletter" End If objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>
<% ElseIf strAction = "EDIT" Then ' check for session ID for their listserv ' primary key value If Session("listservID") = "" Then Response.Redirect("cu_subscribe.asp?action=ERR") End If frmLAST_NAME = Request.Form("Firstname") frmFIRST_NAME = Request.Form("LastName") frmEMAIL = Request.Form("Email") frmPHONE = Request.Form("Phone") Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Open "Driver={SQL Server}; Database=calahansolutions; Server=Mail1; Uid=calahansolutions; password=calahansolutions!23;" If Request.Form("USER_SELECTION") = "UNSUBSCRIBE" Then 'Delete item from database strSql = "DELETE FROM listserv WHERE listservID='" & Session("listservID") & "'" objConn.Execute(strSql) 'Redirect to message objConn.Close Session("listservID") = "" ' send email to Stephanie to update contact info in her ' Outlook contact area Set MailRemove = Server.CreateObject("Persits.MailSender") MailRemove.Host = "mail.calahansolutions.com" MailRemove.Username = "info@calahansolutions.com" MailRemove.Password = "Info!23" MailRemove.From = "info@calahansolutions.com" MailRemove.FromName = "Calahan Solutions.com" MailRemove.IsHTML = False MailRemove.AddAddress "stephanie.calahan@calahansolutions.com" 'Mail.AddBcc "jnoellsch@mcsot.com" MailRemove.AddBcc "jnoellsch@mcsot.com" MailRemove.Subject = "CalahanSolutions.com: Unsubscribe on listserv!" MailRemove.Body = "Name: " & frmLAST_NAME & ", " & frmFIRST_NAME & vbCrLf & _ "Email: " & frmEMAIL & vbCrLf & _ "Phone: " & frmPHONE & vbCrLf & _ "UNSUBSCRIBED." On Error Resume Next MailRemove.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If Set MailRemove = Nothing Response.Redirect("cu_subscribe.asp?action=REMOVED") ElseIf Request.Form("USER_SELECTION") = "CHANGE" Then 'create confirmation SQL statement strSql = "SELECT * " & _ "FROM listserv L " & _ "WHERE L.listservID='" & Session("listservID") & "'" objRS.Open strSql, objConn 'get signed up info strFirstName = objRS("first_name") strLastName = objRS("last_name") strEmail = objRS("email") strPhone = objRS("phone") strDateAdded = objRS("date_added") strWantsAttachment = "" strWantsHTML = "" strDeclutterTips = "" strTimeMgtTips = "" strOrgSolutions = "" If objRS("wants_attachment") = CInt(vbTrue) Then strWantsAttachment = "checked" Else strWantsHTML = "checked" End If If objRS("wants_decluttertips") = CInt(vbTrue) Then strDeclutterTips = "checked" End If If objRS("wants_timemgttips") = CInt(vbTrue) Then strTimeMgtTips = "checked" End If If objRS("wants_orgsolutions") = CInt(vbTrue) Then strOrgSolutions = "checked" End If objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing End If %>
<% ElseIf strAction = "UPDATE" Then ' check for session ID for their listserv ' primary key value If Session("listservID") = "" Then Response.Redirect("cu_subscribe.asp?action=ERR") End If Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Driver={SQL Server}; Database=calahansolutions; Server=Mail1; Uid=calahansolutions; password=calahansolutions!23;" strSignedUpFor = "" If Request.Form("WANTS_DECLUTTERTIPS") = "1" Then frmWANTS_DECLUTTERTIPS = CInt(vbTrue) strSignedUpFor = strSignedUpFor & "De-cluttering Tips" Else frmWANTS_DECLUTTERTIPS = CInt(vbFalse) End If If Request.Form("WANTS_TIMEMGTTIPS") = "1" Then frmWANTS_TIMEMGTTIPS = CInt(vbTrue) strSignedUpFor = strSignedUpFor & " | Time Mgt Tips" Else frmWANTS_TIMEMGTTIPS = CInt(vbFalse) End If If Request.Form("WANTS_ORGSOLUTIONS") = "1" Then frmWANTS_ORGSOLUTIONS = CInt(vbTrue) strSignedUpFor = strSignedUpFor & " | E-newsletter" Else frmWANTS_ORGSOLUTIONS = CInt(vbFalse) End If If Request.Form("WANTS_ATTACHMENT") = "1" Then frmWANTS_ATTACHMENT = CInt(vbTrue) Else frmWANTS_ATTACHMENT = CInt(vbFalse) End If frmFIRST_NAME = Replace(Request.Form("FIRST_NAME"),"'","''") frmLAST_NAME = Replace(Request.Form("LAST_NAME"),"'","''") frmEMAIL = Replace(Request.Form("EMAIL"),"'","''") frmPHONE = Replace(Request.Form("PHONE"),"'","''") 'create confirmation SQL statement strSql = "UPDATE listserv " & _ "SET email='" & frmEMAIL & "', " & _ "first_name='" & frmFIRST_NAME & "', " & _ "last_name='" & frmLAST_NAME & "', " &_ "phone='" & frmPHONE & "', " & _ "wants_attachment=" & frmWANTS_ATTACHMENT & ", " & _ "wants_decluttertips=" & frmWANTS_DECLUTTERTIPS & ", " & _ "wants_timemgttips=" & frmWANTS_TIMEMGTTIPS & ", " & _ "wants_orgsolutions=" & frmWANTS_ORGSOLUTIONS & " " & _ "WHERE listservID=" & Session("listservID") & "" 'Response.Write strSql objConn.Execute(strSql) objConn.Close() Session("listservID") = "" Set objConn = Nothing ' send email to Stephanie to update contact info in her ' Outlook contact area Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.calahansolutions.com" Mail.Username = "info@calahansolutions.com" Mail.Password = "Info!23" Mail.From = "info@calahansolutions.com" Mail.FromName = "Calahan Solutions.com" Mail.IsHTML = False Mail.AddAddress "stephanie.calahan@calahansolutions.com" 'Mail.AddBcc "jnoellsch@mcsot.com" 'Mail.AddBcc "jnoellsch@mcsot.com" Mail.Subject = "CalahanSolutions.com: Update on listserv!" Mail.Body = "Name: " & frmLAST_NAME & ", " & frmFIRST_NAME & vbCrLf & _ "Email: " & frmEMAIL & vbCrLf & _ "Phone: " & frmPHONE & vbCrLf & _ "Signed up for: " & strSignedUpFor & "" On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If Set Mail = Nothing %>
Your information has been updated successfully! Thank you very much for your subscription to our newsletter!
We want this newsletter to provide incredible value to you. If you ever have any comments, suggestions, or ideas for topics to be covered, please contact us. Also, be sure to make an email folder labeled "Organizing Solutions" so you have a place to save them!
You’ll get the next newsletter edition soon and expect it to be useful for your business, home or your life. Otherwise be sure to complain!
Do you know anyone who could benefit from this newsletter? Sure you do! Let them know. I'm sure they'll thank you for it! And I will too!
If for some reason you don't get a confirmation email from us, please make sure to white list our email address "info@calahansolutions.com". For detailed white-listing instructions click here (page opens in a new window).
We’re looking forward to sharing our success tips, techniques and tactics with you! Thank you once again for subscribing. To read the most recent Organizing Solutions newsletter follow this link.
Believing in you,
Stephanie L. H. Calahan
Presient/CEO Calahan Solutions, Inc.
You Don't Have To Do It Our Way, Because We Help You Find Your Way!
T: 309.825.7833
F: 309.422.7665
E: GetOrganized@CalahanSolutions.com
Does anything on this website bug you? Nothing is too small or too big. If there is something we can fix, we'd love to know.
Return to home page
<% ElseIf strAction = "REMOVED" Then %>
You have been removed from our mailing list.
We are so sorry to loose you. Please be sure to check out other useful information on our website.
Return to home page
<% ElseIf strAction = "ERR" Then %>
An error has occured!
Please re-try the signup process again.
Return to subscription page
<% Else %>
An error has occured!
Please re-try the signup process again.
Return to subscription page
<% End If %>
About Organized Solutions!
Organizing Solutions is our monthly electronic newsletter. Each issue contains solid strategies to help you stay organized and get things done more efficiently. Every month you get fresh organizing ideas and resources to help you without spending a fortune. Organizing Solutions is dedicated to taking the mystery out of organizing and helping individuals build successful business, homes and habits.
Just for signing up for "Organizing Solutions!" you will receive two free reports:
- De-Cluttering Tips Report - Learn a variety of methods to de-clutter your space.
- Increasing Time and Productivity Tips Report - Learn a variety of methods to use your time more productively.
Help us Grow!
Our community grows stronger every day by every one of us helping one another. Please write us and let us know one of your “Organizing Success Stories.”
Remember the gift of organizing! Forward CS Org Solutions to a friend or colleague!
Get us on Your "White List"
If for some reason you don't get a confirmation email from us, please make sure to white list our email address "info@calahansolutions.com". For detailed white-listing instructions click here (page opens in a new window).
We’re looking forward to sharing our success tips, techniques and tactics with you! Thank you once again for subscribing. To read the most recent Organizing Solutions newsletter follow this link.
Our Privacy Policy
Your privacy is important to us. We will never share or sell your information to anyone for any purpose. See our policy for more details.
Share Your Tips
Every week we provide tips to our readers and often you provide us with great ideas of your own! If you have an organizing method that you use and you would like to share it, let us know.
Feature Articles in Downloadable Audio!
Want to listen to your tips rather than read them? Access this link for a player or MP3 download.
Testimonies
Thanks for this issue...I forwarded it to my mom, who is an avid sewer and you would die if you saw the mess in her sewing corner. :)
Also, the info re: donating bridesmaid's gowns will be useful. I've got several hanging in my closet...didn't know what to do with them!
-Cassie Hart
Get Organized!
Increase Productivity - Save Money - Save Time - Eliminate Clutter - Get Motivated - Reduce Stress
Gain Space in Your Home or Office - Gain Control - Boost Self Esteem
