Beratungspyramide für Aufbau und Führung medizinischer Versorgungszentren ( MVZ )

<%@ Language="VBSCRIPT" %> <% if Session("admin")=1 then admin=1 end if Select Case Request.ServerVariables("Request_Method") Case "Get" end select partner = Request.QueryString("partner") '--Partner-Flag für 14 Tage speichern --------------------- if Not partner="" then session("partner")=partner Response.Cookies("partner") = partner Response.Cookies("partner").Expires= CDate(Int(now())+14) end if '--Partner-Flag für 14 Tage speichern --------------------- warenkorb = request.cookies("warenkorb") if warenkorb="" then warenkorb = 0 else warenkorb=CDbl(request.cookies("warenkorb")("lf_nr")) end if '--Counter---------------------------------------------------------------------------- varTmpTag = right("0"&day(date),2) varTmpMonat = right("0"&month(date),2) varTmpJahr = year(date) pfad = Server.MapPath(mainpfad & "/Datenbank/") & "\" set conn = Server.CreateObject("ADODB.Connection") connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & pfad & "mvz-counter.mdb" Conn.Open connStr Set rs = Server.CreateObject("ADODB.Recordset") if Session("counted")="" then sql = "SELECT * FROM tblCounterMain" sql = sql & " ORDER by counterMainId" rs.Open sql, conn, 3, 3 rs.AddNew rs("besucherDatumAll")= now() rs("besucherDatum")= date() rs("besucherZeit")= time() rs("besucherIp")= CStr(Request.ServerVariables("Remote_Addr")) rs("besucherBrowser")= CStr(Request.ServerVariables("HTTP_USER_AGENT")) if Request.ServerVariables("HTTP_REFERER") = "" or Request.ServerVariables("HTTP_REFERER") = " " or IsNull(Request.ServerVariables("HTTP_REFERER")) then if Not partner="" then rs("besucherReferer")= "http://www.facharzt.de" else rs("besucherReferer")= CStr(Request.ServerVariables("HTTP_REFERER")) end if else rs("besucherReferer")= CStr(Request.ServerVariables("HTTP_REFERER")) end if rs("besucherUrl")= CStr(Request.ServerVariables("URL")) rs("besucherTag") = varTmpTag rs("besucherMonat") = varTmpMonat rs("besucherJahr") = varTmpJahr if Not partner="" then rs("besucherPartner") = session("partner") else rs("besucherPartner") = "0" end if rs.Update rs.moveLast Session("counternr") = rs("counterMainId") Session("counted")="1" rs.close else sql = "SELECT * FROM tblCounterDetails" rs.Open sql, conn, 3, 3 rs.AddNew rs("counterMainId")= session("counternr") rs("counterDetailDatumAll")= now() rs("counterDetailDatum")= date() rs("counterDetailZeit")= time() rs("counterDetailReferer")= CStr(Request.ServerVariables("HTTP_REFERER")) rs("counterDetailUrl")= CStr(Request.ServerVariables("URL")) rs("counterDetailDatumTag") = varTmpTag rs("counterDetailDatumMonat") = varTmpMonat rs("counterDetailDatumJahr") = varTmpJahr rs.Update rs.close end if conn.close '--Counter------------------------------------------------------------------------- %> Beratungspyramide für Aufbau und Führung medizinischer Versorgungszentren ( MVZ )