" _
& "| Here is the information about the client and the customized lid request: |
" _
& "| Client Info |
" _
& "| Name: " & uploadRequest("name") & " |
" _
& "| Email: " & uploadRequest("email") & " |
" _
& "| Team Name: " & uploadRequest("team_name") & " |
" _
& "
Customized Lid Info |
" _
& "| Helmet: " & strProductName & " (ID: " & uploadRequest("helmets_list") & ") |
" _
& "| Quantity: " & uploadRequest("quantity") & " |
" _
& "| The logo should be attached to this message. |
" _
& "
"
'Email all the information to Mini Lids
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = SMTP_HOST
Mail.username=SMTP_USERNAME
Mail.password=SMTP_PASSWORD
Mail.From = uploadRequest("email") ' From address
Mail.FromName = uploadRequest("name") ' optional
Mail.AddAddress SITE_EMAIL
If pathToFile <> "" Then Mail.AddAttachment pathToFile
Mail.Subject = "Customized lid request"
Mail.Body = htmlContent
Mail.IsHTML = True
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
Else
bSuccess = True
End If
Set Mail = Nothing
Set FileSys = New clsFileSystem
FileSys.DeleteFile(CUSTOM_LOGOS_PATH & imageName)
Set FileSys = Nothing
Set uploadRequest = Nothing
Response.Redirect "thankyou.asp"
Else
Set DB = New clsDatabase
DB.OpenDatabase SQL_DATABASE_NAME, SQL_USR, SQL_PWD
'------------------------------------
'--select all records
'------------------------------------
'numOfHelmets = DB.RunQuery("SELECT ml_products.id, ml_products.name, ml_products.image FROM ml_products INNER JOIN ((ml_categories INNER JOIN ml_sub_categories ON ml_categories.id = ml_sub_categories.category_id) INNER JOIN ml_products_sub_categories ON ml_sub_categories.id = ml_products_sub_categories.sub_category_id) ON ml_products.id = ml_products_sub_categories.product_id WHERE ml_categories.id=2;") - 1
numOfHelmets = DB.RunQuery("SELECT mlb_products.id, mlb_products_lang.name, mlb_products.image FROM (mlb_products INNER JOIN mlb_products_lang ON mlb_products.id = mlb_products_lang.record_id) INNER JOIN (((mlb_categories INNER JOIN mlb_categories_lang ON mlb_categories.id = mlb_categories_lang.record_id) INNER JOIN (mlb_sub_categories INNER JOIN mlb_sub_categories_lang ON mlb_sub_categories.id = mlb_sub_categories_lang.record_id) ON mlb_categories.id = mlb_sub_categories.category_id) INNER JOIN mlb_products_sub_categories ON mlb_sub_categories.id = mlb_products_sub_categories.sub_category_id) ON mlb_products.id = mlb_products_sub_categories.product_id WHERE mlb_categories.id=2 AND mlb_products_lang.[language] = '" & selLang & "' AND mlb_categories_lang.[language] = '" & selLang & "' AND mlb_sub_categories_lang.[language] = '" & selLang & "';") - 1
If numOfHelmets > -1 Then allHelmets = DB.GetLastResults()
Set DB = Nothing
If numOfHelmets > - 1 Then
HELMETS_LIST = BuiltList(allHelmets, 2, True)
doResizeImg = IsObjectInstalled("Persits.Jpeg")
If doResizeImg Then
imgPath = "/common/img.asp?path=/common/images/helmet_shadow.gif&w=144&h=144"
Else
imgPath = "/common/images/helmet_shadow.gif"
End If
strJSImgList = "" _
& " imgList[0]=new Image(144,144);" _
& " imgList[0].src='" & imgPath & "';"
For x = 0 To numOfHelmets
If doResizeImg Then
imgPath = "/common/img.asp?path=" & PRODUCT_IMG_PATH & allHelmets(2,x) & "&w=144&h=144"
Else
imgPath = PRODUCT_IMG_PATH & allHelmets(2,x)
End If
strJSImgList = strJSImgList _
& " imgList[" & x + 1 & "]=new Image(144, 144);" _
& " imgList[" & x + 1 & "].src='" & imgPath & "';"
Next
End If
End If
%>