cosi?
codice:
Const adPersistXML = 1
Const adStateOpen = 1
Const adOpenStatic = 3
Const adLockBatchOptimistic = 4
Const adCmdText = 1

vUser = Request("User")

on error resume next

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & request.servervariables("APPL_PHYSICAL_PATH") & "MyDb.mdb;User Id=admin;Password=;"

vSqlStr = "SELECT * FROM tabella WHERE User = '" & Replace(vUser, "'", "''") & "';"

set rs = server.createobject("adodb.recordset")
rs.cursorlocation = 3

Rs.Open vSqlStr, db, adOpenStatic, adLockBatchOptimistic, adCmdText
If Err.Number <> 0 Then
	Response.Status = "500 " & Err.Source & ": " & Err.Description
  Response.End
End If

Response.ContentType = "text/xml"
Rs.Save Response, adPersistXML
If Err.Number <> 0 Then
	Response.Status = "500 " & Err.Source & ": " & Err.Description
  Response.End
End If

Rs.Close
Set Rs = Nothing
If db.State = adStateOpen Then
	db.Close
End If
Set db = Nothing