Problems with an ASP contact form...

Okay, so I have no knowledge with ASP and I was asked to look at this contact form because the emails aren't delivering.

I'll post the whole page of code, because I am unsure at what is what really apart from the common knowledge stuff i.e. the send email to etc, but this wasn't designed by me so I am unsure if it's wrong or right..

If someone could let me know whether there's a problem with the code or if the problem may lay elsewhere that'd be really handy.

Thanks alot!

Expand|Select|Wrap|Line Numbers

  
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="i-functions.asp" -->

<%    

sPageName = "order"

sPageTitle = "Order Form"

%>
 
<%

If Request("Validate") = "Y" then 
 
    nCounter = 0

    sItemsOrdered = Request("item")

    sOrderArray = Split(sItemsOrdered, ",")

    for i = 0 to UBound(sOrderArray)

        nCounter = nCounter + 1

    next
 
    sFirstName        = Request("FirstName")

    If not containsValue(sFirstName) then 

        Call AddError(sErrorString, "FirstName|")

    End If 

    Session("BuyerFirstName") = sFirstName

    sLastName        = Request("LastName")

    If not containsValue(sLastName) then 

        Call AddError(sErrorString, "LastName|")

    End If 

    Session("BuyerLastName") = sLastName

    sTelephone         = Request("Telephone")

    If not containsValue(sTelephone) then 

        Call AddError(sErrorString, "Telephone|")

    End If 

    Session("BuyerTelephone") = sTelephone

    sMobile         = Request("Mobile")

    sEmail             = Request("Email")

    if not ContainsValue(sEmail) then 

       Call AddError(sErrorString, "Email|")

    elseif (InStr(sEmail, "@") = 0) or (InStr(sEmail, ".") = 0) then 

       Call AddError(sErrorString, "Email|")

    End If 

    Session("BuyerEmail") = sEmail
 
    'sInvAddress1        = Request("InvAddress1")

    'If not containsValue(sInvAddress1) then 

    '    Call AddError(sErrorString, "InvAddress1|")

    'End If 

    'Session("BuyerInvAddress1") = sInvAddress1

    'sInvAddress2        = Request("InvAddress2")

    'Session("BuyerInvAddress2") = sInvAddress2

    'sInvTown            = Request("InvTown")

    'If not containsValue(sInvTown) then 

    '    Call AddError(sErrorString, "InvTown|")

    'End If 

    'Session("BuyerInvTown") = sInvTown

    'sInvCounty            = Request("InvCounty")

    'If not containsValue(sInvCounty) then 

    '    Call AddError(sErrorString, "InvCounty|")

    'End If 

    'Session("BuyerInvCounty") = sInvCounty

    'sInvPostcode        = Request("InvPostcode")

    'If not containsValue(sInvPostcode) then 

    '    Call AddError(sErrorString, "InvPostcode|")

    'End If 

    'Session("BuyerInvPostcode") = sInvPostcode
 
    sDelAddress1    = Request("DelAddress1")

    If not containsValue(sDelAddress1) then 

        Call AddError(sErrorString, "DelAddress1|")

    End If 

    sDelAddress2    = Request("DelAddress2")

    sDelTown        = Request("DelTown")

    If not containsValue(sDelTown) then 

        Call AddError(sErrorString, "DelTown|")

    End If 

    sDelCounty        = Request("DelCounty")

    If not containsValue(sDelCounty) then 

        Call AddError(sErrorString, "DelCounty|")

    End If 

    sDelPostcode    = Request("DelPostcode")

    If not containsValue(sDelPostcode) then 

        Call AddError(sErrorString, "DelPostcode|")

    End If 
 
    sHeardaboutOther= Request("HeardaboutOther")

    sHeardabout        = Request("Heardabout")

    If sHeardabout = "X" then 

        Call AddError(sErrorString, "Heardabout|")

    End If 

    If ((sHeardabout = "Internet Search") and  not containsValue(sHeardaboutOther)) then 

        Call AddError(sErrorString, "HeardaboutOther|")

    End If

    If ((sHeardabout = "Friend") and  not containsValue(sHeardaboutOther)) then 

        Call AddError(sErrorString, "HeardaboutOther|")

    End If
 
    sRegDate          = MySQLFriendlyDate(Date()) & " " & Time()
 
    if not containsValue(sErrorString) then

        sMessage = sMessage & "<html><body><table>"

        sMessage = sMessage & "<tr><td colspan=""2"">The following order details were submitted from the website. </td></tr>"

        sMessage = sMessage & "<tr><td>&nbsp;</td><td>&nbsp;</td></tr>"

        sMessage = sMessage & "<tr><td colspan=""2""><b>Contact Details</b></td></tr>"

        sMessage = sMessage & "<tr><td>Name:</td><td>" & sFirstName & "&nbsp;" & sLastName & "</td></tr>"

        sMessage = sMessage & "<tr><td>Telephone:</td><td>" & sTelephone & "</td></tr>"

        sMessage = sMessage & "<tr><td>Mobile:</td><td>" & sMobile & "</td></tr>"

        sMessage = sMessage & "<tr><td>Email:</td><td>" & sEmail & "</td></tr>"

        sMessage = sMessage & "<tr><td>&nbsp;</td><td>&nbsp;</td></tr>"

        'sMessage = sMessage & "<tr><td colspan=""2""><b>Invoice Address</b></td></tr>"

        'sMessage = sMessage & "<tr><td>Address:</td><td>" & sInvAddress1 & "</td></tr>"

        'If containsValue(sInvAddress2) then 

        '    sMessage = sMessage & "<tr><td>&nbsp;</td><td>" & sInvAddress2 & "</td></tr>"

        'End if

        'sMessage = sMessage & "<tr><td>Town:</td><td>" & sInvTown & "</td></tr>"

        'sMessage = sMessage & "<tr><td>County:</td><td>" & sInvCounty & "</td></tr>"

        'sMessage = sMessage & "<tr><td>Postcode:</td><td>" & sInvPostcode & "</td></tr>"

        'sMessage = sMessage & "<tr><td>&nbsp;</td><td>&nbsp;</td></tr>"

        sMessage = sMessage & "<tr><td colspan=""2""><b>Delivery Address</b></td></tr>"

        sMessage = sMessage & "<tr><td>Address:</td><td>" & sDelAddress1 & "</td></tr>"

        If containsValue(sDelAddress2) then 

            sMessage = sMessage & "<tr><td>&nbsp;</td><td>" & sDelAddress2 & "</td></tr>"

        End if

        sMessage = sMessage & "<tr><td>Town:</td><td>" & sDelTown & "</td></tr>"

        sMessage = sMessage & "<tr><td>County:</td><td>" & sDelCounty & "</td></tr>"

        sMessage = sMessage & "<tr><td>Postcode:</td><td>" & sDelPostcode & "</td></tr>"

        sMessage = sMessage & "<tr><td>&nbsp;</td><td>&nbsp;</td></tr>"

        sMessage = sMessage & "<tr><td>Heard about us?</td><td>" & sHeardabout & "</td></tr>"

        If containsValue(sHeardaboutOther) then 

            sMessage = sMessage & "<tr><td>&nbsp;</td><td>" & sHeardaboutOther & "</td></tr>"

        End if

        sMessage = sMessage & "<tr><td>&nbsp;</td><td>&nbsp;</td></tr>"

        sMessage = sMessage & "<tr><td colspan=""2""><b>Items Ordered</b></td></tr>"

        sMessage = sMessage & "<tr><td colspan=""2"">" & Request("item") & "</td></tr>"

        sMessage = sMessage & "</table></body></html>"
 
        Set objNewMail = Server.CreateObject("CDO.Message")

        objNewMail.Subject = "Website Order Form"

        objNewMail.From = "info@happy-meat.co.uk"

        objNewMail.To = "sales@local-meat.co.uk"

        'objNewMail.To = "frank@designinc.co.uk"

        'objNewMail.To = "jonathan@futuraweb.co.uk"

        objNewMail.HTMLBody = sMessage

        'objMail.BodyFormat = 0 

        objNewMail.Send

        set objNewMail=nothing
 
        'confirmation email to the customer

        sMessage1 = sMessage1 & "Thank you for placing an order through the Really Well Bred Meat Company website.<br> We are currently processing your order and will be contacting you soon to arrange payment and delivery.<br><br>Thanks again,<br>Sammy<br>The Really Well Bred Meat Company"

        Set objNewMail1 = Server.CreateObject("CDO.Message")

        objNewMail1.Subject = "Website Order Form"

        objNewMail1.From = "info@local-meat.co.uk"

        objNewMail1.To = sEmail

        'objNewMail.To = "frank@designinc.co.uk"

        objNewMail1.HTMLBody = sMessage1

        'objMail.BodyFormat = 0 

        objNewMail1.Send

        set objNewMail1=nothing
 
        Response.redirect "ordered.asp"

    Else

    End if 
 
