Error #13 on c:\inetpub\wwwroot\templates\news_details.asp
Error Source: Microsoft VBScript runtime error
Error Type mismatch
Source: Response.write("" & vbCrLf & "")
 header() 
Response.write("" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " ") if backgroundPicture.recordcount > 0 then do while not backgroundPicture.eof Response.write("" & vbCrLf & "
" & vbCrLf & " ") backgroundPicture.movenext loop else Response.write("
") end if Response.write("" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " ") Response.write( gen.chunk("globalBack") ) Response.write("" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " " & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " ") if gallery.recordcount > 0 OR documents.recordcount > 0 OR webBanners.recordCount > 0 then a = "puno" else a = "prazno" end if Response.write("" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " " & vbCrLf & "

") Response.write( gen.node.title ) Response.write("

" & vbCrLf & "
" & vbCrLf & " " & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "

") Response.write( gen.node.field(gen.i18n("shortDesc")) ) Response.write("

" & vbCrLf & "

") Response.write( gen.node.field(gen.i18n("shortDesc")) ) Response.write("

" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " ") Response.write( gen.node.field(gen.i18n("longDesc")) ) Response.write("" & vbCrLf & " " & vbCrLf & "
" & vbCrLf & " " & vbCrLf & " ") if galleryMobile.recordcount > 0 then Response.write("" & vbCrLf & "

") Response.write( gen.chunk("global-imgGalTitle")) Response.write("

" & vbCrLf & "
" & vbCrLf & " ") do while not galleryMobile.eof Response.write("" & vbCrLf & "
" & vbCrLf & " ") galleryMobile.movenext loop Response.write("" & vbCrLf & "
" & vbCrLf & " ") end if Response.write("" & vbCrLf & " " & vbCrLf & " ") if documentsMobile.recordcount > 0 then Response.write("" & vbCrLf & "

") Response.write( gen.chunk("globalDocTitle")) Response.write("

" & vbCrLf & "
    " & vbCrLf & " ") do while not documentsMobile.eof if len(documentsMobile("title")) > 0 then docName = documentsMobile("title") else docName = "Documents" end if Response.write("" & vbCrLf & "
  • ") Response.write( docName ) Response.write("
  • " & vbCrLf & " ") documentsMobile.movenext loop Response.write("" & vbCrLf & "
" & vbCrLf & " ") end if Response.write("" & vbCrLf & " " & vbCrLf & " " & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " " & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " " & vbCrLf & " " & vbCrLf & " ") if gallery.recordcount > 0 OR documents.recordcount > 0 OR webBanners.recordcount > 0 then Response.write("" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " ") ' ## gallery ## if gallery.recordcount > 0 then Response.write("" & vbCrLf & "

") Response.write( gen.chunk("global-imgGalTitle")) Response.write("

" & vbCrLf & "
" & vbCrLf & " ") do while not gallery.eof slika = gallery("filePath")'&".axd?width=800&height=600&crop=auto" Response.write("" & vbCrLf & "
" & vbCrLf & " ") gallery.movenext loop Response.write("" & vbCrLf & "
" & vbCrLf & " ") end if ' ## documents ## if documents.recordcount > 0 then Response.write("" & vbCrLf & "

") Response.write( gen.chunk("globalDocTitle")) Response.write("

" & vbCrLf & "
    " & vbCrLf & " ") do while not documents.eof if len(documents("title")) > 0 then docName = documents("title") else docName = "Document" end if Response.write("" & vbCrLf & "
  • ") Response.write( docName ) Response.write("
  • " & vbCrLf & " ") documents.movenext loop Response.write("" & vbCrLf & "
" & vbCrLf & " ") end if Response.write("" & vbCrLf & "
" & vbCrLf & " ") 'web banners do while not webBanners.eof set imgB = gen.media.type("pic").get("banners", "webbanner", webBanners("id")) Response.write("" & vbCrLf & " ") if imgB.recordCount > 0 then Response.write("" & vbCrLf & " " & vbCrLf & " ") end if Response.write("" & vbCrLf & " ") webBanners.movenext loop Response.write("" & vbCrLf & "
" & vbCrLf & " " & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " ") end if Response.write("" & vbCrLf & " " & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & "
" & vbCrLf & " " & vbCrLf & "") footer()