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 - 21 August 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 : 5244194    Heute : 758     Gestern : 1052     Online : 43     21.8.2017    16:02      0 Besucher in den letzten 60 Sekunden        
Die letzten 30 Referrer :

1 1:50 - bing.com/search - 49 Gesch
2 1:38 - bing.com/search - 49 Gesch
3 1:25 - bing.com/search - 49 Gesch
4 23:29 - bing.com/search - beispiel strato forum
5 18:09 - google.de/search - HTML Formulardaten versenden
6 15:55 - https://google.at/search - B
7 12:36 - https://qwant.com/ - theo aktivierungscode generator
8 10:57 - google.bg/search - skype funktioniert nicht mehr 2017
9 2:37 - bing.com/search - gmx störung
10 15:59 - sm.de/ - probleme bei outlook hotmail update
11 11:23 - bing.com/search - auf bestimmten strato server einloggen
12 20:42 - bing.com/search - gmx störung
13 15:34 - google.com/search - content
14 15:22 - google.com/search - content
15 15:20 - google.com/search - content
16 7:17 - bing.com/search - probleme posteingang mit web freemail 2017
17 4:35 - https://bing.com/search - hg bidopa
18 22:59 - bing.com/search - gmx keine mails schreiben möglich störung
19 23:34 - google.de/search - balken in der homepage
20 12:53 - de.search.yahoo.com/search - freemail die kostenlose e news
21 11:30 - astromenda.com/results.php - GMX Netzprobleme
22 22:07 - google.de/search - handy orten freundin
23 13:06 - bing.com/search - htmlcode formular absenden
24 12:30 - google.de/search - heimlich handy orten kostenlos
25 11:52 - bing.com/search - probleme hotmail konto 2017
26 11:27 - bing.com/search - stromverbrauch server pro jahr
27 18:19 - bing.com/search - gmx keine mails schreiben möglich störung
28 17:04 - google.com/search - content
29 17:03 - google.com/search - content
30 16:30 - google.com/search - content

Nach oben