Insert Data

E

Eric

I try to insert some data in my table name customer(Customer_Name,
Street, Account_No) from data:
[Customer's Name]
[Street]
[Account Number]
How to i do that needs help
-----------------------------------------------------

Set con = Server.CreateObject("ADODB.Connection")
sConnection ="Provider=MSDASQL.1;Persist Security Info=False;Data
Source=emp1"
con.Open(sConnection)

Function EnumerateFolder( sFolder )
Dim fso, ts, data
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.Getfolder ( server.mappath(sfolder) )
For each fil in fol.files
Set customer = CreateObject("Scripting.Dictionary")
Set ts = fil.openastextstream(1)
ary = Split(ts.ReadAll(),"[")
ts.Close
For i = 1 to Ubound(ary)
data = Split(ary(i),"]")
customer.Add data(0), data(1)
Next
next
End Function

EnumerateFolder "c:\txt"

Function test(s)
Select Case s

Case "[Dat"
test = True

Case "[Nov"
test = True

Case "[Sub"
test = True

Case "[Cus"
test = True

Case "[Str"
test = True

Case "[Cit"
test = True

Case "[Acc"
test = True

Case "[Ins"
test = True

Case "[Las"
test = True

Case "[PPV"
test = True

Case "[Mon"
test = True

Case "[Cur"
test = True

Case "[Typ"
test = True

Case "[Lan"
test = True

Case "[CRC"
test = True

Case "[Eve"
test = True

Case "[Sum"
test = True

Case "[Box"
test = True

Case "[MD"
test = True

Case "[Con"
test = True

End Select
End Function

-----SAMPLE DATA-----
[Date]
Sat Aug 05 14:06:12 EDT 2006

[Novell ID]
NSMITH4

[Subject]
PPV / VOD Research - Dispute - 1st Time - 711579

[Customer's Name]
EDWARD CAMPBELL

[Street]
5 WHEELER AVE APT 2

[City, State, Zip]
BRIDGEPORT CT, 06606

[Account Number]
006-0416-08

[Install Date]
06/21/2001

[Last Known Event Date]
06/29/2006

[PPV Hold]
No

[Monthly Rate]
186.52

[Current Services]
Optimum Voice
OOL FamilyorAbv
OR$20Discount
iO Silver Pkg
iO Box
PPOF
Addset: C/Rdy
OV World Call
OV Ported Number

[Type of Request]
Dispute - 1st Time

[Language]
English

[CRC PIN Instructions]
Yes

[Event Numbers/Date Range]
#77922 6/29, #78306 6/29, #77716 6/28, #77312 6/28

[Summary]
cust states that they and no one in the household ever
ordered those ppv movies.cust requesting credit of
$35.80.

[Box Verification by Customer]
2,SABKDTHBF,Yes,Yes,Yes,Yes

[MD Page ID]
1

[Control Number]
651789
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top