Vil ikke vise grafik efter en funktion?
HejsaJeg bruger et kodeordsbeskyttelses system, men når der ikke er logget ind, og den viser login billedet, så vil den ikke vise det grafik der er i \"bund.asp\", som bliver includeret.
Faktisk er det lige meget hvad der er af grafik efter funktionen, så viser den det ikke, her er koden:
<!--#include virtual=\"/community/secure/dbadgang.asp\" -->
<%
If Not(Session(\"logok\")) then
\'Henter login info fra cookie på user computer.
us = Session(\"us\")
pa = Session(\"pa\")
\'Slår op i databasen efter brugernavnet fra cookien
SQL = \"SELECT * FROM bruger WHERE bruger=\'\" & us & \"\'\"
Set dbRs = dbCon.Execute(SQL)
if dbRs.BOF AND dbRs.EOF then
\'Brugernavnet blev ikke fundet i databasen
ErrorMessage = \"<i></i>\"
Rejected = True
elseif not dbRs(\"kode\") = pa then
\'Brugernavnet var der, men password forkert
ErrorMessage = \"<i>Det indtastede kodeord var forkert, prøv igen.</i>\"
Rejected = True
else
\'Alt var fint, gemmer informationen i variabler, og viser almindelig side
us = dbRs(\"bruger\")
pa = dbRs(\"kode\")
Rejected = False
Session(\"logok\") = True
end if
If Rejected Then \'Viser Login side
%>
<h2><center>
<font face=\"Arial\">Log venligst ind</font>
</center></h2>
<p><center><% = ErrorMessage %></center></p>
<form method=\"POST\" action=\"/community/secure/login_script.asp\">
<center>
<table border=\"0\" cellpadding=\"30\" cellspacing=\"0\">
<tr>
<td>
<div align=\"center\">
<table border=\"0\" cellpadding=\"3\" cellspacing=\"0\">
<tr>
<td align=\"right\">Brugernavn:</td>
<td>
<input type=\"text\" name=\"us\" size=\"15\" <% = boxstyle %>>
</td>
</tr>
<tr>
<td align=\"right\">Kode:</td>
<td>
<input type=\"password\" name=\"pa\" size=\"15\" <% = boxstyle %>>
</td>
</tr>
<tr>
<td colspan=\"2\" VAlign=\"Bottom\" Align=\"Right\">
<input type=\"submit\" value=\"--login--\" <% = boxstyle %>>
</td>
</tr>
</table>
<br>
<a href=\"/community/opret.asp\"><font face=\"Arial\">Opret ny bruger</font></a><font face=\"Arial\"><br>
Vil vide mere om vores community, <a href=\"/community/info.asp\">så
kig her.</a></font></div>
</td>
</tr>
</table></center>
</form>
</td>
</tr>
</table>
<!--#include virtual=\"bund.asp\" -->
<%
Response.End \'Stop afvikling af script
end if
end if
\'Viser almindelig side
%>
