|
<%
Dim Query, Content, Content2
Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) ORDER BY name"
' Query = "SELECT name FROM sysobjects WHERE (status >= 0) ORDER BY name"
Set db = Server.CreateObject("ADODB.Connection")
db.Open SQLConn
Dim ii
Set Content = OpenQuery(Query)
Dim HtmlAll, HtmlRow, bFalse, HtmlFalse, WriteRow
Dim ScriptFalse1, ScriptFalse2, ScriptFalse3, ScriptFalse4
Dim bTableFalseFlg
bTableFalseFlg = 0
Do While Not(Content.BOF Or Content.EOF)
Dim name
name = Content.Fields("name")
Response.Write("bcp ""sj4webdb.dbo." & name & """ out " & name & ".csv /c /t ::: /r ;;;\n /S localhost /U sj3user /P sj3")
Response.Write(" " & vbCrLf) ' Response.Write("osql -S localhost -U sj3user -P sj3 -d sj4webdb -m0 -Q ""DELETE FROM " & name & """") ' Response.Write(" " & vbCrLf) bTableFalseFlg = 0 Content.MoveNext Loop %> |