Finally, The Full ASP NOPCart Version 2.0!

Get help with nopcart intergration with ASP and related issues

Moderator: Koibito

Re: Finally, The Full ASP NOPCart Version 2.0!

Postby Stefko » Sat May 10, 2008 9:10 pm

KFL Technologies
Web-Enabled Solutions
e-Commerence Solutions
Stefko
Contributor / Guru
 
Posts: 833
Joined: Wed Sep 18, 2002 1:11 am
Location: Wichita, KS

Re: Finally, The Full ASP NOPCart Version 2.0!

Postby OBJuan » Sun May 11, 2008 7:45 pm

Thanks...I downloaded the 2.1 APS version, but I have a problem. The checkout.asp is working fine, but the finish.asp will not open...not even the original code. Any suggestions or help would be greatly appreciated! I'm on a GoDaddy windows hosting account...if that helps.

Here is the "modified" code for my website:

Code: Select all
<html>
<head>
<title>Thank You! Medical Safety Bands</title>

<% @LANGUAGE=VBSCRIPT %>
<% Option Explicit %>
<!--#include file="adovbs.inc"-->

<%
' NOPCart ASP v2.1 - Original ASP by _Scott of NopDesign, updated by Matthew Hawkins, thanks to Cathy Benney


Dim ConfirmTo, WriteToClient, strEmailClient, WriteToFile, addr, I1, Q1, myCrLf, OutputOrderSubtotal, strThank, OutputOrderShipping, OutputOrderTax, OutputOrderTotal, strEmail, strConfirmation, strNewOrder, recipients, smtp, fromAddr, replyTo, smtpServer, newOrderEmailAddr, newOrdersubject, confirmOrdersubject, RedirectName


'BEGIN MAKE CHANGES (except for the database string, look for strConn below)

WriteToFile = "true"                               'True = Yes, I want the Access file writen to / False = No, I do not want the Access file writen to
WriteToMe = "true"                                                              'True = Yes, I want the confirmation email sent to me / False = No, I do not want the confirmation email sent to me
WriteToClient = "true"                                                           'True = Yes, I want the confirmation email sent to the client / False = No, I do not want the confirmation email sent to the client

ConfirmTo = "orders@medicalsafetybands.com"                         'Enter the email address where to send the Confirmation to you
FromAddr = "orders@medicalsafetybands.com"                         'Enter the email address's "reply to" line for the email sent to the client
smtpServer = "relay-hosting.secureserver.net"                      'Enter your outgoing smtp server                              

newOrdersubject = "New Medical Safety Bands Online Order"                         'Enter what you want the "subject" line of your confirmation email to say
confirmOrdersubject = "Thank you for your order from Medical Safety Bands"          'Enter what you want the "subject" line of the clients confirmation email to say               
strThank = "Thank you for your order. A summary of your order appears below."         'Enter what you want the clients confirmation email to say at the top of the body

'PLEASE NOTE: look for the database string, called "strConn". It is a few lines below. Make sure this is correct

'END MAKE CHANGES

myCrLf = vbCrLf
'myCrLf = CHR(10)&CHR(13)
%>

<%                                    'Access database
Dim objConn, strConn, strCart, strLogonSQL, rsUsers, strConfirm, WriteToMe   

Set objConn = Server.CreateObject("ADODB.Connection")                  'Database connection
strConn = "Provider=MSDASQL; Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/01210.mdb") & ";"       'DATABASE MAPPATH (may need to change)

objConn.Open strConn

Set rsUsers = Server.CreateObject("ADODB.Recordset")                  'Recordset connection
rsUsers.Open "Person", objConn, adOpenDynamic, adLockOptimistic, adCmdTable

