Blog literacki, portal erotyczny - seks i humor nie z tej ziemi


<%
if not isempty(Request.Form("LogIn")) then
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "twojehaslo"
set RSUser = conn.Execute("select UserName from C1Login " _
& "where UserName = '" & Request.Form("UserName") _
& "' and Password = '" & Request.Form("Password") _
& "'")
if RSUser.EOF then
TheMessage = "Wprowadzone dane s± niepoprawne. " _
& "Spróbuj jeszcze raz"
else
TheMessage = "Zostałe¶ zalogowany."
end if
else
TheMessage = "Proszę podać nazwę użytkownika i hasło."
end if
%>
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • qualintaka.pev.pl
    •