<%
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="DELETE FROM UserLocations WHERE id=" & Request("id") & " AND userID=" & RS("id")
Conn.Execute(SQL)
RS.Close
Conn.Close
%>
eLuach DelCity
City has been deleted.