Me vale esta funcion para conexion con mysql?

[TheScript]

Hola a todos, tengo una aplicacion hecha en asp, que conectaba a una web tambien en asp. Ahora la web es en php con mysql, y me falta solo enlazar una cosa, pero necesito saber si esta funcion me vale o debo modificarla, ya que conectarme a mysql desde asp ya me conecta, pero no me graba los registros... y la base de datos de la web tiene exactamente la misma estructura que la web que estaba en asp.

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 "&regTotales1&" cursos"	
	end if 	

	end if 
	On Error goto 0 

end if		

Cuando actualizo para grabar los cursos en la bd de la web, no me da ningun error, me dice que se han actualizado....

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...