<% strConnect = "" call openDB If request.form("goformkeepsake") = "keepsake" Then 'myDesc = NoSingleQuote(request.form("memory_description")) 'myFeeling = NoSingleQuote(request.form("lost_feeling")) myDesc = replace(replace(replace(request.form("memory_description"), "'", "''"), vbcrlf, " "), chr(10), " ") myFeeling = replace(replace(replace(request.form("lost_feeling"), "'", "''"), vbcrlf, " "), chr(10), " ") If request.form("receive_information") = "YES" Then receive_information = "YES" Else receive_information = "NO" End If sqlstring = "Select last_name,email From keepsake_questionnaire where last_name = '"&request.form("last_name")&"' AND email = '"&request.form("email")&"' " set recset = server.createObject("ADODB.Recordset") recset.open sqlstring,strConnect,adOpenKeyset,adLockOptimistic If recset.EOF Then ok2addNew = 1 Else If recset.recordcount => 3 Then mssg = "You may only add 3 entries - Thank you for your participation

" ok2addNew = 0 Else ok2addNew = 1 End If End If recset.close set recset = nothing If ok2addNew = 1 Then sqlstring = "Select * From keepsake_questionnaire" set recset = server.createObject("ADODB.Recordset") recset.open sqlstring,strConnect,adOpenKeyset,adLockOptimistic recset.addNew recset("first_name") = request.form("first_name") recset("last_name") = request.form("last_name") recset("town") = request.form("town") recset("country") = request.form("country") recset("email") = request.form("email") recset("subject") = request.form("category") recset("keepsake_format") = request.form("keepsake_format") recset("description") = myDesc recset("how_kept") = request.form("how_kept") recset("lost_feeling") = myFeeling recset("repair_or_restore") = request.form("repair_or_restore_item") recset("restoration_advice") = request.form("conservation_and_restoration_advice") recset("gender") = request.form("gender") recset("receive_information") = receive_information recset.update mssg = "Thank you for sharing your information with us

" recset.close set recset = nothing adminText = chr(10) & "A new post has been made to Memories-Nostalgia.com :-" & vbcrlf & vbcrlf & _ "Name: " & vbTab & vbTab & vbTab & vbTab & request.form("first_name") & " " & request.form("last_name") & vbcrlf & _ "Town:" & vbTab & vbTab & vbTab & vbTab & vbTab & request.form("town") & vbcrlf & _ "Country: " & vbTab & vbTab & vbTab & vbTab & request.form("country") & vbcrlf & _ "Gender: " & vbTab & vbTab & vbTab & vbTab & request.form("gender") & vbcrlf & _ "Email: " & vbTab & vbTab & vbTab & vbTab & request.form("email") & vbcrlf & _ "Subject: " & vbTab & vbTab & vbTab & vbTab & request.form("category") & vbcrlf & _ "Format: " & vbTab & vbTab & vbTab & vbTab & request.form("keepsake_format") & vbcrlf & _ "Description: " & vbcrlf & _ "--------------------" & vbcrlf & _ myDesc & vbcrlf & _ "--------------------" & vbcrlf & _ "How is it Kept: " & vbTab & vbTab & vbTab & request.form("how_kept") & vbcrlf & _ "Feeling if Lost: " & vbcrlf & _ "--------------------" & vbcrlf & _ myFeeling & vbcrlf & _ "--------------------" & vbcrlf & _ "Like to repair/restore item: " & request.form("repair_or_restore_item") & vbcrlf & _ "Like Restoration Advice: " & vbTab & request.form("conservation_and_restoration_advice") & vbcrlf & _ "Opted to receive Information: " & receive_information bodyText = chr(10) & "Dear " & request.form("first_name") & "," & vbcrlf & _ "Thank you for telling us about your treasured keepsakes, the precious memories they hold for you and how important they are to you." & vbcrlf & vbcrlf & _ "Our aim is to raise the awareness of the importance of our keepsakes and to provide information and develop products to help you store and keep them safe for future generations of your family to enjoy. Take a look at the attached 'Keeping Your Memories Alive' fact sheet for more information." & vbcrlf & vbcrlf & _ "As a thank you for your participation, we have also attached a selection of easy to use sheets in PDF format that will help you 'capture the moment' - these include:" & vbcrlf & vbcrlf & _ "- Christmas" & vbcrlf & _ "- New Year" & vbcrlf & _ "- On That Day" & vbcrlf & _ "- Timeline" & vbcrlf & _ "- Possessions" & vbcrlf & vbcrlf & _ "Why not forward this e-mail to your friends and share these sheets and swap memories with them? Alternatively, they could visit our 'Keeping Treasured Keepsakes Safe' web page and add their details for a chance to receive a Family History archive storage box made from acid free materials and a 'day you were born' chart. http://www.memories-nostalgia.com/keeping_treasured_keepsakes_safe.htm" & vbcrlf & vbcrlf & _ "Best regards," & vbcrlf & _ "David Waterman" & vbcrlf & _ "Memories and Nostalgia Collection" & vbcrlf & vbcrlf & _ "I Waterman (Box Makers) Ltd." & vbcrlf & _ "Assembly Passage" & vbcrlf & _ "London" & vbcrlf & _ "E1 4UT" & vbcrlf & _ "T: 020 7790 2394" & vbcrlf & _ "e: info@memories-nostalgia.com" & vbcrlf & _ "w: www.memories-nostalgia.com" set objMail = Server.CreateObject("SMTPsvg.Mailer") objMail.RemoteHost = "smtp189.inetc.net" objMail.FromAddress = "info@memories-nostalgia.com" objMail.FromName = "Memories-Nostalgia.com" objMail.AddRecipient request.form("first_name") & " " & request.form("last_name"), request.form("email") objMail.AddAttachment pdfPath & "\christmas.pdf" objMail.AddAttachment pdfPath & "\newyear.pdf" objMail.AddAttachment pdfPath & "\onthatday.pdf" objMail.AddAttachment pdfPath & "\timeline.pdf" objMail.AddAttachment pdfPath & "\thennowforever.pdf" objMail.AddAttachment pdfPath & "\possessions.pdf" objMail.Subject = "Thank you from Memories-Nostalgia.com" objMail.BodyText = bodyText If objMail.SendMail Then else 'Response.Write "Mail failure. " & err.Number & " : " & err.decription & " - Check mail host server name and tcp/ip connection..." end if set objMail = nothing set objMail = Server.CreateObject("SMTPsvg.Mailer") objMail.RemoteHost = "smtp189.inetc.net" objMail.FromAddress = "info@memories-nostalgia.com" objMail.FromName = "Memories-Nostalgia.com" objMail.AddRecipient "David Waterman","info@memories-nostalgia.com" objMail.Subject = "Post added to Memories-Nostalgia.com" objMail.BodyText = adminText If objMail.SendMail Then else 'Response.Write "Mail failure. " & err.Number & " : " & err.decription & " - Check mail host server name and tcp/ip connection..." end if set objMail = nothing End If End If orderby = "subject,keepsake_format,country,town, ID desc" ob = request.querystring("ob") If ob > "" Then if IsValidString(ob) Then If ob = "d" Then orderBy = "date_submitted" ElseIf ob = "s" Then orderBy = "subject,ID desc" ElseIf ob = "c" Then orderBy = "country,town,ID desc" End If End If End If sqlstring = "Select * from keepsake_questionnaire order by "& orderBy set recset = server.createObject("ADODB.Recordset") recset.open sqlstring,strConnect,adOpenKeyset If NOT recset.EOF Then allMnData = recset.getRows End If recset.close set recset = nothing call closeDB %> Keeping your treasured keepsakes safe
 

