清水北山好会ホームページ作成支援ツール

清水北山好会のホームページは、ホームページ作成に関して全く知識がない人でも、GPS軌跡付きの記事を簡単に作成できることをコンセプトに「ホームページ作成支援ツール」を開発してきた。

GPS軌跡を表示することをテーマにしたサイトを検索していたら、私のホームページを参考にしてくださっているページがあることを発見。嬉しいやら恥ずかしいやら複雑な気持だ。
ネットの記事を参考に試行錯誤で作成したものですから、稚拙なものですが、一応機能的には動作していますのでご紹介します。

下記のコードは清水北山好会のホームページに新規ページを追加アップするためのツールです。
この会は平均年齢が72歳というシニアーな山の会ですから、パソコンは苦手な会員が多いので、誰でも簡単にホームページをアップできるツールを作成。ホームページビルダーも テキストエディタも FTPツールさえも必要としないツールを作成したので、誰でもGPSで取得した登山軌跡付きのページを、簡単にアップできるようになりました。画像のリサイズもアップロードも自動処理します。

このツールを使うためには、Htmlファイルの元になる「Template」が必要です。 Template は各自のホームページ毎に異なるので、具体的なことは省略しますが、詳しいことをお知りになりたい方は「メール」でご連絡ください。
メールアドレスはhttp://gps-walk.com/site/site4.htmlをご覧ください。

' [SKS-tool.hta]
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<script type="text/javascript" src="http://maps.googleapis.com/maps/api/js?sensor=false&v=3&language=ja&libraries=geometry"></script>
<script type="text/javascript" src="../common/js/jquery.min.js"></script>

<title>山行会HP作成支援ツール Ver.14.06.23</title>
<HTA:APPLICATION BORDER="dialog">

<script language="VBScript">

'変数宣言
Dim fomData()
Dim jpgData(60,8), inxData(11,5)
Dim myDateStr, dateFolder, Yobi1, mmdd, fomlen
Dim repPath, tmpPath, uplPath
Dim mountName, mountAlt, walkDist, gpxPath, gpxPath2, camOffset, offsetT
Dim walkTime, Member, writer, myURL, myTitle, gpolylinepoints
Dim ftpStr1, ftpStr2, walkSecond
Dim caseNo, selNum 
Dim maxN : maxN = 0
Dim minN : minN = 90
Dim maxE : maxE = 0
Dim minE : minE = 180


'配列のメモ
'jpgData(i,j)	i=0~19 マーカー画像	i=20~59 slide画像	i=60 グラフ画像
'		j:0=jpgFullPath	1=ファイル名	2=撮影Time	3=lat lon	4=ele	5=title	  6=coment	7=Time(ms)	8=DiffTime


Set objFso    = CreateObject("Scripting.FileSystemObject")
Set objFile  = objFso.GetFile("SKS-tool.hta")

parentFolder = objFile.ParentFolder
sksPath = Replace(parentFolder, "\tool", "")

Set objFolder = objFso.GetFolder(sksPath)
Set colFolders= objFolder.SubFolders
Set colFiles  = objFolder.Files

repPath = sksPath & "\report"
tmpPath = sksPath & "\tool\000000"
uplPath = sksPath & "\UPload"

Sub Window_OnLoad
	Call Window.ResizeTo(1260,1000)
End Sub


