<% 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