Jeg har nu denne kode:
<% vis = request.form("mode")
%>
<%
set oConn = Server.CreateObject("ADODB.Connection")
set oRs = Server.CreateObject("ADODB.recordset")
set oRse = Server.CreateObject("ADODB.recordset")
' Open a connection to the Excel spreadsheet
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source="&Server.MapPath("test.xls")&";" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
if vis <> "vis" then
%>
<form action="excel.asp" method=post>
<table border="0" width="382">
<tr>
<select size="1" name="soge">
<%
' Create a command object and set its ActiveConnection
' This SQL statement selects a cell range in the "Expenses" worksheet.
' oCmd.CommandText = "SELECT * from `Expenses$A2:C4`"
' This SQL statement selects a named cell range defined in the workbook.
sql = "SELECT * from myRange where karen='dunker'"
' Open a recordset containing the worksheet data.
oRS.Open sql,oConn,1,3
sqle = "SELECT * from kunde"
' Open a recordset containing the worksheet data.
oRSe.Open sqle,oConn,1,3
do while not oRSe.eof
If IsNull(oRSe("kunde")) Then
else
response.write "<option value='"&oRSe("kunde")&"'>"&oRSe("kunde")&"</option>"
end if
oRSe.movenext
loop
response.write "</select><input type=hidden name='mode' value='vis'><input type=submit value='Søg!!'>"
else
soge = request.form("soge")
sql = "SELECT * from totest where kunde='"&soge&"'"
' Open a recordset containing the worksheet data.
oRS.Open sql,oConn,1,3
'do while not ors.eof
response.write "dette er " & ors("kunde") & " dette er fakt_plan " & ors("test")
'ors.movenext
'loop
end if
den kommer med en fejl i linie 69:
"Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal"
linie 69:
response.write "dette er " & ors("kunde") & " dette er fakt_plan " & ors("test")
test er kolonnen lige ved siden af kunde kolonnen. de er lige lange hvis det har betydning.
Med hvad er der galt??
