Как заменить данные ячейки в hta на vbscript

Я работаю над кодом, который будет отображать данные из базы данных:

Set MyConn = CreateObject("ADODB.Connection")
        MyConn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB="&Datei&";Exclusive=No" 
        SQL_query1 = "SELECT DOW(daaprotx.datum)As Wochentag, Count(daaprotx.datum)/COUNT(DISTINCT daaprotx.datum)As Rückgaben FROM daaprotx  WHERE  BETWEEN (daaprotx.datum, gomonth(date(), -12), daaprotx.datum)   AND(daaprotx.prottyp='1') AND(daaprotx.station='"&Station.options(Station.selectedIndex).value&"')Group by 1"

    Set rs=CreateObject("ADODB.recordset")
        rs.Open SQL_query1, MyConn 
        If Err.Number <>0 Then
        MsgBox "Sie haben kein Verzeichnis ausgewählt"
        End If
        On Error Goto 0 
        str1 ="<table border=1 cellpadding=5 sortable><tr>"
    For Each field In rs.Fields
    str1 = str1 & "<th>" & field.Name & "</th>"
    Next 
    str1 = str1 & "</tr>"
     Do Until RS.EOF
     str1 = str1 & "<tr>"
     For Each field In rs.Fields
     str1 = str1 & "<td>" & Round((field.Value),2) & "</td>"

     Next
     str1 = str1 & "<tr>"
     rs.MoveNext

  Loop
  str1 = str1 & "</table>"

  MainDisplay.InnerHTML = str1


        rs.Close
        Set rs = Nothing
        MyConn.close
        Set MyConn = Nothing

В результате я получаю таблицу со следующим:

Wochentag Rückgaben

2 107,69

3 114,97

4 4

5 93,06

6 88,35

Итак, я хочу изменить число в ячейках 1,1/ 2,1/ 3,1 .. и так далее в понедельник, вторник и так далее.

Я думал о чем-то вроде: in case of str1=2, replace str1 = monday, но я не нашел пути до сих пор.

Источник

1 ответ

Чтобы получить название (строку) дня недели, используйте CDOW вместо DOW.

(В долгосрочной перспективе вы должны провести некоторые исследования по отображению наборов записей в HTML; ваш текущий подход ужасен.)

Источник
Другие вопросы по тегам