<% nickname= "Foto-Klick" %> <% set db = Server.CreateObject("ADODB.Connection") db.Open db_dsn %> <% on error resume next ' Verbindungseinstellungen zur Datenbank If Request.Querystring("MID") <> "" then xmid = Request.Querystring("MID") else xmid = 1 end if doc_path = Request.ServerVariables("URL") doc_name = mid(doc_path, InstrRev(doc_path, "/")+1) counter = 1 sql = "select * from tblMitglieder WHERE Mitgl_ID = " & xmid & ";" set rs_mitgl = db.Execute(sql) rs_mitgl.MoveFirst %> Mitglied
wgz1x4
wgz2x1

<%=WeekDayName(WeekDay(date())) & ", " & date()%> 

')">
<%=Replace(rs_mitgl("Mitgliedsname"),"
"," - ")%>

<% Response.Write "

" & rs_mitgl("Ueberschrift") & "


" Response.Write rs_mitgl("Seiteninhalt") %> 

© <% If year(date()) = 2014 then Response.write " 2014 " else Response.write " 2014- " & year(date()) end if %> Werbegemeinschaft Zwötzen e.V., Tel. 0365-32111, Mail: post@werbegemeinschaft-zwoetzen.de     

wc_klein
<% rs_mitgl.close set rs_mitgl = Nothing db.close set db = Nothing %>