WebWork Magazin - Webseiten erstellen lassen, Online Medien, html

Webhoster, Webhosting Provider und Domain registrieren

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 - 29 März 2024 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: 239

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









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


<%
oConn.Close
set oConn = Nothing
%>







---
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
Multiplayer Spiele in Visual Basic
in "Sonstige Web-Programmiersprachen"
10 27.10.2023 07:45 von Klais
Programmieren im Web lernen?
in "Sonstige Web-Programmiersprachen"
6 31.08.2021 20:03 von UweBr
Datei automatisch hochladen (lokal->server)
in "Sonstige Web-Programmiersprachen"
4 10.08.2021 12:55 von Al Blank
E-Mails mit Grafana versenden?
in "Sonstige Web-Programmiersprachen"
2 23.07.2021 05:21 von chunmin89
Als Einsteiger womit anfangen?
in "Sonstige Web-Programmiersprachen"
0 10.05.2021 21:35 von Webman
welche Zukunft haben Java Entwickler
in "Sonstige Web-Programmiersprachen"
2 17.03.2021 06:00 von andomthe
c++ fehler
in "Sonstige Web-Programmiersprachen"
2 04.11.2020 08:20 von tuiling
Webseite zu langsam, was tun?
in "Sonstige Web-Programmiersprachen"
7 06.12.2019 16:10 von andyy



Besucher : 7975209    Heute : 160     Gestern : 388     Online : 35     29.3.2024    12:31      0 Besucher in den letzten 60 Sekunden        
Nach oben