<%
'---------------------------------------
'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")
SQL = "SELECT * FROM settings WHERE setting=" &chr(34) &"AntalP" &chr(34)
Set VISA = Connection.Execute(SQL)
AntalP = VISA("varde")
SQL = "SELECT * FROM settings WHERE setting=" &chr(34) &"Banner" &chr(34)
Set VISA = Connection.Execute(SQL)
Banner = VISA("varde")
SQL = "SELECT * FROM settings WHERE setting=" &chr(34) &"NuPartne" &chr(34)
Set VISA = Connection.Execute(SQL)
NuPartne = VISA("varde")
response.write("![LPK-Logotyp](/img/logos/") | ")
response.write(" | ")
SQL = "SELECT * FROM Partner WHERE Partner=" &chr(34) &NuPartne & chr(34)
Set VISA = Connection.Execute(SQL)
Antal = VISA("Antal")
PLink = VISA("PLink")
response.write(" |
![](/img/logos/Partner") |
")
SQLT="UPDATE Partner SET Antal='" & Antal + 1 & "' WHERE Partner='" & NuPartne & "'"
Connection.Execute(SQLT)
If not AntalP=NuPartne then
NuPartne=NuPartne + 1
else
NuPartne=1
end if
SQLT="UPDATE settings SET varde='" & NuPartne & "' WHERE setting='NuPartne'"
Connection.Execute(SQLT)
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.