rothen ecotronics Bern: ASP-Skript "ASP Statusverwaltung: Oracle-Datenbank und Parameter 2, Eingaben in DB speichern"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next

'Kein Resultat

Dim intkey
Dim objcon
Dim strsqlins

'Connection öffnen
Set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open "DSN=digi_user;UID=scott;PWD=tiger;SERVER=mlab"

'eindeutigen Schlüssel aus Sequence holen
intkey = _
  objcon.Execute("SELECT digi_user_seq.NEXTVAL id FROM DUAL")(0)

'Neuen Datensatz einfügen mit Execute
strsqlins = "INSERT INTO digi_user " & _
  "(digi_user, id, passwort, geschlecht) " & _
  "VALUES (" & intkey & ", '" & Request.Form("frmfldid") & "', '" & _
  Request.Form("frmfldpasswort") & "', '" & _
  Request.Form("frmfldgeschlecht") & "') "
objcon.Execute (strsqlins)
objcon.Execute ("commit")

objcon.Close()
set objcon = Nothing
'Weiterleiten auf Seite 3
Response.Redirect("050db3.asp?id=" & intkey)
%>

<html>
<head>
<title>ASP Statusverwaltung:
  Oracle-Datenbank und Parameter 2, Eingaben in DB speichern</title>

</head>
<body>
<p>Diese Seite wird wegen Weiterleitung gar nie angezeigt!</p>

</body>
</html>

Letzter Update: 26.12.2021 16:48

Zurück zur Liste mit ASP-Beispielen auf www.ecotronics.ch