VillageIdiot.net Profiles

<% Option Explicit Dim sql,username,rsUser username = Request.Cookies("username") 'If the username cookie is set, they must have logged in, so get their details from the database if username <> "" then %> <% sql = "SELECT * FROM profile WHERE username = '" & username & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 end if%> VillageIdiot.net Profiles - <%=username%>

Quick Links: \| Return Home \| Log In \| Sign Up \| Profiles \| Chat \| Games \| Jobs \| News & Entertainment \| Contact Us \|

	<% 'Dimension variables Dim strMessage 'Write the contents of the variable strMessage to the web page Response.Write (strMessage) 'Write line break into the web page Response.Write (" ") 'Write the server time on the web page using the VBScript Time() function Response.Write ("" & Time() & " EST") 'Close the server script %>

<%'If they're not logged in, then display a login box if username = "" then%> To access the members area please login below:
if you are a new user then sign up here

Username :
Password :
Remember me :

sign me up!

<%else%>

Welcome <%=rsUser("firstname")%>
logged in as <%=username%>.

You Can
View/Edit Profile

View Member list

Sign Out

Thank You for registering!
Even I agree that <%=rsUser("vacation")%> is a great vacation spot!