<% '************************************************************************* ' ASP Scripting: ' Filename: request_fabric_catalogue.asp ' Written by: Wilbert Madarang ' Date: March 14, 2003 '************************************************************************* ' Description: This is the contact us page. '************************************************************************* ' Revision History: '************************************************************************* %> <% If Request( "name" ) = "" or Request( "email" ) = "" or Request( "address" ) = "" or Request( "city" ) = "" or Request( "province" ) = "" or Request( "postal_code" ) = "" or Request( "country" ) = "" Then Response.Redirect "error_page.asp?error_code=insufficent_fields" Else strFirstname = Request( "name" ) bOrder = False strOrder = "" If Request( "generic_catalogue" ) = "on" Then strOrder = "Catalogue - Collection" & vbCrLf bOrder = True End If If Request( "couture_catalogue" ) = "on" Then If bOrder = False Then strOrder = "Couture Catalogue" & vbCrLf Else strOrder = strOrder & "Catalogue - Couture" & vbCrLf End If bOrder = True End If If Request( "fabric_1" ) <> "00" Then If bOrder = False Then strOrder = Request( "fabric_1" ) & vbCrLf Else strOrder = strOrder & "Fabric Swatch - " & Request( "fabric_1" ) & vbCrLf End If bOrder = True End If If Request( "fabric_2" ) <> "00" Then If bOrder = False Then strOrder = Request( "fabric_2" ) & vbCrLf Else strOrder = strOrder & "Fabric Swatch - " & Request( "fabric_2" ) & vbCrLf End If bOrder = True End If If Request( "fabric_3" ) <> "00" Then If bOrder = False Then strOrder = Request( "fabric_3" ) & vbCrLf Else strOrder = strOrder & "Fabric Swatch - " & Request( "fabric_3" ) & vbCrLf End If bOrder = True End If If Request( "fabric_4" ) <> "00" Then If bOrder = False Then strOrder = Request( "fabric_4" ) & vbCrLf Else strOrder = strOrder & "Fabric Swatch - " & Request( "fabric_4" ) & vbCrLf End If bOrder = True End If strBodyHead = "Dear " & Request( "name" ) & "," & vbCrLf & vbCrLf & "Thank you for your interest at www.charister.com. Please review your complimentary order below." & vbCrLf & vbCrLf strBody = strBodyHead & strOrder & vbCrLf strBody = strBody & "To confirm your order, please reply to this email. Your order will be processed once we receive your confirmation." & vbCrLf & vbCrLf strAddress = "Shipping Address:" & vbCrLf & Request("address") & vbCrLf & Request("city") & vbCrLf & Request("province") & vbCrLf & Request("postal_code") & vbCrLf & Request("country") & vbCrLf & vbCrLf strBody = strBody & strAddress & "Yours Truly," & vbCrLf & "Charister Home Fashion Inc" & vbCrLf & vbCrLf strTo = Request( "email" ) strFrom = CHARISTER_EMAIL strSubject = "Fabric Swatch / Catalogue Request Confirmation" Call SendEmail(strTo, strFrom, strSubject, strBody) 'Send Email to Charister strFrom = strTo strTo = CHARISTER_EMAIL 'ay081505 replace with the fabric/catalogue requestor email address ' strFrom = Session("email") strSubject = "Fabric Swatch / Catalogue Request Confirmation" Call SendEmail(strTo, strFrom, strSubject, strBody) 'Update the Records of Existing Record Call openDataConnection Set rsCase = Server.CreateObject("ADODB.RecordSet") With rsCase .Open "TCatalogueUsers", dataConnection, adOpenKeyset, adLockOptimistic .AddNew .Fields("userName") = Request( "name" ) .Fields("userEmail") = Request( "email" ) .Fields("userAddress") = Request( "address" ) .Fields("userCity") = Request( "city" ) .Fields("userProvince") = Request( "province" ) .Fields("userPostalCode") = Request( "postal_code" ) .Fields("userCountry") = Request( "country" ) .Update m_userId = .Fields("userId") End With 'Testing ' Response.Write "UserId is " & m_userId & "
" & vbCrLf 'Check for Errors If Err.number <> 0 Then 'dataConnection.RollBackTrans bSuccess = False End If Call closeDataConnection() Set rsCase = Nothing Response.Redirect "request_successful_page.asp" End If Function SendEmail(strTo, strFrom, strSubject, strBody) Dim objSendMail 'Send the email to inform Canalite Set objSendMail = CreateObject("CDONTS.NewMail") objSendMail.To = strTo objSendMail.From = strFrom objSendMail.Subject = strSubject objSendMail.Body = strBody objSendMail.Send Set objSendMail = Nothing End Function %>