quote:

---

From te_tableedit.asp

 
rs.Open "[" & sTableName & "]",,,adCmdTable
	if rs.fields.count = 0 then
		response.write "No fields defined for table."
		CloseRS
		%><!--#include file="te_footer.asp"--><%
		response.end
	end if
	
	if err <> 0 then
		response.write err.number & ":" & err.description & "<br><br>"
	end if
	
	for each fld in rs.fields
		sFieldType = ""
		sAttributes = ""
		select case fld.Type
			case adSmallInt			: sFieldType = "integer"
			case adInteger			: sFieldType = "long"

---

CONST adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001

Sub RenameTable(strTable, strNewTable)
	 ' this sub gathers the names and data 
	 ' types of fields for a given table.
	Dim objRs, strSQL, i, strOutput
	Set objRs = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT * FROM " & strTable & ";"
	objRs.Open strSQL, t_conn, adOpenStatic, adLockReadOnly, adCmdText
	 ' access the fields collection for this table
	strCNtable = "CREATE TABLE " & strNewTable & " "
    For i = 0 to objRs.fields.count -1
    
    strCNtable = strCNtable & objRs.fields(i).name & " " & DataTypeName(objRs.fields(i).type) ' & SIZE VALUE HERE
    
    Next
	objRs.Close
	Set objRs = Nothing
End Sub

<%
CONST adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001

Sub RenameTable(strTable, strNewTable)
	 ' this sub gathers the names and data 
	 ' types of fields for a given table.
	Dim objRs, strSQL, i, strOutput
	Set objRs = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT * FROM " & strTable & ";"
	objRs.Open strSQL, t_conn, adOpenStatic, adLockReadOnly, adCmdText
	 ' access the fields collection for this table
	strCNtable = "CREATE TABLE " & strNewTable & " "
    For i = 0 to objRs.fields.count -1
    if IsNull(objRs.fields(i).definedsize) then
    	strSizeSHow = ""
    else
    	strSizeShow = "(" & objRs.fields(i).definedsize & ")"
    end if
    strCNtable = strCNtable & objRs.fields(i).name & " " & DataTypeName(objRs.fields(i).type) & strSizeShow & ","
    
    Next
	objRs.Close
	Set objRs = Nothing
    strTableStringSize = Len(strCNtable)
    strTableStringSize = strTableStringSize - 1
    strCNTable = Left(strCNtable, strTableStringSize)
End Sub
Function DataTypeName(icurrenttype)
	 ' this function takes an integer and translates
	 ' it into a text based description of a data type
	 ' that is more familiar than a number.
	SELECT CASE icurrenttype
		case 6
			DataTypeName = "CURRENCY"
		case 3
			DataTypeName = "NUMBER"
		case 203
			DataTypeName = "MEMO"
		case 200
			DataTypeName = "VARCHAR"
		case 202
			DataTypeName = "TEXT"
	END SELECT
End Function
%>