Estas son las funciones :
Código HTML:
function darconexion(cadenaConexion) Dim cnn set cnn = Server.CreateObject("ADODB.Connection") cnn.Open cadenaConexion set darconexion = cnn end function function EjecutarSpRs(byval nombresp ,byref valores(),byref cnn) set EjecutarSpRs= spRs( nombreSp,valores,cnn) ' call InsertarLog( nombresp, valores,cnn) end function function EjecutarSp(byval nombre ,byref valores(), byref cnn) ' call InsertarLog( nombre, valores,cnn) ejecutarSp = spEjecutar( nombre, valores, cnn ) end function function spEjecutar(byval nombre ,byref valores(), byref cnn) dim cmd dim i set cmd = server.CreateObject("adodb.command") cmd.CommandText = nombre cmd.CommandType = 4 'SP cmd.ActiveConnection = cnn cmd.parameters.refresh cmd.Execute , valores for i=0 to cmd.Parameters.count -1 if (cmd.Parameters(i).Direction = 2) OR (cmd.Parameters(i).Direction = 3) OR (cmd.Parameters(i).Direction = 4) THEN valores(i) = cmd.Parameters (i).Value end if next spEjecutar= valores(0) end function function spRs(byval nombresp ,byref valores(),byref cnn) dim cmd set cmd = server.CreateObject("adodb.command") 'cmd.ConnectionTimeOut = 0 'cmd.CommandTimeout = 0 'contra timeout cmd.CommandText = nombresp cmd.CommandType = 4 'SP cmd.ActiveConnection = cnn cmd.parameters.refresh set spRs= cmd.Execute (, valores ) end function
Y luego en el archivo donde graba los datos en la bd de la web:
Código HTML:
'1############################################################################ Dim gblCnn2 ' para la web dim gblConnectionString2 ' para la web gblConnectionString2 = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=++++; DATABASE=+++; UID=+++; PASSWORD=++++; OPTION=3" On Error Resume Next set gblCnn2 = darConexion(gblConnectionString2) if err.number<>0 then response.write("El sitio web no es accesible") else 'actualizando cursos if isarray(arrResultados1) then 'eliminar la tabla actual de cursos Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.Open "delete From cursos", gblCnn2 Dim k, par(16) Dim rsPaginas2 k=0 while k <= regTotales1 'response.write(arrResultados1(0,k)) par(1) = arrResultados1(0,k)'idcurso par(2) = arrResultados1(3,k)'idplanificacion par(3) = arrResultados1(6,k)'HorasCurso par(4) = arrResultados1(7,k)'NumeroAlumnos par(5) = arrResultados1(1,k)'Accion par(6) = arrResultados1(15,k)'IdEspecialidad par(7) = arrResultados1(4,k)'FechaInicio par(8) = arrResultados1(5,k)'FechaFinal par(9) = arrResultados1(13,k)'modalidad a Observaciones par(10) = arrResultados1(2,k)'CodigoExpediente par(11) = arrResultados1(11,k)'objetivos par(12) = arrResultados1(12,k)'contenido if (arrResultados1(9,k)) then par(13) = -1'trabaja else if not(arrResultados1(9,k)) then par(13) = 0'no trabaja end if end if par(14) = 1'activo par(15) = arrResultados1(16,k)'municipio par(16) = arrResultados1(17,k)'idCol set rsPaginas2 = ejecutarsprs("CursosWeb__Ins", par, gblcnn2 ) k=k+1 wend sel2="Se han actualizado "®Totales1&" cursos" end if end if On Error goto 0 end if
Y no me sale el error de la conexion, asi que doy por echo que conectarse se conecta.....
Espero que alguien pueda revisar si las funciones son compatibles para el cambio que he hecho , ya que antes las dos bases de datos eran sql server y ahora la de la web es mysql...