|
<%
'Die Nächsten 3 Verkäufe
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "svbasel_test"
set objRS = Server.CreateObject("ADODB.Recordset")
set objRS2 = Server.CreateObject("ADODB.Recordset")
sMonat = month(now)
if len(sMonat)=1 then sMonat = "0" & sMonat
sTag = day(now)
if len(sTag)=1 then sTag = "0" & sTag
sJahr = year(now)
sTag2 = day(now)
sTag2 = sTag2+1
if len(sTag2)=1 then sTag2 = "0" & sTag2
strDatumJetzt = sJahr & "." & sMonat & "." & sTag
strDatumMorgen = sJahr & "." & sMonat & "." & sTag2
SQLString = "SELECT * FROM verkauf WHERE date1 >= '" & strDatumJetzt & "' ORDER by Date1 ASC"
objRS.Open SQLString, objConn
intCount = 0
do until objRS.EOF or intCount>30
intCount = intCount + 1
objRS.movenext
loop
if intCount > 0 then
objRS.movefirst
iCount=1
sDateS=""
do
sMonat=""
sDate1 = objRS("date1")
sOrt = objRS("item")
sType = obJRS("type")
sID = objRS("id")
if sType = 0 then
STag="Fr. "
else
STag=""
end if
if IsDate(sDate1) then
iMonat = month(sDate1)
select case iMonat
case 1 SMonat="Januar"
case 2 SMonat="Februar"
case 3 SMonat="März"
case 4 SMonat="April"
case 5 SMonat="Mai"
case 6 SMonat="Juni"
case 7 SMonat="Juli"
case 8 SMonat="August"
case 9 SMonat="September"
case 10 SMonat="Oktober"
case 11 SMonat="November"
case 12 SMonat="Dezember"
end select
end if
if sDate1=strDatumJetzt then
sDate1 = right(objRS("date1"),2) & "."
sDate1 ="Heute " & sDate1 & " " & SMonat
elseif sDate1=strDatumMorgen then
sDate1 = right(objRS("date1"),2) & "."
sDate1 ="Morgen " & sDate1 & " " & SMonat
else
sDate1 = right(objRS("date1"),2) & "."
sJahr = left(objRS("date1"),4)
sDate1 = sTag & sDate1 & " " & SMonat & " " & sJahr
end if
if sDateS<>sDate1 then
'Neues Datum
strText = strText & " " & sDate1 & " " end if sDateS=sDate1 'strText = strText & sZeiten & ": " & sOrt & " " strText = strText & sOrt & " " if iCount > 2 then exit do objRS.movenext iCount= iCount+1 loop while objRS.EOF=false else strText="letzten Fr. des Monats" "SVB Geschäftsstelle" end if objRS.Close if left(strText,4)=" " then strText = mid(strText,5) if right(strText,4)=" " then strText = left(strText,len(strText)-4) %>
|
|
