Hi guys thankx for inviting me into your room I'm new here. I need a little HELP, please! I'm trying to number a large column (7000+) of car Makes which i will use as an idParentCategory. I seriously need help in the area where the ? marks are. I think i must do it with a string manipulation SUB... Any idea how? Thank you.
1 FIAT STILO
1 FIAT STILO
2 FIAT STRADA
2 FIAT STRADA
2 FIAT STRADA
2 FIAT STRADA
3 FIAT UNO
4 FORD BANTAM
4 FORD BANTAM
4 FORD BANTAM
4 FORD BANTAM
5 FORD COURIER
5 FORD COURIER
6 FORD ECOSPORT
6 FORD ECOSPORT
6 FORD ECOSPORT
#################################
<%
'on error resume next
dim mySQL, conntemp, rstemp, categoryDescription, pIdCategory
%>
<%=Server.MapPath("../Import_categories.txt")%>
<%
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile, pLine, pLine1, pLine2, valuesToInsert, pCounter
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fspenTextFile(Server.MapPath("../Import_categories.txt"), ForReading)
pCounter=1
Do While MyFile.AtEndOfStream <> True
pLine = MyFile.ReadLine
if len(pLine)>1 then
pline1 = pLine
Do while ??
"?? sub" response.write "<br>"&trim(pline1)&"...#"&pCounter& "<br \>"
Loop
pCounter = pCounter+1
end if
loop
call closeDb()
set fso = Nothing
%>
1 FIAT STILO
1 FIAT STILO
2 FIAT STRADA
2 FIAT STRADA
2 FIAT STRADA
2 FIAT STRADA
3 FIAT UNO
4 FORD BANTAM
4 FORD BANTAM
4 FORD BANTAM
4 FORD BANTAM
5 FORD COURIER
5 FORD COURIER
6 FORD ECOSPORT
6 FORD ECOSPORT
6 FORD ECOSPORT
#################################
<%
'on error resume next
dim mySQL, conntemp, rstemp, categoryDescription, pIdCategory
%>
<%=Server.MapPath("../Import_categories.txt")%>
<%
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile, pLine, pLine1, pLine2, valuesToInsert, pCounter
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fspenTextFile(Server.MapPath("../Import_categories.txt"), ForReading)
pCounter=1
Do While MyFile.AtEndOfStream <> True
pLine = MyFile.ReadLine
if len(pLine)>1 then
pline1 = pLine
Do while ??
"?? sub" response.write "<br>"&trim(pline1)&"...#"&pCounter& "<br \>"
Loop
pCounter = pCounter+1
end if
loop
call closeDb()
set fso = Nothing
%>