Variable uses an Automation type not supported in VBScript

Jeg kan heller ikke forstå hvorfor det ikke virker med kolonnenummer, men MySQL kan være anderledes her end andre databaser.

Har du prøvet at angive kolonne navnet i stedet ???
response.write DataTypesRS("datatypeid").value &" ->" & DataTypesRS("name ").value&"<br>"

jeg kan ikke forstå du benytter .value
Det gør jeg aldrig selv, men ved ikke om det gør nogen forskel

1. Det eksempel jeg skrev virkede virker nu faktisk heller ikke.
2) Jeg har forsøgt som du skrev, og jeg får samme fejl

jeg kan som fennec heller ikke forstå det ikke virker med kolonne numre. For det burde jo ikke have noget med mysql at gøre
Så snart du har hentet dit recordset ud så ligger det vel tilgængeligt i en variable i vbscript og der er det jo normalt muligt at referere til såvel navn som nummer

er det så ikke fordi du benytter .value frem for blot
response.write DataTypesRS(0) &" ->" & DataTypesRS(1)&"<br>"

Har lige forsøgt uden .value, det giver ingen forskel

hvordan erklærer du dit recordset?
Kan vi se hele sammenhængen?

Håber dette er uddybende nok:

Set DataTypesRS = GetDIMSDatatypes (MyUserConn, 1492)
response.write DataTypesRS(0) &" ->" & DataTypesRS(1)&"<br>"

function GetDIMSDatatypes (cnn, intPointID)
  Dim arrUsers, strWhere, strExt, strSQL
  strExt=""
  'strSQL = "select distinct datatypes from dimsstations where pointid="&intPointID&" ORDER BY DataTypeID ASC;"
  'strSQL = "select * from datatypes, dimsstations where datatypes.datatypeid=dimsstations.datatypeid and dimsstations.pointid="&intPointID&" ORDER BY dimsstations.DataTypeID ASC;"
  'strSQL = "select * from datatypes, dimsstations where datatypes.datatypeid=dimsstations.datatypeid and dimsstations.pointid="&intPointID&";"
  'strSQL = "select datatypes.datatypeid, datatypes.name from datatypes, dimsstations where datatypes.datatypeid=dimsstations.datatypeid and dimsstations.pointid="&intPointID&" ORDER BY dimsstations.DataTypeID ASC;"
  strSQL = "select distinct datatypes.datatypeid as datatypeid, datatypes.name as name from datatypes, dimsstations where datatypes.datatypeid=dimsstations.datatypeid and dimsstations.pointid=1492;"
  response.write "<hr>strSQL<hr>" & strSQL & "<hr>"
  Set GetDIMSDatatypes = Nothing
  Set GetDIMSDatatypes = MakeSQL(cnn,strSQL)
End function

hvad laver MakeSQL ?

Fører min statement af:
Function MakeSQL(cnn,SQL)

    On Error Resume Next

    'Response.Write SQL & "<BR>" & vbCrLf

    If cnn is Nothing then
        ' return nothing
        Set MakeSQL = Nothing
    Else
        Set RS = CreateObject("ADODB.RecordSet")
        If Err And errMessage="" then
            errMessage = Err.Description
            Err.Clear
        End If
        RS.Cursorlocation = 3
        RS.Open SQL, cnn
        If Err.Number = -2147467259 Then
                    Err.Clear
        End If
        if Err Then
            Response.Write "Error statement:" & SQL & "<BR>"
            Response.Write "Error description:" & Err.Description & "<BR>"
        End If
        If Err And errMessage="" Then
            errMessage = Err.Description & ".Error statement:" & SQL
            Err.Clear
            Set MakeSQL = Nothing
        Else
            Set MakeSQL = RS
        End If
    End if

End Function

ok det kunne muligvis skyldes dit valg af cursorlocation, det er umiddelbart det eneste jeg kan finde på, uden være helt sikker da jeg ikke er inde i hvad cursorlocation præcist gør

Super tak for det.
Hvis jeg fjerner linien RS.Cursorlocation = 3 virker det umiddelbart.
Så kommer der lige et del spørgsmål, hvad gør Cursorlocation?

Nå men tak for hjælpen, kom med et svar så vi kan afregne.

cursoren styrer jo hvordan der navigeres rundt i dine records
Så vidt jeg kan forstå her
http://www.w3schools.com/ado/prop_cursorlocation.asp
Så betyder location hvor den skal finde informationer om cursoren
3 så er den sat til noget med client, og det lyder underligt på mig, derfor jeg tænkte det kunne være det som gjorde det
Men mere tjek end det har jeg ikke på det .... :o/