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.