End if 

%>
 
<!--#include file="i-header.asp" -->
 
        <div id="content">

            <div class="minheight"></div>

            <div class="fullcontent">

                <form name="order" method="POST" action="">

                <input type="hidden" name="Validate" value="Y" />

                <div class="fullleft">

                    <h1><%= sPageTitle %></h1>

                    <% if containsValue(sErrorString) then %>

                        <p><span style="color:#FF0000;font-weight:bold;">There are errors. Please complete the fields highlighted in red.</span></p>

                    <% Else %>

                  <% End If %>

                    <h3>Ways to Pay</h3>

                    <p>If you would like to place an order, please choose from one of the following options.</p>

                    <h4>Order Online</h4>

                    <p>Complete and submit the order form on this page.</p>

                    <h4>Order over the Phone</h4>

                    <p>Place an order over the phone by calling <span style="font-weight: bold"> 023 9247 9801</span> or 07834 998 048</p>

                    <h4>Order by Post</h4>

                    <p>Alternatively fill out the order form, print it off and post it to us along with a cheque made payable to The Really Well Bred Meat Co Ltd. Please post your order form to 

The Really Well Bred Meat Co, 40 Acre Farm, Havant Road, Bedhampton, Hants. PO9 3LW. </p>

                  <div class="yellowpanel">

                    <p>To place an order, please type in your requirements below</p>

                    <div align="center">

                      <p>

                        <textarea name="item" cols="30" rows="6"></textarea>

                      </p>

                      <p><br />

                      </p>

                    </div>

                    <div class="clear"></div>

                </div>

                </div>

                <div class="fullright">

                    <fieldset>

                        <h3>Your Details</h3>

                            <div class="formrow">

                                <label for="FirstName"><% if InStr(sErrorString, "FirstName|") > 0 then %><span style="color:#FF0000;">First name *</span><% Else %>First name *<% End if %></label> <input name="FirstName" type="text" class="text" value="<%= sFirstName %>" />

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="LastName"><% if InStr(sErrorString, "LastName|") > 0 then %><span style="color:#FF0000;">Last name *</span><% Else %>Last name *<% End if %></label> <input name="LastName" type="text" class="text" value="<%= sLastName %>" />

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="Telephone"><% if InStr(sErrorString, "Telephone|") > 0 then %><span style="color:#FF0000;">Telephone number *</span><% Else %>Telephone number *<% End if %></label> <input name="Telephone" type="text" class="text" value="<%= sTelephone %>" />

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="Mobile">Mobile number</label> <input name="Mobile" type="text" class="text" value="<%= sMobile %>" />

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="Email"><% if InStr(sErrorString, "Email|") > 0 then %><span style="color:#FF0000;">Email address *</span><% Else %>Email address *<% End if %></label> <input name="Email" type="text" class="text" value="<%= sEmail %>" />

                                <div class="clear"></div>

                            </div>

                    </fieldset>

                    <fieldset>

                        <h3>Delivery Address</h3>

                            <div class="formrow">

                                <label for="DelAddress1"><% if InStr(sErrorString, "DelAddress1|") > 0 then %><span style="color:#FF0000;">Address *</span><% Else %>Address *<% End if %></label> <input name="DelAddress1" type="text" class="text" value="<%= sDelAddress1 %>" />

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="DelAddress2">&nbsp;</label> <input name="DelAddress2" type="text" class="text" value="<%= sDelAddress2 %>" />

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="DelTown"><% if InStr(sErrorString, "DelTown|") > 0 then %><span style="color:#FF0000;">Town *</span><% Else %>Town *<% End if %></label> <input name="DelTown" type="text" class="text" value="<%= sDelTown %>" />

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="DelCounty">County</label> <select name="DelCounty" class="text">

                                    <option value="Hampshire" <% if sDelCounty = "Hampshire" then response.write "selected" %>>Hampshire</option>

                                    <option value="West Sussex" <% if sDelCounty = "West Sussex" then response.write "selected" %>>West Sussex</option>

                                    </select>

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="DelPostcode"><% if InStr(sErrorString, "DelPostcode|") > 0 then %><span style="color:#FF0000;">Postcode *</span><% Else %>Postcode *<% End if %></label> <input name="DelPostcode" type="text" class="text" value="<%= sDelPostcode %>" />

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="Heardabout"><% if InStr(sErrorString, "Heardabout|") > 0 then %><span style="color:#FF0000;">Where did you hear about us? *</span><% Else %>Where did you hear about us? *<% End if %></label> 

                                <select name="Heardabout" id="Heardabout">

                                    <option value="X">Please select</option>

                                    <option value="Internet Search" <% if sHeardabout = "Internet Search" then response.write "selected" %>>Internet Search</option>

                                    <option value="HTML Email" <% if sHeardabout = "HTML Email" then response.write "selected" %>>HTML Email</option>

                                    <option value="Friend" <% if sHeardabout = "Friend" then response.write "selected" %>>Friend</option>

                                    <option value="Existing Customer" <% if sHeardabout = "Existing Customer" then response.write "selected" %>>Existing Customer</option>

                                    <option value="Advert in Trade Magazine" <% if sHeardabout = "Advert in Trade Magazine" then response.write "selected" %>>Advert in Trade Magazine</option>

                                    <option value="Advert in Newspaper" <% if sHeardabout = "Advert in Newspaper" then response.write "selected" %>>Advert in Newspaper</option>

                                    <option value="Flyer" <% if sHeardabout = "Flyer" then response.write "selected" %>>Flyer</option>

                                    <option value="Van Livery" <% if sHeardabout = "Van Livery" then response.write "selected" %>>Van Livery</option>

                                </select>

                                <div class="clear"></div>

                            </div>

                            <div class="formrow">

                                <label for="HeardaboutOther"><% if InStr(sErrorString, "HeardaboutOther|") > 0 then %><span style="color:#FF0000;">Which search engine / name of friend:</span><% Else %>Which search engine / name of friend:<% End if %></label> <input name="HeardaboutOther" type="text" class="text" value="<%= sHeardaboutOther %>" />

                                <div class="clear"></div>

                            </div>

                    </fieldset>

                    <p><input type="image" src="images/btn-order.gif" alt="Make payments with PayPal - it's fast, free and secure!" /></p>

                </div>

                <div class="clear"></div>

                <p style="text-align:center;color:#006892;font-size:120%;font-weight:bold;">Alternatively place your order by calling <span style="font-weight: bold"> 023 9247 9801</span> or <span style="font-weight: bold">07834 998 048</span></p>

                </form>

            </div>

            <div class="clear"></div>

        </div>
 
