Hows my online shop look??
#1
#2
Scooby Regular
Join Date: Feb 2002
Location: Lurkin Somewhere
Posts: 7,951
Likes: 0
Received 0 Likes
on
0 Posts
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
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
#4
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.
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.
#6
Scooby Regular
Join Date: Feb 2002
Location: Lurkin Somewhere
Posts: 7,951
Likes: 0
Received 0 Likes
on
0 Posts
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
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
Trending Topics
#10
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
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
#11
Scooby Regular
Join Date: Feb 2002
Location: Lurkin Somewhere
Posts: 7,951
Likes: 0
Received 0 Likes
on
0 Posts
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
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
#15
Scooby Regular
Join Date: Feb 2002
Location: Lurkin Somewhere
Posts: 7,951
Likes: 0
Received 0 Likes
on
0 Posts
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>
#16
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!
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!
#19
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...
#20
Scooby Regular
Join Date: Feb 2002
Location: Lurkin Somewhere
Posts: 7,951
Likes: 0
Received 0 Likes
on
0 Posts
hey its a tutorial
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
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
Thread
Thread Starter
Forum
Replies
Last Post
fatboy_coach
General Technical
15
18 June 2016 03:48 PM