Hallo Forum-User!

Ich habe eine seite namens Rechts.asp!
Auf dieser seite habe ich ein formularfeld

Name
Vorname
Tel
email und
eine selectbox mit datenbanknamen für diese person eingerichtet ist.

So wenn ich jetzt eine dab aus dieser selectbox anklicke dann soll er mit dem value der selectbox ein sql-statement ausführen. Nur das problem ist,wenn ich eine dab anklicke dann schickt er was ab, aber löscht dann meine input felder einschließlich selectbox feld.
Warum????



---
Danke schonmal im vorraus und ciao

Filiz

Weil dein Target nichts tut um die Felder nach dem verschicken wieder zu befüllen.

Könnte ich mal mein code reinsetzen und du schaust mal rüber geht das?!?!

---
Danke schonmal im vorraus und ciao

Filiz

Ich kann kein ASP.

Wer kann den aus diesem Forum asp? Kann ich jemanden anderen Fragen?

---
Danke schonmal im vorraus und ciao

Filiz

poste doch einfach, irgendjemand wird wohl was dazu sagen können.

<%@ 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
%>

<%
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
%>

AA
Telefon
eMail
Zugriff
Eingerichtete Würfel	)"> <% '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) %> <%Response.Write(cstr(Trim(sCube)))%> <% oRs.MoveNext Loop oRs.Close end if %>

<%
oConn.Close
set oConn = Nothing
%>

---
Danke schonmal im vorraus und ciao

Filiz

Hat vielleicht jemand einen fertigen beispiel-code?!?!?
Es wäre sehr hilfreich denn ich sitze schon fast eine woche an dieser sache und komme nicht weiter!!!!

---
Danke schonmal im vorraus und ciao

Filiz

Ich hab die Lösung schon selber gefunden!
Danke aber an die die mir geantwortet haben!



---
Danke schonmal im vorraus und ciao

Filiz