Thomas: Eigenschaftsabfrage von Tabellenfeldern in VBScript

Beitrag lesen

SELF-Forum

Eigenschaftsabfrage von Tabellenfeldern in VBScript

Thomas
– Informationen zu den Bewertungsregeln

Hallo Leute

Vielleicht könnt Ihr mir weiterhelfen. Es geht um den unten stehenden Code.
Ich schreibe damit eine ergebnistabelle.
Ich hätte aber gern den Text des entsprechenden Tabellen Feldes farbig gemacht in Abhängigkeit vom Tabellen Feld(ob es ein Pflichtfeld ist oder nicht: Dieser Wert muss eingetragen werden). Kann mir jemand weiterhelfen. Mir fehlen die entsprechenden Befehle.Ich nehme an gObjRS.Fields.Properties.???
Ich weiss echt nicht weiter.

Vielen Dank schon im vorraus!!!

Gruß Thomas

<!-- TABLE HEADER -->
<TR>
<TD COLSPAN=<% =myFieldCount+1 %>>
<FONT CLASS="VERYIMPORTANT"><% =myDSN %> ::
<% =myTable %> (<% =gObjRS.RecordCount %>  Einträge) Seite <%=myPage%>/<%=gObjRS.PageCount %></FONT>
</TD>
</TR>
<TH COLSPAN=<% =myFieldCount+1 %>>Inhalt der Tabelle ( SQL Abfrage : <% =mySQLQuery %> )
</TH>

<!-- FIELD NAME -->
<TR>
<%
For i = 0 to myFieldCount-1
myLink = "tablecontent.asp?DSN_Name=" & myDSN & "&Table_Name=" & myTable & "&Page=1&OrderBy=" & gObjRS.Fields(i).Name
Response.Write "<TD NOWRAP><B>" & gObjRS.Fields(i).Name & "</B><BR>(" & GetType(gObjRS.Fields(i).Type) & ")<A HREF='" & myLink & "&way=ASC'><B> A</A>-<A HREF='" & myLink & "&way=DESC'>D</A></B></TD>" & vbCrlf
Next
%>
<TD> </TD>
</TR>

<!-- RECORDS -->
<%
If gObjRS.RecordCount > 0 Then
gObjRS.Move (gObjRS.PageSize * (myPage-1))
End If
myCount = 1
Do While Not gObjRS.EOF AND myCount <= gObjRS.PageSize
Response.Write "<TR>"
For i = 0 to myFieldCount-1
myValue = gObjRS(i)
If myValue = "" Or VarType(myValue)= vbNull Or IsNull(myValue)Then
      myValue = " "
End If
Response.Write "<TD>" & myValue & "</TD>" & vbCrlf
Next
' Modify And Drop
myUpdateLink = "updaterecord1.asp?"
myDropLink = "droprecord1.asp?"
myLink = ""
For j = 0 to myFieldCount-1
If Not gObjRS.Fields(j).Properties(13).Value Then ' autoincrement are non-updatable
If gObjRS(j) <> "" Then
myLink = myLink & gObjRS.Fields(j).Name & "=" & Server.URLEncode(gObjRS(j)) & "&"
Else
myLink = myLink & gObjRS.Fields(j).Name & "=&"
End If
myLink = myLink & gObjRS.Fields(j).Name & "_JTMRType=" & GetType(gObjRS.Fields(j).Type) & "&"
End If
Next
myLink = myLink & "DSN_Name=" & myDSN & "&Table_Name=" & myTable
Response.Write "<TD>  <A HREF=" & myUpdateLink & myLink & "><B>Ändern</B></A>  "
Response.Write "  <A HREF=" & myDropLink & myLink & "><B>Löschen</B></A>  "
Response.Write "</TD>" & vbCrlf
Response.Write "</TR>" & vbCrlf

myCount = myCount + 1
gObjRS.MoveNext
Loop
%>

Beitrag melden
–
Informationen zu den Bewertungsregeln