Detta sitter i en tabell och form där "cbocontact" blir en combobox
och "kperson" en submit knapp

<code>
<%
Dim rsContact, SQLcontact
SQLcontact = "Select * From Contacts"
Set rsContact = Server.CreateObject("ADODB.Recordset")
rsContact.Open SQLcontact, DB

Do Until rsContact.Eof
Response.Write rsContact("RecID") & "," & rsContact("Given_Name") & "," & rsContact("Last_Name")
rsContact.MoveNext
Loop
rsContact.Close

Dim p
If Request("kperson") = "Godkänn kontakt" then
If Request.Form("cbocontact")= "Välj Kontakt-person" Then
Response.Write "Ingen Kontakt-person är ännu vald"
Else

Dim Data
Set Data = Request.Form ("cbocontact")
Response.Write Data
Dim Array
Array = Split(Data,",")
Dim Artiklar()
Artiklar = UBound(Array) - 1
For A = 1 To Artiklar
Response.Write Artiklar(A) & "<br>"
Next
End If

End If
%>
</code>

Det som händer är att comboboxen fylls med uppgifter som den ska och när jag
trycker på submit"kperson"
så skrivs den första response.write Data ut som en sträng och efter den så
kommer detta:
Körningsfel i Microsoft VBScript error '800a000d'
Inkompatibla typer
hjälp mig

Du kan inte döpa en Array till Array....

/Janne

fick detta från ASp-kursen på pellesoft
men jag hr bytt namn på array och det blev lika

Du har dimmat Artiklar som en Array:

Dim Artiklar()

Byt till:

Dim Artiklar

så kommer det nog att gå lite bättre

cya,
PatrikB

samma
likadant
same same

Du kan inte skriva:
Set Data = Request.Form ("cbocontact")

Prova:
Data = Request.Form ("cbocontact")

Ps. Jag pillade till din kod lite så den såg stiligare ut. Ni vet väl att man kan använda < code > och < /code > för att formatera programkod som ni skriver i forumet..

/Pelle

same same but different


tack för kodningen
Per

Du kan ju testa denna koden, kanske funkar:

<code>
<%
Dim rsContact, SQLcontact
Dim fldRecID, fldGivenName, fldLastName
SQLcontact = "Select * From Contacts"

Set rsContact = Server.CreateObject("ADODB.Recordset")
rsContact.Open SQLcontact, DB

Set fldRecID = rsContact("RecID")
Set fldGivenName = rsContact("Given_Name")
Set fldLastName = rsContact("Last_Name")
Do Until rsContact.Eof
Response.Write fldRecID & "," & fldGivenName & "," & fldLastName
rsContact.MoveNext
Loop
Set fldRecID = Nothing
Set fldGivenName = Nothing
Set fldLastName = Nothing
rsContact.Close

If Request("kperson") = "Godkänn kontakt" then
If Request.Form("cbocontact")= "Välj Kontakt-person" Then
Response.Write "Ingen Kontakt-person är ännu vald"
Else
Dim A
Dim Data
Dim Antal
Dim Artiklar

Data = Request.Form("cbocontact")
Response.Write Data

Artiklar = Split(Data, ",")
Antal = UBound(Artiklar) - 1
For A = 1 To Antal
Response.Write Artiklar(A) & "<br>"
Next
End If
End If
%>
</code>