A script that is written to view the structure of the MS SQL Server table (originally intended to be used for plagiarism)

<%
Set conn = Server.CreateObject ("ADODB. Connection ")
Conn.Open "ODBC name", "username", "password"
Sql1= "SELECT * from dbo.sysobjects where type is not in (' S ', ' D ', ' K ')"
Sql1= "SELECT * from dbo.sysobjects where type = ' U '"
Set RSCC = Server.CreateObject ("Adodb.recordset")
Set rs = Server.CreateObject ("Adodb.recordset")
Rscc.open sql1,conn,1,2
Do as not rscc.eof
sql = "SELECT * from" &AMP;RSCC ("name")

Rs.Open sql,conn,1,2
Response.Write "If "1" = "1" Then
For i=0 to Rs. Fields.count-1
Response.Write "Field Name:" &rs.fields (i). Name & "<br>"
Response.Write "Type:"
If Rs.fields (i) type= "3" Then
Response.Write "Int"
If Rs.fields (i). Attributes= "Then" Response.Write "AutoNumber field"
If Rs.fields (i). Attributes= "Then" Response.Write "Allow null"
If Rs.fields (i). Attributes= "then" Response.Write "Not allowed empty"
ElseIf Rs.fields (i) type= "129" Then
Response.Write "Char"
Response.Write "Size" &rs.fields (i). DefinedSize
If Rs.fields (i). Attributes= "Then" Response.Write "Allow null"