Welcome to MKI MIYUKI-ZOKU

<%@LANGUAGE="VBSCRIPT"%> <% Dim streets Dim streets_cmd Dim streets_numRows Set streets_cmd = Server.CreateObject ("ADODB.Command") streets_cmd.ActiveConnection = MM_mki_STRING streets_cmd.CommandText = "SELECT * FROM streetstyle ORDER BY ID DESC" streets_cmd.Prepared = true Set streets = streets_cmd.Execute streets_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 streets_numRows = streets_numRows + Repeat1__numRows %> Welcome to MKI MIYUKI-ZOKU

<% While ((Repeat1__numRows <> 0) AND (NOT streets.EOF)) %>

	<%=(streets.Fields.Item("Names").Value)%>
	<%=(streets.Fields.Item("Age").Value)%>
	<%=(streets.Fields.Item("Occupation").Value)%>
" width="272" height="364" />

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 streets.MoveNext() Wend %>

<% streets.Close() Set streets = Nothing %>