The Memories & Nostalgia Collection

 

  
 

Home | Online Shop | Contact Us |  Online Security

  
     
 

 

  

 

Keeping Treasured Keepsakes Safe.

Your treasured keepsakes are the icons of your most precious memories.

Click Here Now to tell us about your treasured keepsakes, the precious memories they hold for you and how important they are to you?

Red items have previously been selected as 'Entries of the Week' and have received a complimentary Family History Box, plus a donation of £25.00 has been donated in their name toward research into Alzheimer's disease.

<%=mssg%>

Display by: Date . Subject . Town

<%If isArray(allMnData) Then numRows = UBound(allMnData,2) thisFormat = "" for i = 0 to numRows If UCase(allMnData(6,i)) <> UCase(thisFormat) Then thisFormat = allMnData(6,i) If i >0 Then response.write "" End If response.write "
    " If ob = "s" Then response.write ""&thisFormat&"" End If End If%>
  • <%If allMnData(17,i) = 12 Then%> - Winner!: week <%=allMnData(19,i)%> <%=allMnData(18,i)%> <%=allMnData(20,i)%>
    <%End If%> <%If allMnData(17,i) = 1 Then%><%End If%><%If ob="s" Then%><%=replace(allMnData(7,i), "_", " ")%><%Else%> <%=thisFormat%> - <%=replace(allMnData(7,i), "_", " ")%><%End If%><%If allMnData(17,i) = 1 Then%><%End If%>
    "<%=replace(replace( allMnData(8,i), Chr(39) & Chr(39), Chr(39) ), chr(10), "
    ")%>"
    <%=Left(allMnData(1,i),1)%>.<%=Left(allMnData(2,i),1)%> - <%=allMnData(4,i)%>, <%=allMnData(3,i)%>
    • <%next response.write "
" End If%>

 

Made in UKMade in the UK
©2008 - Memories & Nostalgia
Acid Free Archive Storage Boxes

credit cards taken     safebuy    Good Web Guide    recycle