|
商品についてのくわしい情報はお問い合わせください。
<%
Dim fso
Dim currentPath
Dim shouhinFile
Set fso = Server.CreateObject("Scripting.FilesystemObject")
currentPath = Server.Mappath("./")
If Right(currentPath,1) <> "\" Then
currentPath = currentPath & "\"
End If
Set shouhinFile = fso.OpenTextFile(currentPath & "shouhin.txt")
Dim getData
Dim dataCount
dataCount = 1
Dim divStyle
Do Until shouhinFile.AtEndOfStream
getData = shouhinFile.ReadLine
If Len(getData) > 5 Then
If dataCount Mod 2 = 1 Then
divStyle = "text01"
Else
divStyle = "text02"
End If
%>
<%=getData%>
<%
dataCount = dataCount + 1
End If
Loop
shouhinFile.Close
Set shouhinFile = Nothing
Set fso = Nothing
%>