<% if Session("User")&""<>"" then ' stuff which is only for logged on users 'spacer Response.Write("") ' favourite cities (all as one ") Response.Write("") 'spacer Response.Write("") ' the user's ID Response.Write("") end if %>

eLuach.com

Home Shabbat timetable Festivals list email Register/Login Help <% if session("user")&""<>"" then Response.Write("Change profile ") %> Logout

Current city

<%= session("City")%>

Change current city

separated by ) Response.Write("

Your cities

") dim Conn, SQL, RS, tag1, tag2, city Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={MySQL};DATABASE=consultdb; UID=consult;PASSWORD=jemima64" SQL="SELECT id from Users WHERE userName='" & Session("User") & "'" Set RS = Conn.Execute(SQL) SQL = "SELECT city,id FROM UserLocations WHERE userID='" & RS("id") &"'" Set RS = Conn.Execute(SQL) Do While Not RS.EOF 'city=Replace(RS("city")," ","+",1,-1,vbTextCompare) tag1="" tag2="  del " Response.write(tag1 & RS("city") & tag2) RS.MoveNext Loop RS.Close Conn.Close Response.Write("Add current city

User: "&session("User")&"

Copyright © Aron Landy 2000