'GPS ありフォーム
 fm01 = "<h3>■ 日付     <span><font size=""1"">山に登った日付を入力してください  例:11/10/5 (2011/10/05の場合)</font></span></h3>" & _
		"<div>   日付<select name=""year1"" id=""year1""><option value=""0"">選択</option><option value=""2013"">2013</option><option value=""2014"">2014</option><option value=""2015"">2015</option><option value=""2016"">2016</option><option value=""2017"">2017</option></select>年 " & _
		"<select name=""month1"" id=""month1""><option value=""0"">選択</option><option value=""1"">1</option><option value=""2"">2</option><option value=""3"">3</option><option value=""4"">4</option><option value=""5"">5</option><option value=""6"">6</option><option value=""7"">7</option><option value=""8"">8</option><option value=""9"">9</option><option value=""10"">10</option><option value=""11"">11</option><option value=""12"">12</option></select>月 " & _
		"    <select name=""day1"" id=""day1""><option value=""0"">選択</option><option value=""1"">1</option><option value=""2"">2</option><option value=""3"">3</option><option value=""4"">4</option><option value=""5"">5</option><option value=""6"">6</option><option value=""7"">7</option><option value=""8"">8</option><option value=""9"">9</option><option value=""10"">10</option><option value=""11"">11</option><option value=""12"">12</option><option value=""13"">13</option><option value=""14"">14</option><option value=""15"">15</option><option value=""16"">16</option><option value=""17"">17</option><option value=""18"">18</option><option value=""19"">19</option><option value=""20"">20</option><option value=""21"">21</option><option value=""22"">22</option><option value=""23"">23</option><option value=""24"">24</option><option value=""25"">25</option><option value=""26"">26</option><option value=""27"">27</option><option value=""28"">28</option><option value=""29"">29</option><option value=""30"">30</option><option value=""31"">31</option></select>日から  " & _
		"<select name=""year2"" id=""year2""><option value=""0"">選択</option><option value=""2013"">2013</option><option value=""2014"">2014</option><option value=""2015"">2015</option><option value=""2016"">2016</option><option value=""2017"">2017</option></select>年 " & _
		"<select name=""month2"" id=""month2""><option value=""0"">選択</option><option value=""1"">1</option><option value=""2"">2</option><option value=""3"">3</option><option value=""4"">4</option><option value=""5"">5</option><option value=""6"">6</option><option value=""7"">7</option><option value=""8"">8</option><option value=""9"">9</option><option value=""10"">10</option><option value=""11"">11</option><option value=""12"">12</option></select>月 " & _
		"    <select name=""day2"" id=""day2""><option value=""0"">選択</option><option value=""1"">1</option><option value=""2"">2</option><option value=""3"">3</option><option value=""4"">4</option><option value=""5"">5</option><option value=""6"">6</option><option value=""7"">7</option><option value=""8"">8</option><option value=""9"">9</option><option value=""10"">10</option><option value=""11"">11</option><option value=""12"">12</option><option value=""13"">13</option><option value=""14"">14</option><option value=""15"">15</option><option value=""16"">16</option><option value=""17"">17</option><option value=""18"">18</option><option value=""19"">19</option><option value=""20"">20</option><option value=""21"">21</option><option value=""22"">22</option><option value=""23"">23</option><option value=""24"">24</option><option value=""25"">25</option><option value=""26"">26</option><option value=""27"">27</option><option value=""28"">28</option><option value=""29"">29</option><option value=""30"">30</option><option value=""31"">31</option></select>日まで   <font size=""-1"">日帰りの場合は左側だけ入力。</font></p>" & _
		"" & _
		"<h3>■ タイトル</h3>" & _
		"<p>   山名<input id=""mount"" name=""mount"" size=""20"" type=""text"" />  標高<input id=""ele"" name=""ele"" size=""5"" type=""text"" />m  距離<input id=""dist"" size=""5"" type=""text"" />km  人数<input id=""member"" size=""2"" type=""text"" />人  投稿者<select id=""writer"" name=""writer""><option value="""">選択する</option><option value=""小川"">小川</option><option value=""寺尾"">寺尾</option><option value=""山崎"">山崎</option><option value=""村岡"">村岡</option></select>     <span class=""small"">山名は必須です。</span></p>" & _
		"<h3>■ GPXファイル     <span class=""small"">GPS軌跡を作成する GPXファイル を指定してください。</span></h3>" & _
		"<p>   <input id=""jpeg1"" name=""jpeg1"" type=""text"" value="""" size=""70"" /><input type=""file"" onchange=""fnamecopy(115)"" size=""1"" name=""imp_file"" />   <span class=""small"">カシミールなどでGPX形式(new.gpx)で書き出したファイルを指定します。</span></p>" & _
		"" & _
		"<h3>■ 紹介記事      <span class=""small"">山行記録ページで紹介する記事を書いてください。</span></h3>" & _
		"<p>   <textarea name=""kiji"" rows=""7"" cols=""70"">ここに記事を書いてください。</textarea></p>" & _
		"" & _
		"<h3>■ ブログURL     <span class=""small"">山行記録ページで紹介する、あなたのブログURLを指定してください。</span></h3>" & _
		"<p>   <input name=""myblog"" size=""70"" type=""text"" /></p>" & _
		"" & _
		"<h3>■ グラフ画像     <span class=""small"">マップページの距離-標高グラフ画像を指定してください。</span></h3>" & _
		"<p>   <input id=""jpeg1"" name=""jpeg1"" type=""text"" value="""" size=""70"" /><input id=""jpeg0"" name=""jpeg0""	type=""file"" onchange=""fnamecopy(119)"" size=""1"" />   <span class=""small"">BMP画像はGIF画像に変換しサイズを横幅 650px にリサイズします。</span></p>" & _
		"<p> </p>" & _
		"<p>                     <input id=""Ok1"" name=""Ok1"" type=""button"" value=""[データ保存]"" onclick=""okClick(1)"" class=""largest"" />           <input id=""Ok2"" name=""Ok2"" type=""button"" value=""[制作 / 転送]"" onclick=""okClick(2)"" class=""largest"" /></p>" & _
		"<p><span class=""small"">                            作業を中断する場合は[データ保存]ボタンで保存して下さい</span></p>" & _
		"<h3>■ マーカー画像ファイル</h3>" & _
		"<div id=""offsetTable"">" & _
		"<table border=""0"">" & _
		"  <tbody>" & _
		"    <tr>" & _
		"      <td rowspan=""2"" width=""180"">カメラ内蔵時計補正値</td>" & _
		"      <td><input type=""radio"" name=""offset"" value=""o1"" checked /><b>+</b></td>" & _
		"      <td rowspan=""2""><input size=""3"" type=""text"" name=""hh"" value=""00"" /></td>" & _
		"      <td rowspan=""2""><font size=""-1"">時</font></td>" & _
		"      <td rowspan=""2""><input size=""3"" type=""text"" name=""mm"" value=""00"" /></td>" & _
		"      <td rowspan=""2""><font size=""-1"">分</font></td>" & _
		"      <td rowspan=""2""><input size=""3"" type=""text"" name=""ss"" value=""00"" /></td>" & _
		"      <td rowspan=""2""><font size=""-1"">秒</font></td>" & _
		"      <td rowspan=""2"" width=""300"" align=""center""><span class=""small"">  GPSに対してカメラが 進み=(+) 遅れ=(-)</span></td>" & _
		"    </tr>" & _
		"    <tr>" & _
		"      <td><input type=""radio"" name=""offset"" value=""o2"" /><b>-</b></td>" & _
		"    </tr>" & _
		"  </tbody>" & _
		"</table>" & _
		"</div>" & _
		"<br>" & _
		"<div id=""imgTable"">" & _
		"<table border=""0"">" & _
		"  <tbody>" & _
		"    <tr><td width=""108""><div id=""thumb0""></div></td><td width=""108""><div id=""thumb1""></div></td><td width=""108""><div id=""thumb2""></div></td><td width=""108""><div id=""thumb3""></div></td><td width=""108""><div id=""thumb4""></div></td><td width=""108""><div id=""thumb5""></div></td><td width=""108""><div id=""thumb6""></div></td><td width=""108""><div id=""thumb7""></div></td><td width=""108""><div id=""thumb8""></div></td><td width=""108""><div id=""thumb9""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName0""></div></td><td align=""center""><div id=""imgName1""></div></td><td align=""center""><div id=""imgName2""></div></td><td align=""center""><div id=""imgName3""></div></td><td align=""center""><div id=""imgName4""></div></td><td align=""center""><div id=""imgName5""></div></td><td align=""center""><div id=""imgName6""></div></td><td align=""center""><div id=""imgName7""></div></td><td align=""center""><div id=""imgName8""></div></td><td align=""center""><div id=""imgName9""></div></td></tr>" & _
		"    <tr><td width=""108""><div id=""thumb10""></div></td><td width=""108""><div id=""thumb11""></div></td><td width=""108""><div id=""thumb12""></div></td> <td width=""108""><div id=""thumb13""></div></td><td width=""108""><div id=""thumb14""></div></td><td width=""108""><div id=""thumb15""></div></td><td width=""108""><div id=""thumb16""></div></td><td width=""108""><div id=""thumb17""></div></td><td width=""108""><div id=""thumb18""></div></td><td width=""108""><div id=""thumb19""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName10""></div></td><td align=""center""><div id=""imgName11""></div></td><td align=""center""><div id=""imgName12""></div></td><td align=""center""><div id=""imgName13""></div></td><td align=""center""><div id=""imgName14""></div></td><td align=""center""><div id=""imgName15""></div></td><td align=""center""><div id=""imgName16""></div></td><td align=""center""><div id=""imgName17""></div></td><td align=""center""><div id=""imgName18""></div></td><td align=""center""><div id=""imgName19""></div></td></tr>" & _
		"  </tbody>" & _
		"</table>" & _
		"</div>" & _
		"<div nowrap>  <span class=""small"">[ファイル名]                                           [画像タイトル]9文字まで  [画像コメント]1列:19文字まで</span><br />" & _
		" 1<input id=""jpeg1"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg1"" name=""jpeg1"" type=""file"" onchange=""fnamecopy(0)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle1"" /> <input size=""80"" type=""text"" name=""coment1"" /><br />" & _
		" 2<input id=""jpeg2"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg2"" name=""jpeg2"" type=""file"" onchange=""fnameCopy(1)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle2"" /> <input size=""80"" type=""text"" name=""coment2"" /><br />" & _
		" 3<input id=""jpeg3"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg3"" name=""jpeg3"" type=""file"" onchange=""fnameCopy(2)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle3"" /> <input size=""80"" type=""text"" name=""coment3"" /><br />" & _
		" 4<input id=""jpeg4"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg4"" name=""jpeg4"" type=""file"" onchange=""fnameCopy(3)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle4"" /> <input size=""80"" type=""text"" name=""coment4"" /><br />" & _
		" 5<input id=""jpeg5"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg5"" name=""jpeg5"" type=""file"" onchange=""fnameCopy(4)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle5"" /> <input size=""80"" type=""text"" name=""coment5"" /><br />" & _
		" 6<input id=""jpeg6"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg6"" name=""jpeg6"" type=""file"" onchange=""fnameCopy(5)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle6"" /> <input size=""80"" type=""text"" name=""coment6"" /><br />" & _
		" 7<input id=""jpeg7"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg7"" name=""jpeg7"" type=""file"" onchange=""fnameCopy(6)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle7"" /> <input size=""80"" type=""text"" name=""coment7"" /><br />" & _
		" 8<input id=""jpeg8"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg8"" name=""jpeg8"" type=""file"" onchange=""fnameCopy(7)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle8"" /> <input size=""80"" type=""text"" name=""coment8"" /><br />" & _
		" 9<input id=""jpeg9"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg9"" name=""jpeg9"" type=""file"" onchange=""fnameCopy(8)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle9"" /> <input size=""80"" type=""text"" name=""coment9"" /><br />" & _
		"10<input id=""jpeg10"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg10"" name=""jpeg10"" type=""file"" onchange=""fnameCopy(9)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle10"" /> <input size=""80"" type=""text"" name=""coment10"" /><br />" & _
		"11<input id=""jpeg11"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg11"" name=""jpeg11"" type=""file"" onchange=""fnameCopy(10)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle11"" /> <input size=""80"" type=""text"" name=""coment11"" /><br />" & _
		"12<input id=""jpeg12"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg12"" name=""jpeg12"" type=""file"" onchange=""fnameCopy(11)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle12"" /> <input size=""80"" type=""text"" name=""coment12"" /><br />" & _
		"13<input id=""jpeg13"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg13"" name=""jpeg13"" type=""file"" onchange=""fnameCopy(12)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle13"" /> <input size=""80"" type=""text"" name=""coment13"" /><br />" & _
		"14<input id=""jpeg14"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg14"" name=""jpeg14"" type=""file"" onchange=""fnameCopy(13)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle14"" /> <input size=""80"" type=""text"" name=""coment14"" /><br />" & _
		"15<input id=""jpeg15"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg15"" name=""jpeg15"" type=""file"" onchange=""fnameCopy(14)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle15"" /> <input size=""80"" type=""text"" name=""coment15"" /><br />" & _
		"16<input id=""jpeg16"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg16"" name=""jpeg16"" type=""file"" onchange=""fnameCopy(15)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle16"" /> <input size=""80"" type=""text"" name=""coment16"" /><br />" & _
		"17<input id=""jpeg17"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg17"" name=""jpeg17"" type=""file"" onchange=""fnameCopy(16)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle17"" /> <input size=""80"" type=""text"" name=""coment17"" /><br />" & _
		"18<input id=""jpeg18"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg18"" name=""jpeg18"" type=""file"" onchange=""fnameCopy(17)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle18"" /> <input size=""80"" type=""text"" name=""coment18"" /><br />" & _
		"19<input id=""jpeg19"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg19"" name=""jpeg19"" type=""file"" onchange=""fnameCopy(18)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle19"" /> <input size=""80"" type=""text"" name=""coment19"" /><br />" & _
		"20<input id=""jpeg20"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg20"" name=""jpeg20"" type=""file"" onchange=""fnameCopy(19)"" size=""1"" />  <input size=""16"" type=""text"" name=""ptitle20"" /> <input size=""80"" type=""text"" name=""coment20"" /></div>" & _
		"" & _
		"<h3>■ スライドショー画像ファイル</h3>" & _
		"<div id=""imgTable"">" & _
		"<table border=""0"">" & _
		"  <tbody>" & _
		"    <tr><td width=""108""><div id=""thumb20""></div></td><td width=""108""><div id=""thumb21""></div></td><td width=""108""><div id=""thumb22""></div></td><td width=""108""><div id=""thumb23""></div></td><td width=""108""><div id=""thumb24""></div></td><td width=""108""><div id=""thumb25""></div></td><td width=""108""><div id=""thumb26""></div></td><td width=""108""><div id=""thumb27""></div></td><td width=""108""><div id=""thumb28""></div></td><td width=""108""><div id=""thumb29""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName20""></div></td><td align=""center""><div id=""imgName21""></div></td><td align=""center""><div id=""imgName22""></div></td><td align=""center""><div id=""imgName23""></div></td><td align=""center""><div id=""imgName24""></div></td><td align=""center""><div id=""imgName25""></div></td><td align=""center""><div id=""imgName26""></div></td><td align=""center""><div id=""imgName27""></div></td><td align=""center""><div id=""imgName28""></div></td><td align=""center""><div id=""imgName29""></div></td></tr>" & _
		"    <tr><td width=""108""><div id=""thumb30""></div></td><td width=""108""><div id=""thumb31""></div></td><td width=""108""><div id=""thumb32""></div></td> <td width=""108""><div id=""thumb33""></div></td><td width=""108""><div id=""thumb34""></div></td><td width=""108""><div id=""thumb35""></div></td><td width=""108""><div id=""thumb36""></div></td><td width=""108""><div id=""thumb37""></div></td><td width=""108""><div id=""thumb38""></div></td><td width=""108""><div id=""thumb39""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName30""></div></td><td align=""center""><div id=""imgName31""></div></td><td align=""center""><div id=""imgName32""></div></td><td align=""center""><div id=""imgName33""></div></td><td align=""center""><div id=""imgName34""></div></td><td align=""center""><div id=""imgName35""></div></td><td align=""center""><div id=""imgName36""></div></td><td align=""center""><div id=""imgName37""></div></td><td align=""center""><div id=""imgName38""></div></td><td align=""center""><div id=""imgName39""></div></td></tr>" & _
		"    <tr><td width=""108""><div id=""thumb40""></div></td><td width=""108""><div id=""thumb41""></div></td><td width=""108""><div id=""thumb42""></div></td> <td width=""108""><div id=""thumb43""></div></td><td width=""108""><div id=""thumb44""></div></td><td width=""108""><div id=""thumb45""></div></td><td width=""108""><div id=""thumb46""></div></td><td width=""108""><div id=""thumb47""></div></td><td width=""108""><div id=""thumb48""></div></td><td width=""108""><div id=""thumb49""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName40""></div></td><td align=""center""><div id=""imgName41""></div></td><td align=""center""><div id=""imgName42""></div></td><td align=""center""><div id=""imgName43""></div></td><td align=""center""><div id=""imgName44""></div></td><td align=""center""><div id=""imgName45""></div></td><td align=""center""><div id=""imgName46""></div></td><td align=""center""><div id=""imgName47""></div></td><td align=""center""><div id=""imgName48""></div></td><td align=""center""><div id=""imgName49""></div></td></tr>" & _
		"    <tr><td width=""108""><div id=""thumb50""></div></td><td width=""108""><div id=""thumb51""></div></td><td width=""108""><div id=""thumb52""></div></td> <td width=""108""><div id=""thumb53""></div></td><td width=""108""><div id=""thumb54""></div></td><td width=""108""><div id=""thumb55""></div></td><td width=""108""><div id=""thumb56""></div></td><td width=""108""><div id=""thumb57""></div></td><td width=""108""><div id=""thumb58""></div></td><td width=""108""><div id=""thumb59""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName50""></div></td><td align=""center""><div id=""imgName51""></div></td><td align=""center""><div id=""imgName52""></div></td><td align=""center""><div id=""imgName53""></div></td><td align=""center""><div id=""imgName54""></div></td><td align=""center""><div id=""imgName55""></div></td><td align=""center""><div id=""imgName56""></div></td><td align=""center""><div id=""imgName57""></div></td><td align=""center""><div id=""imgName58""></div></td><td align=""center""><div id=""imgName59""></div></td></tr>" & _
		"  </tbody>" & _
		"</table>" & _
		"</div>" & _
		"<div nowrap>  <span class=""small"">[ファイル名]                                          [画像コメント]  入力しなくてもいいですが、なるべく画像の説明文を書きましょう。 全角文字で48文字まで</spant><br />" & _
		"21<input id=""jpeg21"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg21"" name=""jpeg21"" type=""file"" onchange=""fnameCopy(20)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment0"" /><br />" & _
		"22<input id=""jpeg22"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg22"" name=""jpeg22"" type=""file"" onchange=""fnameCopy(21)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment1"" /><br />" & _
		"23<input id=""jpeg23"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg23"" name=""jpeg23"" type=""file"" onchange=""fnameCopy(22)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment2"" /><br />" & _
		"24<input id=""jpeg24"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg24"" name=""jpeg24"" type=""file"" onchange=""fnameCopy(23)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment3"" /><br />" & _
		"25<input id=""jpeg25"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg35"" name=""jpeg25"" type=""file"" onchange=""fnameCopy(24)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment4"" /><br />" & _
		"26<input id=""jpeg26"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg26"" name=""jpeg26"" type=""file"" onchange=""fnameCopy(25)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment5"" /><br />" & _
		"27<input id=""jpeg27"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg27"" name=""jpeg27"" type=""file"" onchange=""fnameCopy(26)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment6"" /><br />" & _
		"28<input id=""jpeg28"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg28"" name=""jpeg28"" type=""file"" onchange=""fnameCopy(27)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment7"" /><br />" & _
		"29<input id=""jpeg29"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg29"" name=""jpeg29"" type=""file"" onchange=""fnameCopy(28)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment8"" /><br />" & _
		"30<input id=""jpeg30"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg30"" name=""jpeg30"" type=""file"" onchange=""fnameCopy(29)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment9"" /><br />" & _
		"31<input id=""jpeg31"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg31"" name=""jpeg31"" type=""file"" onchange=""fnameCopy(30)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment10"" /><br />" & _
		"32<input id=""jpeg32"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg32"" name=""jpeg32"" type=""file"" onchange=""fnameCopy(31)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment11"" /><br />" & _
		"33<input id=""jpeg33"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg33"" name=""jpeg33"" type=""file"" onchange=""fnameCopy(32)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment12"" /><br />" & _
		"34<input id=""jpeg34"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg34"" name=""jpeg34"" type=""file"" onchange=""fnameCopy(33)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment13"" /><br />" & _
		"35<input id=""jpeg35"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg35"" name=""jpeg35"" type=""file"" onchange=""fnameCopy(34)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment14"" /><br />" & _
		"36<input id=""jpeg36"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg36"" name=""jpeg36"" type=""file"" onchange=""fnameCopy(35)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment15"" /><br />" & _
		"37<input id=""jpeg37"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg37"" name=""jpeg37"" type=""file"" onchange=""fnameCopy(36)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment16"" /><br />" & _
		"38<input id=""jpeg38"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg38"" name=""jpeg38"" type=""file"" onchange=""fnameCopy(37)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment17"" /><br />" & _
		"39<input id=""jpeg39"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg39"" name=""jpeg39"" type=""file"" onchange=""fnameCopy(38)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment18"" /><br />" & _
		"40<input id=""jpeg40"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg40"" name=""jpeg40"" type=""file"" onchange=""fnameCopy(39)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment19"" /><br />" & _
		"41<input id=""jpeg41"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg41"" name=""jpeg41"" type=""file"" onchange=""fnameCopy(40)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment20"" /><br />" & _
		"42<input id=""jpeg42"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg42"" name=""jpeg42"" type=""file"" onchange=""fnameCopy(41)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment21"" /><br />" & _
		"43<input id=""jpeg43"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg43"" name=""jpeg43"" type=""file"" onchange=""fnameCopy(42)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment22"" /><br />" & _
		"44<input id=""jpeg44"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg44"" name=""jpeg44"" type=""file"" onchange=""fnameCopy(43)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment23"" /><br />" & _
		"45<input id=""jpeg45"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg45"" name=""jpeg45"" type=""file"" onchange=""fnameCopy(44)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment24"" /><br />" & _
		"46<input id=""jpeg46"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg46"" name=""jpeg46"" type=""file"" onchange=""fnameCopy(45)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment25"" /><br />" & _
		"47<input id=""jpeg47"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg47"" name=""jpeg47"" type=""file"" onchange=""fnameCopy(46)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment26"" /><br />" & _
		"48<input id=""jpeg48"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg48"" name=""jpeg48"" type=""file"" onchange=""fnameCopy(47)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment27"" /><br />" & _
		"49<input id=""jpeg49"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg49"" name=""jpeg49"" type=""file"" onchange=""fnameCopy(48)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment28"" /><br />" & _
		"50<input id=""jpeg50"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg50"" name=""jpeg50"" type=""file"" onchange=""fnameCopy(49)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment29"" /><br />" & _
		"51<input id=""jpeg51"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg51"" name=""jpeg51"" type=""file"" onchange=""fnameCopy(50)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment30"" /><br />" & _
		"52<input id=""jpeg52"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg52"" name=""jpeg52"" type=""file"" onchange=""fnameCopy(51)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment31"" /><br />" & _
		"53<input id=""jpeg53"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg53"" name=""jpeg53"" type=""file"" onchange=""fnameCopy(52)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment32"" /><br />" & _
		"54<input id=""jpeg54"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg54"" name=""jpeg54"" type=""file"" onchange=""fnameCopy(53)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment33"" /><br />" & _
		"55<input id=""jpeg55"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg55"" name=""jpeg55"" type=""file"" onchange=""fnameCopy(54)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment34"" /><br />" & _
		"56<input id=""jpeg56"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg56"" name=""jpeg56"" type=""file"" onchange=""fnameCopy(55)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment35"" /><br />" & _
		"57<input id=""jpeg57"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg57"" name=""jpeg57"" type=""file"" onchange=""fnameCopy(56)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment36"" /><br />" & _
		"58<input id=""jpeg58"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg58"" name=""jpeg58"" type=""file"" onchange=""fnameCopy(57)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment37"" /><br />" & _
		"59<input id=""jpeg59"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg59"" name=""jpeg59"" type=""file"" onchange=""fnameCopy(58)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment38"" /><br />" & _
		"60<input id=""jpeg60"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg60"" name=""jpeg60"" type=""file"" onchange=""fnameCopy(59)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment39"" /></div>"

'GPS なしフォーム
 fm02 = "<h3>■ 日付     <span><font size=""1"">山に登った日付を入力してください  例:11/10/5 (2011/10/05の場合)</font></span></h3>" & _
		"<div>   日付<select name=""year1"" id=""year1""><option value=""0"">選択</option><option value=""2013"">2013</option><option value=""2014"">2014</option><option value=""2015"">2015</option><option value=""2016"">2016</option><option value=""2017"">2017</option></select>年 " & _
		"<select name=""month1"" id=""month1""><option value=""0"">選択</option><option value=""1"">1</option><option value=""2"">2</option><option value=""3"">3</option><option value=""4"">4</option><option value=""5"">5</option><option value=""6"">6</option><option value=""7"">7</option><option value=""8"">8</option><option value=""9"">9</option><option value=""10"">10</option><option value=""11"">11</option><option value=""12"">12</option></select>月 " & _
		"    <select name=""day1"" id=""day1""><option value=""0"">選択</option><option value=""1"">1</option><option value=""2"">2</option><option value=""3"">3</option><option value=""4"">4</option><option value=""5"">5</option><option value=""6"">6</option><option value=""7"">7</option><option value=""8"">8</option><option value=""9"">9</option><option value=""10"">10</option><option value=""11"">11</option><option value=""12"">12</option><option value=""13"">13</option><option value=""14"">14</option><option value=""15"">15</option><option value=""16"">16</option><option value=""17"">17</option><option value=""18"">18</option><option value=""19"">19</option><option value=""20"">20</option><option value=""21"">21</option><option value=""22"">22</option><option value=""23"">23</option><option value=""24"">24</option><option value=""25"">25</option><option value=""26"">26</option><option value=""27"">27</option><option value=""28"">28</option><option value=""29"">29</option><option value=""30"">30</option><option value=""31"">31</option></select>日から  " & _
		"<select name=""year2"" id=""year2""><option value=""0"">選択</option><option value=""2013"">2013</option><option value=""2014"">2014</option><option value=""2015"">2015</option><option value=""2016"">2016</option><option value=""2017"">2017</option></select>年 " & _
		"<select name=""month2"" id=""month2""><option value=""0"">選択</option><option value=""1"">1</option><option value=""2"">2</option><option value=""3"">3</option><option value=""4"">4</option><option value=""5"">5</option><option value=""6"">6</option><option value=""7"">7</option><option value=""8"">8</option><option value=""9"">9</option><option value=""10"">10</option><option value=""11"">11</option><option value=""12"">12</option></select>月 " & _
		"    <select name=""day2"" id=""day2""><option value=""0"">選択</option><option value=""1"">1</option><option value=""2"">2</option><option value=""3"">3</option><option value=""4"">4</option><option value=""5"">5</option><option value=""6"">6</option><option value=""7"">7</option><option value=""8"">8</option><option value=""9"">9</option><option value=""10"">10</option><option value=""11"">11</option><option value=""12"">12</option><option value=""13"">13</option><option value=""14"">14</option><option value=""15"">15</option><option value=""16"">16</option><option value=""17"">17</option><option value=""18"">18</option><option value=""19"">19</option><option value=""20"">20</option><option value=""21"">21</option><option value=""22"">22</option><option value=""23"">23</option><option value=""24"">24</option><option value=""25"">25</option><option value=""26"">26</option><option value=""27"">27</option><option value=""28"">28</option><option value=""29"">29</option><option value=""30"">30</option><option value=""31"">31</option></select>日まで   <font size=""-1"">日帰りの場合は左側だけ入力。</font></p>" & _
		"" & _
		"<h3>■ タイトル</h3>" & _
		"<p>   山名<input id=""mount"" name=""mount"" size=""20"" type=""text"" />  標高<input id=""ele"" name=""ele"" size=""5"" type=""text"" />m  <input type=""hidden"" value=""00"" />  人数<input id=""member"" size=""2"" type=""text"" />人  投稿者<select id=""writer"" name=""writer""><option value="""">選択する</option><option value=""小川"">小川</option><option value=""寺尾"">寺尾</option><option value=""山崎"">山崎</option><option value=""村岡"">村岡</option></select>     <span class=""small"">山名は必須です。</span></p>" & _
		"<input type=""hidden"" value=""00"" /> <input type=""hidden"" value=""00"" />" & _
		"<h3>■ 紹介記事      <span class=""small"">山行記録ページで紹介する記事を書いてください。</span></h3>" & _
		"<p>   <textarea name=""kiji"" rows=""7"" cols=""70"">ここに記事を書いてください。</textarea></p>" & _
		"" & _
		"<h3>■ ブログURL     <span class=""small"">山行記録ページで紹介する、あなたのブログURLを指定してください。</span></h3>" & _
		"<p>   <input name=""myblog"" size=""70"" type=""text"" /></p>" & _
		"<p><input type=""hidden"" value=""00"" /><input type=""hidden"" value=""00"" /></p>" & _
		"<p>                     <input id=""Ok1"" name=""Ok1"" type=""button"" value=""[データ保存]"" onclick=""okClick(1)"" class=""largest"" />           <input id=""Ok2"" name=""Ok2"" type=""button"" value=""[制作 / 転送]"" onclick=""okClick(2)"" class=""largest"" /></p>" & _
		"<p><span class=""small"">                            作業を中断する場合は[データ保存]ボタンで保存して下さい</span></p>" & _
		"<input type=""hidden"" value=""00"" /> <input type=""hidden"" value=""00"" /> <input type=""hidden"" value=""00"" /> <input type=""hidden"" value=""00"" /> <input type=""hidden"" value=""00"" />" & _
		"<div id=""imgTable"">" & _
		"<h3>■ スライドショー画像ファイル</h3>" & _
		"<table border=""0"">" & _
		"  <tbody>" & _
		"    <tr><td width=""108""><div id=""thumb0""></div></td><td width=""108""><div id=""thumb1""></div></td><td width=""108""><div id=""thumb2""></div></td><td width=""108""><div id=""thumb3""></div></td><td width=""108""><div id=""thumb4""></div></td><td width=""108""><div id=""thumb5""></div></td><td width=""108""><div id=""thumb6""></div></td><td width=""108""><div id=""thumb7""></div></td><td width=""108""><div id=""thumb8""></div></td><td width=""108""><div id=""thumb9""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName0""></div></td><td align=""center""><div id=""imgName1""></div></td><td align=""center""><div id=""imgName2""></div></td><td align=""center""><div id=""imgName3""></div></td><td align=""center""><div id=""imgName4""></div></td><td align=""center""><div id=""imgName5""></div></td><td align=""center""><div id=""imgName6""></div></td><td align=""center""><div id=""imgName7""></div></td><td align=""center""><div id=""imgName8""></div></td><td align=""center""><div id=""imgName9""></div></td></tr>" & _
		"    <tr><td width=""108""><div id=""thumb10""></div></td><td width=""108""><div id=""thumb11""></div></td><td width=""108""><div id=""thumb12""></div></td> <td width=""108""><div id=""thumb13""></div></td><td width=""108""><div id=""thumb14""></div></td><td width=""108""><div id=""thumb15""></div></td><td width=""108""><div id=""thumb16""></div></td><td width=""108""><div id=""thumb17""></div></td><td width=""108""><div id=""thumb18""></div></td><td width=""108""><div id=""thumb19""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName10""></div></td><td align=""center""><div id=""imgName11""></div></td><td align=""center""><div id=""imgName12""></div></td><td align=""center""><div id=""imgName13""></div></td><td align=""center""><div id=""imgName14""></div></td><td align=""center""><div id=""imgName15""></div></td><td align=""center""><div id=""imgName16""></div></td><td align=""center""><div id=""imgName17""></div></td><td align=""center""><div id=""imgName18""></div></td><td align=""center""><div id=""imgName19""></div></td></tr>" & _
		"    <tr><td width=""108""><div id=""thumb20""></div></td><td width=""108""><div id=""thumb21""></div></td><td width=""108""><div id=""thumb22""></div></td><td width=""108""><div id=""thumb23""></div></td><td width=""108""><div id=""thumb24""></div></td><td width=""108""><div id=""thumb25""></div></td><td width=""108""><div id=""thumb26""></div></td><td width=""108""><div id=""thumb27""></div></td><td width=""108""><div id=""thumb28""></div></td><td width=""108""><div id=""thumb29""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName20""></div></td><td align=""center""><div id=""imgName21""></div></td><td align=""center""><div id=""imgName22""></div></td><td align=""center""><div id=""imgName23""></div></td><td align=""center""><div id=""imgName24""></div></td><td align=""center""><div id=""imgName25""></div></td><td align=""center""><div id=""imgName26""></div></td><td align=""center""><div id=""imgName27""></div></td><td align=""center""><div id=""imgName28""></div></td><td align=""center""><div id=""imgName29""></div></td></tr>" & _
		"    <tr><td width=""108""><div id=""thumb30""></div></td><td width=""108""><div id=""thumb31""></div></td><td width=""108""><div id=""thumb32""></div></td> <td width=""108""><div id=""thumb33""></div></td><td width=""108""><div id=""thumb34""></div></td><td width=""108""><div id=""thumb35""></div></td><td width=""108""><div id=""thumb36""></div></td><td width=""108""><div id=""thumb37""></div></td><td width=""108""><div id=""thumb38""></div></td><td width=""108""><div id=""thumb39""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName30""></div></td><td align=""center""><div id=""imgName31""></div></td><td align=""center""><div id=""imgName32""></div></td><td align=""center""><div id=""imgName33""></div></td><td align=""center""><div id=""imgName34""></div></td><td align=""center""><div id=""imgName35""></div></td><td align=""center""><div id=""imgName36""></div></td><td align=""center""><div id=""imgName37""></div></td><td align=""center""><div id=""imgName38""></div></td><td align=""center""><div id=""imgName39""></div></td></tr>" & _
		"    <tr><td width=""108""><div id=""thumb40""></div></td><td width=""108""><div id=""thumb41""></div></td><td width=""108""><div id=""thumb42""></div></td> <td width=""108""><div id=""thumb43""></div></td><td width=""108""><div id=""thumb44""></div></td><td width=""108""><div id=""thumb45""></div></td><td width=""108""><div id=""thumb46""></div></td><td width=""108""><div id=""thumb47""></div></td><td width=""108""><div id=""thumb48""></div></td><td width=""108""><div id=""thumb49""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName40""></div></td><td align=""center""><div id=""imgName41""></div></td><td align=""center""><div id=""imgName42""></div></td><td align=""center""><div id=""imgName43""></div></td><td align=""center""><div id=""imgName44""></div></td><td align=""center""><div id=""imgName45""></div></td><td align=""center""><div id=""imgName46""></div></td><td align=""center""><div id=""imgName47""></div></td><td align=""center""><div id=""imgName48""></div></td><td align=""center""><div id=""imgName49""></div></td></tr>" & _
		"    <tr><td width=""108""><div id=""thumb50""></div></td><td width=""108""><div id=""thumb51""></div></td><td width=""108""><div id=""thumb52""></div></td> <td width=""108""><div id=""thumb53""></div></td><td width=""108""><div id=""thumb54""></div></td><td width=""108""><div id=""thumb55""></div></td><td width=""108""><div id=""thumb56""></div></td><td width=""108""><div id=""thumb57""></div></td><td width=""108""><div id=""thumb58""></div></td><td width=""108""><div id=""thumb59""></div></td></tr>" & _
		"    <tr><td align=""center""><div id=""imgName50""></div></td><td align=""center""><div id=""imgName51""></div></td><td align=""center""><div id=""imgName52""></div></td><td align=""center""><div id=""imgName53""></div></td><td align=""center""><div id=""imgName54""></div></td><td align=""center""><div id=""imgName55""></div></td><td align=""center""><div id=""imgName56""></div></td><td align=""center""><div id=""imgName57""></div></td><td align=""center""><div id=""imgName58""></div></td><td align=""center""><div id=""imgName59""></div></td></tr>" & _
		"  </tbody>" & _
		"</table>" & _
		"</div>" & _
		"<div nowrap>  <span class=""small"">[ファイル名]                                          [画像コメント]  入力しなくてもいいですが、なるべく画像の説明文を書きましょう。 全角文字で48文字まで</spant><br />" & _
		" 1<input id=""jpeg1"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg1"" name=""jpeg1"" type=""file"" onchange=""fnamecopy(0)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment1"" /><br />" & _
		" 2<input id=""jpeg2"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg2"" name=""jpeg2"" type=""file"" onchange=""fnameCopy(1)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment2"" /><br />" & _
		" 3<input id=""jpeg3"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg3"" name=""jpeg3"" type=""file"" onchange=""fnameCopy(2)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment3"" /><br />" & _
		" 4<input id=""jpeg4"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg4"" name=""jpeg4"" type=""file"" onchange=""fnameCopy(3)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment4"" /><br />" & _
		" 5<input id=""jpeg5"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg5"" name=""jpeg5"" type=""file"" onchange=""fnameCopy(4)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment5"" /><br />" & _
		" 6<input id=""jpeg6"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg6"" name=""jpeg6"" type=""file"" onchange=""fnameCopy(5)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment6"" /><br />" & _
		" 7<input id=""jpeg7"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg7"" name=""jpeg7"" type=""file"" onchange=""fnameCopy(6)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment7"" /><br />" & _
		" 8<input id=""jpeg8"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg8"" name=""jpeg8"" type=""file"" onchange=""fnameCopy(7)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment8"" /><br />" & _
		" 9<input id=""jpeg9"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg9"" name=""jpeg9"" type=""file"" onchange=""fnameCopy(8)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment9"" /><br />" & _
		"10<input id=""jpeg10"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg10"" name=""jpeg10"" type=""file"" onchange=""fnameCopy(9)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment10"" /><br />" & _
		"11<input id=""jpeg11"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg11"" name=""jpeg11"" type=""file"" onchange=""fnameCopy(10)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment11"" /><br />" & _
		"12<input id=""jpeg12"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg12"" name=""jpeg12"" type=""file"" onchange=""fnameCopy(11)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment12"" /><br />" & _
		"13<input id=""jpeg13"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg13"" name=""jpeg13"" type=""file"" onchange=""fnameCopy(12)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment13"" /><br />" & _
		"14<input id=""jpeg14"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg14"" name=""jpeg14"" type=""file"" onchange=""fnameCopy(13)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment14"" /><br />" & _
		"15<input id=""jpeg15"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg15"" name=""jpeg15"" type=""file"" onchange=""fnameCopy(14)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment15"" /><br />" & _
		"16<input id=""jpeg16"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg16"" name=""jpeg16"" type=""file"" onchange=""fnameCopy(15)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment16"" /><br />" & _
		"17<input id=""jpeg17"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg17"" name=""jpeg17"" type=""file"" onchange=""fnameCopy(16)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment17"" /><br />" & _
		"18<input id=""jpeg18"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg18"" name=""jpeg18"" type=""file"" onchange=""fnameCopy(17)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment18"" /><br />" & _
		"19<input id=""jpeg19"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg19"" name=""jpeg19"" type=""file"" onchange=""fnameCopy(18)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment19"" /><br />" & _
		"20<input id=""jpeg20"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg20"" name=""jpeg20"" type=""file"" onchange=""fnameCopy(19)"" size=""1"" />  <input type=""hidden"" value="""" /><input size=""90"" type=""text"" name=""coment20"" /></div>" & _
		"21<input id=""jpeg21"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg21"" name=""jpeg21"" type=""file"" onchange=""fnameCopy(20)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment0"" /><br />" & _
		"22<input id=""jpeg22"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg22"" name=""jpeg22"" type=""file"" onchange=""fnameCopy(21)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment1"" /><br />" & _
		"23<input id=""jpeg23"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg23"" name=""jpeg23"" type=""file"" onchange=""fnameCopy(22)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment2"" /><br />" & _
		"24<input id=""jpeg24"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg24"" name=""jpeg24"" type=""file"" onchange=""fnameCopy(23)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment3"" /><br />" & _
		"25<input id=""jpeg25"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg35"" name=""jpeg25"" type=""file"" onchange=""fnameCopy(24)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment4"" /><br />" & _
		"26<input id=""jpeg26"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg26"" name=""jpeg26"" type=""file"" onchange=""fnameCopy(25)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment5"" /><br />" & _
		"27<input id=""jpeg27"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg27"" name=""jpeg27"" type=""file"" onchange=""fnameCopy(26)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment6"" /><br />" & _
		"28<input id=""jpeg28"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg28"" name=""jpeg28"" type=""file"" onchange=""fnameCopy(27)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment7"" /><br />" & _
		"29<input id=""jpeg29"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg29"" name=""jpeg29"" type=""file"" onchange=""fnameCopy(28)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment8"" /><br />" & _
		"30<input id=""jpeg30"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg30"" name=""jpeg30"" type=""file"" onchange=""fnameCopy(29)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment9"" /><br />" & _
		"31<input id=""jpeg31"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg31"" name=""jpeg31"" type=""file"" onchange=""fnameCopy(30)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment10"" /><br />" & _
		"32<input id=""jpeg32"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg32"" name=""jpeg32"" type=""file"" onchange=""fnameCopy(31)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment11"" /><br />" & _
		"33<input id=""jpeg33"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg33"" name=""jpeg33"" type=""file"" onchange=""fnameCopy(32)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment12"" /><br />" & _
		"34<input id=""jpeg34"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg34"" name=""jpeg34"" type=""file"" onchange=""fnameCopy(33)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment13"" /><br />" & _
		"35<input id=""jpeg35"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg35"" name=""jpeg35"" type=""file"" onchange=""fnameCopy(34)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment14"" /><br />" & _
		"36<input id=""jpeg36"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg36"" name=""jpeg36"" type=""file"" onchange=""fnameCopy(35)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment15"" /><br />" & _
		"37<input id=""jpeg37"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg37"" name=""jpeg37"" type=""file"" onchange=""fnameCopy(36)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment16"" /><br />" & _
		"38<input id=""jpeg38"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg38"" name=""jpeg38"" type=""file"" onchange=""fnameCopy(37)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment17"" /><br />" & _
		"39<input id=""jpeg39"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg39"" name=""jpeg39"" type=""file"" onchange=""fnameCopy(38)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment18"" /><br />" & _
		"40<input id=""jpeg40"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg40"" name=""jpeg40"" type=""file"" onchange=""fnameCopy(39)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment19"" /><br />" & _
		"41<input id=""jpeg41"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg41"" name=""jpeg41"" type=""file"" onchange=""fnameCopy(40)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment20"" /><br />" & _
		"42<input id=""jpeg42"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg42"" name=""jpeg42"" type=""file"" onchange=""fnameCopy(41)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment21"" /><br />" & _
		"43<input id=""jpeg43"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg43"" name=""jpeg43"" type=""file"" onchange=""fnameCopy(42)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment22"" /><br />" & _
		"44<input id=""jpeg44"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg44"" name=""jpeg44"" type=""file"" onchange=""fnameCopy(43)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment23"" /><br />" & _
		"45<input id=""jpeg45"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg45"" name=""jpeg45"" type=""file"" onchange=""fnameCopy(44)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment24"" /><br />" & _
		"46<input id=""jpeg46"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg46"" name=""jpeg46"" type=""file"" onchange=""fnameCopy(45)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment25"" /><br />" & _
		"47<input id=""jpeg47"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg47"" name=""jpeg47"" type=""file"" onchange=""fnameCopy(46)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment26"" /><br />" & _
		"48<input id=""jpeg48"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg48"" name=""jpeg48"" type=""file"" onchange=""fnameCopy(47)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment27"" /><br />" & _
		"49<input id=""jpeg49"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg49"" name=""jpeg49"" type=""file"" onchange=""fnameCopy(48)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment28"" /><br />" & _
		"50<input id=""jpeg50"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg50"" name=""jpeg50"" type=""file"" onchange=""fnameCopy(49)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment29"" /><br />" & _
		"51<input id=""jpeg51"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg51"" name=""jpeg51"" type=""file"" onchange=""fnameCopy(50)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment30"" /><br />" & _
		"52<input id=""jpeg52"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg52"" name=""jpeg52"" type=""file"" onchange=""fnameCopy(51)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment31"" /><br />" & _
		"53<input id=""jpeg53"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg53"" name=""jpeg53"" type=""file"" onchange=""fnameCopy(52)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment32"" /><br />" & _
		"54<input id=""jpeg54"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg54"" name=""jpeg54"" type=""file"" onchange=""fnameCopy(53)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment33"" /><br />" & _
		"55<input id=""jpeg55"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg55"" name=""jpeg55"" type=""file"" onchange=""fnameCopy(54)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment34"" /><br />" & _
		"56<input id=""jpeg56"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg56"" name=""jpeg56"" type=""file"" onchange=""fnameCopy(55)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment35"" /><br />" & _
		"57<input id=""jpeg57"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg57"" name=""jpeg57"" type=""file"" onchange=""fnameCopy(56)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment36"" /><br />" & _
		"58<input id=""jpeg58"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg58"" name=""jpeg58"" type=""file"" onchange=""fnameCopy(57)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment37"" /><br />" & _
		"59<input id=""jpeg59"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg59"" name=""jpeg59"" type=""file"" onchange=""fnameCopy(58)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment38"" /><br />" & _
		"60<input id=""jpeg60"" name=""jpeg1"" type=""text"" value="""" size=""50"" /><input id=""jpg60"" name=""jpeg60"" type=""file"" onchange=""fnameCopy(59)"" size=""1"" />  <input size=""90"" type=""text"" name=""coment39"" /></div>"

