コメント |
@DIV
<JOB>
<COMMENT>
************************************************************
WSH 実行スケルトン
************************************************************
</COMMENT>
<COMMENT>
************************************************************
外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
language="VBScript"
src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "dbFunction.vbs" )
Crun
GetFso
Call SQSConnect( _
"layla", _
"isdb", _
"sa", _
"" _
)
Set objHandle = Fso.OpenTextFile( ScriptDir & "\New.csv", 1 )
nCnt = 0
Do While not objHandle.AtEndOfStream
Buffer = objHandle.ReadLine
nCnt = nCnt + 1
if nCnt <> 1 then
aData = Split( Buffer, "," )
Wscript.Echo nCnt & ":" & aData( 0 )
Query = "select * from T_学生マスタ where コード = " & aData(0)
if DBGet( Query, True ) then
Rs.Fields("郵便番号").Value = aData(8)
Rs.Fields("住所").Value = aData(9)
Rs.Fields("住所2").Value = aData(10)
Rs.Fields("電話番号").Value = aData(13)
Rs.Fields("携帯電話番号").Value = aData(12)
Rs.Fields("保護者名").Value = aData(21)
Rs.Fields("保護者名・フリガナ").Value = aData(18)
Rs.Fields("保護者・郵便番号").Value = aData(16)
Rs.Fields("保護者・住所").Value = aData(19)
Rs.Fields("保護者・住所2").Value = aData(20)
Rs.Fields("保護者・電話番号").Value = aData(17)
if trim( aData(22) ) = "" then
Rs.Fields("保護者・生年月日").Value = Empty
else
Rs.Fields("保護者・生年月日").Value = aData(22)
end if
Rs.Fields("E_Mail").Value = aData(11)
Rs.Fields("受付番号").Value = aData(1)
Rs.Fields("高校学科").Value = aData(15)
Rs.Fields("備考").Value = aData(23) & "|" & aData(14)
Rs.Fields("更新日付").Value = Cdate("2007/04/11")
Rs.Update
end if
end if
Loop
DBClose( Rs )
DBClose( Cn )
</SCRIPT>
</JOB>
@END
|