<% ' ===== kenn beinhaltet ein Schluesselwort, nach dem der Inhalt der Seite aus der Datenbank gelesen wird ===== kenn = request.querystring("KENN") ' set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.mappath("data/wahlarzt.mdb") set rs=Server.CreateObject("ADODB.recordset") sql = "Select * from content WHERE kenn = '" & kenn & "'" rs.Open sql, conn if not rs.EOF then titel = rs.Fields("titel") teasertitel = rs.Fields("teasertitel") teasertxt = rs.Fields("teasertxt") inhalt = rs.Fields("inhalt") bildname = rs.Fields("bildname") bildtxt = rs.Fields("bildtxt") else ' ===== Problem! Die angeforderte Seite ist nicht da titel = "Fehler aufgetreten!" teasertitel = "" teasertxt = "

 

 

 

 

 

" inhalt = "

Eine ungültige Seite wurde angefordert.

 

 

 

 

 

" bildname = "" bildtxt = "" end if rs.close conn.close %>

<%= teasertitel %>

<% = teasertxt %>

<%= titel %>

<% if len(bildname) > 0 then bildname_gross = replace (bildname,"_kl","") response.write "
" & VbCrLf response.write "" response.write "" response.write "
" & VbCrLf response.write "" response.write "" response.write "
" & VbCrLf end if response.write inhalt %>