<%@ Language=VBScript %> <% if Request("Action") = "ShowdB" then Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=SQLOLEDB; Data Source=martini; Initial Catalog=" & Request("dB") & "; User ID=UserID; Password=Password" strSQL = "SELECT name,length,xtype,isnullable FROM syscolumns WHERE id=" & Request("id") & " ORDER BY colorder ASC" Response.Write "
" & vbCrLf Set objRS = objConn.Execute(strSQL) Response.Write "" & vbCrLf For Each fld in objRS.Fields Response.Write "" & vbCrLf Next Response.Write "" & vbCrLf if objRS.EOF then Response.Write "test" else i=0 Do While not objRS.EOF Response.Write "" & vbCrLf For Each fld in objRS.Fields if fld.Name = "xtype" then xSQL = "SELECT name FROM systypes WHERE xtype = '" & fld.value & "'" Set xRS = Server.CreateObject("ADODB.Recordset") xRS.Open xSQL, objConn Response.Write "" & vbCrLf xRS.Close Set xRS = Nothing elseif fld.Name = "name" then Response.Write "" & vbCrLf else Response.Write "" & vbCrLf end if Next Response.Write "" & vbCrLf i=i+1 objRS.MoveNext Loop end if Response.Write "
" & fld.Name & "
" & xRS("name") & "" & fld.Value & "" & fld.Value & "
" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "
Insert Statement
Select Statement
" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" sSQL = "SELECT * FROM " & Trim(Request("Table")) 'Response.Write sSQL & "

" Set sConn = Server.CreateObject("ADODB.Connection") sConn.Open "Provider=SQLOLEDB; Data Source=martini; Initial Catalog=" & Request("dB") & "; User ID=UserName; Password=Password" Set sRS = Server.CreateObject("ADODB.Recordset") sRS.Open sSQL, sConn Response.Write "

Copy & Paste:

" sFldString = "" Set RS = Nothing Set Conn = Nothing Response.Write "

" & sFldString objConn.Close Set objConn = Nothing elseif Request("Action") = "Statement" then if Request("Type") = "Select" then sSQL = "SELECT " for each item in Request.Form if instr(1,Left(item,5),"field") then if i=0 then sFields = Request.Form(item) i=1 else sFields = sFields & "," & Request.Form(item) end if end if next sSQL = sSQL & sFields & " FROM " & Request("Table") Response.Write "" else sSQL = "INSERT INTO " & Request("Table") & "(" for each item in Request.Form if instr(1,Left(item,5),"field") then if i=0 then sFields = Request.Form(item) sValues = "'"" & Request(""" & Request.Form(item) & """) & ""'" i=1 else sFields = sFields & "," & Request.Form(item) sValues = sValues & ",'"" & Request(""" & Request.Form(item) & """) & ""'" end if end if next sSQL = sSQL & sFields & ") VALUES (" & sValues & ")""" Response.Write "" end if elseif Request("Action") = "ShowT" then Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=SQLOLEDB; Data Source=martini; Initial Catalog=" & Request("dB") & "; User ID=UserName; Password=Password" Dim strSQL strSQL = "SELECT id,name,crdate AS Create_Date FROM sysobjects WHERE xtype='U' ORDER BY name ASC" 'Response.Write strSQL Dim objRS Set objRS = objConn.Execute(strSQL) Response.Write "" & vbCrLf Dim fld For Each fld in objRS.Fields if fld.Name = "id" then 'do nothing else Response.Write "" & vbCrLf end if Next Response.Write "" & vbCrLf Do While not objRS.EOF Response.Write "" & vbCrLf For Each fld in objRS.Fields if fld.Name = "name" then Response.Write "" & vbCrLf elseif fld.Name = "id" then 'do nothing else Response.Write "" & vbCrLf end if Next Response.Write "" & vbCrLf objRS.MoveNext Loop Response.Write "
" & fld.Name & "
" & fld.Value & "" & fld.Value & "
" objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing else SQL = "SELECT name FROM sysdatabases ORDER BY name ASC" Set dConn = Server.CreateObject("ADODB.Connection") dConn.Open "Provider=SQLOLEDB; Data Source=martini; Initial Catalog=Master; User ID=UserName; Password=Password" Set dRS = Server.CreateObject("ADODB.Recordset") dRS.Open SQL , dConn Response.Write "" & vbCrLf While Not dRS.EOF Response.Write "" & vbCrLf dRS.MoveNext Wend Response.Write "
" & dRS("name") & "
" & vbCrLf dRS.Close Set dRS = Nothing end if %>