<%@ Language=VBScript %> School PRO 図書 Web検索システム <% SQLcmd = "SELECT * FROM T_学校名 WHERE 都道府県コード='" & Request.QueryString("g") & "' ORDER BY 都道府県コード,学校コード;" Set connectObj = Server.CreateObject("ADODB.Connection") ConnectObj.Open "Sp_Web" Set Session("connectObj") = ConnectObj Set rsAdmin = Server.CreateObject("ADODB.Recordset") rsAdmin.Open SQLcmd,connectObj,3,1 If rsAdmin.EOF Then %> <% CreateBody() %>
※ 指定された都道府県の学校は登録されていません。


<% Else %> <% CreateBody() %>
※ 検索条件の入力を行って、さがすボタンをクリックしてください。



書名
著者名
出版社
分類記号
内容・件名
学校  
">




<% End If %>