support.charged@fivepoundsaminute.con ;)

[Edited by AdrianFRST - 12/10/2002 12:40:35 PM]

Here

What do you think? i found a tutorial seems pretty good.

But what do people with experience think?

try admin_control.asp aswell.

Only issue is the post.asp doesnt want to work. If you do try it out, dont use real details. The email gets sent to my hotmail account.

Cheers

Si

thats cool mate.

what tutorial did you use?

:D

Should have a "remove item" button. It's not totally clear that to remove something you have to set quantity to zero and update cart.

You shouldn't need separate pages for each category of wine. You might need two pages if the attributes for the items shown differ, but you should be able to cater for that.

How is it storing the cart? Session vars or in the database? If it's in the db, how does it automatically empty the cart if the user abandons the session?

You could do with some validation to ensure the entry of address details. Forgive me if you'd planned to do this but hadn't got round to it yet. Both client side and server side is good, client side eg. alert box so users don't have to click back if they miss something and server side in case they have javascript disabled.

Search function would be nice too. ;)

not say :d

purposly edited the advertising out the html.

Problem i have titan doesn use CDOmail so i need another solution.

Si :D

Ive just done the Tutorial mate, I did notice no validation when i was playing with it.

Im pretty new to all this so trial and error really.

I think its stored in cookies, i know theres only 1 data base called prodocts stored at the root.

Ideally i want accounts created for the users, Also possibly an automated way its all processed.

Thanks

Si

thats post.asp isnt it

I just ordered some wines, will they be down in time for christmas? ;)

You can use ASPMail for mail with Titan:

192.168.1.7 is the server you need to send mail.

Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Joe Bloggs"
Mailer.FromAddress= "joe@bloggs.com"
Mailer.RemoteHost = "192.168.1.7"
Mailer.AddRecipient "John Smith", "john@smith.com"
Mailer.Subject = "Subject of the message"
Mailer.BodyText = "Your message body"
Mailer.SendMail
Set Mailer = Nothing

Cheers mate,

Just off to the gym for 2hours ill have another go later.

i wasnt sure how to implement ASPmail you see. I sent Lee an email and he surgested that.


Si

Do you have a contact email adrian?

si any idea on when these wines will arrive ?

Never :D

need to work out the ASPmail thingy 1st.

:(

It's just regarding this ASPmail no idea how to convert
<% @language="VBSCRIPT" %>
<%
' SEND EMAIL TO THE SHOP OWNER

Dim shopMail, shopBody


Set shopMail = CreateObject("CDONTS.NewMail")

shopBody="First Name: "& request.form("firstname") & vbcrlf

shopBody=shopBody & "Last Name: " & request.form("lastname") & vbcrlf
shopBody=shopBody & "Address 1: "& request.form ("address1") & vbcrlf
shopBody=shopBody & "Address 2: "& request.form ("address2") & vbcrlf
shopBody=shopBody & "City / Town: " & request.form ("town") & vbcrlf
shopBody=shopBody & "Post Code / Zip: " & request.form ("code") & vbcrlf
shopBody=shopBody & "County / State: " & request.form ("county") & vbcrlf
shopBody=shopBody & "Country: " & request.form ("country") & vbcrlf
shopBody=shopBody & "Phone: " & request.form ("phone") & vbcrlf
shopBody=shopBody & "Email: " & request.form ("email") & vbcrlf & vbcrlf
shopBody=shopBody & "Card Type: " & request.form ("card_type") & vbcrlf
shopBody=shopBody & "Card Number: " & request.form ("cardnumber") & vbcrlf
shopBody=shopBody & "Card Holder: " & request.form ("cardholder") & vbcrlf
shopBody=shopBody & "Expire Date: " & request.form ("expires") & vbcrlf
shopBody=shopBody & "Switch Issue: " & request.form ("issue") & vbcrlf
shopBody=shopBody & "Billing Address: " & vbcrlf & request.form ("billing_addr") & vbcrlf
shopBody=shopBody & "Order Contents: " & vbcrlf & request.form ("contents") & vbcrlf
shopBody=shopBody & "Total Order Value: " & request.form ("total")

shopMail.From="pug_106_gti@hotmail.com"
shopMail.To="pug_106_gti@hotmail.com"
shopMail.Subject="NEW ORDER"
shopMail.Body=shopBody
shopMail.Send
set shopMail=nothing


' SET UP MAIL FOR CUSTOMER


DIM custMail, custBody


Set custMail = CreateObject("CDONTS.NewMail")


custBody="First Name: "& request.form("firstname") & vbcrlf

custBody=custBody & "Last Name: " & request.form("lastname") & vbcrlf
custBody=custBody & "Address 1: "& request.form ("address1") & vbcrlf
custBody=custBody & "Address 2: "& request.form ("address2") & vbcrlf
custBody=custBody & "City / Town: " & request.form ("town") & vbcrlf
custBody=custBody & "Post Code / Zip: " & request.form ("code") & vbcrlf
custBody=custBody & "County / State: " & request.form ("county") & vbcrlf
custBody=custBody & "Country: " & request.form ("country") & vbcrlf
custBody=custBody & "Phone: " & request.form ("phone") & vbcrlf
custBody=custBody & "Email: " & request.form ("email") & vbcrlf & vbcrlf
custBody=custBody & "Card Type: " & request.form ("card_type") & vbcrlf
custBody=custBody & "Card Number: *** As Supplied***" & vbcrlf
custBody=custBody & "Card Holder: " & request.form ("cardholder") & vbcrlf
custBody=custBody & "Expire Date: " & request.form ("expires") & vbcrlf
custBody=custBody & "Switch Issue: " & request.form ("issue") & vbcrlf
custBody=custBody & "Billing Address: " & vbcrlf & request.form ("billing_addr") & vbcrlf
custBody=custBody & "Order Contents: " & vbcrlf & request.form ("contents")
custBody=custBody & "Total Order Value: " & request.form ("total")


custMail.From="pug_106_gti@hotmail.com"
custMail.To=request.form ("email")
custMail.Subject="THANK YOU FOR YOUR ORDER "& request.form ("firstname") & " " & request.form ("lastname")
custMail.Body=custBody
custMail.Send

set custMail=nothing
%>



<html>
<head>
<title> Thank You</title>
<META HTTP-EQUIV="refresh" CONTENT=12;URL="http://www.webthang.co.uk/ecom">
</head>


<body bgcolor="#FEFEFE" text="#CC3366" link="#CC3366" vlink="#CC3366" alink="#CC3366">


<div align="center">
<p> </p>
<p><font face="Comic Sans MS" size="2"><b>
THANK YOU FOR YOUR ORDER</b></font></p>
<p><b><font face="Comic Sans MS" size="2">
YOU WILL SHORTLY RECEIVE A CONFIRMATION E-MAIL</font></b></p>
<p><b><font face="Comic Sans MS" size="2">****</font></b></p>
<p><b><font face="Comic Sans MS" size="2">
IF YOU ARE NOT AUTOMATICALLY RETURNED TO THE HOME PAGE IN</font></b></p>
<p><b><font face="Comic Sans MS" size="2">
10 SECONDS</font></b></p>
<p><b><font face="Comic Sans MS" size="2"><a href="default.asp">
CLICK HERE</a></font></b></p>
</div>


</body>
</html>

Just change the CDONTS createobject and vars to the ASPMail ones.

eg:

Set shopMail = CreateObject("CDONTS.NewMail")

becomes:

Set shopMail = Server.CreateObject("SMTPsvg.Mailer")

You'll need to do the others, "from" becomes "fromName".

Look at my ASPMail example above and work it out. It's not that hard! ;)

ps. It's always good practice to use <%Option Explicit%>

Makes for longer coding but usually ends up helping when things get more complex later on.

think i get you now ;)

