トップページ
伊丹産業振興シニアアドバイザー制度 経営部門
|
■
■
伊丹産業振興シニアアドバイザー制度
■
■ |
| 一線を退いた退職者の方などに「シニアアドバイザー」として登録いただき、これまで培ってきた豊富な知識や経験を生かし、地元の中小企業にて助言、指導などアドバイスを提供する制度です。 |
<%
set db = server.createobject("ADODB.Connection")
db.Provider = "Microsoft.Jet.OLEDB.4.0"
'元データベースを開く
db.ConnectionString = Server.MapPath("SAHP.mdb")
db.open
'テーブルの選択(テーブルから読み込む)
set rec = db.execute("Select * From HP")
'表のタイトル(見出し)
Response.Write ""
Response.Write ""
Response.Write "| No. | "
Response.Write "分野 | "
Response.Write "得意分野 | "
Response.Write "アピール | "
Response.Write " "
'100までループ
Do Until rec.Fields.Item("No") >= 100
'次のレコードにポインタを移動する
rec.MoveNext
IF rec.Fields.Item("BUNYA") = 2 Then
Response.Write "" '内容を表示する
Response.Write "| " & rec.Fields.Item("No") & " | "
Select Case rec.Fields.Item("BUNYA")
Case 2
Response.Write "経営 | "
Case Else
Response.Write("Error")
End Select
Response.Write "" & rec.Fields.Item("TOKUI") & " | "
Response.Write "" & rec.Fields.Item("APPEAL") & " | "
Response.Write " "
End IF
Loop
Response.Write " "
'開いていたレコードセットを閉じる
rec.Close
'開いていたデータベースを閉じる
db.Close
Set db = Nothing
%>
|
|
技術専門
経営専門
金融税務専門
|
|
|