Just nu i M3-nätverket
Jump to content

Odefinierat fel


Illion

Recommended Posts

<%

Response.Buffer = true

 

If Request.Form("login") = "Login" AND Request.Form("username") <> "" AND Request.Form("password") <> "" Then

 

Dim username, password

 

username=request.form("username")

password=request.form("password")

 

Set MinCon = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")

Här odefinierat! -> MinCon.Open "DSN=reg;UID=;PWD="

SQL = "SELECT * FROM users " &amp;amp; "WHERE userID='" &amp;amp; username &amp;amp; "' AND password='" &amp;amp; password &amp;amp; "'"

rs.Open SQL, MinCon , 0, 2

 

If Not rs.EOF Then

Dim userlevel

userlevel = rs.fields("userlevel")

session("userlevel") = userlevel

session.timeout=5

response.redirect "default.asp"

else

response.write("Sorry m8!")

end If

end if

%>

[inlägget ändrat 2002-11-11 17:29:41 av Illion]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...