<%Response.Buffer = True%> <% yere = datepart("yyyy",date) id = trim(Session("StudentID")) if id = "" then Response.Redirect("default.asp") Set conn = CreateObject("ADODB.Connection") sql = "select Last,First,Email,DBLogin,DBPassword,Password,ClassID,URL from Students where StudentID = " & id conn.open connstring set rs = conn.execute(sql) if (rs.bof = True) and (rs.eof = True) then 'no records Response.Write "No records" else rs.movefirst LastName = trim(rs("Last")) FirstName = trim(rs("First")) Email = trim(rs("Email")) DBLogin = trim(rs("DBLogin")) DBPassword = trim(rs("DBPassword")) SitePassword = trim(rs("Password")) myClass = trim(rs("ClassID")) URL = trim(rs("URL")) end if conn.close : set conn = nothing 'if DBLogin <> "" then 'if len(DBLogin < 4)then DBLogin = "" 'too short to be valid 'end if %> Profile

Student Profile

Here is the pertinent info we have for you.

Please keep your info up to date!

<%if DBLogin <> "" then %>

Server Space

FTP Site: ftp.billnsara.com
FTP Login: <%=DBLogin%>
 FTP Password: <%=DBPassword%>
Site URL: <%=URL%>  
<%end if%>

Personal Data

First Name:
Last Name:
Email:
Homework URL: