DBデータ呼び出しルーチン
使い方
name = Get_Data(1234)(0)
1234 ： SELECT文で検索する際のキー
配列として戻ってくるので、(0)をつけて名前データを取得
使うときは Server.CreateObject("ADODB.Connection") をする必要あり
<%
Function Get_Data(key)
sql = ""
sql = "SELECT "
sql = sql & "NAME,"
sql = sql & "KANA,"
sql = sql & "ZIP,"
sql = sql & "PREF,"
sql = sql & "ADDRESS1,"
sql = sql & "ADDRESS2,"
sql = sql & "TEL"
sql = sql & " FROM MEMBER WHERE KEY='" & key&"'"
Set sub_rs = ObjConn.Execute(sql)
Dim temp(7)
temp(0) = sub_rs("NAME")
temp(1) = sub_rs("KANA")
temp(2) = sub_rs("ZIP")
temp(3) = sub_rs("PREF")
temp(4) = sub_rs("ADDRESS1")
temp(5) = sub_rs("ADDRESS2")
temp(6) = sub_rs("TEL")
sub_rs.Close
set sub_rs = nothing
Get_Data = temp
End Function
%>