if WriteToFile = "true" then
rsUsers.AddNew                                 'Add New Record
rsUsers("BillFirstName") = Request.Form("b_ponum")                  'Write form details to record
rsUsers("BillFirstName") = Request.Form("b_company")                  
rsUsers("BillFirstName") = Request.Form("b_first")                  
rsUsers("BillLastName") = Request.Form("b_last")
rsUsers("BillAddress1") = Request.Form("b_addr")
rsUsers("BillAddress2") = Request.Form("b_addr2")
rsUsers("BillCity") = Request.Form("b_city")
rsUsers("BillState") = Request.Form("b_state")
rsUsers("BillZip") = Request.Form("b_zip")
rsUsers("BillCountry") = Request.Form("b_country")
rsUsers("ShipFirstName") = Request.Form("s_first")
rsUsers("ShipLastName") = Request.Form("s_last")
rsUsers("ShipAddress1") = Request.Form("s_addr")
rsUsers("ShipAddress2") = Request.Form("s_addr2")
rsUsers("ShipCity") = Request.Form("s_city")
rsUsers("ShipState") = Request.Form("s_state")
rsUsers("ShipZip") = Request.Form("s_zip")
rsUsers("ShipCountry") = Request.Form("s_country")
rsUsers("Email") = Request.Form("b_email")
rsUsers("Phone") = Request.Form("b_phone")
rsUsers("Fax") = Request.Form("b_fax")
rsUsers("CreditName") = Request.Form("c_name")
rsUsers("CreditType") = Request.Form("c_type")
rsUsers("CreditNumber") = Request.Form("c_number1")&" "&Request.Form("c_number2")&" "&Request.Form("c_number3")&" "&Request.Form("c_number4")
rsUsers("CreditMonth") = Request.Form("c_month")
rsUsers("CreditYear") = Request.Form("c_year")
rsUsers("CreditCvv") = Request.Form("c_cvv")
rsUsers("Comment") = Request.Form("comment")
rsUsers("Product1") = ""&request.form("QUANTITY_1")&" $"&request.form("PRICE_1")&" "&request.form("ID_1")&" - "&request.form("NAME_1")&" "&request.form("ADDTLINFO_1")
rsUsers("Product2") = ""&request.form("QUANTITY_2")&" $"&request.form("PRICE_2")&" "&request.form("ID_2")&" - "&request.form("NAME_2")&" "&request.form("ADDTLINFO_2")
rsUsers("Product3") = ""&request.form("QUANTITY_3")&" $"&request.form("PRICE_3")&" "&request.form("ID_3")&" - "&request.form("NAME_3")&" "&request.form("ADDTLINFO_3")
rsUsers("Product4") = ""&request.form("QUANTITY_4")&" $"&request.form("PRICE_4")&" "&request.form("ID_4")&" - "&request.form("NAME_4")&" "&request.form("ADDTLINFO_4")
rsUsers("Product5") = ""&request.form("QUANTITY_5")&" $"&request.form("PRICE_5")&" "&request.form("ID_5")&" - "&request.form("NAME_5")&" "&request.form("ADDTLINFO_5")
rsUsers("Product6") = ""&request.form("QUANTITY_6")&" $"&request.form("PRICE_6")&" "&request.form("ID_6")&" - "&request.form("NAME_6")&" "&request.form("ADDTLINFO_6")
rsUsers("Product7") = ""&request.form("QUANTITY_7")&" $"&request.form("PRICE_7")&" "&request.form("ID_7")&" - "&request.form("NAME_7")&" "&request.form("ADDTLINFO_7")
rsUsers("Product8") = ""&request.form("QUANTITY_8")&" $"&request.form("PRICE_8")&" "&request.form("ID_8")&" - "&request.form("NAME_8")&" "&request.form("ADDTLINFO_8")
rsUsers("Product9") = ""&request.form("QUANTITY_9")&" $"&request.form("PRICE_9")&" "&request.form("ID_9")&" - "&request.form("NAME_9")&" "&request.form("ADDTLINFO_9")
rsUsers("Product10") = ""&request.form("QUANTITY_10")&" $"&request.form("PRICE_10")&" "&request.form("ID_10")&" - "&request.form("NAME_10")&" "&request.form("ADDTLINFO_10")
rsUsers("Product11") = ""&request.form("QUANTITY_11")&" $"&request.form("PRICE_11")&" "&request.form("ID_11")&" - "&request.form("NAME_11")&" "&request.form("ADDTLINFO_11")
rsUsers("Product12") = ""&request.form("QUANTITY_12")&" $"&request.form("PRICE_12")&" "&request.form("ID_12")&" - "&request.form("NAME_12")&" "&request.form("ADDTLINFO_12")
rsUsers("Product13") = ""&request.form("QUANTITY_13")&" $"&request.form("PRICE_13")&" "&request.form("ID_13")&" - "&request.form("NAME_13")&" "&request.form("ADDTLINFO_13")
rsUsers("SubTotal") = Request.Form("SUBTOTAL")
rsUsers("Shipping") = Request.Form("SHIPPING")
rsUsers("Tax") = Request.Form("TAX")
rsUsers("Total") = Request.Form("TOTAL")
rsUsers("Active") = True
rsUsers("LastLogin") = Now
rsUsers.Update
end if

