% 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="INSERT INTO UserLocations (userID,city,country,latitudeN,longitudeW,timeZone,DSTRule,candles,tzaitdeg,tzaitmin) values (" SQL = SQL & "'" & RS("id") & "'," SQL = SQL & "'" & Session("City") & "'," SQL = SQL & "'" & Session("Country") & "'," SQL = SQL & "'" & Session("Latitude") & "'," SQL = SQL & "'" & Session("Longitude") & "'," SQL = SQL & "'" & Session("TimeZone") & "'," SQL = SQL & "'" & Session("DSTRule") & "'," SQL = SQL & "'" & Session("Candles") & "'," SQL = SQL & "'" & Session("TzaitDeg") & "'," SQL = SQL & "'" & Session("TzaitMin") & "')" Conn.Execute(SQL) RS.Close Conn.Close %>