<% strCheckAdmin = Mid(Session("SbNuAdmin"), 7, 1) %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") Visa = "SELECT tblShop.*, tblCountry.SName AS CName FROM tblShop INNER JOIN tblCountry ON tblShop.CountryID = tblCountry.ID WHERE tblShop.ID = " & Request.QueryString("id") & " " RSShow.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

Visar <% =RSShow("Name") %>
Finns i <% =RSShow("City") %>, <% =RSShow("CName") %>

<% If strCheckAdmin = "1" Then %> ">  ">

<% End If %> <% If Not RSShow("Site") = "" Then %>" title="Hemsida" target="_blank"><% End If %>  <% If Not RSShow("EMail") = "" Then %>" title="E-Post"><% End If %>

Kontaktperson: <% If RSShow("Contact") = "" Then %>-<% Else %><% =RSShow("Contact") %><% End If %>
Telefon: <% If RSShow("Phone") = "" Then %>-<% Else %><% =RSShow("Phone") %><% End If %>
Fax: <% If RSShow("Fax") = "" Then %>-<% Else %><% =RSShow("Fax") %><% End If %>

Besöksadress:
<% If RSShow("Visit") = "" Then %>-<% Else %><% =FormatStr(RSShow("Visit")) %><% End If %>

Postadress:
<% If RSShow("Mail") = "" Then %>-<% Else %><% =FormatStr(RSShow("Mail")) %><% End If %>

Övrig info:
<% If RSShow("Info") = "" Then %>-<% Else %><% =FormatStr(RSShow("Info")) %><% End If %>