<% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 Dim CONN, strDSN, strSQL, RS, RSArray, RecNum, iRec, strSort, sWhere sWhere = Request.QueryString("UserID") set CONN = server.createobject("adodb.connection") StrDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\inetpub\vhosts\betterlight.com\httpdocs\usergallery\_private\gallery.mdb" CONN.Open StrDSN sSQLstmt = "SELECT * FROM Users2 Where UserId =" sSQLstmt = sSQLstmt & sWhere Set RS = CONN.execute(sSQLstmt) RSArray = RS.getrows(,,Array("userID","User","Company","Address","City","State","Postal_Code","Country","Phone","Email","Website","Specialty","HeadShot","Image1","Image2","Image3","Image4","Image5","Image6")) RS.MoveFirst RecNum = UBOUND(RSArray,2) %> Better Light User Gallery
<% if RSArray(12,0) <> "" then %> <% else Response.Write" " end if %> <%=RSArray(1,0)%>
<%=RSArray(2,0)%>

<%=RSArray(3,0)%>
<%=RSArray(4,0)%>, <%=RSArray(5,0)%> <%=RSArray(6,0)%>  <%=RSArray(7,0)%>
<% if RSArray(8,0) <> "" then Response.Write"tel: " & RSArray(8,0) end if %>
<% if RSArray(9,0) <> "" then Response.Write"email: " & RSArray(9,0) & "" end if %>
<% if RSArray(10,0) <> "" then Response.Write"website: " & RSArray(10,0) & "" end if %>
<% if RSArray(11,0) <> "" then Response.Write"specialty: " & RSArray(11,0) & "" end if %>
<% if RSArray(17,0) <> "" then %> <% elseIf RSArray(16,0) <> "" then %> <% elseIf RSArray(15,0) <> "" then %> <% elseIf RSArray(14,0) <> "" then %> <% elseIf RSArray(13,0) <> "" then %> <% else %> <% end if %>