<%@ 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 %>
TERI Enviro Club

          EduGreen | Member services | Contact us 

<

          Member-id       Password     

<% 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 %>
           
Introducing the Enviro Club!
A platform to share and network with other schools.

Join the Enviro Club

Forthcoming events
School Health & Hygiene Programme

 

Activity Sheet

July-September
Get on to some cleaning act

 

  Student's Page

Student's view on renewable resources

 

  Teacher's Corner

Simple ways to protect mother Earth

 

  Enviro Bites

From environment friendly to health friendly

 

School of the month
Renewable Energy Club - MRCE

Theme

Water purification

Next issue
---------

    
TERI 2007
For comments and suggestions, write to us at webgroup@teri.res.in
        

    
TERI 2005
For comments and suggestions, write to us at webgroup@teri.res.in