'修正項目選択フォーム
fm03 = "<h3>■ 修正項目選択   <span class=""small""><span class=""red"">サーバーからデータをダウンロードしています。表示には1~2秒かかります。</span></span></h3>" & _
		"                <select size=""11"" name=""indexSel"" id=""indexSel"" onchange=""selIndex()"">" & _
		"<option value=""0"">下記の項目を選択してください</option>" & _
		"<option value=""1"" id=""str1""></option>" & _
		"<option value=""2"" id=""str2""></option>" & _
		"<option value=""3"" id=""str3""></option>" & _
		"<option value=""4"" id=""str4""></option>" & _
		"<option value=""5"" id=""str5""></option>" & _
		"<option value=""6"" id=""str6""></option>" & _
		"<option value=""7"" id=""str7""></option>" & _
		"<option value=""8"" id=""str8""></option>" & _
		"<option value=""9"" id=""str9""></option>" & _
		"<option value=""10"" id=""str10""></option>" & _
		"</select>"


'-------------------------------------------------
'メインルーチン		実行/転送 ボタン
'-------------------------------------------------
Sub okClick(NO)

	Set WshShell = CreateObject("WScript.Shell")
	Call ftpdwnCreate()
	runFile  = sksPath & "\tool\sksdwn.bat"					'自動ダウンロード用バッチファイル
	Call WshShell.Run (runFile, , True)					'自動ダウンロード用バッチファイル起動

	fomlen = Document.forms("fm1").Length - 1
	ReDim fomData(fomlen)							'fomData配列の大きさ宣言
	For i=0 To fomlen
		Select Case i
			Case 22,26
				fomData(i) = Document.forms("fm1").item(i).checked
			Case Else
				fomData(i) = Document.forms("fm1").item(i).Value
		End Select
	Next

	NewDate1   = DateValue(fomData(3) & "/" & fomData(4) & "/" & fomData(5))	'Date1
	NewDateStr = Replace(CStr(NewDate1), "/", ".")					'Full年月日(yyyy.mm.dd)
	dateFol    = Mid(Replace(CStr(NewDate1), "/", ""), 3)				'2桁年月日(yymmdd)
	Week1      = WeekdayName(DatePart("w",NewDate1))				'水曜日
	Yobi1      = Mid(Week1,1,1)							'水(曜日1文字1)

	If fomData(8) > 0 Then
		NewDate2 = DateValue(fomData(6) & "/" & fomData(7) & "/" & fomData(8))	'Date2
		Week2    = WeekdayName(DatePart("w",NewDate2))				'水曜日
		Yobi2    = Mid(Week2,1,1)						'木(曜日1文字2)
		myDate2  = "~" & Day(NewDate2) & "(" & Yobi2 & ")"
		myDate22 = "~ " & Day(NewDate2) & "(" & Yobi2 & ")"
	Else
		myDate2  = ""
		myDate22 = ""
	End If
	myDateStr = newDateStr & "(" & Yobi1 & ")" & myDate2

	mountName = fomData(9)							'山名
	If fomData(10) = "" Then
		mountAlt = ""
	Else
		mountAlt = "(" & fomData(10) & "m)"				'標高
	End If
	If fomData(11) = "" Then
		walkDist = ""
	Else
		walkDist = fomData(11) & "km"					'距離
	End If
	Member   = fomData(12)							'参加人数
	writer	 = fomData(13)							'投稿者
	gpxPath  = fomData(14)							'GPXファイルPath(C:\Users\go\Desktop\new.gpx)
	gpxPath2 = "file:///" & Replace(gpxPath, "\", "/")
	offsethh = fomData(23)							'オフセット時
	offsetmm = fomData(24)							'オフセット分
	offsetss = fomData(25)							'オフセット秒
	myTitle  = newDateStr & "(" & Yobi1 & ")" & myDate22 & " " & mountName & mountAlt
	fomData(16) = Replace(fomData(16), vbCrLf, "<br />")
	myURL    = fomData(17)

	For Each i In document.getElementsByName("offset")
		If i.checked Then
			camOffset = i.value					'カメラオフセット
			Exit For
		End If
	Next

	offsetT = (offsethh)*3600 + (offsetmm)*60 + (offsetss)
	If camOffset = "o1" Then
		offsetT = (-1) * offsetT
	End If

	For i=0 To 19
		jpgData(i,0) = fomData(i*4+27)					'画像ファイルネーム
		If jpgData(i,0) <> "" Then
			jpgData(i,1) = objFso.GetFileName(jpgData(i,0))
			jpgData(i,1) = LCase(Replace(jpgData(i,1), " ", "-"))	'画像ファイルネーム
			jpgData(i,5) = fomData(i*4+29)				'画像タイトル
			jpgData(i,6) = fomData(i*4+30)				'画像コメント
			If (jpgData(i,5)<>"" And jpgData(i,6)<>"") Or (jpgData(i,5)="" And jpgData(i,6)="") Then
				jpgData(i,5) = jpgData(i,5) & " "
			End If
			If (caseNo Mod 10) = 1 Then
				jpgData(i,2) = funcExifTimeGet(jpgData(i,0), OffsetT)	'撮影時刻
				jpgData(i,8) = 100000000				'GPS軌跡時刻と撮影時刻との時間差初期値
			End If
		End If
	Next

	For i=20 To 59
		jpgData(i,0) = fomData(i*3+47)					'画像ファイルネーム
		If jpgData(i,0) <> "" Then
			jpgData(i,1) = objFso.GetFileName(jpgData(i,0))
			jpgData(i,1) = LCase(Replace(jpgData(i,1), " ", "-"))	'画像ファイルネーム
			jpgData(i,6) = fomData(i*3+49)				'画像コメント
			If jpgData(i,6) = "" Then
				jpgData(i,6) = " "
			End If
		End If
	Next

	jpgData(60,0) = fomData(18)
	jpgData(60,1) = Replace(objFso.GetFileName(jpgData(60,0)), "bmp", "gif")	'グラフ画像ネーム

	If caseNo < 20 Then
		dateFolder = fncFolderCheck(dateFol)				'同一日付フォルダチェック
	Else
		dateFolder = dateFol
	End If
	Call subSetNewFolder(dateFolder)					'日付フォルダ作成
	Call dataSave(NO)							'再作成時情報を"data.txt"に残す

	If NO = 2 Then								'[転送]ボタンならば・・・
		Call subJpgResize()						'画像リサイズ

		If (caseNo Mod 10) = 1 Then
			Call createEncodedPolyline()				'エンコードポリライン
			Call subMarkerCreate()					'marker.xml 作成

			gpxName = objFso.GetFileName(gpxPath)
			Call subFilCopy(gpxName, gpxPath)			'new.gpxファイルコピー

			F = Array( "index.html", "slide.html", "map.html", "kgmap.html" )
		Else
			F = Array( "index.html", "slide.html" )
		End If

		L = UBound(F)
		For i=0 To L							'Htmlファイル生成
			Call subHtmlCreate(F(i))
		Next

		Call subAddIndex()						'トップページに新着情報を追加する
		Call subAddHead()						'山行一覧ページに項目を追加する

		If caseNo < 20 Then
			Call ftpresvCreate(dateFolder)
			runFile = sksPath & "\tool\sksresv.bat"			'アップロード用ディレクトリ作成バッチファイル
			Call WshShell.Run (runFile, , True)			'アップロード用ディレクトリ作成バッチファイル起動
		End If

		Call ftpupCreate()						'[FTP]ファイル作成(アップロード)
		runFile = sksPath & "\tool\sksup.bat"				'自動アップロード用バッチファイル
		Call WshShell.Run (runFile, , True)				'自動アップロード用バッチファイル起動

		Call subFolCopy()						'日付フォルダコピー
		Call objFso.DeleteFolder (uplPath, true)			'[UPload] 削除
	End If

	MsgBox("完了!")
	If NO = 2 Then Window.Close()
End Sub


'-------------------------------------------------
'フォームチェンジ  (ケースでフォームを切り替える)
'-------------------------------------------------
Sub reWrite(num)

	caseNo = num
	Set WshShell = CreateObject("WScript.Shell")
	Select Case num
		case 11																	'[新規][GPSあり]選択
	 		Document.getElementById("inhtml").innerHTML = fm01	'GPSあり選択フォーム表示
			Call uplFolChk()
		case 12								'[新規][GPSなし]選択
		 	Document.getElementById("inhtml").innerHTML = fm02	'GPSなし選択フォーム表示
			Call uplFolChk()
		case 20								'[修正]選択
		 	Document.getElementById("inhtml").innerHTML = fm03	'修正項目選択フォーム表示
			Set WshShell = CreateObject("WScript.Shell")
			Call ftpdwnCreate()
			runFile  = sksPath & "\tool\sksdwn.bat"			'自動ダウンロード用バッチファイル
			Call WshShell.Run (runFile, , True)			'自動ダウンロード用バッチファイル起動
			Call loadIndex()
	End Select
End Sub


'-------------------------------------------------
'[UPload]フォルダ チェック
'-------------------------------------------------
Sub uplFolChk()

	If objFso.FolderExists(uplPath) = True Then				'UPload]が有ったら
		If objFso.FileExists(uplPath & "\data.txt") = True Then		'[data.txt]が有ったら
			Call dataCopy(uplPath & "\data.txt")			'data.txt の値からCopy
		Else																	'[data.txt]が無かったら
			Call subInit()
		End If
	Else
		Set objFolder  = objFso.GetFolder(sksPath)
		Set objsubFol  = objFolder.SubFolders
		objsubFol.Add ("UPload")					'[UPload]作成
		Call subInit()
	End If
End Sub


'-------------------------------------------------
'初期値設定
'-------------------------------------------------
Sub subInit()

Set WshShell = CreateObject("WScript.Shell")
	yy = Year(Date)-2013+1							'年のセレクト番号
	mm = Month(Date)
	dd = Day(Date)

	If objFso.FileExists(sksPath & "\reporter.txt") = True Then
		Set objtxIn = objFso.OpenTextFile(sksPath & "\reporter.txt")
		myDat1 = objtxIn.ReadLine()
'		myDat2 = objtxIn.ReadLine()
	End If
	Document.fm1.Year1.Options(yy).selected=True				'年初期値設定
	Document.fm1.Month1.Options(mm).selected=True				'月初期値設定
	Document.fm1.Day1.Options(dd).selected=True				'日初期値設定
	Document.fm1.Year2.Options(yy).selected=True				'年初期値設定
	Document.fm1.Month2.Options(mm).selected=True				'月初期値設定
	Document.fm1.writer.value = myDat1					'投稿者値設定
'	Document.fm1.myblog.value = myDat2					'myブログ設定
End Sub


'-------------------------------------------------
'参照ファイルネームコピー
'-------------------------------------------------
Sub fnameCopy(num)

	If num >=0 And num <= 19 Then
		Document.forms("fm1").item(num*4+27).Value = Document.forms("fm1").item(num*4+27+1).Value	'参照データを1個前のinputにコピー
		Document.getElementById("thumb" & num).innerHTML = "<img id=""pic"" src=""" & Document.forms("fm1").item(num*4+27).Value & """ width=""108"">"		'サムネイルにコピー
		Document.getElementById("imgName" & num).innerHTML = num+1					'ツールに表示するサムネイル用画像番号
	ElseIf num >= 20 And num < 60 Then
		Document.forms("fm1").item(num*3+47).Value = Document.forms("fm1").item(num*3+47+1).Value	'参照データを1個前のinputにコピー
		document.getElementById("thumb" & num).innerHTML = "<img id=""pic"" src=""" & Document.forms("fm1").item(num*3+47).Value & """ width=""108"">"	'サムネイルにコピー
		Document.getElementById("imgName" & num).innerHTML = num+1					'ツールに表示するサムネイル用画像番号
	ElseIf num > 100 Then
		Document.forms("fm1").item(num-100-1).Value = Document.forms("fm1").item(num-100).Value		'参照データを1個前のinputにコピー
	End If
End Sub


'-------------------------------------------------
'data.txt ファイルから前回のデータをコピー
'-------------------------------------------------
Sub dataCopy(fPath)

	dataFilePath = uplPath & "\data.txt"

	If objFso.FileExists(fPath) = True Then
		Set objtxIn = objFso.OpenTextFile(fPath)
		i=0
		Do Until objtxIn.AtEndOfStream = True
			myDat = objtxIn.ReadLine()
			Select Case i
				Case 16
					myDat = Replace(Replace(Replace(Replace(Replace(Replace(myDat, "<br />", vbCrLf), "</span>", "</>"), "<span class=""red"">", "<赤>"), "<span class=""blue"">", "<青>"), "<span class=""green"">", "<緑>"), "<span class=""futo"">", "<太>")
					Document.forms("fm1").item(i).Value = myDat
				Case 22,26
					Document.forms("fm1").item(i).checked = myDat			'カメラ時計の+-
				Case 27,31,35,39,43,47,51,55,59,63,67,71,75,79,83,87,91,95,99,103
					Document.forms("fm1").item(i).Value = myDat			'画像ファイル名
					If myDat <> "" Then 
						Document.getElementById("thumb" & (i-27)/4).innerHTML = "<img id=""pic"" src=""" & Document.forms("fm1").item(i).Value & """ width=""108"" height=""81"">"		'サムネイルにコピー
						Document.getElementById("imgName" & (i-27)/4).innerHTML = (i-27)/4+1	'ツールに表示するサムネイル用画像番号
					End If
				Case 107,110,113,116,119,122,125,128,131,134,137,140,143,146,149,152,155,158,161,164,167,170,173,176,179,182,185,188,191,194,197,200,203,206,209,212,215,218,221,224
					Document.forms("fm1").item(i).Value = myDat			'画像ファイル名
					If myDat <> "" Then 
						Document.getElementById("thumb" & (i-107)/3+20).innerHTML = "<img id=""pic"" src=""" & Document.forms("fm1").item(i).Value & """ width=""108"" height=""81"">"		'サムネイルにコピー
						Document.getElementById("imgName" & (i-107)/3+20).innerHTML = (i-107)/3+21	'ツールに表示するサムネイル用画像番号
					End If
				Case Else
					Document.forms("fm1").item(i).Value = myDat			'その他の場合
			End Select
			i = i+1
		Loop
		objtxIn.Close()
	End If
End Sub


'-------------------------------------------------
'Indexデータ読込
'-------------------------------------------------
Sub loadIndex()

	motoFile = repPath & "\index.html"					'[report]indexファイルのPath
	Set objTxIn = objFso.OpenTextFile(motoFile)				'Indexファイルをテキストとして開く
	txIn = objTxIn.ReadAll()						'全文読み込み

	With CreateObject("ADODB.Stream")
		.Charset = "UTF-8"
		.Open
		.LoadFromFile(motoFile)
		txIn = .ReadText
		.Close
	End With

	Set reg = New RegExp							'正規表現を使えるようにする
	reg.Global = True							'全行検索On
	reg.Pattern = "(<tr>(<td.+</td>)(<td>.+</td>)(<td.+</td>)(<td.+</td>)(<td.+</td>)(<td.+</td>)(<td.+</td>)</tr>)"
	Set mc = reg.Execute(txIn)						'index.htmlからタイトルを抜き出しマッチーズに格納
	For i=0 To 9								'10個格納
		Set m = mc(i)
		inxData(i,0) = m.SubMatches(0)																									'1項目全体
		inxData(i,1) = Replace(Replace(m.SubMatches(1), "<td>", ""), "</td>", "")														'山行日
		Temp         = Replace(Replace(m.SubMatches(2), "<td><a href=""", ""), "</a></td>", "")
		reg.Pattern = "\d{6}.+"">"
		inxData(i,2) = reg.Replace(Temp, "")																							'山名
		reg.Pattern = "/index.+"
		inxData(i,3) = reg.Replace(Temp, "")																							'日付フォルダ名
		inxData(i,4) = Replace(Replace(m.SubMatches(3), "<td style=""text-align : center;"" align=""center"">", ""), "</td>", "")		'Map
		inxData(i,5) = Replace(Replace(m.SubMatches(7), "<td style=""text-align : center;"" align=""center"">", ""), "</td>", "")		'投稿者
		Document.getElementById("str" & i+1).innerHTML = inxData(i,1) & " " & inxData(i,2)	'セレクト・オプション項目として書き出す
	Next
