<%@ Language=VBScript %> <% Dim i_code,i_desc,stk,ordr,a_dt,qty Dim u_date,u_hr,u_min,u_sec,u_ltime set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.OpenTextFile(server.MapPath(".") & "\..\db\data.txt",1) 'start coding if not f.AtEndOfStream then d=f.ReadLine() if not f.AtEndOfStream and trim(d)="" then d=f.ReadLine() if trim(d)<>"" then text=split(d,":") u_date=Trim(text(1)) response.Write("Date : "&u_date&"
") u_hr=Trim(text(2)) response.Write("Hour : "&u_hr&"
") u_min=Trim(text(3)) response.Write("Minute : "&u_min&"
") u_sec=Trim(text(4)) response.Write("Second : "&u_sec&"
") u_ltime=u_hr & ":" & u_min & ":" & u_sec text=split(u_date," ") u_ldate=Trim(text(0)) response.Write("Actual Date : "&u_ldate&"
") sql1="insert into u_date(date,time) values ('"&u_ldate&"','"&u_ltime&"')" response.Write(sql1) end if end if end if 'stop coding 'cn.execute "delete from u_date" ' cn.Execute(sql1) 'f.SkipLine 'f.SkipLine f.SkipLine f.SkipLine f.SkipLine f.SkipLine cn.execute "delete from test" do while not f.AtEndOfStream d=f.ReadLine() 'response.write("Full Line:"&d) if trim(d)<>"" then text=split(d,"|") 'response.write("splited line:
") i_code=Trim(text(0)) 'response.write("i_code:"&i_code &"
") i_desc=Trim(text(1)) 'response.write("i_desc:"&i_desc &"
") stk=Trim(text(2)) 'response.write("stock:"&stk &"
") ordr=Trim(text(3)) 'response.write("order:"&ordr &"
") a_dt=Trim(text(4)) 'response.write("active_date:"&a_dt &"
") qty=Trim(text(5)) 'response.write("quantity:"&qty) sql="insert into test(i_code,i_desc,stock,ord,a_date,qua) values ('"&i_code&"','"&i_desc&"',"&stk&","&ordr&",'"&a_dt&"',"&qty&")" 'response.write(sql) cn.Execute(sql) end if f.SkipLine loop set rs=nothing cn.Close set cn=nothing f.Close set f=Nothing set fs=Nothing response.Redirect("admin.asp?msg=2") %>