|
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 & " . ")
end if
end if
Set rs = Nothing
cn.close
set cn=nothing
Session("CONN")="fals"
end if
%>
Görüntü en iyi 1024 x 768 çözünürlükte
elde edilmektedir.
|
