rothen ecotronics Bern: ASP-Skript "SWP-Einführung ASP 2: Update eines Datensatzes"

<%@ Language=VBScript %>
<%
Response.Expires = 0

'Kein Resultat
%>
<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
    <title>SWP-Einführung ASP 2:  Update eines Datensatzes</title>
  </head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite
Dim objcon, objrs, strsql
Set objcon = Server.CreateObject("ADODB.Connection")
'ODBC on the fly
objcon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
  "DBQ=" & Server.MapPath("/asppages/silvi/db/dbpersonen2000.mdb")

Set objrs = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM tblpersonen WHERE personennr = 10"
'Recordset für Änderungen öffnen
objrs.Open strsql, objcon, 1, 3

objrs("vorname")= "Anja"
objrs.Update

Response.Write("<p>Sie haben folgenden Datensatz geändert</p><p>" & vbCrLf)
Response.Write("Nr " & objrs("personennr") & ", " & _
  objrs("nachname") & ", " & _
  objrs("vorname") & ", " & _
  objrs("jahrgang") & "</p>" & vbCrLf)

objrs.Close
Set objrs = Nothing

objcon.Close
Set objcon = Nothing
%>

</body>
</html>

Letzter Update: 26.12.2021 17:48

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