<%
'Response.End
'Conn.Execute ("insert into [SERVICE] values(0,0,'test new table','','','',100,150,250)")
'Conn.Execute ("delete from MTTB04 where MT_SNO=109000000064")
'Conn.Execute ("update [RIGHT] set cKind='銀行',cCompany='台新',cName='金卡' where sPid=23")
'Conn.Execute ("drop table [SERVICE]")
'Conn.Execute("create table [SERVICE] ([rPID] [integer] IDENTITY (1, 1) Not NULL,[bPID] [integer] Not NULL,[uPID] [integer] Not NULL,[sType] [varchar](25) Not NULL,[sbDate] [varchar](10) NULL,[seDate] [varchar](10) NULL,[sDescipt] [varchar](100) NULL,[sCost1] [integer] Not NULL,[sCost2] [integer] Not NULL,[sCost3] [integer] Not NULL)")
SQLstr = "select * from [mailtmp]"
Set rs = Conn.Execute(SQLstr)
If rs.EOF Then
Response.Write "| 沒有資料 | "
Response.End
End If
Response.Write "" & Chr(13)
Response.Write " " & Chr(13)
For i = 0 To rs.Fields.Count-1
Response.Write " | " & rs(i).Name & " | " & Chr(13)
Next
Response.Write "
" & Chr(13)
rs.MoveFirst
While Not rs.EOF
Row = " " & Chr(13)
For i = 0 To rs.Fields.Count-1
Row = Row & " | " & rs(i) & " | " & Chr(13)
Next
Response.Write Row & "
" & Chr(13)
rs.MoveNext
Wend
Response.Write "
"
%>