H o m e   O f   P a u l i O p a

Rezepte aus der Küche Russlands

(Russland, Ukraine, Usbekistan ...)


Diese Rezeptdaten sind noch in Arbeit und in Kürze redigiert.

<% Dim Counter Counter = 1 Function DoLF(sString, what) Dim a, buffer buffer=sString Do a=Instr(buffer, " ") if a <> 0 then buffer=Replace(buffer, " ", " ") else exit do end if Loop buffer=Replace(buffer, "Empfehlung:", "") if what <> 0 then buffer=Replace(buffer, vbCrLf + vbCrLf, vbCrLf) buffer=Replace(buffer, "," + vbCrLF, vbCrLF) if instr(buffer, ":") then buffer=Replace(buffer, ": ", ":") buffer=Replace(buffer, ":" + vbCrLf, ":") buffer=Replace(buffer, ":", ":
") End if buffer=Replace(buffer, vbCrlf, ",
") Else buffer = Replace(buffer, vbcrlf, "
") end if DoLF=buffer END Function strsql = "" 'set connection string to local variable-I use a DSN-less connection strConn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("\") & "\fpdb\kochrezepte.mdb" set conn=server.createobject("adodb.connection") set rs=server.CreateObject("ADODB.Recordset") conn.open strConn sql="Select * from russisch" strAlt="" strAlt=strAlt + "" Set rs = Server.CreateObject("ADODB.Recordset") ' --- RecordSet-Objekt instanzieren rs.Open sql, conn, 3, 3 ' --- Abfrage starten rs.MoveFirst ' --- Gehe zum ersten Datensatz in der Gruppe 'Response.Write "

    " 'do while Not rs.eof ' rezept=Trim(rs.Fields("Rezeptname")) ' Response.Write "
  • " + rezept + "
  • " ' counter= counter+1 ' rs.MoveNext ' --- Gehe zum nächsten Datensatz 'loop Response.Write "


" rs.MoveFirst ' --- Gehe zum ersten Datensatz in der Gruppe Response.Write "

" 'do while Not rs.eof ' --- Variable belegen REZEPTNAME ---- rezept=Trim(rs.Fields("Rezeptname")) if Not IsNull(rs.Fields("Beschreibung")) then beschreibung=Trim(rs.Fields("Beschreibung")) beschreibung=doLF(beschreibung, 0) Else beschreibung="" End if portion=Trim(rs.Fields("AnzahlPortionen")) zutaten=rs.Fields("Zutaten") zutaten=doLF(zutaten, 1) bereitung=trim(rs.Fields("Zubereitung")) bereitung=doLF(bereitung, 0) if Not IsNull(rs.Fields("Serviervorschläge")) then service=Trim(rs.Fields("Serviervorschläge")) service=doLF(service, 0) Else service="" End if trinken=rs.Fields("Getränkeempfehlung") if Not IsNull(rs.Fields("Getränkeempfehlung")) then trinken=Trim(rs.Fields("Getränkeempfehlung")) trinken=doLF(trinken, 0) Else trinken="" End if Response.write "

" + strAlt + rezept + "

" ' --- BESCHREIBUNG --- if Trim(beschreibung) <> "" then response.write beschreibung + "
" Response.Write "

" ' --- PORTIONEN --- ' --- ZUTATEN --- Response.Write "

Zutaten für " & portion & " Portionen:

" Response.Write zutaten + "

" ' --- ZUBEREITUNG --- Response.Write "

Zubereitung:

" Response.Write bereitung Response.Write "

" ' --- SERVIERVORSCHLAG --- if service <> "" then Response.Write "
Serviervorschlag:

" Response.Write service Response.Write "

" end if ' --- Getränkeempfehlung --- if trinken <> "" then Response.Write "
Getränkeempfehlung:

" Response.Write trinken Response.Write "
" end if Response.Write "



" ' rs.MoveNext ' --- Gehe zum nächsten Datensatz 'loop ' --- CLOSE UND CLEANUP ---- rs.Close Conn.Close Set rs = Nothing set Conn=Nothing %>
 

 

Copyright © 1998-2005 PauliOpa
All rights reserved.