Back To Programming / Scripting / Coding Forum

SSL Secure Web space & CGI, Jmail or CDONTS?

  • happy100
  • Born
  • Born
  • No Avatar
  • Joined: May 21, 2004
  • Posts: 3
  • Status: Offline

Post May 21st, 2004, 9:48 am

Hi

I have a web site and we use a cgi formmail script to receive our orders via email from the script, but currently we telephone the customers for their credit card details.

The remote web hosting company we use offers SSL web space which we thought about using for getting the customers to add their credit card details into the form, so we could receive it via the same email as their order details.

But I have been told that cgi formmail script is not available and that we would have to use Jmail or CDONTS.

I have never heard of either of these and could do with some helps with how these might work with our situation?
If anyone could shine some light on this for me, it would be very much appreciated.

Many thanks

Craig.


--


Looking for some where to stay in the UK & Ireland?
http://www.ComeStayWithUs.com
  • Anonymous
  • Bot
  • No Avatar
  • Joined: 25 Feb 2008
  • Posts: ?
  • Loc: Ozzuland
  • Status: Online

Post May 21st, 2004, 9:48 am

  • Carnix
  • Guru
  • Guru
  • User avatar
  • Joined: Apr 28, 2004
  • Posts: 1099
  • Status: Offline

Post May 21st, 2004, 2:18 pm

Craig,
CDONTS is an ASP object, Jmail is the JSP servlet equivalent. I know nearly nothing about JSP.. but here's a tried and true CDONTS script I've used many times over:

Code: [ Select ]
<%
sub send_mail(efrom,eto,esubject,ebody)
 set obj_sendmail = Server.CreateObject("CDONTS.NewMail")
 with obj_sendmail
  .from = efrom
  .to = eto
  .subject = esubject
  .body = ebody
  .send
 end with
set obj_sendmail = nothing
end sub

sendto = "webmaster@care.org"
sendfrom = "someone@here.com"
subject_line = "Hello, this is an e-mail!"
message_body = "hello there!" & vbNewLine & "How are you today?!"

call send_mail(sendto,sendfrom,subject_line,message_body)

%>
  1. <%
  2. sub send_mail(efrom,eto,esubject,ebody)
  3.  set obj_sendmail = Server.CreateObject("CDONTS.NewMail")
  4.  with obj_sendmail
  5.   .from = efrom
  6.   .to = eto
  7.   .subject = esubject
  8.   .body = ebody
  9.   .send
  10.  end with
  11. set obj_sendmail = nothing
  12. end sub
  14. sendto = "webmaster@care.org"
  15. sendfrom = "someone@here.com"
  16. subject_line = "Hello, this is an e-mail!"
  17. message_body = "hello there!" & vbNewLine & "How are you today?!"
  19. call send_mail(sendto,sendfrom,subject_line,message_body)
  21. %>



You need to use other ASP scripting to get your form data. While I usually use another function I've written to make things easier for me, the basic way you can do that is:

yourvar = Request.Form("ElementName")

Note, ASP is NOT CaSe SensItivE, when written in VBScript (which is how I do it... ok.. technically, ASP isn't a language and VBScript isn't case sensitive... =P )
  • happy100
  • Born
  • Born
  • No Avatar
  • Joined: May 21, 2004
  • Posts: 3
  • Status: Offline

Post June 3rd, 2004, 5:51 am

Hi Carnix

Thanks for the code.
I have only just started using asp and it's all a bit daunting, wood there be any chance you could provide me with the full page code for a form to me sent with name and email as the form fields.
Making it clear where I need to change the script with my details etc.

I then could use your code to learn how to expand the form to include other form fields.

Hope you can help.

Many thanks

Craig.
  • Carnix
  • Guru
  • Guru
  • User avatar
  • Joined: Apr 28, 2004
  • Posts: 1099
  • Status: Offline

Post June 3rd, 2004, 6:43 am

Put the following functions in a common include file. I usually call it common.asp. It holds a bunch of functions and subs (nothing else).

Code: [ Select ]
sub send_mail(efrom,eto,esubject,ebody)
 set obj_sendmail = Server.CreateObject("CDONTS.NewMail")
 with obj_sendmail
  .from = efrom
  .to = eto
  .subject = esubject
  .body = ebody
  .send
 end with
set obj_sendmail = nothing
end sub

    function get_param(param_name)
        if(Request.QueryString(param_name).count > 0) then
            param = Request.QueryString(param_name)
        elseif(Request.Form(param_name).count > 0) then
            param = Request.Form(param_name)
        else
            param = ""
        end if
        if(param = "") then
            get_param = empty
        else
            get_param = param
        end if
    end function

    function get_http(v)
        get_http= Request.ServerVariables(v)
    end function
  1. sub send_mail(efrom,eto,esubject,ebody)
  2.  set obj_sendmail = Server.CreateObject("CDONTS.NewMail")
  3.  with obj_sendmail
  4.   .from = efrom
  5.   .to = eto
  6.   .subject = esubject
  7.   .body = ebody
  8.   .send
  9.  end with
  10. set obj_sendmail = nothing
  11. end sub
  13.     function get_param(param_name)
  14.         if(Request.QueryString(param_name).count > 0) then
  15.             param = Request.QueryString(param_name)
  16.         elseif(Request.Form(param_name).count > 0) then
  17.             param = Request.Form(param_name)
  18.         else
  19.             param = ""
  20.         end if
  21.         if(param = "") then
  22.             get_param = empty
  23.         else
  24.             get_param = param
  25.         end if
  26.     end function
  28.     function get_http(v)
  29.         get_http= Request.ServerVariables(v)
  30.     end function



