<%
main()
Sub main()
Dim ct21dbName, ct21Server,ct21Conn
ct21Server = "localhost"
ct21dbName = "sj4webdev"
ct21Conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sj3user;Password=sj3;Initial Catalog=" & ct21dbName & ";Data Source=" & ct21Server
Dim Query, Content, Rs
Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) ORDER BY name"
Set db = Server.CreateObject("ADODB.Connection")
db.Open ct21Conn
Dim ii
Set Content = db.Execute(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")
' Query = "SELECT * FROM " & name & " WHERE 1 = 0 "
' Set Rs = Server.CreateObject("ADODB.Recordset")
' Rs.open Query,db,3,1
' Dim bExist
' bExist = 0
' For ii = 0 To Rs.Fields.Count - 1
' If Rs.Fields(ii).Name = "—\”õ‚ " Then
' bExist = 1
' End if
' Next
If 1 = 1 Then
Response.Write("bcp """ & ct21dbName & ".dbo." & name & """ out " & name & ".csv /c /t ::: /r ;;;\n /S localhost /U sj3user /P sj3
" & vbCrLf)
End If
' Response.Write("osql -S localhost -U sj4user -P sj4 -d sj4webdb -Q ""DELETE FROM " & name & """
" & vbCrLf)
Content.MoveNext
Loop
%>
<%
End Sub
%>