End Sub


'-------------------------------------------------
'Index項目セレクト
'-------------------------------------------------
Sub selIndex()

	sel = CInt(fm1.indexSel.value) - 1					'セレクト番号をインテジャーに変換
	selNum = sel

	If inxData(sel,4) = "" Then						'項目[Map]が空だったら
		caseNo = 22
	 	Document.getElementById("inhtml").innerHTML = fm02		'GPSなしフォーム表示
	Else
		caseNo = 21
	 	Document.getElementById("inhtml").innerHTML = fm01		'GPSありフォーム表示
	End If

	fPath = repPath & "\" & inxData(sel,3) & "\data.txt"			'日付フォルダー内data.txt設定
	Call dataCopy(fPath)
End Sub


'-------------------------------------------------
'同一日付フォルダチェック
'-------------------------------------------------
Function fncFolderCheck(dateFol)

	Set objTxIn   = objFso.OpenTextFile(sksPath & "\fol.txt")		'サーバーからダウンロードしたフォルダ名一覧のPath
	txIn = objTxIn.ReadAll()						'txIn に全行読み込み
	i = 2
	Do
		testStr = dateFol						'検索文字列指定(日付の文字列 140105 など)
		If InStr(txIn, testStr) > 0 Then				'同じ日付の文字列があったら・・・
			dateFol = Mid(dateFol,1,6) & "-" & i			'フォルダ名に「-2」などと枝番号を付ける
			i = i+1
		Else
			Exit Do																'無かったらループを抜け出す(つまり最後にチェックした枝番がフォルダ名になる)
		End If
	Loop
	fncFolderCheck = dateFol						'チェック結果を返す
