<% Dim wPrm Dim wFile wPrm = Request.QueryString("prm") wFile = Request.QueryString("file") If Len(wPrm) = 0 Then Call SUB_Shop Else If Len(wFile) <> 0 Then Call SUB_ReadFile(wPrm, wFile) Else Call SUB_Chiku(wPrm) End If End If %>

<% Sub SUB_Shop() %>  



(※お探しになりたいエリアをクリックしてください)



<% End Sub Sub SUB_Chiku(wPrm) If wPrm = 0 Then %>  


<% ElseIf wPrm = 1 Then %>  


<% End If %>

(※お探しになりたいエリアをクリックしてください)

←東京都全域へ戻る



<% End Sub Sub SUB_ReadFile(pPrm, pFile) Dim objFS Dim objFile Dim wReadln 'テキストファイルから読み込まれた1行分 Dim wCnt Dim wFields Set objFS = CreateObject("Scripting.FileSystemObject") ' Set objFile = objFS.OpenTextFile("\\Juriet\inetpub\wwwroot\milk\mbr\meibo\" & pFile & ".csv", 1, 0) Set objFile = objFS.OpenTextFile("c:\Inetpub\wwwroot\milk\mbr\meibo\" & pFile & ".csv", 1, 0) wCnt = 0 Do While objFile.AtEndOfStream <> True wReadln = objFile.ReadLine If wCnt = 0 Then Response.Write "■" & wReadln & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf ' Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf wCnt = wCnt + 1 Else wFields = Split(wReadln, ",") Response.Write "" & vbCrLf 'マーク Response.Write "" & vbCrLf '販売店名 If Trim(wFields(10)) <> "" Then Response.Write "" & vbCrLf Else Response.Write "" & vbCrLf End If '氏名 ' Response.Write "" & vbCrLf '住所 Response.Write "" & vbCrLf 'TEL Response.Write "" & vbCrLf 'FAX Response.Write "" & vbCrLf '改行 Response.Write "" End If Loop If objFile.AtEndOfStream = True Then Response.Write "
マーク
販売店名氏名住所TELFAX
" & vbCrLf Response.Write "
" & Trim(wFields(0)) & "" & Trim(wFields(1)) & " [HP]" & Trim(wFields(1)) & "" & Trim(wFields(3)) & "
" & wFields(2) & "
" & Trim(wFields(4)) & "
" & Trim(wFields(5)) & Trim(wFields(6)) & Trim(wFields(7)) & "
" & Trim(wFields(8)) & "" & Trim(wFields(9)) & "
" & vbCrLf End If Set objFile = Nothing Set objFS = Nothing If wPrm = 0 Then Response.Write "

←23区地図へ戻る
" ElseIf wPrm = 1 Then Response.Write "

←多摩地区地図へ戻る
" End If Response.Write "
" Response.Write "←東京都全域へ戻る
" Response.Write "
" Response.Write "▲ページトップへ

" End Sub %>