Then, on your form page, you do something like:





Code: [ Select ]

<!-- #include VIRTUAL="/includes/common.asp" -->
<%
    submit = get_param("submit")
    thank_you = ""
    if(submit = "send") then
        efrom = get_param("send_from")
        eto = get_param("send_to")
        esubject = get_param("send_subject")
        ebody = get_param("send_body")
        call send_mail(efrom,eto,esubject,ebody)
        thank_you = "<b>Your Message Has Been Sent</b>"
    end if
%>
<html>
<%=thank_you%>
<form ACTION="<%=get_http("URL")% METHOD="POST">
Send To: <input TYPE="text" NAME="send_to" VALUE=""><br>
From: <input TYPE="text" NAME="send_from" VALUE=""><br>
Subject: <input TYPE="text" NAME="send_subject" VALUE=""><br>
Message:<br><textarea NAME="send_body" WRAP="virtual"></textarea>
<input TYPE="submit" NAME="submit" VALUE="send">
</form>
</html>
  2. <!-- #include VIRTUAL="/includes/common.asp" -->
  3. <%
  4.     submit = get_param("submit")
  5.     thank_you = ""
  6.     if(submit = "send") then
  7.         efrom = get_param("send_from")
  8.         eto = get_param("send_to")
  9.         esubject = get_param("send_subject")
  10.         ebody = get_param("send_body")
  11.         call send_mail(efrom,eto,esubject,ebody)
  12.         thank_you = "<b>Your Message Has Been Sent</b>"
  13.     end if
  14. %>
  15. <html>
  16. <%=thank_you%>
  17. <form ACTION="<%=get_http("URL")% METHOD="POST">
  18. Send To: <input TYPE="text" NAME="send_to" VALUE=""><br>
  19. From: <input TYPE="text" NAME="send_from" VALUE=""><br>
  20. Subject: <input TYPE="text" NAME="send_subject" VALUE=""><br>
  21. Message:<br><textarea NAME="send_body" WRAP="virtual"></textarea>
  22. <input TYPE="submit" NAME="submit" VALUE="send">
  23. </form>
  24. </html>


Obviously, make sure you save it as .asp, and are on an IIS server, and the systems administrator hasn't disabled CDONTS.

This is a really simple way to do it. I don't use CDONTS anymore, in favor of a little program called Blat that allows for MANY more options. CDONTS.newmail is the way to go in the beginning.

.c
  • happy100
  • Born
  • Born
  • No Avatar
  • Joined: May 21, 2004
  • Posts: 3
  • Status: Offline

Post June 3rd, 2004, 7:08 am

Thank you!

I have a slight script problem, this is the whole script of my page -

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!-- #include VIRTUAL="/includes/common.asp" -->
<%
submit = get_param("submit")
thank_you = ""
if(submit = "send") then
efrom = get_param("send_from")
eto = get_param("send_to")
esubject = get_param("send_subject")
ebody = get_param("send_body")
call send_mail(efrom,eto,esubject,ebody)
thank_you = "<b>Your Message Has Been Sent</b>"
end if
%>
<html>
<%=thank_you%>
<form ACTION="<%=get_http("URL")% METHOD="POST">
Send To: <input TYPE="text" NAME="send_to" VALUE=""><br>
From: <input TYPE="text" NAME="send_from" VALUE=""><br>
Subject: <input TYPE="text" NAME="send_subject" VALUE=""><br>
Message:<br><textarea NAME="send_body" WRAP="virtual"></textarea>
<input TYPE="submit" NAME="submit" VALUE="send">
</form>
</html>

and the script error says -

Active Server Pages error 'ASP 0116'

Missing close of script delimiter

/formsend_2pk49yqkit.asp, line 18

The Script block lacks the close of script tag (%>)


Have I missed something out?

Many thanks again.

Craig.
  • Carnix
  • Guru
  • Guru
  • User avatar
  • Joined: Apr 28, 2004
  • Posts: 1099
  • Status: Offline

Post June 3rd, 2004, 7:19 am

Sorry... that way my error :oops:

Change:
Code: [ Select ]
<form ACTION="<%=get_http("URL")% METHOD="POST">


To:

Code: [ Select ]
<form ACTION="<%=get_http("URL")%>" METHOD="POST">


I left out the closing ASP tag...
.c

Page 1 of 1

Post Information

  • Total Posts in this topic: 6 posts
  • Users browsing this forum: No registered users and 116 guests
  • You cannot post new topics in this forum
  • You cannot reply to topics in this forum
  • You cannot edit your posts in this forum
  • You cannot delete your posts in this forum
  • You cannot post attachments in this forum
 
cron
 

© 2011 Unmelted, LLC. Ozzu® is a registered trademark of Unmelted, LLC.