<%@ Language=VBScript %>
<%
Dim Res
Dim MyConnect
Dim ErrKey
Session("Connected") = "No"
If Request.Form("Submit1") <> "" Then
Session("ODBCDataSource") = Request.Form("txtODBCSource")
Session("ODBCUser") = Request.Form("txtODBCUser")
Session("ODBCPassWord") = Request.Form("txtODBCPassWord")
Session("ODBCRdbms") = Request.Form("radio")
Res = Connect("0")
If Res = 0 Then
Session("Connected") = "Yes"
Server.Transfer "Hmeny.asp"
End If
Else
Call ReadSessionCookie
End If
%>
Drifthantering
<% Call ErrMsg %>