Hallo allemaal
Ik ben bezig met een project waarbij gebruikers een planning kunnen zien, dingen kunnen invoeren, etc.
Voor elk bedrijf heb ik een database gemaakt. De gebruiker moet dan als volgt bij de cgi komen:
http://testserver/<bedrijfsnaam> (dus bv testserver/philps). Vanuit deze dir volgt er een link naar de cgi bin:
http://testserver/cgi-bin/webtest.exe?bedrijf=<bedrijfsnaam>
Nu komt er een inlogscherm waar deze persoon zijn naam en wachtwoord op kan geven. Door die bedrijfsnaam weet ik van welk bedrijf de persoon afkomstig is en kan ik de juiste db kiezen. Dit inlogscherm heeft een form met 2 edits voor de user en pwd.
Wanneer er een submit komt vanaf dit form roep ik via een pathinfo /Login de functie LoginCheck aan. Deze vergelijkt het user en pwd met die uit de database. Gaat dit NIET goed, dan is het de bedoeling dat ik een pagina toon waarop meldingen staan als "User/pwd wel goed, bent u wel ingevoerd als gebruiker van het systeem, etc".
Nu heb ik op deze pagina ook een link staan die de gebruiker terug verwijst naar het inlogscherm. Maar omdat ik weer met het database gebeuren zit moet ik de gebuiker naar het inlogscherm wijzen met de juiste tag (bedrijfsnaam).
Nu probeer ik dit op de volgende manier te doen:
Dit staat in de OnHTMLTag van het inlogscherm:
RequestBedrijf:=Request.QueryFields.Values['bedrijf'];
RequestBedrijf is een globale variabele
Dit functioneert allemaal prima...
Na de user/pwd check roep ik de foutpagina als volgt aan:
response.Content:=PP_LoginError.Content;
PP_LoginError is de pageproducer van de pagina die die meldingen gaat geven
In deze pagina heb ik de volgende regel staan:
Klik <a href="http://testserver/<#bedrijfsnaam>">HIER</a> om terug te gaan naar het inlogscherm
Voor de PP_LoginError heb ik ook een OnHTMLTag gegenereerd. Deze probeer ik als volgt te vullen:
if CompareText(TagString, 'bedrijfsnaam') = 0 then
ReplaceText:=RequestBedrijf;
Nu moet die bedrijfsnaam dus in die link staan en moet de gebruiker weer met de juiste tag in het inlogscherm komen.... Maar dat lukt dus niet !!
Het lijk wel of de var RequestBedrijf leeg is. Zeg ik bijvoorbeeld ReplaceText:='Hallo';
dan werkt het wel...
Wat doe ik fout ?
MVG, Gerjan
Bookmarks