Read and write data with comma separated values

[SuperComputing]

Hello again guys, I am making excellent progess with my application especially with all of your help.

I have a 50 char text column in a table that I am storing my data in. I can't create new columns.

My page takes input from a form and writes it into the field like such: 1A01A 1A01B 1A01C 1A01D. Currently all of the data being read and written will be 5 characters. I want to be able to 'delimit' this and not tie it down to a certain number of characters. "Read until you hit a comma, write the data and add a comma after it"

It currently does it like this:

---READ---

upc = Request.Form("scanned")
.
.
locQuery1 = "SELECT LEFT (FILLER1, 5) FROM Barcode WHERE Barcode = '" & Replace(upc, "'", "''") & "' "
Set rsLoc1 = con.Execute(locQuery1)
locQuery2 = "SELECT SUBSTRING (FILLER1,  7,5) FROM Barcode WHERE Barcode = '" & Replace(upc, "'", "''") & "' "
Set rsLoc2 = con.Execute(locQuery2)
locQuery3 = "SELECT SUBSTRING (FILLER1, 13,5) FROM Barcode WHERE Barcode = '" & Replace(upc, "'", "''") & "' "
Set rsLoc3 = con.Execute(locQuery3)
locQuery4 = "SELECT SUBSTRING (FILLER1, 19,5) FROM Barcode WHERE Barcode = '" & Replace(upc, "'", "''") & "' "
Set rsLoc4 = con.Execute(locQuery4)

---WRITE---

upc = Request.Form("scanned")
sFILLER1 = Request.Form("Loc1") & " " & Request.Form("Loc2") & " " & Request.Form("Loc3") & " " & Request.Form("Loc4") 
.
.
updateloc= "Update Barcode Set FILLER1 = '" & Replace(sFILLER1, "'", "''") & "' Where Barcode = '" & Replace(upc, "'", "''") & "' "
con.Execute(updateloc)

Any ideas on how to change this to implement a comma seperated value system for my single text field?

Thanks again in advance!

 

[Sheco]

You might find the VBScript functions Split() and Join() helpful in this task.