Duda sobre Integración del Codigo

[McQueen]

Hola;
Os escribo para comentaros un problema que tengo con el código de integración en ASP de un sistema de micropagos. Resulta que la web fue programa en ASP antiguo y ahora el código se ha actualizado pero no sé cómo integrarlo en la web. El código nuevo es el siguiente:

Código:

<%
Dim objXmlHttp
Dim respuesta

Dim cadena_get="http://micropagos.step2u.com/cgi/certkey.dll?precio=150&id=ID_CLIENT&clave="+clave ‘ clave tiene que ser la clave que os pasa el usuario

Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")

objXmlHttp.open "GET", cadena_get, False

objXmlHttp.send

respuesta = objXmlHttp.responseText

Set objXmlHttp = Nothing
‘analizar las posibles respuestas
%>

Y el código que tengo y la web y que me gustaría cambiar es el siguiente:

Código:

<%

login=request("login")
ticket=request("ticket")
valido="NO"

set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_policia_STRING
Recordset1.Source = "SELECT * FROM Tabla WHERE login = '" & login & "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0

set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_policia_STRING
Recordset2.Source = "SELECT * FROM historico"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()
Recordset2_numRows = 0

set validador = Server.CreateObject("step2u.MPCertkey")
status=validador.ticketvalid(ticket)

select case status
case "A"
	Mis= "Formato de contraseña invalido"
case "B"
	Mis= "No se pudo conectar con Internet para la conexion"	
case "C"
	Mis= "No se pudo conectar con Internet para la conexion"
case "D"
	Mis= "Se cortó la comunicacion"
case "E"
	Mis= "Respuesta Desconocia"
case "F"
	Mis= "Respuesta Desconocia"
case "0"
	Mis= "EL TICKET ES VALIDO. Ya tiene disponible el Test que acaba de comprar"
	valido="SI"
case "1"
	Mis= "El ticket ya no es valido"
case "2"
	Mis= "EL precio no es valido"
case "3"
	Mis= "El ticket tampoco es valido por otra razon"
end select

%>

Mi pregunta es la siguiente: ¿Cómo debo modificar el código antiguo para adaptarlo al nuevo?

Cualquiera que pueda aportar un dato le estaré enormente agradecido.

Si necesitan cualquier otro dato, no duden en comentarmelo.

Saludos y gracias de antemano.