<% ' - - - - - - - - logga besökarna i tabellen [ip_logger] - - - - - - - Dim objConn, strSQL Dim objRS Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString="DRIVER={MySQL};SERVER=radiorud.se.mysql;DATABASE=radiorud_se;UID=radiorud_se;PWD=pkEq5c9u" objConn.Open strIpnummer = Request.ServerVariables("REMOTE_ADDR") strDatumTid = Now strVisitSida = "Kalendarium uppdatering" ' ladda variabel med sidan som besöks... strSQL = "SELECT * From ip_logger WHERE 1=2" ' Öppna Recordset och utför SQL-strängen, skriv ipnr, datum och sida till loggen objRS.open strSQL, objConn, 1, 2 objRS.AddNew objRS("ip_nummer")= strIpnummer objRS("datum_tid")= strDatumTid objRS("visit_sida")= strVisitSida objRS.Update objConn.Close Set objConn=Nothing %> <% ' - - - - - - - - kontroll mot reject-tabellen, ny kod 2011-05-02 Usama Bin Ladin dödad inatt!!! - - - - - - - Dim reject, url Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=radiorud_se;UID=radiorud_se;PWD=pkEq5c9u" objConn.Open strIpnummer = Request.ServerVariables("REMOTE_ADDR") strSQL = "SELECT * From reject WHERE active = 'YES'" ' Öppna Recordset och utför SQL-strängen objRS.open strSQL, objConn, 1, 2 Do While Not objRS.EOF If objRS("ipnumber")= strIpnummer Then reject = "YES" objRS("used") = objRS("used") + 1 url = objRS("url") objRS.Update End If objRS.MoveNext Loop objConn.Close Set objConn=Nothing If reject = "YES" Then Response.Redirect url End If %>
Radio Rud - Uppdatera kalendarium med ny datumrelaterad information
Datum måste anges i formatet ÅÅÅÅ-MM-DD, t ex 2012-04-12
Vill du bara uppdatera en enda dag fyller du i Datum från.

Bilden som skall laddas upp till databasen bör vara optimerad för formatet 4:3,
alltså som en gammal TV, bredd 4 och höjd 3.
Bilden bör också vara av typen JPG eller GIF, och inga svenska tecken i filnamnet,
tänk på att mellanslag i filnamnet bryter mot de flesta regler i datavärlden.

Om man vill återgå till standardvärdet på frontsidan, flickan med skylten så
fyller man i aktuellt Datum, Password och väljer Standard i rullisten vid Tema.
Bildtexten skapas automatiskt i detta fall.

Väljer man något av de andra Tema-valen hoppar man också över Egen bild men anger lämplig bildtext i fältet Anmärkning.

Väljer man Egen bild måste Anmärkning vara ifylld, och Tema lämnas blankt.

Alla medlemmarnas födelsedagar är skyddade och går inte att uppdatera!

2013-03-14 / SM6BGP 





Datum från :	

Datum till :	

Anmärkning :	

Password   :	

Egen bild  :    

Tema       :