<%@ 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 %>