<% ''''''''''' (C) Stefan Holmberg 1999 ''''''''''' Free to use if these sourcecode lines is not deleted ''''''''''' Contact me at webmaster@sqlexperts.com ''''''''''' http://www.sqlexperts.com ''''''''''' AdMentor homepage at http://www.create-a-webshop.com ' Script modified by Michael Cleland ' michael@activeenzymes.com.au ' http://www.activeenzymes.com.au/postcard Dim nCardId, sSmallGufUrl, senderReceipt, enCardFlag nCardId = Request.QueryString("cardid") senderReceipt = Request.QueryString("sr") if nCardId = "" Then nCardId = Request.Form("cardid") If nCardId = "" Then Response.Redirect "error.asp?text=" & Server.HTMLEncode("Sorry - you've haven't enter a valid Postcard ID") End If End If If instr (nCardId, "&sr=no") > 0 then senderReceipt = "no" nCardId = mid (nCardId, 1, (Len(nCardId)-6)) End If Dim oRS Set oRS = Server.CreateObject("ADODB.Recordset") Dim oConn Set oConn = Postcard_GetDatabaseConn() ' Checks if new encryption system is active if NOT (Left (nCardid, 6) = "enCard") then Dim vArr vArr = Split( nCardId, "---" ) If UBound(vArr)<> 1 Then Response.Redirect "error.asp?text=" & Server.HTMLEncode("Sorry - you've entered an invalid Postcard ID") End If Dim sEmailToIn nCardId = vArr(LBound(vArr)) sEmailToIn = vArr(UBound(vArr)) oRS.Open "select * from createdpostcards, card where emailto='"& sEmailToIn &"' AND createdpostcards.fldAuto=" & nCardId & " and card.fldAuto=createdpostcards.cardid", oConn Else enCardFlag = "yes" oRS.Open "select * from createdpostcards, card where otherID='"& nCardId & "' and card.fldAuto=createdpostcards.cardid", oConn End If If oRS.EOF Then Response.Redirect "error.asp?text=" & Server.HTMLEncode("Sorry - you've entered an invalid Postcard ID") End If Dim sGifUrl, sNameTo, sNameFrom, sEmailFrom, sTextHTML, sEmailTo, sNotifySenderPickup, sPickedUpWhen Dim sBGColor Dim sTextColor, sPostcardToFriend sGifUrl = oRS("gifurl") sNameTo = oRS("nameto") sEmailTo = oRS("emailto") sNameFrom = oRS("namefrom") sEmailFrom = oRS("emailfrom") sGreeting = oRS("greeting") sNotifySenderPickup = oRS("notifysenderpickup") sPickedUpWhen = oRS("pickedupwhen") 'sTextHTML = oRS("stext") sTextHTML = server.HTMLencode(oRS("stext")) sTextHTML = Replace(sTextHTML, vbCrLf, "
") sBGColor = oRS("BgColor") sTextColor = oRS("TextColor") 'oRS.Close 'Update pickup 'oRS.Open "select fldAuto, pickedupwhen from createdpostcards where fldAuto=" & nCardId , oConn,3,1 'oRS("pickedupwhen") = Now() 'oRS.Update 'oRS.Close 'oConn.Execute "update createdpostcards set pickedupwhen=#" & Now & "# where fldAuto=" & nCardId if enCardFlag = "yes" then oRS.Close oRS.Open "select otherID , pickedupwhen from createdpostcards where otherID = '" & nCardID & "'" ,oConn ,adOpenDynamic,adLockOptimistic oRS("pickedupwhen") = Now() oRS.Update else oConn.Execute "update createdpostcards set pickedupwhen=#" & Now & "# where fldAuto=" & nCardId End IF If sNotifySenderPickup = "notifyme" and senderReceipt = "" then strMsgHeader = sNameTo & " (" & sEmailTo & ")" & " has received your postcard!" & vbCrLf & vbCrLf strMsgHeader = strMsgHeader & "It was viewed at " & Now & vbCrLf & vbCrLf if enCardFlag = "yes" then strMsgHeader = strMsgHeader & "You can view it again by going to : " & vbCrLf & vbCrLf & GetPathToPickupScript() & "?cardid=" & nCardID & "&sr=no" strMsgHeader = strMsgHeader & vbCrLf & vbCrLf & "Alternatively, you can visit " & live_serverURL & " and view a copy of the postcard you sent by " strMsgHeader = strMsgHeader & "pasting in the following:" & vbCrLf & vbCrLf & nCardID & "&sr=no" else strMsgHeader = strMsgHeader & "You can view it again by going to : " & vbCrLf & vbCrLf & GetPathToPickupScript() & "?cardid=" & nCardID & "---" & sEmailTo & "&sr=no" strMsgHeader = strMsgHeader & vbCrLf & vbCrLf & "Alternatively, you can visit " & live_serverURL & " and view a copy of the postcard you sent by " strMsgHeader = strMsgHeader & "pasting in the following:" & vbCrLf & vbCrLf & nCardID & "---" & sEmailTo & "&sr=no" End If strMsgFooter = vbCrLf & vbCrLf & vbCrLf & "** Send your own " & postcard_name & " postcard!" & vbCrLf & "** Visit " & live_serverURL & "" Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = mail_server JMail.Sender = webmaster_email JMail.Subject = sNameTo & " has received your postcard" JMail.AddRecipient (sEmailFrom) JMail.Body = (strMsgHeader & strMsgFooter) JMail.Priority = 0 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.execute if enCardFlag = "yes" then oRS.Close oRS.Open "select otherID , notifysenderpickup from createdpostcards where otherID = '" & nCardID & "'" ,oConn ,adOpenDynamic,adLockOptimistic oRS("notifysenderpickup") = Now() oRS.Update ' oConn.Execute "update createdpostcards set notifysenderpickup=#" & Now & "# where otherID=" & nCardId else oConn.Execute "update createdpostcards set notifysenderpickup=#" & Now & "# where fldAuto=" & nCardId End IF End If oRS.Close %> Postcards

