[DudeRille]

Case "U" ' UPDATE
For Each strItem In strForm
If Left(strItem,1) <> "#" then
Select Case Left(LCase(strItem),3)
Case "dat"
strField = strField & "fld" & Mid(strItem,4) & "=" & strDateSeparator & CDate(Request.Form(strItem)) & strDateSeparator & ","
Case "int"
strField = strField & "fld" & Mid(strItem,4) & "=" & CLng(Request.Form(strItem)) & ","
Case "str"
strField = strField & "fld" & Mid(strItem,4) & "=" & "'" & Replace(Request.Form(strItem),"'","''") & "'" & ","
End Select
End If
Next
strField = Left(strField,Len(strField)-1)
formExecute = "UPDATE " & strTable & " SET " & strField & " WHERE fldIndex = " & Clng(intIndex)