hi I get the following error when I try the code below the error:
Technical Information (for support personnel)
Error Type:
Provider (0x80030103)
Can't save.
/generate_xml.asp, line 113
Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; IEMB3; IEMB3)
Page:
GET /generate_xml.asp
Please help Thanks
Technical Information (for support personnel)
Error Type:
Provider (0x80030103)
Can't save.
/generate_xml.asp, line 113
Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; IEMB3; IEMB3)
Page:
GET /generate_xml.asp
Code:
Function GenerateXMLDataFile()
Dim strFullFileName
Const adPersistXML = 1
' Delete existing file
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("test.xml")) Then
objFSO.DeleteFile Server.MapPath("test.xml")
End IF
Set objFSO = Nothing
' Declare our variables... always good practice.
Dim cnnXML ' ADO connection
Dim rstXML ' ADO recordset
Dim xDb_Conn_Str
xDb_Conn_Str="PROVIDER=SQLOLEDB.1;SERVER=CSNTSFDC;UID=sa;PWD=systems;DATABASE=SFDC;"
' Create an ADO Connection to connect to the scratch database.
' We're using OLE DB but you could just as easily use ODBC or a DSN.
Set cnnXML = Server.CreateObject("ADODB.Connection")
cnnXML.Open xDb_Conn_Str
Set rstXML = Server.CreateObject("ADODB.Recordset")
Set rstXML = cnnXML.Execute("Select SF_GUID from SFNAFILE")
' Save the file to XML format.
rstXML.Save Server.MapPath("test.xml"), adPersistXML
rstXML.Close
Set rstXML = Nothing
cnnXML.Close
Set cnnXML = Nothing
end function