variable to equal part of string

melkin · April 26th, 2007, 09:47 AM

Hi all.

I have an ASP email form that grabs all the data from a form. the form has "Looped" data so the form field called "warehouse" will sometimes pass multiple names in one string...
For example: NY, MS, SC.

These are states my factories are in. If a single state is entered, (no ,looping) then the email sends that factory the order, and works perfectly.
I use;
If warehouse = NY Then
email code blah blah
Else
If factory = MS Then
email code blah blah

The problem is, how can i seprate the feild name when it shows NY, MS, SC all in one string??

Did this make any sense?

dparsons · April 26th, 2007, 10:01 AM

Split the string based on ,

You can then loop through the individual states that are returned in the string.

Search the net for ASP's Split function.

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
Technical Editor for: Professional Search Engine Optimization with ASP.NET
http://www.wiley.com/WileyCDA/WileyT...470131470.html
================================================== =========
Why can't Programmers, program??
http://www.codinghorror.com/blog/archives/000781.html
================================================== =========

melkin · May 16th, 2007, 09:13 AM

Ok, I finally got a split function to seperate my form field data which has "," seperating them.

But now I dont know how to use each seperated data to do something... For example:

I originally have a form field capturing data looking like this...

NY, MS, TX

Once my Split code runs i get this:

NY
MS
TX

How do I make "NY" go to an ASP email, and have MS go to another email and so on?
I can seem to figure out how to make use of the new split result.

Help! Please!! Thanks!!!

dparsons · May 16th, 2007, 09:20 AM

Something like this:

For I = 0 to UBound(someArray)
  sState = someArray(I)
  SELECT CASE sState
    Case "NY"
       'Do Something
    Case "MS"
       'Do Something
    'etc, etc, etc.
  END Select
Next

hth

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
Technical Editor for: Professional Search Engine Optimization with ASP.NET
http://www.wiley.com/WileyCDA/WileyT...470131470.html
================================================== =========
Why can't Programmers, program??
http://www.codinghorror.com/blog/archives/000781.html
================================================== =========

melkin · May 16th, 2007, 09:41 AM

Ok, Here is my code...
I get an error:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'UBound'

CODE:
<%
Dim warehouse, MyArray
warehouse=Request.Form("warehouse")
MyArray = Split(warehouse,",") 'the delimiter is the comma
For I = 0 to UBound(someArray)
 sState = someArray(I)
 SELECT CASE sState
 Case "NY"
 ' First create an instance of NewMail Object
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

' If you like you can use this one line of code to send the mail.
' objNewMail.Send From, To, Subject, Message
' or you can give every value seperate

objNewMail.From = "[email protected]"
objNewMail.To = rs("email")

objNewMail.Subject = "An Advance Tabco Order From Your NY Factory!"
objNewMail.BodyFormat = CdoBodyFormatHTML
objNewMail.Body = " <img src='http://www.advancetabco.com/pics/AT_emailLogo.jpg' border=0> **** EXCESS INVENTORY ORDER! **** If you have any questions regarding this order, Please contact Customer Service! COMPANY INFO: Order Date: " & Request.Form("date") & " P.O. Number: " & Request.Form("po") & " " & "Customer Number: " & Request.Form("custcode") & " "& "Company: " & Request.Form("custname") & " " & "Phone: " & Request.Form("phone") & " " & "Address 1: " & Request.Form("add1") & " " & "Address 2: " & Request.Form("add2") & " "& "City: " & Request.Form("city") & " "& "State: " & Request.Form("state") & " "&" Zip Code: " & Request.Form("zip") &" SHIPPING INFO: " & "Address 1: " & Request.Form("shipadd1") & " " & "Address 2: " & Request.Form("shipadd2") & " "& "City: " & Request.Form("shipcity") & " "& "State: " & Request.Form("shipstate") & " "&" Zip Code: " & Request.Form("shipzip") & " "&" Attention: " & Request.Form("attention") &" "& Request.Form("warehouse") &" ORDER INFO: "& " "& Request.Form("model") & " "& "Total Cost: $" & Request.Form("grandtotal") & " "
objNewMail.Send

