#Devuleve el N? SubViajes de una encuesta de acuerdo a lo cargado en la BD
tmp_get.nsubviajesDCM<-function(idencuesta, bits=64) {
require(RODBC)
if (bits==64) channel <- odbcConnect("Surveyweb DCM 64") else channel <- odbcConnect("Surveyweb DCM 32")
result<-as.numeric(sqlQuery(channel, paste("Select NumeroSubViajes from encuestas where idencuesta = ",idencuesta,sep="")))
close(channel)
result
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.