<% pos=0 step=10 if Request("p")>"" then pos=Request("p") if Request("id")>"" then id=Request("id") %> Detail <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ae19_nms" req="" sql_select="SELECT * FROM muehlen where muehlennummer='"&id&"'" 'response.write(sql_select&"
") Set RS = Server.CreateObject("ADODB.RecordSet") set rs= conn.Execute(sql_select) %>

<%if RS.eof then%>

leider kein Eintrag gefunden
 <% else RSname = RS("NAME") if IsNull(RSname) then RSname="keiner" %>


<%if RS("bildurl")>"" then%>" border="0"><%end if%>
Name:
<%if trim(RS("url"))>"" then%>" target=_blank><%=RS("name")%><%else%> <%=RS("name")%><%end if%>
Bauart:
<%=RS("bauart")%>
Baujahr/Ersterwähnung:
<%=RS("Baujahr")%>
Standort:
<%=RS("Standort")%>
Strasse:
<%=RS("Strasse")%>

PLZ, Ort:
<%=RS("plz")%>, <%=RS("ort")%>

Landkreis:
<%=RS("landkreis")%>
Bundesland:
<%=RS("bundesland")%>

Kontaktperson für Besichtigung:
<%=RS("Kontaktperson")%>
<%=RS("Telefon")%>
<%=RS("e-mail")%>

<%=RS("beschreibung")%>

zurück

<% end if RS.Close Conn.Close %>