<% Dim invoer, lettertype, tekstkleur, linkkleur, hoverkleur, achtergrondkleur, afbeelding, balkkleur, smileys, anoniem, plaatskleur invoer = request.form("invoer") lettertype = request.form("lettertype") tekstkleur = request.form("tekstkleur") hoverkleur = request.form("hoverkleur") linkkleur = request.form("linkkleur") achtergrondkleur = request.form("achtergrondkleur") afbeelding = request.form("afbeelding") smile = request.form("smile") anoniem = request.form("anoniem") balkkleur = request.form("balkkleur") plaatskleur = request.form("plaatskleur") aantalPP = request.form("aantalpp") ' Controle op leegte en geen # if tekstkleur = "" then tekstkleur = "#000000" elseif Left(tekstkleur,1) <> "#" then tekstkleur = "#" & tekstkleur end if if linkkleur = "" then linkkleur = "#000000" elseif Left(linkkleur,1) <> "#" then linkkleur = "#" & linkkleur end if if hoverkleur = "" then hoverkleur = "#FF0000" elseif Left(hoverkleur,1) <> "#" then hoverkleur = "#" & hoverkleur end if if achtergrondkleur = "" then achtergrondkleur = "#FFFFFF" elseif Left(achtergrondkleur,1) <> "#" then achtergrondkleur = "#" & achtergrondkleur end if if balkkleur = "" then balkkleur = "#BFE0F9" elseif Left(balkkleur,1) <> "#" then balkkleur = "#" & balkkleur end if if plaatskleur = "" then plaatskleur = "#BFE0F9" elseif Left(plaatskleur,1) <> "#" then plaatskleur = "#" & plaatskleur end if Set objCon = Server.CreateObject ("ADODB.Connection") objCon.Open strCon %> Wijzig instellingen <% 'Invoeren van de gegevens in de tabel if invoer = "ja" then SQL = "SELECT * FROM instellingen WHERE instelling_id = 1" Set objData = Server.CreateObject ("ADODB.Recordset") objData.CursorType = 2 objData.LockType = 3 objData.Open SQL,objCon objData.Fields("tekstkleur") = tekstkleur objData.Fields("lettertype") = lettertype objData.Fields("linkkleur") = linkkleur objData.Fields("hoverkleur") = hoverkleur objData.Fields("afbeelding") = afbeelding objData.Fields("balkkleur") = balkkleur objData.Fields("plaatskleur") = plaatskleur if smile = "aan" then objData.Fields("smileys") = True elseif smile = "uit" then objData.Fields("smileys") = False end if if anoniem = "aan" then objData.Fields("anoniem") = True elseif anoniem = "uit" then objData.Fields("anoniem") = False end if objData.Fields("achtergrondkleur") = achtergrondkleur objData.Fields("aantalPP") = aantalPP objData.Update objData.Requery objData.close Set objData = Nothing objCon.close set objCon = nothing response.redirect "settings.asp" response.end end if %> <% SQL = "SELECT * FROM instellingen where instelling_id = 1" Set objData = Server.CreateObject ("ADODB.Recordset") objData.Open SQL, objCon, 3 %>

Wijzig instellingen

Weergave

De kleuren moeten in hun hexadecimale waarde worden opgegeven (#FF0000) inclusief #.

Lettertype Het lettertype van de tekst van het gastenboek.
Tekstkleur "> De kleur van de tekst.
Linkkleur "> De kleur van de hyperlinks.
Hoverkleur "> De kleur van de hyperlinks wanneer de muis erover gaat.
Achtergrondkleur "> De achtergrond kleur van de pagina.
Achtergrond afbeelding "> Geef hierbij de locatie van het bestand op (bv /images/back.jpg).
Kleur van de balk "> De balk waarin de naam etc. staat.


Kleur tekentabel "> De kleur van de tabel waar gebruikers een bericht kunnen plaatsen.

 

 

Opties

 

Anonieme berichten toestaan > Ja > Nee
Smileys toestaan > Ja > Nee
Aantal berichten per pagina ">

 

<% objdata.close set objdate=nothing objCon.close set objCon = nothing %>

Terug

 

<% ' ************* Het verwijderen van de onderstaande informatie is niet toegestaan!!!********************** response.write "

" response.write "Powered by Madness.nl

" ' ******************************************************************************************************** %>