<% 'use some fancy s**t to get the username from the folder. since this is unique then 'we can search the database for that username and find the appropriate ID 'if not found then redirect to the member listing pathinfo = Request.serverVariables("PATH_INFO") pathinfo = replace(pathinfo,"/community/","") pathinfo = replace(pathinfo,"/index.php","") 'check to see if this is a valid user userID = request.querystring("id") if userID = "" then sql = "SELECT * FROM USERS WHERE userName='" & pathinfo & "'" else sql = "SELECT * FROM USERS WHERE userID=" & userID end if Dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("\database/gallery.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.open(strConn) 'Get a recordset corresponding to the submitted username and password Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, strConn, 3, 3 If NOT rsUser.EOF then %> TriniTuner.com - Community
Homepage send us an email homepage Buckle Up -Racers against Street Racing
See homepage for most recent events Featured Rides Our Reader's Rides - submit your own! FREE classifieds! Car Audio garage auto tuning tips Automotive links
T&T's Largest Automotive Website: 8000+ visitors a day; 15,000+ registered members; HUGE classifieds
Want to get your ad here? Click for details...

© Copyright 2000-2008
Duane Boodasingh, Daren Dhoray and TriniTuner.com™
All Rights Reserved
| Legal Statements |
All rights to this product will be vigorously defended.
Concept & Design by
Duane Boodasingh
Maintainance by
Duane Boodasingh, Paul Adam and Lyden Thomas.
Programming by Richard WIlliams and Daren Dhoray.
| info@trinituner.com |

Made with pride in the Republic of Trinidad & Tobago W.I.

3NE 2NR™ & TriniTuner™
are registered trademarks of
TriniTuner Co. Ltd.


TriniTuner Reader's Rides
<% 'image1 if exists goes here if Trim(rsUser("image1")) <> "" then response.write "Click for actual size" end if %>
<% 'image1 if exists goes here if Trim(rsUser("image2")) <> "" then response.write "Click for actual size" end if %>
<% 'image1 if exists goes here if Trim(rsUser("image3")) <> "" then response.write "Click for actual size" end if %>
<% 'image1 if exists goes here if Trim(rsUser("image4")) <> "" then response.write "Click for actual size" end if %>
About Us
<% else response.redirect("index.php?user=false") end if %>