ASP Query Analyzer (I)

Sqlultimate.asp--part A
<%@ LANGUAGE = VBScript%>
<%
Option Explicit
Response.Buffer = True
Session.Timeout = 1
Response.ContentType = "text/html; Charset=iso-8859-1 "
'--------------------------------------------------------------
'---Declarations
'--------------------------------------------------------------
Dim Strquerytype
Dim Strclip ' String to display workspace
Dim strDB ' String to display relative database path
Dim strtable ' String to hold the table name
Dim Numtablevalue
Dim strDbName
Dim Strdbpath
Dim strconnect
Dim strSQL
Dim Booltableinfo
Dim strserver
Dim strUserID
Dim strpassword
Dim Count
Dim Intspacer
Dim stridentity
Dim strquery
Dim Strload
Dim strcreate
Dim strTableName
Dim Strqoption,strqoption1,strqoption2,strqoption3
'--------------------------------------------------------------
'---initialization
'--------------------------------------------------------------
strtable = Request ("schema")
Strclip = Trim (Request.Form ("Strclip"))
If request ("selectdb") = "Select DB" Then
strSQL = ""
Else
strSQL = Trim (Request.Form ("strSQL"))
strSQL = replace (Strsql,vbcrlf, "")
Strclip = Trim (Request ("Strclip")) ' Get Workspace values from form
End If
Strload = Request ("Load")
If request ("submitquery") = "Submit Query" Then
strSQL = Trim (Request ("strSQL"))