Kan någon hjälpa mig och se vad jag har missat får inte den här funktionen att fungera....
<%
'*****************************************************************************
'Funktionen get_sokval för dropplisten
function Get_sokval(strType)
dim strSQL,strHTML
strType=Trim(strType)
strHTML="<SELECT Name=sok onChange=" & chr(34) & "Post()" & chr(34) & ">"
strSQL = "SELECT distinct " & strType & " "
set Conn=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
Conn.Open "DSN=scannat;UID=;PWD="
RS.Open strSQL,Conn,1,2
strHTML=strHTML & "<OPTION>"
DO WHILE NOT RS.EOF
[b] strHTML=strHTML & "<OPTION VALUE=" & chr(34) & RS(Namn) & chr(34) & ">" & RS(Namn)[/b]
RS.MoveNext
LOOP
RS.Close()
strHTML=strHTML & "</SELECT>"
Get_sokval=strHTML
end function
'*****************************************************************************
%>
Jag får felmeddelandet
Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/Rma_admin/Left.asp, line 28
kolumnen namn finns med i Vyn ???????
------------------
Är man medlem på WF så behöver man inga vänner !
[Redigerat av Tobbster den 11 nov 2001]