<!--#include file="i-footer.asp" -->

Sep 17 '08 #1

Subscribe Post Reply

2819

jeffstl

432

Expert 256MB

Probably need more information here.

For one, you say the emails aren't delivering. OK. Were they delivering before hand? What changed that they suddenly stopped working?

In other words, did this code ever work before? If it did work, and suddenly stopped working, your problem likely resides with a firewall, or an internal set up, etc.

If the code processes as if nothing is wrong but the email itself just doesn't get delivered then there is probably something on the email server , or firewalls that is the problem.

Sep 17 '08 #2

jerry101

Probably need more information here.

For one, you say the emails aren't delivering. OK. Were they delivering before hand? What changed that they suddenly stopped working?

In other words, did this code ever work before? If it did work, and suddenly stopped working, your problem likely resides with a firewall, or an internal set up, etc.

If the code processes as if nothing is wrong but the email itself just doesn't get delivered then there is probably something on the email server , or firewalls that is the problem.

Hi, Thanks for the reply. Sorry about the lack of information.

Yes, as far as I know the code was working fine before but now there e-mail's just aren't delivering at all, so when someone fills out the order form and send's it away the e-mail it's supposed to be sent to doesn't receive anything.

I guess if it's a problem on there end then I should advise them of so...

Jerry

Sep 18 '08 #3

jeffstl

432

Expert 256MB

Hi, Thanks for the reply. Sorry about the lack of information.

Yes, as far as I know the code was working fine before but now there e-mail's just aren't delivering at all, so when someone fills out the order form and send's it away the e-mail it's supposed to be sent to doesn't receive anything.

I guess if it's a problem on there end then I should advise them of so...

Jerry

OK well let me be clearer.

This code is executing on a web server. Wherever that web server resides is where the email is coming from (or the same network anyway). So the problem is on the "end" where the website is running and stored.

Also this is just a guess. Server settings and email firewalls or changes to a network firewall are often the culprit in cases like these. Especially when there was no change to the code but it suddenly stops working.

Sep 18 '08 #4

Similar topics