TERI Enviro Club

<%@ LANGUAGE=vbscript%> <% If Request.Form("user_name") <> "" And Request.Form("pawd") <> "" Then 'response.buffer=true %> <%set ConnObj = Server.CreateObject("ADODB.Connection") ConnObj.open ConString sql = "SELECT * FROM users where user_name='" & LCase(Request("user_name")) & "' AND pawd='" & LCase(Request("pawd")) & "'" 'response.Write(sql) set sr = ConnObj.Execute(sql) if sr.EOF then %> <% else session("id")=sr("ID") 'dim numinc,dat 'numinc=Cint(sr("counter")+1) 'dat=date() 'dat=dat & " " & time() 'quer = "Update users set [counter] = " & numinc & " , [user_date_log] = '" & (sr("user_date_log")) & " | " & dat & "' where user_name='" & LCase(Request("user_name")) & "';" 'response.Write(quer) 'response.End() 'ConnObj.Execute(quer) 'response.write session("id") application("test")=session("id") sr.Close set sr = Nothing ConnObj.Close 'set ConnObj = Nothing %> <% ' Response.redirect("index.asp?st=yes") end if end if %>

EduGreen | Member services | Contact us

<% dim var var= request.querystring("st") 'if var="yes" then %> <% if var="no" then %> <% 'response.write "User name and password
do not match.Please try again." end if %>