Er du dygtig?

' hvis disse felter er = 0 så skal de ikke vises
if not oRS(6) or oRS(7) ............... = "0" then
Response.Write "kbh har " & oRS(6)& "<br>"
Response.Write "komm har " & oRS(7)& "<br>"
Response.Write "vest har " & oRS(8)& "<br>"
Response.Write "inf har " & oRS(9)& "<br>"
Response.Write "se har " & oRS(10)& "<br>"
else
response.write("tja hvad vil du")
end if
' hvis disse felter er = 0 så skal de ikke vises

' hvis disse felter er = 0 så skal de ikke vises
if not oRS(6) or oRS(7) ............... = "0" then
Response.Write "kbh har " & oRS(6)& "<br>"
Response.Write "komm har " & oRS(7)& "<br>"
Response.Write "vest har " & oRS(8)& "<br>"
Response.Write "inf har " & oRS(9)& "<br>"
Response.Write "se har " & oRS(10)& "<br>"
else
response.write("tja hvad vil du")
end if
' hvis disse felter er = 0 så skal de ikke vises

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=C:\Company Shared Folders\administration\dagenstal med navne.xls;" & _
          "Extended Properties=""Excel 8.0;HDR=No;"";"
          Set oRS = Server.CreateObject("ADODB.Recordset")

Set oRS = Server.CreateObject("ADODB.Recordset")

oRS.Open "SELECT * from `indtast$E3:J3`", oConn, 1, 2

Response.Write "Aldersgennemsnittet blandt beboerne er idag den <b>" & round(oRS(0),1) & "</b> år ...<br>"
Response.Write "Der er <b>" & oRS(1) & "</b> mænd og <b>" & oRS(2) & "</b> kvinder i behandling på Alfa og grenen tilsammen.<br> Der er i denne sammentælling <b>" & oRS(3) & "</B> par.<br>"
Response.Write "Den yngste på stedet er <b>" & oRS(4) & "</B> og den ældste <b>" & oRS(5) & "</b>."
'Response.Write oRS(6)
' hvis disse felter er = 0 så skal de ikke vises
if not oRS(6) or oRS(7) ............... = "0" then
Response.Write "kbh har " & oRS(6)& "<br>"
Response.Write "komm har " & oRS(7)& "<br>"
Response.Write "vest har " & oRS(8)& "<br>"
Response.Write "inf har " & oRS(9)& "<br>"
Response.Write "se har " & oRS(10)& "<br>"
else
response.write("tja hvad vil du")
end if
' hvis disse felter er = 0 så skal de ikke vises
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
Virker ikke og giver interne http 500 fejl?

Er du der ??