Morr'n!
Har ännu ett mysko fel. Ifall det förekommer tomma poster i tabellen vill jag helt enkelt ändra utskriften till "Ingen data".
dim b2
b2 = rs("bransch2") <<-- Rad 46
if b2 = "" then
b2 = "Ingen data"
else
b2=b2
end if
Ger meddelandet:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/trade/merInfo.asp, line 46.
Jag har testat med isNull också med samma fel som följd. Det verkar som om koden inte kan ta emot tomma fält. Är det ett värde i bransch2 går det bra.
Databasen är mySql, fälttyp: text med nollvärde tillåtet.
All hjälp uppskattas.
Det som lagras i fältet är textsträngar (max 30-40 tecken, tror jag). Här är koden i sin helhet iaf, all störande html är borttagen.
set con = server.createobject("adodb.connection")
con.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=trade;OPTION=3;"
'Branschalternativ
function val
sql = "select val from wwwdata order by val"
set rs = con.execute(sql)
response.write "<option>"
do until rs.eof
response.write "<option>" & rs("val")
rs.moveNext
loop
response.write "</select>"
rs.close
set rs = nothing
end function%>
<%dim b2
sql = "select * from kund where id ="&trim(request.querystring("id"))&""
set rs = con.execute(sql)
b2 = rs("bransch2")
if b2 = "" & rs("bransch2") then
b2 = "Ingen data"
end if
%>
<&
rs.close
set rs = nothing
con.close
set con = nothing
response.write "</table>"
