Radio Rud Köp/Sälj
<% ' - - - - - - - - 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 = "Trading" ' 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=radiorud.se.mysql;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 %> <% ' - - - - - öppna tabellen trade och visa i fallande annonsnummerordning 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 strSQL = "SELECT * FROM trade WHERE status = 'aktuell' ORDER BY ctr DESC" objRS.open strSQL, objConn dim air_2, typcol, strBody air_2 = " " Do While Not objRS.EOF If objRS("typ") = "Säljes" Then typcol = "#FF0000" End If If objRS("typ") = "Köpes" Then typcol = "#00CC00" End If strBody = Replace(objRS("body"),vbCrLf,"
") %>
<%=objRS("typ")%> : <%=objRS("subject")%>
SM6BGP, www.500 khz.se
<%Response.Write strBody%>

<%=objRS("namn")%><%=air_2%><%=objRS("signal")%>
Tel: <%=objRS("tel")%>
">E-mail
Datum : <%=objRS("datum")%>
Annons nr: <%=objRS("ctr")%>
" target="_new"><% If objRS("bild") > "" Then Response.Write "ANNONSBILD" End If %>

<% objRS.MoveNext Loop %> <% objConn.Close Set objConn=Nothing %>