i was looking at it thinking well there variables but i never noticed the .from part

i was ripping the shopbody bit

Si

pps. anyone who uses Comic Sans MS on a site intended for an age range over 10 will go to design hell and be forever forced to use nothing more than MS Paint... ;)

hey its a tutorial :p

it will be changed ;)
Dim shopMail, shopBody


Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")


shopBody="First Name: "& request.form("firstname") & vbcrlf

shopBody=shopBody & "Last Name: " & request.form("lastname") & vbcrlf
shopBody=shopBody & "Address 1: "& request.form ("address1") & vbcrlf
shopBody=shopBody & "Address 2: "& request.form ("address2") & vbcrlf
shopBody=shopBody & "City / Town: " & request.form ("town") & vbcrlf
shopBody=shopBody & "Post Code / Zip: " & request.form ("code") & vbcrlf
shopBody=shopBody & "County / State: " & request.form ("county") & vbcrlf
shopBody=shopBody & "Country: " & request.form ("country") & vbcrlf
shopBody=shopBody & "Phone: " & request.form ("phone") & vbcrlf
shopBody=shopBody & "Email: " & request.form ("email") & vbcrlf & vbcrlf
shopBody=shopBody & "Card Type: " & request.form ("card_type") & vbcrlf
shopBody=shopBody & "Card Number: " & request.form ("cardnumber") & vbcrlf
shopBody=shopBody & "Card Holder: " & request.form ("cardholder") & vbcrlf
shopBody=shopBody & "Expire Date: " & request.form ("expires") & vbcrlf
shopBody=shopBody & "Switch Issue: " & request.form ("issue") & vbcrlf
shopBody=shopBody & "Billing Address: " & vbcrlf & request.form ("billing_addr") & vbcrlf
shopBody=shopBody & "Order Contents: " & vbcrlf & request.form ("contents") & vbcrlf
shopBody=shopBody & "Total Order Value: " & request.form ("total")

Mailer.FromName = "Joe Bloggs"
Mailer.FromAddress= "pug_106_gti@hotmail.com"
Mailer.RemoteHost = "192.168.1.7"
Mailer.AddRecipient "John Smith", "pug_106_gti@hotmail.com"
Mailer.Subject = "Subject of the message"
Mailer.BodyText = "Your message body"
Mailer.SendMail
Set Mailer = Nothing

no worked :(

Internal server error

This is running on the Titan server or your own PC?