%@ Language=VBScript %>
<%
On Error Resume Next
'↓最適化041112
' If Not IsObject(Session("DBObj")) Then SendErrorMSG
' Set DBObj = Session("DBObj")
'↑最適化041112
TKTN_ID = Request("TKTN_ID")
PREF = Request.QueryString("PREF")
SELCT = Request.QueryString("SELECTION")
ENSEN = Request.QueryString("ENSEN")
ENSEN_NAME = Request.QueryString("ENSEN_NAME")
AREA = Request.QueryString("AREA")
STATION = Request.QueryString("STATION")
ACTION=Request.QueryString("ACTION")
EKI_FROM = Request("EKI_FROM")
EKI_TO = Request("EKI_TO")
ENSEN_FLG = Request("ENSEN_FLG")
pageindex=Request.QueryString("pageindex") '受取るようにし送信するように修正2001/04/12
If TKTN_ID = "" Then TKTN_ID = "00000"
'提携店検索
ssql = "SELECT 提携店.*,MRDCENTERM.CENTER名漢字"
'//--DB統一 提携店View変更
ssql = ssql & " FROM 提携店View 提携店,MRDCENTERM"
ssql = ssql & " WHERE 提携店.提携店番号 = '" & TKTN_ID & "'"
ssql = ssql & " AND 提携店.地区CENTERCD = MRDCENTERM.地区CENTERCD (+)"
'↓最適化041112
Set DBObj = Server.CreateObject("ADODB.Connection")
DBObj.Open ADO_CONNECT
'↑最適化041112
Set TKN_REC = DBObj.Execute(ssql)
'↓最適化041112
'If DBObj.Errors.Count > 0 Then SendErrorMSG
If DBObj.Errors.Count > 0 Then
TKN_REC.CLOSE
Set TKN_REC = Nothing
DBObj.Close
Set DBObj = Nothing
SendErrorMSG
End If
'↑最適化041112
%>
会員紹介
<%=TRIM(TKN_REC("MESSAGE")) %> |
<%=TRIM(TKN_REC("提携店名漢字"))%> |
<%=TRIM(TKN_REC("提携店SUB名漢字"))%>
|
|
住所
|
<%IF Trim(TKN_REC("提携店住所漢字"))<>"" THEN%>
<%=TKN_REC("提携店住所漢字")%>
<%ELSE%>
<%END IF%>
|
TEL
|
<%IF Trim(TKN_REC("連絡用電話番号"))<>"" THEN%>
<%=TKN_REC("連絡用電話番号")%>
<%ELSE%>
<%END IF%>
|
FAX
|
<%IF Trim(TKN_REC("FAX番号表示用"))<>"" THEN%>
<%=TKN_REC("FAX番号表示用")%>
<%ELSE%>
<%END IF%>
|
主力エリア
|
<%IF Trim(TKN_REC("主力AREA"))<>"" THEN%>
<%=TKN_REC("主力AREA")%>
<%ELSE%>
<%END IF%>
|
取扱物件
|
<%IF Trim(TKN_REC("主力業務"))<>"" THEN%>
<%=TKN_REC("主力業務")%>
<%ELSE%>
<%END IF%>
|
免許番号
|
<%IF Trim(TKN_REC("免許番号"))<>"" THEN%>
<%=TKN_REC("免許番号")%>
<%ELSE%>
<%END IF%>
|
代表者名
|
<%IF Trim(TKN_REC("代表者名漢字"))<>"" THEN%>
<%=TKN_REC("代表者名漢字")%>
<%ELSE%>
<%END IF%>
|
地域センター
|
<%IF TRIM(TKN_REC("CENTER名漢字"))<>"" THEN%>
<%=TKN_REC("CENTER名漢字")%>
<%ELSE%>
<%END IF%>
|
|
<% if TRIM(TKN_REC("EMAIL")) <> "" then %>
<% Session("MAIL_ADDRESS") = TRIM(TKN_REC("EMAIL"))%>
<% End if %>
<% if TRIM(TKN_REC("URL")) <> "" then %>
" target="_top">
<% End if %>
|
<%
Set TKN_REC = Nothing
'↓最適化041112
DBObj.Close
Set DBObj = Nothing
'↑最適化041112
%>