WebWork Magazin - Design, Gestaltung, Online Medien, html

Webhosting Provider Domain

Home | Registrieren | Einloggen | Suchen | Aktuelles | GSL-Webservice | Suleitec Webhosting
Reparatur-Forum | Elektro forum | Ersatzteilshop Haushalt und Elektronik



Im Homepage und Webhosting-Forum --- Formular

ASP, Python, Perl, CGI, Ruby, Ajax, GO, ... Vom Syntax Error bis zum Release, hier ist Platz für Diskussionen !

Forum » Sonstige Web-Programmiersprachen » Formular - 24 Juni 2017 Antworten
im Forum für Webhosting Homepage gefunden:
Formular
filiz
Pixelschubser
Threadstarter




Beiträge: 6

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

  Profil   E-Mail   Editieren   Zitieren
languitar
Foren-Team




Beiträge: 2795

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

  Profil   Editieren   Zitieren
filiz
Pixelschubser
Threadstarter




Beiträge: 6

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

---
Danke schonmal im vorraus und ciao

Filiz

  Profil   E-Mail   Editieren   Zitieren
languitar
Foren-Team




Beiträge: 2795

Ich kann kein ASP.

  Profil   Editieren   Zitieren
filiz
Pixelschubser
Threadstarter




Beiträge: 6

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

---
Danke schonmal im vorraus und ciao

Filiz

  Profil   E-Mail   Editieren   Zitieren
zeTo
Quasselstrippe




Beiträge: 240

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

  Profil   Editieren   Zitieren
filiz
Pixelschubser
Threadstarter




Beiträge: 6

<%@ 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;">&nbsp;</TD>
<TD size="30">&nbsp; </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

  Profil   E-Mail   Editieren   Zitieren
filiz
Pixelschubser
Threadstarter




Beiträge: 6

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

  Profil   E-Mail   Editieren   Zitieren
filiz
Pixelschubser
Threadstarter




Beiträge: 6

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



---
Danke schonmal im vorraus und ciao

Filiz

  Profil   E-Mail   Editieren   Zitieren
 

Antworten


Forum » Sonstige Web-Programmiersprachen » Formular

Aktuelle Beiträge zur Hilfe im Forum für Homepage - Formular im Forum Homepage Hosting AntwortenLetztes Posting
Umfrage zu Web-Technologien
in "Sonstige Web-Programmiersprachen"
2 05.07.2016 21:42 von Lucky-taro
Datei automatisch hochladen (lokal->server)
in "Sonstige Web-Programmiersprachen"
1 04.07.2016 21:21 von andyy
Social trading
in "Sonstige Web-Programmiersprachen"
0 04.07.2016 21:20 von andyy
POST Formulare per Perl funktioniert nicht
in "Sonstige Web-Programmiersprachen"
0 07.02.2016 17:31 von idreams
Multiplayer Spiele in Visual Basic
in "Sonstige Web-Programmiersprachen"
7 30.11.2015 21:31 von Klaus1973
Einige Lebensfreude nur für Männer!!!
in "Sonstige Web-Programmiersprachen"
3 06.09.2015 15:21 von Paraselle
Alt-Tag bei Javascript
in "Sonstige Web-Programmiersprachen"
0 06.09.2015 15:07 von Paraselle
Suchen Webmaster Teil - oder Vollzeit
in "Sonstige Web-Programmiersprachen"
2 11.03.2014 07:50 von matwind
welche Zukunft haben Java Entwickler
in "Sonstige Web-Programmiersprachen"
1 26.05.2011 10:06 von coder
Berechnung auf der Homepage
in "Sonstige Web-Programmiersprachen"
1 26.05.2011 10:00 von coder
Google Go - Neue Programmier Sprache des Internet Riesen, Erfahrungen ?
in "Sonstige Web-Programmiersprachen"
0 20.11.2009 00:40 von Rieke
Virtueller Rundgang
in "Sonstige Web-Programmiersprachen"
11 20.10.2009 03:39 von kikilala



Besucher : 5167492    Heute : 291     Gestern : 1291     Online : 61     24.6.2017    5:44      1 Besucher in den letzten 60 Sekunden        
alle 60.00 Sekunden ein neuer Besucher
Die letzten 30 Referrer :

1 2:49 - bing.com/search - web de störung
2 20:57 - bing.com/search - stromverbrauch pro jah
3 13:16 - https://google.de/search - lustige arbeitsfotos
4 5:59 - ask.com/web - Bauservice, Arrach
5 23:32 - google.at/search - gmx störung
6 14:51 - bing.com/search - psd files elemente informationen grabben
7 13:03 - bing.com/search - rewit wände wieder einblenen
8 9:13 - bing.com/search - html unterstrich entfernen
9 2:54 - bing.com/search - communicator strato
10 23:58 - bing.com/search - srörung freenet sachsen
11 22:38 - bing.com/search - webmaster forum rechtsschutz
12 18:56 - google.com/search - content
13 18:55 - google.com/search - content
14 17:25 - bing.com/search - Stauswertliste
15 14:26 - bing.com/search - patch probleme juni 2017 outlook
16 10:18 - bing.com/search - Gmx Störung heute
17 10:12 - bing.com/search - gmx nicht erreichbar
18 10:12 - bing.com/search - gmx nicht errrichbar
19 10:09 - bing.com/search - gmx nicht erreichbar
20 10:03 - bing.com/search - gmx nicht erreichbar heute
21 9:54 - google.de/search - gmx email nicht erreichbar
22 9:53 - bing.com/search - gmx server nicht erreichbar
23 9:32 - bing.com/search - gmx nicht erreichbar heute
24 9:28 - bing.com/search - gmx störung heute
25 9:25 - bing.com/search - gmx Störung
26 9:21 - bing.com/search - gmx nicht erreichbar heute
27 9:11 - bing.com/search - gmx nicht erreichbar?
28 9:11 - https://bing.com/search - gmx nicht erreichbar heute
29 9:06 - bing.com/search - gmx nicht erreichbar
30 1:55 - bing.com/search - gmx störung

Nach oben