[TCX][MyODBC]SQLBindParameter not used for all parameters ???

Nedenstående er lavet til ASP :

    AscArray = "0,1,2,3,4,5,6,7,11,12,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127"
    AscArray = Split(AscArray,",")
   
    Function myPrep (DataStr)
        DataStr = Replace(DataStr,"\","\\")
        DataStr = Replace(DataStr,Chr(0),"\0")
        DataStr = Replace(DataStr,Chr(8),"\b")
        DataStr = Replace(DataStr,Chr(9),"\t")
        DataStr = Replace(DataStr,"'","\'")
        DataStr = Replace(DataStr,"""","\""")
        DataStr = Replace(DataStr,Chr(10),"\n")
        DataStr = Replace(DataStr,Chr(10) & Chr(13),"")
        DataStr = Replace(DataStr,Chr(13),"")
        '
        For I = 0 To UBound(AscArray)
            DataStr = Replace(DataStr,Chr(I),"")
        Next 'I
        '
        myPrep = Trim(DataStr)
    End Function 'myPrep

Du kan også få brug for denne :

    Function AnsiDate (Dato)
        eDay = Day(Dato)
        If Len(eDay) = 1 Then eDay = "0" & eDay
        '
        myMonth = Month(Dato)
        If Len(myMonth) = 1 Then myMonth = "0" & myMonth
        '
        AnsiDate = Year(Dato) & "-" & myMonth & "-" & eDay
    End Function 'AnsiDate