<% dim Conn, SQL, RS 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 * FROM UserLocations WHERE id=" & Request("id") & " AND userID=" & RS("id") Set RS=Conn.Execute(SQL) Session("City")=RS("city") Session("Country")=RS("country") Session("Latitude")=RS("latitudeN") Session("Longitude")=RS("longitudeW") Session("TimeZone")=RS("timeZone") Session("DSTRule")=RS("DSTRule") Session("Candles")=RS("candles") Session("TzaitDeg")=RS("tzaitdeg") Session("TzaitMin")=RS("tzaitmin") RS.Close Conn.Close %>