<% Response.write "" %>

<% Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objconn.Open "Provider=SQLOLEDB;SERVER=dd158;DATABASE=mamekuma;UID=mamekuma;PWD=01002195;" strSQL="select Cate,Image,Details from dbo.dbo_Products where EndD > '" & Now & "'" objRs.Open strSQL, objconn %> <% Do Until objRS.EOF C = objRS("Cate") If mid(C,Cat,1)="1" then Response.write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.write " " & vbCrLf End If objRs.MoveNext Loop %>
写真 品名、外観、特徴
" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & objRS("Details").value & vbCrLf Response.Write "

[戻る]