Sifremi Unuttum
<% else dim cn Set cn = Server.CreateObject("ADODB.Connection") session("CONN")="" cn.open strConnUser '// , strLogin, strPassword session("CONN")="TRUE" if Session("CONN")="TRUE" then sql="select * from U_USERS " sql=sql & "Where USER_KLN='" & kln & "' " sql=sql & " and USER_PWD='" & pwd & "' " openStaticRS rs,sql,cn if rs.eof then Response.Write ("Bilgiler Hatalı") end if sub openStaticRS(rs, sql,cn) Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 2 rs.Open sql, cn end sub kln=Request("kln") pwd=Request ("pwd") if Session("CONN")<>"TRUE" and kln ="" then %> <% else Session("KLN")=kln Response.Write ("

Hoşgeldiniz " & kln & " .

Görüntü en iyi 1024 x 768 çözünürlükte elde edilmektedir.