End Function


'-------------------------------------------------
'日付フォルダ作成
'-------------------------------------------------
Sub subSetNewFolder(Fol)

	Set objFolder  = objFso.GetFolder(sksPath)				'C:\Users\Owner\Documents\HomePage\SKSanko
	Set objsubFol  = objFolder.SubFolders
	If objFso.FolderExists(uplPath) = True Then
		Call objFso.DeleteFolder(uplPath, True)				'[UPload]が有ったら削除
	End If
	objsubFol.Add ("UPload")						'C:\Users\Owner\Documents\HomePage\SKSanko\UPload

	Set objFolder = objFso.GetFolder(uplPath)				'C:\Users\Owner\Documents\HomePage\SKSanko\UPload
	Set objsubFol = objFolder.SubFolders
	objsubFol.Add ("report")						'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report
	Set objFolder  = objFso.GetFolder(uplPath & "\report")			'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report
	Set objsubFol  = objFolder.SubFolders
	objsubFol.Add (Fol)							'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000
	Set objFolder  = objFso.GetFolder(uplPath & "\report\" & Fol)		'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000
	Set objsubFol  = objFolder.SubFolders
	objsubFol.Add ("album")							'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000\album
	objsubFol.Add ("slide")							'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000\slide
	objsubFol.Add ("thumb")							'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\000000\thumb
End Sub


'--------------------------------------------
'function 項目カウント
'--------------------------------------------
Function funcCuntHead(File, Str)

	With CreateObject("ADODB.Stream")
		.Charset = "UTF-8"
		.Open
		.LoadFromFile(File)
		txIn = .ReadText
		.Close
	End With

	n = 0
	l = 0
	Do 	
		l = InStr( l+1, txIn, Str)
		If l=0 Then Exit Do
		n = n+1
	Loop

	funcCuntHead = n

End Function


'----------------------------------------------------------------
'index.htmlファイル項目追加	index.html
'----------------------------------------------------------------
Sub subAddIndex()

	motoFile = sksPath & "\index.html"
	shinFile = uplPath & "\index.html"

	With CreateObject("ADODB.Stream")
		.Charset = "UTF-8"
		.Open
		.LoadFromFile(motoFile)
		txIn = .ReadText
		.Close
	End With
	txOut = txIn

	Set reg = New RegExp
	reg.Global = True

	If caseNo < 20 Then
		OldStr = "<dl>"
		NewStr = "<dl>" & vbCrLf & String(7, vbTab) & "<dt>" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日</dt><dd>山行記録に<a href=""report/" & dateFolder & "/index.html"">「" & mountName & "」</a>を追加しました。</dd>"
		txOut = Replace(txOut, OldStr, NewStr)
	Else
		reg.Pattern = "<dt>.+?</dt><dd>.+" & inxData(selNum,3) & ".+?</dd>"
		NewStr = "<dt>" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日</dt><dd>山行記録に<a href=""report/" & dateFolder & "/index.html"">「" & mountName & "」</a>を追加しました。</dd>"
		txOut = reg.Replace(txOut, NewStr)
	End If

	OldStr = ""
	reg.Pattern = "\s+<dt>.+</dd>\r\n"
	Set mc = reg.Execute(txOut)
	n = 0
	For Each m in mc
		n = n+1
		If n > 8 Then OldStr = OldStr & m.Value
	Next
	txOut = Replace(txOut, OldStr, "")

	Call WriteUTF8(txOut, shinFile)
End Sub


'----------------------------------------------------------------
'[report] index.htmlファイル項目追加	index.html
'----------------------------------------------------------------
Sub subAddHead()

	motoFile = repPath & "\index.html"
	shinFile = uplPath & "\report\index.html"

	walkTime = Int(walkSecond/3600) & ":" & Int((walkSecond Mod 3600)/60)

	With CreateObject("ADODB.Stream")
		.Charset = "UTF-8"
		.Open
		.LoadFromFile(motoFile)
		txIn = .ReadText
		.Close
	End With
	txOut = txIn

	mySp = "							"
	If caseNo = 11 Then
		OldStr = "align=""center"">投稿</th></tr>" & vbCrLf
		NewStr = "align=""center"">投稿</th></tr>" & vbCrLf & _
			mySp & "<tr><td>" & myDateStr & "</td><td><a href=""" & dateFolder & "/index.html"">" & mountName & mountAlt & "</a></td><td style=""text-align : center;"" align=""center""><a href=""" & dateFolder & "/map.html"">Map</a></td><td style=""text-align : right;"" align=""right"">" & walkDist & "</td><td style=""text-align : right;"" align=""right"">" & walkTime & "</td><td style=""text-align : center;"" align=""center"">" & Member & "人</td><td style=""text-align : center;"" align=""center"">" & writer & "</td></tr>" & vbCrLf
	ElseIf caseNo = 12 Then
		OldStr = "align=""center"">投稿</th></tr>" & vbCrLf
		NewStr = "align=""center"">投稿</th></tr>" & vbCrLf & _
			mySp & "<tr><td>" & myDateStr & "</td><td><a href=""" & dateFolder & "/index.html"">" & mountName & mountAlt & "</a></td><td style=""text-align : center;"" align=""center""></td><td style=""text-align : right;"" align=""right""></td><td style=""text-align : right;"" align=""right""></td><td style=""text-align : center;"" align=""center"">" & Member & "人</td><td style=""text-align : center;"" align=""center"">" & writer & "</td></tr>" & vbCrLf
	ElseIf  caseNo = 21 Then
		OldStr = inxData(selNum,0)
		NewStr = "<tr><td>" & myDateStr & "</td><td><a href=""" & dateFolder & "/index.html"">" & mountName & mountAlt & "</a></td><td style=""text-align : center;"" align=""center""><a href=""" & dateFolder & "/map.html"">Map</a></td><td style=""text-align : right;"" align=""right"">" & walkDist & "</td><td style=""text-align : right;"" align=""right"">" & walkTime & "</td><td style=""text-align : center;"" align=""center"">" & Member & "人</td><td style=""text-align : center;"" align=""center"">" & writer & "</td></tr>"
	ElseIf  caseNo = 22 Then
		OldStr = inxData(selNum,0)
		NewStr = "<tr><td>" & myDateStr & "</td><td><a href=""" & dateFolder & "/index.html"">" & mountName & mountAlt & "</a></td><td style=""text-align : center;"" align=""center""></td><td style=""text-align : right;"" align=""right""></td><td style=""text-align : right;"" align=""right""></td><td style=""text-align : center;"" align=""center"">" & Member & "人</td><td style=""text-align : center;"" align=""center"">" & writer & "</td></tr>" & vbCrLf
	End If
	txOut = Replace(txOut, OldStr, NewStr)

	Call WriteUTF8(txOut, shinFile)
End Sub


'----------------------------------------------------------------
'htmlファイル生成	slide.html index.html
'----------------------------------------------------------------
Sub subHtmlCreate(fName)

	motoFile = tmpPath & "\" & fName
	shinFile = uplPath & "\report\" & dateFolder & "\" & fName

	With CreateObject("ADODB.Stream")
		.Charset = "UTF-8"
		.Open
		.LoadFromFile(motoFile)
		txIn = .ReadText
		.Close
	End With
	txOut = txIn

	Kiji = Replace(Replace(Replace(Replace(Replace(Replace(fomData(16), "<赤>", "<span class=""red"">"), "<青>", "<span class=""blue"">"), "<緑>", "<span class=""green"">"), "<太>", "<span class=""futo"">"), "</>", "</span>"), "</>", "</span>")
	mySp = "					"
	If myURL <>"" Then
		myBlog = vbCrLf & mySp & "<p>詳しい記事はこちらをご覧ください。<br /><a href=""" & myURL & """>" & myURL & "</a></p>"
	End If

	imgFol = uplPath & "\report\" & dateFolder & "\album"			'C:\Users\Owner\Documents\HomePage\SKSanko\UPload\report\yymmdd\album
	Set objFolder  = objFso.GetFolder(imgFol)
	Set colFiles   = objFolder.Files					'[album]フォルダ内ファイルコレクション

	Select Case fName
		Case "index.html"
			mySlide = ""
			j=0
			For Each objFile in colFiles
				For i=0 To 59
					If objFile.Name = jpgData(i,1) Then
						If j = 0 Then
							mySlide = mySlide & mySp & "<tr>"
						End If

						mySlide = mySlide & "<td><a href=""slide/" & jpgData(i,1) & """ rel=""lightbox[1]"" title=""" & jpgData(i,5) & jpgData(i,6) & """><img src=""slide/" & jpgData(i,1) & """ width=""160"" height=""120"" border=""0"" /></a></td>"
						j = j + 1

						If j = 4 Then
							mySlide = mySlide & "</tr>" & vbCrLf
							j = 0
						ENd If
						Exit For												'画像が重複している場合、最初の画像を採用してループから抜け出す
					End If
				Next
			Next
			If j>0 Then mySlide = mySlide & "</tr>"
			txOut = Replace(txOut, "ssssssss", mySlide)		'スライドStr
			txOut = Replace(txOut, vbCrLf & vbCrLf, vbCrLf)

		Case "slide.html"
			mySlide = ""
			j=0
			For Each objFile in colFiles
				For i=0 To 59
					If objFile.Name = jpgData(i,1) Then
						mySlide = mySlide & j & ": {'thumb': 'thumb/" & jpgData(i,1) & "', 'main': 'album/" & jpgData(i,1) & "', 'caption': '" & jpgData(i,5) & jpgData(i,6) & "'}," & vbCrLf
						Exit For												'画像が重複している場合、最初の画像を採用してループから抜け出す
					End If
				Next
				j=j+1
			Next
			Pos = InStrRev(mySlide, ",") - 1
			mySlide = Left(mySlide, Pos)
			txOut = Replace(txOut, "ssssssss", mySlide)		'スライドStr
	End Select

	txOut = Replace(txOut, "aaaaaa", fomData(9))				'タイトル
	txOut = Replace(txOut, "dddddd", myDateStr)				'日付(曜日)
	txOut = Replace(txOut, "ffffff", dateFolder)				'画像フォルダー
	txOut = Replace(txOut, "yyyyyy", Left(Date(),4))			'Copyright年
	txOut = Replace(txOut, "bbbbbb", fomData(9))				'description
	txOut = Replace(txOut, "cccccc", fomData(9))				'keyword
	txOut = Replace(txOut, "hhhhhh", mountAlt)				'標高
	txOut = Replace(txOut, "tttttt", myTitle)				'日付(曜日)タイトル
	txOut = Replace(txOut, "kkkkkk", Kiji)					'紹介記事
	txOut = Replace(txOut, "myBlog", myBlog)				'ブログURL
	txOut = Replace(txOut, "yymmdd", dateFolder)				'フォルダ名
	txOut = Replace(txOut, "gggggg", jpgData(60,1))				'グラフ画像
	txOut = Replace(txOut, "hhhmmm", walkTime)				'所要時間
	txOut = Replace(txOut, "minlat", minN)					'エンコード Bounds
	txOut = Replace(txOut, "minlng", minE)					'エンコード Bounds
	txOut = Replace(txOut, "maxlat", maxN)					'エンコード Bounds
	txOut = Replace(txOut, "maxlng", maxE)					'エンコード Bounds
	txOut = Replace(txOut, "pppppppppp", gpolylinepoints)			'エンコードポリライン
	If (caseNo Mod 10) = 2 Then
		txOut = Replace(txOut, "							<a href=""map.html""><img src=""../../img/map.png"" width=""80"" height=""28"" border=""0"" align=""right"" /></a>", "")
	End If

	Call WriteUTF8(txOut, shinFile)
End Sub


'-------------------------------------------------
'マーカー・ファイル生成			marker.xml
'-------------------------------------------------
Sub subMarkerCreate()

	shinFile = uplPath & "\report\" & dateFolder & "\marker.xml"		'xmlファイル

	Str0 =  "<?xml version=""1.0"" encoding=""UTF-8"" ?>" & vbCrLf & vbCrLf & _
		"<points>" & vbCrLf
	txOut = ""

	txOut = txOut & Str0
	For j=0 To 19
		If jpgData(j,1) <> "" Then
			myDate = DateAdd("s", 30,  jpgData(j,2))
			myTime = DatePart("h", myDate) & ":" & Right("0" & DatePart("n", myDate), 2)
			txOut = txOut & String(1, vbTab) & "<point>" & vbCrLf
			txOut = txOut & String(2, vbTab) & "<lat>" & Replace(jpgData(j,3), " ", "</lat><lng>") & "</lng>" & vbCrLf
			txOut = txOut & String(2, vbTab) & "<title>" & myTime & " " & jpgData(j,5) & "</title>" & vbCrLf
			txOut = txOut & String(2, vbTab) & "<description>標高=" & Round(jpgData(j,4), 0) & "m  " & jpgData(j,6) & "</description>" & vbCrLf
			txOut = txOut & String(2, vbTab) & "<image>slide/" & jpgData(j,1) & "</image>" & vbCrLf
			txOut = txOut & String(1, vbTab) & "</point>" & vbCrLf
		End If
	Next
	txOut = txOut & "</points>" & vbCrLf

	Call WriteUTF8(txOut, shinFile)
End Sub


'--------------------------------------------
'function funcExifTimeGet Exifタイム取得
'--------------------------------------------
Function funcExifTimeGet(Filname, Offset)

	Dim jpgFil, i, j, binDate(9), binTime(7), binData(19)
	Dim byt, jpgTimeStr

	set jpgFil = CreateObject("ADODB.Stream")
	jpgFil.Open
	jpgFil.Type = 1
	jpgFil.LoadFromFile(Filname)

	Flag = 0
	i = 0
	Do
		i = i + 1
		byt = jpgFil.Read(1)
		Select Case i
			Case 1,2,3,4,6,7,9,10,12,13,15,16,18,19
				If AscB(midb(byt,1))=>48 And AscB(midb(byt,1))=<57 Then
					binData(i) = Chr(AscB(midb(byt,1)))
				Else
					i = 0
				End If
			Case 5,8,14,17
				If Chr(AscB(midb(byt,1)))=":" Then
					binData(i) = Chr(AscB(midb(byt,1)))
				Else
					i = 0
				End If
			Case 11
				If Chr(AscB(midb(byt,1)))=" " Then
					binData(i) = Chr(AscB(midb(byt,1)))
				Else
					i = 0
				End If
		End Select
		If Flag=0 And i=19 Then
			i = 0
			Flag = 1
		ElseIf Flag=1 And i=19 Then
			Exit Do
		End If
	Loop
	jpgFil.Close

	jpgDateStr = ""
	For i=1 To 19
		If i<10 And binData(i) = ":" Then
			binData(i) = "/"
		End If
		jpgDateStr = jpgDateStr & binData(i)
	Next

	jpgDate = DateAdd("s", Offset, CDate(jpgDateStr))
	funcExifTimeGet = CStr(jpgDate)
End Function


'--------------------------------------------
'JPEG画像リサイズ  xxxxxx.jpg
'--------------------------------------------
Sub subJpgResize()

	Set WshShell = CreateObject("WScript.Shell")
	exeFile  = sksPath & "\tool\photoshifter\photoshifter.exe"
	setFile1 = sksPath & "\tool\photoshifter\mysetting1.xml"
	setFile2 = sksPath & "\tool\photoshifter\mysetting2.xml"
	setFile3 = sksPath & "\tool\photoshifter\mysetting3.xml"
	setFile4 = sksPath & "\tool\photoshifter\mysetting4.xml"
	outPath0 = uplPath & "\report\" & dateFolder & "\"
	outPath1 = uplPath & "\report\" & dateFolder & "\album\"
	outPath2 = uplPath & "\report\" & dateFolder & "\thumb\"
	outPath3 = uplPath & "\report\" & dateFolder & "\slide\"

	For i=0 To 60
		If jpgData(i,0) <> "" Then
			If i < 60 Then
				copyFileStr  = exeFile & " /overwrite /par " & setFile1 & " /format JPEG /file " & """" & jpgData(i,0) & """ " & outPath1 & jpgData(i,1)
				Call WshShell.Run (copyFileStr,,True)
				copyFileStr  = exeFile & " /overwrite /par " & setFile2 & " /format JPEG /file " & """" & jpgData(i,0) & """ " & outPath2 & jpgData(i,1)
				Call WshShell.Run (copyFileStr,,True)
				copyFileStr  = exeFile & " /overwrite /par " & setFile3 & " /format JPEG /file " & """" & jpgData(i,0) & """ " & outPath3 & jpgData(i,1)
				Call WshShell.Run (copyFileStr,,True)
			Else
				copyFileStr  = exeFile & " /overwrite /par " & setFile4 & " /format GIF /file " & """" & jpgData(60,0) & """ " & outPath0 & jpgData(60,1)
				Call WshShell.Run (copyFileStr,,True)
			End If
		End If
	Next
	Set WshShell = Nothing
End Sub


'--------------------------------------------
'UTF8で書込む
'--------------------------------------------
Sub WriteUTF8(text, fileName)

	tmpFile = fileName & ".tmp"

	' UTF-8で書きこむと自動的にBOM(Byte Order Mark)が、先頭に3バイト付加されてしまう。
	' それを回避するため、一旦一時ファイルにUTF-8形式で書き込む
	With CreateObject("ADODB.Stream")
		.Type = 2
		.charset = "UTF-8"
		.Open
		.WriteText text
		.SaveToFile tmpFile, 2
		.Close
	End With

	' 一時ファイルをバイナリで読み取る
	With CreateObject("ADODB.Stream")
		.Type = 1
		.Open
		.LoadFromFile(tmpFile)						'一時ファイルをバイナリで読み取る
		.Position = 3							'BOMの3バイトを読み飛ばす
					
		'4バイト目から出力ファイルにバイナリで書き込む
		Dim ws : Set ws = CreateObject("ADODB.Stream")
		ws.Type = 1
		ws.Open
		ws.Write(.Read(-1))
		ws.SaveToFile fileName, 2
		ws.Close
		.Close
	End With

	' 一時ファイルの削除
	Call CreateObject("Scripting.FileSystemObject").DeleteFile(tmpFile)
End Sub


'--------------------------------------------
'data.txt 書き出し			data.txt
'--------------------------------------------
Sub dataSave(num)								'再作成時情報を"data.txt"に残す

	If num=1 Then								'[データ保存]の場合
		Path = uplPath & "\data.txt"
	ElseIf num=2 Then							'[制作/転送]の場合
		Path = uplPath & "\report\" & dateFolder & "\data.txt"
	End If

	Set objTxOut = objFso.CreateTextFile(Path)

	txOut = ""
	fomlen = Document.forms("fm1").Length - 1
	For i=0 To fomlen
		txOut = txOut & fomData(i) & vbCrLf
	Next
	objTxOut.Write(txOut)
	objTxOut.Close()

	Path = sksPath & "\reporter.txt"
	Set objTxOut= objFso.CreateTextFile(Path, True)
	txOut = writer & vbCrLf
	txOut = txOut & myURL & vbCrLf

	objTxOut.Write(txOut)
	objTxOut.Close()
End Sub


'--------------------------------------------
'ファイル コピー	[gmap.htm map.html new.gpx]
'--------------------------------------------
Sub subFilCopy(fname, fPath)
	motoFile = fPath
	sakiFile = uplPath & "\report\" & dateFolder & "\" & fName
	Call objFso.CopyFile(motoFile, sakiFile, True)				'ファイルを[UPload]にコピー
End Sub


'--------------------------------------------
'Dateフォルダ コピー	[yymmdd]
'--------------------------------------------
Sub subFolCopy()
	motoFol = uplPath & "\report\" & dateFolder
	sakiFol = repPath & "\" & dateFolder
	Call objFso.CopyFolder(motoFol, sakiFol, True)				'UPload 内の Dateフォルダを[report]にコピー
End Sub


'--------------------------------------------
'ダウンロード用FTPファイル作成	sksdwn.ftp
'--------------------------------------------
Sub ftpdwnCreate()								'ftpdwn.txt 作成

	Path = sksPath & "\tool\sksdwn.ftp"
	Set objTxIn = objFso.OpenTextFile(sksPath & "\pwd.txt")			'pwdファイルを開く
	Set objTxOut= objFso.CreateTextFile(Path, True)

	txOut = objTxIn.ReadAll()						'pwdファイルを読込む
	txOut = txOut & "ascii" & vbCrLf
	txOut = txOut & "ls /home/sksanko/www/report/ " & sksPath & "\fol.txt" & vbCrLf
	txOut = txOut & "get /home/sksanko/www/index.html " & sksPath & "\index.html" & vbCrLf
	txOut = txOut & "get /home/sksanko/www/report/index.html " & sksPath & "\report\index.html" & vbCrLf
	txOut = txOut & "close" & vbCrLf
	txOut = txOut & "bye" & vbCrLf

	objTxOut.Write(txOut)							'[FTP]ファイル書き込み
	objTxOut.Close()
End Sub


'--------------------------------------------
'転送予約用FTPファイル作成	sksresv.ftp
'--------------------------------------------
Sub ftpresvCreate(fol)								'ftpresv.txt 作成

	Path = sksPath & "\tool\sksresv.ftp"
	Set objTxIn = objFso.OpenTextFile(sksPath & "\pwd.txt")			'pwdファイルを開く
	Set objTxOut= objFso.CreateTextFile(Path, True)

	txOut = objTxIn.ReadAll()						'pwdファイルを読込む
	txOut = txOut & "cd /home/sksanko/www/report/" & vbCrLf
	txOut = txOut & "mkdir " & fol & vbCrLf
	txOut = txOut & "cd /home/sksanko/www/report/" & fol & "/" & vbCrLf
	txOut = txOut & "mkdir album" & vbCrLf
	txOut = txOut & "mkdir slide" & vbCrLf
	txOut = txOut & "mkdir thumb" & vbCrLf
	txOut = txOut & "close" & vbCrLf
	txOut = txOut & "bye" & vbCrLf

	objTxOut.Write(txOut)							'[FTP]ファイル書き込み
	objTxOut.Close()
End Sub


'--------------------------------------------
'アップロード用FTPファイル作成	sksup.ftp
'--------------------------------------------
Sub ftpupCreate()

	ftpStr1 = ""
	ftpStr2 = ""
	Call prcFolder(uplPath)							'[FTP]ファイル作成(ftpup1.txt)

	Path = sksPath & "\tool\sksup.ftp"
	Set objTxIn = objFso.OpenTextFile(sksPath & "\pwd.txt")			'pwdファイルを開く
	Set objTxOut= objFso.CreateTextFile(Path, True)

	txOut = objTxIn.ReadAll()						'pwdファイルを読込む
	txOut = txOut & "ascii" & vbCrLf
	txOut = txOut & ftpStr1 & vbCrLf
	txOut = txOut & "binary" & vbCrLf
	txOut = txOut & ftpStr2 & vbCrLf
	txOut = txOut & "close" & vbCrLf
	txOut = txOut & "bye" & vbCrLf

	objTxOut.Write(txOut)							'[FTP]ファイル書き込み
	objTxOut.Close()
End Sub


'--------------------------------------------
'[UPload]フォルダ内の全ファイルを検索(再帰処理)
'--------------------------------------------
Sub prcFolder(fol)								'下層フォルダも全部検索するには再帰処理が便利です
	Set f = objFso.GetFolder(fol)						'C:\Users\Owner\Documents\HomePage\SKSanko\UPload
	For Each temp In f.Files						'ファイルが見つかったら変換処理
		Set reg = New RegExp						'正規表現を使えるようにする
		reg.Global = True						'全行検索

		reg.Pattern = "\.html|\.htm|\.xml|\.txt|\.gpx|\.js"
		If reg.Test(temp.Path) Then					'.htmlなどを含んでいたら・・・
			reg.Pattern = "\\"
			str1 = reg.Replace(temp.Path, "/")			'"\" を "/" に変換
			str2 = reg.Replace(sksPath, "/")			'"\" を "/" に変換
			reg.Pattern = str2 + "/UPload"				'XXX
			str1 = reg.Replace(str1, "/home/sksanko/www")		'上記XXXを"/homepage"に変換
			ftpStr1 = ftpStr1 & "put " & temp.Path & "  " & str1 & vbCrLf		'ascii用put 文字列作成(html)
		End If
		reg.Pattern = "\.jpg|\.gif"
		If reg.Test(temp.Path) Then					'.jpg を含んでいたら・・・
			reg.Pattern = "\\"
			str1 = reg.Replace(temp.Path, "/")			'"\" を "/" に変換
			str2 = reg.Replace(sksPath, "/")			'"\" を "/" に変換
			reg.Pattern = str2 + "/UPload"				'XXX
			str1 = reg.Replace(str1, "/home/sksanko/www")		'上記XXXを"/homepage"に変換
			ftpStr2 = ftpStr2 & "put " & temp.Path & "  " & str1 & vbCrLf		'binary用put 文字列作成(jpg)
		End If
	Next
   	For Each temp2 In f.SubFolders
       	If objFso.FolderExists(temp2) Then					'サブフォルダが見つかったら再帰処理
			call prcFolder(temp2)					'再帰処理(自分自身を呼び出す)
		End If
	Next
End Sub

</script>


<script language="Javascript">

//--------------------------------------------
//EncodedPolyline作成
//--------------------------------------------

function createEncodedPolyline(){
	var buff = [];
	var encodedPath;
	var dateStr, timeStr, jst, jpgTime, gpsTime, sTime, eTime;

	for (var j = 0; j < 20; j++) {
		if (jpgData(j,0) != "") {
			dateStr = gpsDate2dateStr(jpgData(j,2));
			timeStr = gpsTime2timeStr(jpgData(j,2));
			jst     = dateTimeStr2dateJST(dateStr,timeStr);
			jpgData(j,7) = jst;
		}
	}

	//GPXのデータを取得する
	$.get(gpxPath2, function(xml){
		var gpx = $("trkpt", xml);

		//受け取った結果から緯度経度データを取り出し、配列に格納
		var trkpt, lat, lng, i, j, latLng, ele, utc, diffTime;

		for (i = 0; i < gpx.length; i++) {
			//<trkpt lat="yyy" lng="xxx">からyyy,xxxを取り出す
			lat = $(gpx[i]).attr("lat");
			lng = $(gpx[i]).attr("lon");
			ele = $(gpx[i]).find("ele").text();
			utc = $(gpx[i]).find("time").text();
			utc = utc.replace(/-/g, "/");

			dateStr = gpsDate2dateStr(utc);
			timeStr = gpsTime2timeStr(utc);
			jst     = dateTimeStr2dateJST(dateStr,timeStr);
			gpsTime = jst.getTime() + 32400000;				//JSTに変換するため9時間プラス

			for (j = 0; j < 20; j++) {
				if (jpgData(j,0) != "") {
					diffTime = Math.abs(gpsTime - jpgData(j,7));
					if (jpgData(j,8) > diffTime) {
						jpgData(j,8) = diffTime;
						jpgData(j,3) = lat + " " + lng;
						jpgData(j,4) = ele;
					}
				}
			}

			//GPS軌跡の範囲を取得(南西の角から北東の角の緯度経度取得)
			lat = +lat;							//文字列を数値に変換
			lng = +lng;							//文字列を数値に変換
			maxE = (maxE < lng) ? lng : maxE;
			minE = (minE > lng) ? lng : minE; 
			maxN = (maxN < lat) ? lat : maxN;
			minN = (minN > lat) ? lat : minN;

			if (i == 10) {
				sTime = gpsTime / 1000;					//Start時間(最初の10ポイントは準備中として捨てる)
			}
			if (i == gpx.length - 2){
				eTime = gpsTime / 1000;					//End時間(最後の1ポイントは捨てる)
			}

			//latLngを作成
			buff.push( new google.maps.LatLng(lat, lng) );
		}
		encodedPath = google.maps.geometry.encoding.encodePath(buff);
	});
	gpolylinepoints = encodedPath.replace(/\\/g, "\\\\");
	walkSecond = eTime - sTime;							//行動時間(End時間 - Start時間)
}

// 日付形式を書き換える DDMMYY形式 (例)1994年11月19日 → [NMEA]191194 → [dateStr] "1994/11/19"
function gpsDate2dateStr(s){
    var yy = s.substr(0,4);
    var mm = s.substr(5,2);
    var dd = s.substr(8,2);
    return (yy + '/' + mm + '/' + dd);
}

// 時刻形式を書き換える hhmmss形式 (例)22:54:46 → [NMEA] 225446.000 → [timeStr] "22:54:46"   (例)8:54:46 → [NMEA] 85446.000 → [timeStr] " 8:54:46"
function gpsTime2timeStr(s){
	var pos = s.indexOf(":");
	var hh = s.substr(pos-2, 2);
	var mm = s.substr(pos+1, 2);
	var ss = s.substr(pos+4, 2);
    return (hh + ':' + mm + ':' + ss);
}

function dateTimeStr2dateJST(dateStr,timeStr){
    var d = new Date(dateStr + ' ' + timeStr);
    return d;
}

</script>

'表示用CSS
<style type="text/css">
body		{ font-size: 16px;}
#offsetTable{ margin-top:0; margin-left:100px;}
#imgTable	{ margin-top:0; margin-left:15px;}
.red		{ color:#ff0000;}
.small		{ font-size:12px;}
.large		{ font-size:20px; font-weight:bold;}
.largest	{ font-size:30px; font-weight:bold;}
dl		{ margin: 0;}
dt		{ margin: 0;	width: 130px;	float: left;	text-align: left;}
dd		{ margin: 0;	padding-left: 170px;	text-align: left;}
</style>


</head>
<body style="background-color:#eff8ef;">
<h2>ホームページ「清水北山好会」に新規ページを追加します</h2>

<h3>■ 使い方</h3>
<ol>
  <li>紹介記事の文とデジカメ画像を準備してください。画像は最大60枚です。(横位置専用です。縦位置の画像はダメです)</li>
  <li>GPSデータはカシミールなどで[GPX]形式(new.gpxなど)で書き出しておいてください。</li>
  <li>作業を中断する場合は[データ保存]ボタンを押して Data を保存して下さい。再開すればデータを自動読み込みします。</li>
  <li><span><font color="#ff0000"><b>ダウンロード / アップロード は自動</b></font>で行います。</li>
</ol>
<p> </p>
<form id="fm1" name="fm1">
<table border="1">
	<tbody>
		<tr>
			<td width="500" align="center"> <br>新 規<br> <br><input type="button" value="[GPS あり]" onclick="reWrite(11)" class="large" />   <input type="button" value="[GPS なし]" onclick="reWrite(12)" class="large" /><br> <br><span class="small">新規に作成してアップします</span></td>
			<td width="500" align="center"> <br>修 正<br> <br><input type="button" value="[修正する]" onclick="reWrite(20)" class="large" /><br> <br><span class="small">既にアップしてあるものを修正してアップます</span></td>
		</tr>
	</tbody>
</table>
<p> </p>
<div id="inhtml">
<p> </p>
</div>
</form>
</body>
</html>

現在位置: ホームなんでも日記メニュー > このページ