' After the Send method, NewMail Object become Invalid
' You should set it to nothing to relase the memory

Set objNewMail = Nothing
 Case "MS"
 ' First create an instance of NewMail Object
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

' If you like you can use this one line of code to send the mail.
' objNewMail.Send From, To, Subject, Message
' or you can give every value seperate

objNewMail.From = "[email protected]"
objNewMail.To = rs("email")

objNewMail.Subject = "An Advance Tabco Order From Your MS Factory!"
objNewMail.BodyFormat = CdoBodyFormatHTML
objNewMail.Body = " <img src='http://www.advancetabco.com/pics/AT_emailLogo.jpg' border=0> **** EXCESS INVENTORY ORDER! **** If you have any questions regarding this order, Please contact Customer Service! COMPANY INFO: Order Date: " & Request.Form("date") & " P.O. Number: " & Request.Form("po") & " " & "Customer Number: " & Request.Form("custcode") & " "& "Company: " & Request.Form("custname") & " " & "Phone: " & Request.Form("phone") & " " & "Address 1: " & Request.Form("add1") & " " & "Address 2: " & Request.Form("add2") & " "& "City: " & Request.Form("city") & " "& "State: " & Request.Form("state") & " "&" Zip Code: " & Request.Form("zip") &" SHIPPING INFO: " & "Address 1: " & Request.Form("shipadd1") & " " & "Address 2: " & Request.Form("shipadd2") & " "& "City: " & Request.Form("shipcity") & " "& "State: " & Request.Form("shipstate") & " "&" Zip Code: " & Request.Form("shipzip") & " "&" Attention: " & Request.Form("attention") &" "& Request.Form("warehouse") &" ORDER INFO: "& " "& Request.Form("model") & " "& "Total Cost: $" & Request.Form("grandtotal") & " "
objNewMail.Send

' After the Send method, NewMail Object become Invalid
' You should set it to nothing to relase the memory

Set objNewMail = Nothing
 'etc, etc, etc.
 END Select
Next
%>

dparsons · May 16th, 2007, 09:53 AM

Oh wow. You copied my code directly from the board and tried to use it without first verifying that the code would work with your code and such. I am not going to tell you how to fix this error, its quite obvious, and I think you need to be a little proactive in resolving your problem and not just copy and pasting Interpeter Errors.

Very rarely do I supply code on the forum that "just works", I am not here to do someones work for them, I am here to give them a hand and help them along. (If they want to HIRE me to do work for them, then ya sure, Ill pony up the source code)

Let me know if you have any other problems.

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
Technical Editor for: Professional Search Engine Optimization with ASP.NET
http://www.wiley.com/WileyCDA/WileyT...470131470.html
================================================== =========
Why can't Programmers, program??
http://www.codinghorror.com/blog/archives/000781.html
================================================== =========

melkin · May 16th, 2007, 10:05 AM

Thank you. I understand.

My new problem is that the states are dynamic. They will always change. I will never know what will state will be in the fields. Could be TX, NY or MS, GA etc...
So how do I make the CASE statement dynamic?

dparsons · May 16th, 2007, 10:13 AM

A case statement IS dynamic. You supply it a parameter that can be anything and it will execute code relevant to that parameter as long as you have provided a case statement for the value of the parameter. To save yourself lines of code, if you have multiple states that you need to do the same processing with, you can use a

Code:

Case Else

which will execute if the parameter supplied does not have a corrosponding CASE.

What I should point out here is that your Case Else will fire whenever there is not a match in the list and this behavior may or may not be desireable. If, for example, you have 5 States that you call processA on and then 5 states that you call processB on, a Case Else is not ideal in your situation and you could do this instead:

CASE "OH", "PA", "NY"
'Do Something
CASE "TX", "CT", CO"
'Do Something
CASE Else
'Default processing.

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
Technical Editor for: Professional Search Engine Optimization with ASP.NET
http://www.wiley.com/WileyCDA/WileyT...470131470.html
================================================== =========
Why can't Programmers, program??
http://www.codinghorror.com/blog/archives/000781.html
================================================== =========

melkin · May 16th, 2007, 10:25 AM

