<% strAdmin = Session("SbNuAdmin") strCheckAdmin = Mid(strAdmin, 6, 1) %> <% Set RSOrg = Server.CreateObject("ADODB.Recordset") Org = "SELECT * FROM tblFairOrg WHERE ID = " & Request.QueryString("id") & " " RSOrg.Open Org, Connect, adOpenStatic, adLockOptimistic If Not RSOrg("CountryID") = "0" Then strLand = RSOrg("CountryID") Set RSLand = Server.CreateObject("ADODB.Recordset") Land = "SELECT * FROM tblCountry WHERE ID = " & strLand & " " RSLand.Open Land, Connect, adOpenStatic, adLockOptimistic End If %>

Showing selected Organizer


<% =RSOrg("Name") %>
<% If Not RSOrg("CountryID") = "0" Then %><% =RSLand("EName") %><% Else %>-<% End If %>

<% If Not RSOrg("Site") = "" Then %>" title="Homepage" target="_blank"><% End If %>   <% If Not RSOrg("EMail") = "" Then %>" title="E-Mail"><% End If %>

Contactperson:
<% If RSOrg("Contact") = "" Then %>-<% Else %><% =RSOrg("Contact") %><% End If %>
Phone:
<% If RSOrg("Phone") = "" Then %>-<% Else %><% =FormatStr(RSOrg("Phone")) %><% End If %>
Fax:
<% If RSOrg("Fax") = "" Then %>-<% Else %><% =FormatStr(RSOrg("Fax")) %><% End If %>
Postaladdress:
<% If RSOrg("Mail") = "" Then %>-<% Else %><% =FormatStr(RSOrg("Mail")) %><% End If %>

Other info:
<% If RSOrg("Info") = "" Then %>-<% Else %><% =FormatStr(RSOrg("Info")) %><% End If %>