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

'Kein Resultat

Dim objcon
Dim objrs
Dim stranrede
Dim strsqlsel

'Seitenaufrufe ohne Parameter abfangen
if Request.QueryString = "" then
  Response.Redirect("050db1.asp")
end if
%>

<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Statusverwaltung: 
  Oracle-Datenbank und Parameter 3, Datensatz aus DB auslesen</title>
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
<%
'Connection öffnen
Set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open "DSN=digi_user;UID=scott;PWD=tiger;SERVER=mlab"

'SELECT-Statement mit Schlüssel aus Parameter erzeugen
strsqlsel = "SELECT * FROM digi_user WHERE digi_user = " & _
  Request.QueryString("id")


'Recordset öffnen 
Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.Open strsqlsel, objcon, 3

If objrs.RecordCount > 0 then
  if objrs("geschlecht") = "f" then
    stranrede = "Frau"
  else
    stranrede = "Herr"
  end if
  Response.Write("Herzlich willkommen " & _
    stranrede & " " & objrs("id") & "<br />" & vbCrLf)
End If

'Recordset und Connection schliessen
objrs.Close()
Set objrs = Nothing
objcon.Close()
Set objcon = Nothing
%>

<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>

Letzter Update: 26.12.2021 16:48

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