<% Response.Buffer = True Response.Expires = 0 %> <% Session("theAdmId") = "" myQuery = "SELECT * FROM c21_administradores WHERE adm_username = " & Comillas(Request.QueryString("admUsr")) & " AND adm_password = " & Comillas(Request.QueryString("admPass")) Set Rs = GetConnectionGeneric("db00017", ServerDBName).Execute(myQuery) If Not Rs.EOF Then Response.ContentType="text/xml" Response.Write("") Response.Write("") For Each theItem In Rs.Fields Response.Write("<" & theItem.Name & ">" & theItem.Value &"") Next Response.Write("") End If Rs.Close Set Rs = Nothing %>