rsUsers.Close
set rsUsers = Nothing

objConn.Close
set objConn = Nothing
%>

<%
I1 = trim(request.form("ID_1"))                         
Q1 = trim(request.form("QUANTITY_1"))

if I1 = "" then
response.write("<B>I'm sorry, but your order did not complete. Please use the back button on your ")
response.write("browser and try your order again. If you continue to have problems, please contact ")
response.write("Happy Retailing, Inc.")
response.end
end if
if Q1 < 1 then
response.write("<B>I'm sorry, but your order did not complete. Please use the back button on your ")
response.write("browser and try your order again. If you continue to have problems, please contact ")
response.write("Happy Retailing, Inc.")
response.end
end if

OutputOrderSubtotal = trim(request.form("SUBTOTAL"))
OutputOrderShipping = trim(request.form("SHIPPING"))
OutputOrderTax = trim(request.form("TAX"))
OutputOrderTotal = trim(request.form("TOTAL"))

if WriteToMe = "true" then                           'Now Let's email a confirmation to you
strEmail = strEmail & ""& myCrLf
strEmail = strEmail & "Order Date: " & FormatDateTime(Now(),vbGeneralDate)
strEmail = strEmail & myCrLf
strEmail = strEmail & "Bill To: "& myCrLf
strEmail = strEmail & "-------- "& myCrLf
strEmail = strEmail & "PO Number: "&request.form("b_ponum")&" "& myCrLf
strEmail = strEmail & "Company: "&request.form("b_company")&" "& myCrLf
strEmail = strEmail & "Name: "&request.form("b_first")&" "&request.form("b_last")&" "& myCrLf
strEmail = strEmail & "Address: "&request.form("b_addr")&" "& myCrLf
strEmail = strEmail & "         "&request.form("b_addr2")&" "& myCrLf
strEmail = strEmail & "         "&request.form("b_city")&", "&request.form("b_state")&" "&request.form("b_zip")&" "&request.form("b_country")&" "& myCrLf
strEmail = strEmail & "Phone: "&request.form("b_phone")&" "& myCrLf
strEmail = strEmail & "Fax: "&request.form("b_fax")&" "& myCrLf
strEmail = strEmail & "Email: "&request.form("b_email")&" "& myCrLf
strEmail = strEmail & " "& myCrLf
strEmail = strEmail & "Ship To: "& myCrLf
strEmail = strEmail & "-------- "& myCrLf
strEmail = strEmail & "Name: "&request.form("s_first")&" "&request.form("s_last")&" "& myCrLf
strEmail = strEmail & "Address: "&request.form("s_addr")&" "& myCrLf
strEmail = strEmail & " "&request.form("s_addr2")&" "& myCrLf
strEmail = strEmail & " "&request.form("s_city")&", "&request.form("s_state")&" "&request.form("s_zip")&" "&request.form("s_country")&" "& myCrLf
strEmail = strEmail & " "& myCrLf
strEmail = strEmail & "Qty Price($) Product ID - Product Name"& myCrLf
strEmail = strEmail & "===================================================================== "& myCrLf
strEmail = strEmail & ""&request.form("QUANTITY_1")&" $"&request.form("PRICE_1")&" "&request.form("ID_1")&" - "&request.form("NAME_1")&" "&request.form("ADDTLINFO_1")&" "& myCrLf
if( request.form("NAME_2") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_2")&" $"&request.form("PRICE_2")&" "&request.form("ID_2")&" - "&request.form("NAME_2")&" "&request.form("ADDTLINFO_2")&" "& myCrLf
if( request.form("NAME_3") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_3")&" $"&request.form("PRICE_3")&" "&request.form("ID_3")&" - "&request.form("NAME_3")&" "&request.form("ADDTLINFO_3")&" "& myCrLf
if( request.form("NAME_4") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_4")&" $"&request.form("PRICE_4")&" "&request.form("ID_4")&" - "&request.form("NAME_4")&" "&request.form("ADDTLINFO_4")&" "& myCrLf
if( request.form("NAME_5") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_5")&" $"&request.form("PRICE_5")&" "&request.form("ID_5")&" - "&request.form("NAME_5")&" "&request.form("ADDTLINFO_5")&" "& myCrLf
if( request.form("NAME_6") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_6")&" $"&request.form("PRICE_6")&" "&request.form("ID_6")&" - "&request.form("NAME_6")&" "&request.form("ADDTLINFO_6")&" "& myCrLf
if( request.form("NAME_7") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_7")&" $"&request.form("PRICE_7")&" "&request.form("ID_7")&" - "&request.form("NAME_7")&" "&request.form("ADDTLINFO_7")&" "& myCrLf
if( request.form("NAME_8") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_8")&" $"&request.form("PRICE_8")&" "&request.form("ID_8")&" - "&request.form("NAME_8")&" "&request.form("ADDTLINFO_8")&" "& myCrLf
if( request.form("NAME_9") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_9")&" $"&request.form("PRICE_9")&" "&request.form("ID_9")&" - "&request.form("NAME_9")&" "&request.form("ADDTLINFO_9")&" "& myCrLf
if( request.form("NAME_10") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_10")&" $"&request.form("PRICE_10")&" "&request.form("ID_10")&" - "&request.form("NAME_10")&" "&request.form("ADDTLINFO_10")&" "& myCrLf
if( request.form("NAME_11") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_11")&" $"&request.form("PRICE_11")&" "&request.form("ID_11")&" - "&request.form("NAME_11")&" "&request.form("ADDTLINFO_11")&" "& myCrLf
if( request.form("NAME_12") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_12")&" $"&request.form("PRICE_12")&" "&request.form("ID_12")&" - "&request.form("NAME_12")&" "&request.form("ADDTLINFO_12")&" "& myCrLf
if( request.form("NAME_13") <> "" )then strEmail = strEmail & ""&request.form("QUANTITY_13")&" $"&request.form("PRICE_13")&" "&request.form("ID_13")&" - "&request.form("NAME_13")&" "&request.form("ADDTLINFO_13")&" "& myCrLf
strEmail = strEmail & "===================================================================== "& myCrLf
strEmail = strEmail & "SUBTOTAL: "&request.form("SUBTOTAL")&" "& myCrLf
strEmail = strEmail & "TAX: "&request.form("TAX")&" "& myCrLf
strEmail = strEmail & "FREIGHT: "&request.form("SHIPPING")&" "& myCrLf
strEmail = strEmail & "TOTAL: "&request.form("TOTAL")&" "& myCrLf
strEmail = strEmail & myCrLf
strEmail = strEmail & "Payment: "& myCrLf
strEmail = strEmail & "-------- "& myCrLf
strEmail = strEmail & request.form("PAYMENT")
strEmail = strEmail & " ending in " & right(request.form("ACCOUNT"), 4)
strEmail = strEmail & myCrLf
strEmail = strEmail & "Comments: "& myCrLf
strEmail = strEmail & "--------- "& myCrLf
strEmail = strEmail & ""&request.form("comment")&" "& myCrLf
strEmail = strEmail & " "& myCrLf
strEmail = strEmail & "Credit Card Information: "& myCrLf
strEmail = strEmail & "-------- "& myCrLf
strEmail = strEmail & " "&request.form("c_name")&" "& myCrLf
strEmail = strEmail & " "&request.form("c_type")&" "& myCrLf
strEmail = strEmail & " "&request.form("c_number1")&" - "&request.form("c_number2")&" - "&request.form("c_number3")&" - "&request.form("c_number4")&" "& myCrLf 
strEmail = strEmail & " "&request.form("c_month")&" "&request.form("c_year")&" "& myCrLf
strEmail = strEmail & " "&request.form("c_cvv")&" "& myCrLf
strEmail = strEmail & " "& myCrLf
strEmail = strEmail & "Mailing List: "& myCrLf
strEmail = strEmail & "--------- "& myCrLf
strEmail = strEmail & " "&request.form("Mailing_List")&" "& myCrLf
strEmail = strEmail & " "& myCrLf
strEmail = strEmail & " "& myCrLf
strConfirmation = strEmail
end if

                                    
recipients = trim(request.form("EMAIL"))
set smtp = Server.CreateObject("CDONTS.NewMail")

smtp.From = request.form("b_email")
smtp.To = ConfirmTo

for each addr in Split(recipients, ",")
smtp.AddRecipient "", Trim(Addr)
next

smtp.Subject = newOrdersubject
smtp.Body = strConfirmation
smtp.Send
Set smtp = Nothing
%>

<%
if WriteToClient = "true" then                            'Now Let's email a confirmation to the Client
strEmailClient = strEmailClient & ""& myCrLf
strEmailClient = strEmailClient & "Order Date: " & FormatDateTime(Now(),vbGeneralDate)
strEmailClient = strEmailClient & myCrLf
strEmailClient = strEmailClient & "Bill To: "& myCrLf
strEmailClient = strEmailClient & "-------- "& myCrLf
strEmail = strEmail & "PO Number: "&request.form("b_ponum")&" "& myCrLf
strEmail = strEmail & "Company: "&request.form("b_company")&" "& myCrLf
strEmailClient = strEmailClient & "Name: "&request.form("b_first")&" "&request.form("b_last")&" "& myCrLf
strEmailClient = strEmailClient & "Address: "&request.form("b_addr")&" "& myCrLf
strEmailClient = strEmailClient & "         "&request.form("b_addr2")&" "& myCrLf
strEmailClient = strEmailClient & "         "&request.form("b_city")&", "&request.form("b_state")&" "&request.form("b_zip")&" "&request.form("b_country")&" "& myCrLf
strEmailClient = strEmailClient & "Phone: "&request.form("b_phone")&" "& myCrLf
strEmailClient = strEmailClient & "Fax: "&request.form("b_fax")&" "& myCrLf
strEmailClient = strEmailClient & "Email: "&request.form("b_email")&" "& myCrLf
strEmailClient = strEmailClient & " "& myCrLf
strEmailClient = strEmailClient & "Ship To: "& myCrLf
strEmailClient = strEmailClient & "-------- "& myCrLf
strEmailClient = strEmailClient & "Name: "&request.form("s_first")&" "&request.form("s_last")&" "& myCrLf
strEmailClient = strEmailClient & "Address: "&request.form("s_addr")&" "& myCrLf
strEmailClient = strEmailClient & " "&request.form("s_addr2")&" "& myCrLf
strEmailClient = strEmailClient & " "&request.form("s_city")&", "&request.form("s_state")&" "&request.form("s_zip")&" "&request.form("s_country")&" "& myCrLf
strEmailClient = strEmailClient & " "& myCrLf
strEmailClient = strEmailClient & "Qty Price($) Product ID - Product Name"& myCrLf
strEmailClient = strEmailClient & "===================================================================== "& myCrLf
strEmailClient = strEmailClient & ""&request.form("QUANTITY_1")&" $"&request.form("PRICE_1")&" "&request.form("ID_1")&" - "&request.form("NAME_1")&" "&request.form("ADDTLINFO_1")&" "& myCrLf
if( request.form("NAME_2") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_2")&" $"&request.form("PRICE_2")&" "&request.form("ID_2")&" - "&request.form("NAME_2")&" "&request.form("ADDTLINFO_2")&" "& myCrLf
if( request.form("NAME_3") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_3")&" $"&request.form("PRICE_3")&" "&request.form("ID_3")&" - "&request.form("NAME_3")&" "&request.form("ADDTLINFO_3")&" "& myCrLf
if( request.form("NAME_4") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_4")&" $"&request.form("PRICE_4")&" "&request.form("ID_4")&" - "&request.form("NAME_4")&" "&request.form("ADDTLINFO_4")&" "& myCrLf
if( request.form("NAME_5") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_5")&" $"&request.form("PRICE_5")&" "&request.form("ID_5")&" - "&request.form("NAME_5")&" "&request.form("ADDTLINFO_5")&" "& myCrLf
if( request.form("NAME_6") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_6")&" $"&request.form("PRICE_6")&" "&request.form("ID_6")&" - "&request.form("NAME_6")&" "&request.form("ADDTLINFO_6")&" "& myCrLf
if( request.form("NAME_7") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_7")&" $"&request.form("PRICE_7")&" "&request.form("ID_7")&" - "&request.form("NAME_7")&" "&request.form("ADDTLINFO_7")&" "& myCrLf
if( request.form("NAME_8") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_8")&" $"&request.form("PRICE_8")&" "&request.form("ID_8")&" - "&request.form("NAME_8")&" "&request.form("ADDTLINFO_8")&" "& myCrLf
if( request.form("NAME_9") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_9")&" $"&request.form("PRICE_9")&" "&request.form("ID_9")&" - "&request.form("NAME_9")&" "&request.form("ADDTLINFO_9")&" "& myCrLf
if( request.form("NAME_10") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_10")&" $"&request.form("PRICE_10")&" "&request.form("ID_10")&" - "&request.form("NAME_10")&" "&request.form("ADDTLINFO_10")&" "& myCrLf
if( request.form("NAME_11") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_11")&" $"&request.form("PRICE_11")&" "&request.form("ID_11")&" - "&request.form("NAME_11")&" "&request.form("ADDTLINFO_11")&" "& myCrLf
if( request.form("NAME_12") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_12")&" $"&request.form("PRICE_12")&" "&request.form("ID_12")&" - "&request.form("NAME_12")&" "&request.form("ADDTLINFO_12")&" "& myCrLf
if( request.form("NAME_13") <> "" )then strEmailClient = strEmailClient & ""&request.form("QUANTITY_13")&" $"&request.form("PRICE_13")&" "&request.form("ID_13")&" - "&request.form("NAME_13")&" "&request.form("ADDTLINFO_13")&" "& myCrLf
strEmailClient = strEmailClient & "===================================================================== "& myCrLf
strEmailClient = strEmailClient & "SUBTOTAL: "&request.form("SUBTOTAL")&" "& myCrLf
strEmailClient = strEmailClient & "TAX: "&request.form("TAX")&" "& myCrLf
strEmailClient = strEmailClient & "FREIGHT: "&request.form("SHIPPING")&" "& myCrLf
strEmailClient = strEmailClient & "TOTAL: "&request.form("TOTAL")&" "& myCrLf
strEmailClient = strEmailClient & myCrLf
strEmailClient = strEmailClient & myCrLf
strEmailClient = strEmailClient & "Comments: "& myCrLf
strEmailClient = strEmailClient & "--------- "& myCrLf
strEmailClient = strEmailClient & ""&request.form("comment")&" "& myCrLf
strEmailClient = strEmailClient & " "& myCrLf
strEmailClient = strEmailClient & "Credit Card Information: "& myCrLf
strEmailClient = strEmailClient & "-------- "& myCrLf
strEmailClient = strEmailClient & " "&request.form("c_name")&" "& myCrLf
strEmailClient = strEmailClient & " "&request.form("c_type")&" "& myCrLf
strEmailClient = strEmailClient & "************"&request.form("c_number4")&" (Hidden For Security) "& myCrLf
strEmailClient = strEmailClient & " "& myCrLf
strEmailClient = strEmailClient & "Sign-up for our Mailing List: "& myCrLf
strEmailClient = strEmailClient & "-------- "& myCrLf
strEmailClient = strEmailClient & " "&request.form("Mailing_List")&" "& myCrLf
strEmailClient = strEmailClient & " "& myCrLf
strEmailClient = strEmailClient & " "& myCrLf
strEmailClient = strEmailClient & "If you have any questions about your order, please call:"& myCrLf
strEmailClient = strEmailClient & "(352) 534-0277"& myCrLf
strEmailClient = strEmailClient & " "& myCrLf
strEmailClient = strEmailClient & "Medical Safety Bands"& myCrLf
strEmailClient = strEmailClient & "26171 Mountainview Blvd."& myCrLf
strEmailClient = strEmailClient & "Brooksville, FL  34602"& myCrLf
strEmailClient = strEmailClient & " "& myCrLf
strConfirm = strThank & strEmailClient
end if

                                    
recipients = trim(request.form("EMAIL"))
set smtp = Server.CreateObject("CDONTS.NewMail")

smtp.From = FromAddr
smtp.To = request.form("b_email")
smtp.Subject = confirmOrdersubject
smtp.Body = strConfirm
smtp.Send
Set smtp = Nothing

%>

</head>
<body bgcolor="#FFFFEC">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="61">
  <tr>
    <td width="100%" height="61" bgcolor="#024A1A">
      <p align="center"><img border="0" src="https://www.medicalsafetybands.com/TextRev.jpg" width="432" height="71"></td>
  </tr>
</table>
<table align="center" border="0" cellpadding="10" cellspacing="0" WIDTH="400" height="439">
 <tr>
  <td valign=TOP align=left width=80% height="43">
   <p align="left">&nbsp;</p>
  </td>
 </tr>
 <tr>
  <td valign=TOP align=left width=80% bgcolor="#024A1A" height="56">
   <p align="center"><font color=#FFFFFF><b><font face="Georgia"> A summary of your order appears below.<br>Please print this and keep this information for your records.</font></b></font></p>
  </td>
 </tr>
 <tr>
  <td valign=TOP align=left width=80% bgcolor="#FFFFFF" height="40">
   <p align="left">CONTACT INFORMATION<br>
   <%
   response.write("==================================================" & "<br>")
   response.write(Request.Form("b_phone") & "<br>")
   response.write(Request.Form("b_fax") & "<br>")
   response.write(Request.Form("b_email") & "<br>")
   %>
   </p>
  </td>
 </tr>
 <tr>
  <td valign=TOP align=left width=80% bgcolor="#FFFFFF" height="40">
   <p align="left">BILLING INFORMATION<br>
   <%
   response.write("==================================================" & "<br>")
   response.write(Request.Form("b_first") & " ")
   response.write(Request.Form("b_last") & "<br>")
   response.write(Request.Form("b_addr") & "<br>")
   response.write(Request.Form("b_addr2") & "<br>")
   response.write(Request.Form("b_city") & "," & " ")
   response.write(Request.Form("b_state") & " ")
   response.write(Request.Form("b_zip") & "," & " ")
   response.write(Request.Form("b_country") & "<br>")
   %>
   </p>
  </td>
 </tr>
 <tr>
  <td valign=TOP align=left width=80% bgcolor="#FFFFFF" height="40">
   <p align="left">SHIPPING INFORMATION<br>
   <%
   response.write("==================================================" & "<br>")
   response.write(Request.Form("s_first") & " ")
   response.write(Request.Form("s_last") & "<br>")
   response.write(Request.Form("s_addr") & "<br>")
   response.write(Request.Form("s_addr2") & "<br>")
   response.write(Request.Form("s_city") & "," & " ")
   response.write(Request.Form("s_state") & " ")
   response.write(Request.Form("s_zip") & "," & " ")
   response.write(Request.Form("s_country") & "<br><br>")
   response.write(Request.Form("comment"))
   %>
   </p>
  </td>
 </tr>
 <tr>
  <td valign=TOP align=left width=80% bgcolor="#FFFFFF" height="40">
   <p align="left">CREDIT CARD INFORMATION<br>
   <%
   response.write("==================================================" & "<br>")
   response.write(Request.Form("c_name") & "<br>")
   response.write(Request.Form("c_type") & "<br>")
   response.write("************"&request.form("c_number4")&" (Hidden For Security)" & "<br>")
   %>
   </p>
  </td>
 </tr>
 <tr>
  <td valign=TOP align=left width=80% bgcolor="#FFFFFF" height="40">
   <p align="left">YOUR ORDER INFORMATION<br>
   <%
   response.write("==================================================" & "<br>")
   response.write(""&request.form("QUANTITY_1")&" $"&request.form("PRICE_1")&" "&request.form("ID_1")&" - "&request.form("NAME_1")&" "&request.form("ADDTLINFO_1")&" " & "<br>")
   if( request.form("NAME_2") <> "" ) then response.write(""&request.form("QUANTITY_2")&" $"&request.form("PRICE_2")&" "&request.form("ID_2")&" - "&request.form("NAME_2")&" "&request.form("ADDTLINFO_2")&" " & "<br>")
   if( request.form("NAME_3") <> "" ) then response.write(""&request.form("QUANTITY_3")&" $"&request.form("PRICE_3")&" "&request.form("ID_3")&" - "&request.form("NAME_3")&" "&request.form("ADDTLINFO_3")&" " & "<br>") 
   if( request.form("NAME_4") <> "" ) then response.write(""&request.form("QUANTITY_4")&" $"&request.form("PRICE_4")&" "&request.form("ID_4")&" - "&request.form("NAME_4")&" "&request.form("ADDTLINFO_4")&" " & "<br>")
   if( request.form("NAME_5") <> "" ) then response.write(""&request.form("QUANTITY_5")&" $"&request.form("PRICE_5")&" "&request.form("ID_5")&" - "&request.form("NAME_5")&" "&request.form("ADDTLINFO_5")&" " & "<br>")
   if( request.form("NAME_6") <> "" ) then response.write(""&request.form("QUANTITY_6")&" $"&request.form("PRICE_6")&" "&request.form("ID_6")&" - "&request.form("NAME_6")&" "&request.form("ADDTLINFO_6")&" " & "<br>") 
   if( request.form("NAME_7") <> "" ) then response.write(""&request.form("QUANTITY_7")&" $"&request.form("PRICE_7")&" "&request.form("ID_7")&" - "&request.form("NAME_7")&" "&request.form("ADDTLINFO_7")&" " & "<br>") 
   if( request.form("NAME_8") <> "" ) then response.write(""&request.form("QUANTITY_8")&" $"&request.form("PRICE_8")&" "&request.form("ID_8")&" - "&request.form("NAME_8")&" "&request.form("ADDTLINFO_8")&" " & "<br>")
   if( request.form("NAME_9") <> "" ) then response.write(""&request.form("QUANTITY_9")&" $"&request.form("PRICE_9")&" "&request.form("ID_9")&" - "&request.form("NAME_9")&" "&request.form("ADDTLINFO_9")&" " & "<br>")
   if( request.form("NAME_10") <> "" )then response.write(""&request.form("QUANTITY_10")&" $"&request.form("PRICE_10")&" "&request.form("ID_10")&" - "&request.form("NAME_10")&" "&request.form("ADDTLINFO_10")&" " & "<br>")
   if( request.form("NAME_11") <> "" )then response.write(""&request.form("QUANTITY_11")&" $"&request.form("PRICE_11")&" "&request.form("ID_11")&" - "&request.form("NAME_11")&" "&request.form("ADDTLINFO_11")&" " & "<br>")
   if( request.form("NAME_12") <> "" )then response.write(""&request.form("QUANTITY_12")&" $"&request.form("PRICE_12")&" "&request.form("ID_12")&" - "&request.form("NAME_12")&" "&request.form("ADDTLINFO_12")&" " & "<br>")
   if( request.form("NAME_13") <> "" )then response.write(""&request.form("QUANTITY_13")&" $"&request.form("PRICE_13")&" "&request.form("ID_13")&" - "&request.form("NAME_13")&" "&request.form("ADDTLINFO_13")&" " & "<br>")
   response.write("==================================================" & "<br>")
   response.write("Subtotal: "&Request.Form("SUBTOTAL") & "<br>")
   response.write("Shipping: "&Request.Form("SHIPPING") & "<br>")
   response.write("State Tax: "&Request.Form("TAX") & "<br>")
   response.write("Total: "&Request.Form("TOTAL") & "<br><br><br>")
   response.write("You will receive an e-mail soon to confirm your order." & "<br>")
   response.write("If you have any questions about your order, please call:" & "<br><br>")
   response.write("(352) 534-0277" & "<br><br>")
   response.write("Medical Safety Bands" & "<br>")
   response.write("26171 Mountainview Blvd." & "<br>")
   response.write("Brooksville, FL  34602")
   response.end
   %>
   </p>
  </td>
 </tr>
</table>
<p align="center"><a href="http://www.medicalsafetybands.com/thankyou.htm"><img border="0" src="https://www.medicalsafetybands.com/msbcontinuemed.jpg" width="120" height="45"></a></p>
</body>
</html>
OBJuan
WebMaster
 
Posts: 4
Joined: Fri May 09, 2008 11:54 am

Re: Finally, The Full ASP NOPCart Version 2.0!

Postby J_P » Thu May 15, 2008 9:59 pm

my suggestion is don't ever post your entire code page again...

the database and finish.asp code are inconsistent.

they both need to be redone....
J_P
WebMaster
 
Posts: 7
Joined: Thu May 15, 2008 7:44 pm

Re: Finally, The Full ASP NOPCart Version 2.0!

Postby homstation » Fri Feb 13, 2009 3:09 am

hi, can i try the ASP too?
email : ckmelissa86@hotmail.com

thanks and have a nice day
homstation
WebMaster
 
Posts: 4
Joined: Fri Feb 13, 2009 2:42 am

Re: Finally, The Full ASP NOPCart Version 2.0!

Postby Koibito » Fri Feb 13, 2009 3:04 pm

hoasabi wrote:HI! I would like to try the ASP version please!


http://www.kamya.com/test/NOPCartASPv2.1.zip
John
Koibito
Site Admin / Guru
 
Posts: 918
Joined: Sun May 28, 2006 1:59 am
Location: New Jersey, USA

Re: Finally, The Full ASP NOPCart Version 2.0!

Postby rgdep » Sun Nov 28, 2010 4:39 pm

Hi
I would want to try this ASP version to.
Can you help me, please
Thanks
rgdep
WebMaster
 
Posts: 1
Joined: Sun Nov 28, 2010 4:28 pm

Re: Finally, The Full ASP NOPCart Version 2.0!

Postby Koibito » Mon Nov 29, 2010 1:36 am

John
Koibito
Site Admin / Guru
 
Posts: 918
Joined: Sun May 28, 2006 1:59 am
Location: New Jersey, USA

Previous

Return to Help: ASP & NOPCart

Who is online

Users browsing this forum: No registered users and 1 guest

cron