<%@ Language=VBScript %>
<%
Function BuildConnectionString()
set clsDEFISS = Server.CreateObject("DEFISSDLL.DEFISSClass")
s = ""
if not (clsDEFISS is Nothing)then
txtUser = clsDEFISS.UserID
txtPassword = clsDEFISS.Password
s = "Persist Security Info=False;"
s = s & "User ID="&txtUser&";"
s = s & "Password="&txtPassword&";"
s = s & "Initial Catalog=AdminDEFISS;"
set oNet = CreateObject("WScript.Network")
s = s & "Data Source=" +oNet.ComputerName
set oNet = nothing
end if
BuildConnectionString = s
set clsDEFISS = nothing
End Function
%>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0" CONTENT="text/html; CHARSET=Windows-1250">
<link rel="STYLESHEET" href="visualasp.css" type="text/css">
<form name="form1" method="post" action="">
<script language="javascript">
function UpdateLinks(sNode)
{
alert ('Selected item:' + sNode);
document.form1.action = "LeereSeite.asp";
document.form1.submit()
}
</script>
<script language="javascript">
function ClickDB(ID)
{
document.form1.action = "Rechts1.asp?Selected=" +document.form1.select1.value&Areatext=+document.form1.text1[selectedIndex].value;
document.form1.submit()
}
</script>
<body bgcolor="#FFFFFF">
<%
Dim oConn
Dim strConn
Dim sConn
Dim oSqlStmt, oSqlStmt1, oSqlStmt2
Dim oRs, oRs1, oRs2
Dim MySqlStmt, MySqlStmt2
Dim sID, sUID
Dim sLev, sLev1, sLev2
Dim cmd, cmdMit, cmdMit2
Dim fso, tmpID, strUID
Dim objFile
Dim sCatalog, sCube, sDescr
Dim sDisp, sServer, sAdminDB
Dim sDB
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(Server.MapPath("test.txt"), 8)
sID = Request.QueryString("ID")
objFile.writeline (sID)
sDB = Request.QueryString("Selected")
objFile.writeline(sDB & ": tatsache")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Provider = "sqloledb"
strConn = BuildConnectionString()
oConn.Open strConn
set oSqlStmt = Server.CreateObject("ADODB.Command")
set oRs = Server.CreateObject("ADODB.Recordset")
oRs.CursorType = 2
set oSqlStmt1 = Server.CreateObject("ADODB.Command")
set oRs1 = Server.CreateObject("ADODB.Recordset")
oRs1.CursorType = 2
set oSqlStmt2 = Server.CreateObject("ADODB.Command")
set oRs2 = Server.CreateObject("ADODB.Recordset")
oRs2.CursorType = 2
Set oSqlStmt.ActiveConnection = oConn
theYear = Year(Date) & vbCrLf
' hier befülle ich meine form und diese sachen sollen stehenbleiben wenn ich unten beim selectbox was auswähle!
If sID <> "" Then
oSqlStmt.CommandText = "SELECT Arbeitsanteil,Telefon,eMail,
RestrictedAccess from DEFISSUser where UserID = " & sID
objFile.writeline (oSqlStmt.CommandText)
Set oRs = oSqlStmt.Execute
sUID = (oRs.Fields(0))
objFile.writeline (sUID)
If oRs.Fields(1) = "" Then
sLev = "0"
Else
slev = (oRs.Fields(1))
End if
If oRs.Fields(2) = "" Then
sLev1 = "0"
Else
sLev1 = (oRs.Fields(2))
End if
If oRs.Fields(2) = "" Then
sLev2 = "0"
Else
sLev2 = (oRs.Fields(3))
End if
oRs.Close
End if
%>
<TABLE class="ListView" align="center" width="100%" bgcolor="#FEF1E9">
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">AA</TD>
<TD><INPUT size="30%" value="<%Response.Write(Cstr(sUID))%>" type="text" id="text1" name="AA" style="background-color:#FEF1E9;"></TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">Telefon</TD>
<TD><INPUT size="30%" value="<%Response.Write((sLev))%>" type="text" id="text1" name="Telefon" style="background-color:#FEF1E9;"></TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">eMail</TD>
<TD><INPUT size="30%" value="<%Response.Write((sLev1))%>" type="text" id="text1" name="eMail" style="background-color:#FEF1E9;"></TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633;"> </TD>
<TD size="30"> </TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">Zugriff</TD>
<TD><INPUT size="30%" value="<%Response.Write((sLev2))%>" type="text" id="text1" name="Zugriff" style="background-color:#FEF1E9;"></TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">Eingerichtete Würfel</TD>
<td>
<SELECT size="5" style= "width:100pt" id="select1" name="select1" style="background-color:#FEF1E9;" onclick="ClickDB((<%Response.Write(cstr(Request.QueryString("ID")))%>)">
<%
'hier ist meine selectbox die befüllt wird mit datenbanknamen und Würfelname
if sID <> "" then
MySqlStmt = "SELECT CubeInfo.Cube AS Cube, AdminDB as DB "
MySqlStmt = MySqlStmt & "FROM CubeAccess INNER JOIN "
MySqlStmt = MySqlStmt & "CubeInfo ON CubeAccess.CubeID = CubeInfo.CubeID "
MySqlStmt = MySqlStmt & "WHERE CubeAccess.UserID = " & sID
objFile.writeline (MySqlStmt)
oSqlStmt.CommandText = MySqlStmt
oSqlStmt.CommandType = 1
set oSqlStmt.ActiveConnection = oConn
oRs.Open oSqlStmt, , 1
do while not oRs.EOF
sCube = cstr(oRs.Fields(0))
objFile.writeline (sCube)
sAdminDB = cstr(oRs.Fields(1))
objFile.writeline (sAdminDB)
%>
<OPTION value = "<%Response.Write(cstr(sAdminDB))%>" Selected > <%Response.Write(cstr(Trim(sCube)))%>
<%
oRs.MoveNext
Loop
oRs.Close
end if
%>
</select>
</TR>
<TR align="center">
<TD><INPUT type="button" value="Login zurücksetzen" id="button1" name="button1" style="background-color:#D9EAE1;" onclick="Click1()"></TD>
<TD><INPUT type="button" value="Aktive Sitzung beenden" id="button2" name="button2" style="background-color:#D9EAE1;" onclick="Click2()"></TD>
<TD><INPUT type="button" value="Ändern" id="button3" name="button3" style="background-color:#D9EAE1;" onclick="Click3()"></TD>
<TD><INPUT type="button" value="Löschen" id="button4" name="button4" style="background-color:#D9EAE1;" onclick="Click4()"></TD>
</TR>
</TABLE>
<%
oConn.Close
set oConn = Nothing
%>
</body>
</form>
</head>
</html>
---
Danke schonmal im vorraus und ciao
Filiz
