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 " "
' --- 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
%>
|
