<% '--------------------------------------- 'Skriver sidhuvudet (logga plus partner) '--------------------------------------- Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open ("Driver={MySQL}; SERVER=localhost; DATABASE=linkopingspk_co; UID=linkopingspk_co; PWD=kalasistan") 'skriver föreningens logga '-------------------------- SQL = "SELECT * FROM settings WHERE setting=" &chr(34) &"Banner" &chr(34) Set VISA = Connection.Execute(SQL) Banner = VISA("varde") response.write("") 'skriver en tom tabellruta '-------------------------- response.write("") 'skriver övre delen av samarbetspartner - ordet samarbetspartner '-------------------------- response.write("") 'väljer ut vilken partner som visades senast '-------------------------- SQL = "SELECT * FROM settings WHERE setting=" & chr(34) & "NuPartne" & chr(34) Set VISA = Connection.Execute(SQL) NuPartne = VISA("varde") SQL = "SELECT * FROM Partner WHERE med=1 ORDER BY Partner DESC" Set VISA = Connection.Execute(SQL) 'kollar om slut på listan '------------------------ if NuPartne >= VISA("Partner") then NuPartne = 0 end if koll=0 SQL = "SELECT * FROM Partner WHERE med=1 ORDER BY Partner" Set VISA = Connection.Execute(SQL) Do until (VISA.EOF OR (koll > 0)) Partnernummer = VISA("Partner") if Partnernummer > NuPartne then response.write("
LPK-Logotyp Samarbetspartner
") response.write(" & chr(34) & VISA(") response.write("
") koll=1 'uppdaterar antalet visningar för partnern '------------------------------------------ SQLT="UPDATE Partner SET Antal='" & VISA("Antal") + 1 & "' WHERE Partner='" & Partnernummer & "'" Connection.Execute(SQLT) 'uppdaterar vilken partner som visats sist '------------------------------------------ SQLT="UPDATE settings SET varde='" & Partnernummer & "' WHERE setting='NuPartne'" Connection.Execute(SQLT) end if VISA.MoveNext loop VISA.Close Connection.Close %>
Du har försökt komma till en sida som inte finns på denna server.
Återgå till föregående sida eller till startsidan.