<% Choice1=Request.Form("ENTER") Choice2=Request.Form("ChangePassword") Choice3=Request.Form("EXIT") If Choice1="ENTER" then username=Request.Form("username") password=Request.Form("password") Set passworddatabase=Server.CreateObject("ADODB.Connection") passworddatabase.open "EXCOM" sorgu="select*from ptclecture where userid='"&username&"'" Set usernamerecords=passworddatabase.Execute(sorgu) if usernamerecords.EOF then Response.Redirect "ptc03passentry.asp?donus=wrongentry" else TruePassword=trim(usernamerecords("passwordid")) If password=TruePassword then Response.Cookies("entry")=username count=usernamerecords("counter")+1 passworddatabase.Execute "UPDATE ptclecture SET counter = '"&count&"' WHERE userid = '"&username&"'" else Response.Redirect "ptc03passentry.asp?donus=wrongentry" End if End if %> <% If not Request.Cookies("entry")="" then %>

<%Response.Write usernamerecords("salut")%>


You have visited this page <%Response.Write usernamerecords("counter")%> times before.
<% End if usernamerecords.Close Set usernamerecords=Nothing passworddatabase.Close Set passworddatabase=nothing End if If Choice2="Change Password" then Response.Redirect "ptc03passchangeentry.asp" End if If Choice3="EXIT" then Response.Redirect "announce.html" End if%>

LECTURE MANUSCRIPTS


You may click on the highlighted item to open the corresponding abstracts in PDF format.

You may download the latest version of Adobe Acrobat Reader HERE:

LECTURES by Mehmet ARIK :

LECTURES by Volodymyr BATURKIN :

    2. Passive thermal control systems on heat pipes for space application and terrestrial
    technology (Part 1.1, Part 1.2 )

LECTURES by Ad DELIL :

LECTURES by Boris KOSOY :