<!-- #include file="../include.asp" -->
<%
main()
Sub main()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta name="robots" content="all">
<title><% = AppTitle %></title>
</head>
<body>
<table border="1" width="100%">
<tr>
<td width="100%" align="right" style="font-size:10pt">
<%
Dim Query, Content, Rs
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("DELETE FROM " & name & "<br>" & vbCrLf)
' Response.Write("bcp ""sj4webdb.dbo." & name & """ out " & name & ".csv /c /t ::: /r ;;;\n /S storm2000 /U sj3user /P sj3" & "<br>" & vbCrLf)
bTableFalseFlg = 0
Content.MoveNext
Loop
%>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
%>