Hallo!
> H�ttest Du da mal ein kleines Beispiel wie das funktioniert. Zum
> Beispiel wie sag ich ihm unter welchen Dateinamen das zu speichern
w�re.
<%
dim sql: sql = cstr(Request("sql"))
if sql > "" then
dim tf: tf = "tmp." & hex(clng(date())) & _
hex(clng(cdbl(time() * 86400))) & ".xml"
dim rs: set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, db, adOpenForwardOnly, adLockReadOnly, adCmdText
rs.Save Server.MapPath(tf), adPersistXML
rs.Close: set rs = nothing
db.Close: set db = nothing
Response.Redirect tf
else
Response.Write("<form method=""post"">")
Response.Write("<input type=""text"" name=""sql"" size=""60"">")
Response.Write("<input type=""submit"" value=""GetXML"">")
Response.Write("</form>")
end if
%>
Man kann ein Recordset-Objekt einfach mit der SAVE-Methode entweder im
Bin�rformat (adPersistADTG) oder im XML-Format (adPersistXML) speichern.
Wenn man das Recordset aus der Datei ge�ffnet hat (rs.Open ...
adCmdFile), braucht man beim Speichern keinen Dateinamen angeben,
ansonsten muss es eine nicht vorhandene Datei sein.
Die XML-Datei wird aber nicht von ADO, sondern vom XML-Parser des IE (ab
5) erzeugt. Wenn kein IE>5 installiert ist, funktioniert der XML-Export
nicht.
Freundliche Gr��e
Joachim van de Bruck
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
