home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / asp / POSTCARD.ZIP / sendit.asp < prev    next >
Encoding:
Text File  |  2000-02-16  |  2.1 KB  |  75 lines
  1. <!--#include file="inccard.asp"-->
  2. <%
  3. ' First of all lets just get all variables
  4.  
  5. Dim nCardId, sNameTo, sNameFrom, sEmailFrom, sText, sBGColor, sTextColor, sEmailTo
  6.  
  7.  
  8. nCardId = Request.Form("fldAuto")
  9. if nCardId = "" Then
  10.     Response.Redirect "."
  11. End If
  12.  
  13. 'Ok...
  14. sNameTo = Request.Form("nameto")
  15. sNameFrom = Request.Form("namefrom")
  16. sEmailFrom = Request.Form("emailfrom")
  17. sEmailTo = Request.Form("emailto")
  18. sGreeting = Request.Form("greeting")
  19. sText = Request.Form("S1")
  20. sBGColor = Request.Form("BgColor")
  21. sTextColor = Request.Form("TColor")
  22.  
  23. 'Save it to database
  24. Dim oRS
  25. Set oConn = PostCard_GetDatabaseConn()
  26. oConn.Execute "update card set sendcount=sendcount+1 where fldAuto=" & nCardId
  27. Set oRS = Server.CreateObject("ADODB.Recordset")
  28. oRS.Open "select * from createdpostcards where fldAuto=-1 " ,oConn ,adOpenKeyset,adLockOptimistic
  29. oRS.AddNew
  30. oRS("cardid") = nCardId
  31. oRS("nameto") = sNameTo
  32. oRS("namefrom") = sNameFrom
  33. oRS("emailto") = sEmailTo
  34. oRS("emailfrom") = sEmailFrom
  35. oRS("greeting") = sGreeting
  36. oRS("stext") = sText
  37. oRS("bgcolor") = sBGColor
  38. oRS("textcolor") = sTextcolor
  39. oRS.Update
  40.  
  41. Dim IDToSend
  42. IDToSend = oRS("fldAuto").Value
  43. oRS.Close
  44.  
  45.   set mailer = server.createobject("SMTPsvg.Mailer")
  46.   Mailer.FromName = "PostcardService"
  47.   Mailer.FromAddress = "postcardservice@aspcode.net"
  48.   Mailer.RemoteHost = "mail.aspcode.net"
  49.   Mailer.AddRecipient sNameTo, sEmailTo
  50.   Mailer.Subject = sNameFrom & " has sent you a postcard"
  51.  
  52.   strMsgHeader = sNameFrom & "(" & sEmailFrom & ")" & " has sent you a postcard!" & vbCrLf 
  53.   strMsgHeader = "The address to pick it up is : " & GetPathToPickupScript() & "?cardid=" & IDToSend
  54.   strMsgFooter = vbCrLf & vbCrLf  & "This card was sent and created with the postcardservice at http://www.aspcode.net"
  55.   Mailer.BodyText = strMsgHeader & strMsgFooter
  56.  
  57.   if Mailer.SendMail then
  58.      ' Message sent Ok, redirect to a confirmation page
  59.      Response.Redirect "thanks.asp"
  60.   else
  61.      ' Message send failure
  62.      Response.Write ("An error has occurred.<BR>")
  63.      ' Send error message
  64.      Response.Write ("The error was " & Mailer.Response)
  65.   end if
  66. %> 
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.