ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/Asp/GetData.asp, line 16
ملف ال asp
<%
<!-- METADATA TYPE="TypeLib" FILE="C:\Program Files\Common Files\system\ado\msado15.dll" -->
dim records
dim FileDoc
dim connect
dim SQLString
set connect = server.CreateObject("ADODB.Connection")
set records = server.CreateObject("ADODB.Recordset")
set FileDoc = server.CreateObject("MSXML2.DomDocument.4.0")
SQLString= Request.QueryString("ID")
connect.Open "Provider=MSDASQL;Persist Security Info=False;User ID=admin;Password=01131979;Data Source=Marvelous;"
records.CursorLocation = 3
records.Open SQLString,connect, 1, 4
records.Save FileDoc, 1
Response.ContentType = "text/xml"
Response.Write "<?xml:stylesheet type=""text/xsl"" href=""Recordsetxml.xsl""?>" & vbcrlf
Response.Write FileDoc.xml
set FileDoc=nothing
records.Close
set records=nothing
connect.Close
set connect=nothing
%>