<%=sNameTo%>, you've been sent a postcard!

 

<%=sGreeting%>

<%=postcard_name%>

 

<%=sTextHTML%>

 

From <%=sNameFrom%>

 

<%if senderReceipt = "no" then %>

You have selected to <%if sNotifySenderPickup = "dontnotifyme" then %> not <%end if %>
be notified when the card is collected by
<%=sNameTo%> (<%=sEmailTo%>)

* The postcard has <%if ((sNotifySenderPickup = "dontnotifyme") or (sNotifySenderPickup = "notifyme")) then %> not <%end if %> been collected *

<%End If %> <% ReceiverSendOwnPostcard = server.HTMLencode("namefrom=" & sNameTo & "&emailfrom=" & sEmailTo) ReceiverSendOwnPostcard = Replace(ReceiverSendOwnPostcard, " ", "%20") ReceiverReturnPostcard = server.HTMLencode("namefrom=" & sNameTo & "&emailfrom=" & sEmailTo & "&nameto=" & sNameFrom & "&emailto=" & sEmailFrom) ReceiverReturnPostcard = Replace(ReceiverReturnPostcard, " ", "%20") SenderSendOwnPostcard = server.HTMLencode("namefrom=" & sNameFrom & "&emailfrom=" & sEmailFrom) SenderSendOwnPostcard = Replace(SenderSendOwnPostcard, " ", "%20") SendAnotherPostcardTo = server.HTMLencode("namefrom=" & sNameFrom & "&emailfrom=" & sEmailFrom & "&nameto=" & sNameTo & "&emailto=" & sEmailTo) SendAnotherPostcardTo = Replace(SendAnotherPostcardTo, " ", "%20") if Postcard_GetCatCount() > 1 then If senderReceipt = "" then %>

Send your own postcard

Return a postcard to <%=sNameFrom%>

<%Else %>

Send your own postcard

Send another postcard to <%=sNameTo%>

<%End If %> <%Else If senderReceipt = "" then%>

Send a new postcard

Return a postcard to <%=sNameFrom%>

<%Else %>

Send a new postcard

Send another postcard to <%=sNameTo%>

<%End If %> <%End If%>