% 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 %>
<%=WeekDayName(WeekDay(date())) & ", " & date()%>
<% Response.Write "
© <% 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