Ok, no more erros showing, thanks.
But now my second email code isnt processing...
It should being that the form field data is NY, MS

Only the "NY" email goes through. I know you wont code this, but do you see anything wrong??
Next email code for "MS" starts after the CASE "MS".

<%
Dim warehouse, MyArray
warehouse=Request.Form("warehouse")
MyArray = Split(warehouse,",") 'the delimiter is the comma
For I = 0 to UBound(MyArray)
 sState = MyArray(I)
 SELECT CASE sState
 Case "NY"
 ' First create an instance of NewMail Object
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

objNewMail.From = "[email protected]"
objNewMail.To = rs("email")

objNewMail.Subject = "An Advance Tabco Order From Your NY Factory!"
objNewMail.BodyFormat = CdoBodyFormatHTML
objNewMail.Body = " <img src='http://www.advancetabco.com/pics/AT_emailLogo.jpg' border=0> **** EXCESS INVENTORY ORDER! **** If you have any questions regarding this order, Please contact Customer Service! COMPANY INFO: Order Date: " & Request.Form("date") & " P.O. Number: " & Request.Form("po") & " " & "Customer Number: " & Request.Form("custcode") & " "& "Company: " & Request.Form("custname") & " " & "Phone: " & Request.Form("phone") & " " & "Address 1: " & Request.Form("add1") & " " & "Address 2: " & Request.Form("add2") & " "& "City: " & Request.Form("city") & " "& "State: " & Request.Form("state") & " "&" Zip Code: " & Request.Form("zip") &" SHIPPING INFO: " & "Address 1: " & Request.Form("shipadd1") & " " & "Address 2: " & Request.Form("shipadd2") & " "& "City: " & Request.Form("shipcity") & " "& "State: " & Request.Form("shipstate") & " "&" Zip Code: " & Request.Form("shipzip") & " "&" Attention: " & Request.Form("attention") &" "& Request.Form("warehouse") &" ORDER INFO: "& " "& Request.Form("model") & " "& "Total Cost: $" & Request.Form("grandtotal") & " "
objNewMail.Send

Set objNewMail = Nothing

 Case "MS"
 ' First create an instance of NewMail Object
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

' If you like you can use this one line of code to send the mail.
' objNewMail.Send From, To, Subject, Message
' or you can give every value seperate

objNewMail.From = "[email protected]"
objNewMail.To = rs("email")

objNewMail.Subject = "An Advance Tabco Order From Your MS Factory!"
objNewMail.BodyFormat = CdoBodyFormatHTML
objNewMail.Body = " <img src='http://www.advancetabco.com/pics/AT_emailLogo.jpg' border=0> **** EXCESS INVENTORY ORDER! **** If you have any questions regarding this order, Please contact Customer Service! COMPANY INFO: Order Date: " & Request.Form("date") & " P.O. Number: " & Request.Form("po") & " " & "Customer Number: " & Request.Form("custcode") & " "& "Company: " & Request.Form("custname") & " " & "Phone: " & Request.Form("phone") & " " & "Address 1: " & Request.Form("add1") & " " & "Address 2: " & Request.Form("add2") & " "& "City: " & Request.Form("city") & " "& "State: " & Request.Form("state") & " "&" Zip Code: " & Request.Form("zip") &" SHIPPING INFO: " & "Address 1: " & Request.Form("shipadd1") & " " & "Address 2: " & Request.Form("shipadd2") & " "& "City: " & Request.Form("shipcity") & " "& "State: " & Request.Form("shipstate") & " "&" Zip Code: " & Request.Form("shipzip") & " "&" Attention: " & Request.Form("attention") &" "& Request.Form("warehouse") &" ORDER INFO: "& " "& Request.Form("model") & " "& "Total Cost: $" & Request.Form("grandtotal") & " "
objNewMail.Send

' After the Send method, NewMail Object become Invalid
' You should set it to nothing to relase the memory

Set objNewMail = Nothing
 'etc, etc, etc.
 END Select
 response.write myArray(i) & " "

Next
%>

melkin · May 16th, 2007, 10:26 AM

I truly appeciate your help. I am thrown into this ASP stuff, learning alot, but always feel I still know little.