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

'Datenbankanbindung ohne ODBC 
'geht nur, wenn auf Webserver ein Access-Treiber installiert ist!

Dim objcon, objrspersonen, strsqlselpersonen


'*****************************************************************
'Code innerhalb der HTML-Seite

Set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
  "DBQ=" & server.MapPath("/asppages/silvi/db/dbpersonen2000.mdb")

'Select
strsqlselpersonen = "SELECT * FROM tblpersonen "
If request("name") <> "" Then
  
  strsqlselpersonen = strsqlselpersonen & " WHERE nachname IN ('" & Replace(request("name"), ",", "','") & "')"
End if
'Response.Write(strsqlselpersonen & vbcrlf)
Set objrspersonen = Server.CreateObject("ADODB.Recordset")
objrspersonen.Open strsqlselpersonen, objcon

Do While Not objrspersonen.EOF 
  Response.Write(objrspersonen("vorname") & "|" & objrspersonen("nachname") & vbcrlf)
  objrspersonen.MoveNext 
Loop

objrspersonen.Close
Set objrspersonen = Nothing
%>
Demo: beispiele/060ajaxrequest.asp

---

Letzter Update: 26.12.2021 16:48

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