idx = document.getElementById("odbclist").selectedIndex

strDriver = "{" & document.getElementById("odbclist").options(idx).text & "}"
strServer = document.getElementById("p03").value
strUser = document.getElementById("p01").value
strPass =  document.getElementById("p02").value
strTable =  document.getElementById("p04").value
strDb =  document.getElementById("db_name").value
strFile =  document.getElementById("db_file").value

ConnectionString = _
	"Provider=MSDASQL" & _
	";Driver=" & strDriver

if strFile <> "" then
	ConnectionString = ConnectionString & ";Dbq=" & strFile
end if
if strServer <> "" then
	ConnectionString = ConnectionString & ";Server=" & strServer
end if
if strDb <> "" then
	ConnectionString = ConnectionString & ";Database=" & strDb
end if
if strUser <> "" then
	ConnectionString = ConnectionString & ";UID=" & strUser
end if
if strPass <> "" then
	ConnectionString = ConnectionString & ";PWD=" & strPass
end if

ConnectionString = ConnectionString & ";"

if document.getElementById("connectopt").value <> "" then
	ConnectionString = _
		ConnectionString & document.getElementById("connectopt").value & ";"
end if

' **********************************************************
' 接続
' **********************************************************
on error resume next
Cn.Open ConnectionString
if Err.Number <> 0 then
	alert( Err.Description )
	Exit Function
end if
on error goto 0

if document.getElementById("connectsql").value <> "" then
	on error resume next
	Cn.Execute(document.getElementById("connectsql").value)
	if Err.Number <> 0 then
		alert( Err.Description )
		Cn.Close
		Exit Function
	end if
	on error goto 0
end if

' **********************************************************
' レコードセット取得
' **********************************************************
on error resume next
Set Rs = Cn.OpenSchema(20)
if Err.Number <> 0 then
	Cn.Close
	alert( Err.Description )
	Exit Function
end if
on error goto 0

' **********************************************************
' データ作成
' **********************************************************
Buffer = ""
Do While not Rs.EOF
	Buffer = Buffer & "<option value=""" & Rs.Fields(2).Value
	Buffer = Buffer & """>"
	Buffer = Buffer & Rs.Fields(2).Value
	Buffer = Buffer & "</option>"
	Rs.MoveNext
Loop

' **********************************************************
' レコードセットクローズ
' **********************************************************
Rs.Close

' **********************************************************
' 接続解除
' **********************************************************
Cn.Close