Salut a tous,
Je voudrais traduir, des pages asp , en php.
Mais le probleme c est que je ne connais pas tellement l asp (surtout en ce qui concerne les base de donnees).
Je mets les lignes en couleur qui me pose des problemes.
Pourriez vous m aider svp
Merci
 
 
<code>
  If Session("APCODE" ) <> "" Then
   dim xmlhttpcheck, xmlhttpconfirm, oxml, xml_url_check, xml_url_confirm, xml_text, xmlresponse
 
      xml_url_confirm = "http://www.spam.com/check/vf.php4?AUTH=132705/364804/2346162&CODE=" & Session("APCODE" ) & "&MAXT=3"
     
      set xmlhttpconfirm = server.createobject("Microsoft.XMLHTTP" )
      xmlhttpconfirm.open "GET", xml_url_confirm, false
      xmlhttpconfirm.send()
       
      xmlresponse = xmlhttpconfirm.responsetext
     
      set xmlhttpconfirm = nothing
     
      resultat =  xmlresponse
 
 
 
 
   If (Mid(resultat, 1, 2) = "OK" ) Then
 
    If (Mid(resultat, 5, 1) = "S" ) Or Mid(resultat, 5, 1) = "T" Then  
   response.write "sms"
   APtype = "SMS"
    Else
   'response.write "audiotel"
   APtype = "AudioTel"
    End If
 
  Set DBCMD = Server.CreateObject("ADODB.Command" )
  Set Rs = Server.CreateObject("ADODB.RecordSet" )
 
  With DBCMD
   .ActiveConnection = conStrAcct
   .CommandText = "sp_AlloPass"
   .CommandType = adCmdStoredProc
   .Parameters.Append .CreateParameter("@UserId", adVarChar, adParamInput, 20, Session("uid" ))
   .Parameters.Append .CreateParameter("@UserIP", adVarChar, adParamInput, 15, Trim(Request.ServerVariables("REMOTE_ADDR" )))
   .Parameters.Append .CreateParameter("@APcode", adVarChar, adParamInput, 50, Session("APCODE" ))
   .Parameters.Append .CreateParameter("@APtype", adVarChar, adParamInput, 10, APtype)
   .Parameters.Append .CreateParameter("@ReturnFlag", adChar, adParamOutput, 1)
   .Parameters.Append .CreateParameter("@nbdays", adChar, adParamOutput, 3)
   .Parameters.Append .CreateParameter("@aid", adChar, adParamOutput, 6)
   .Execute
   AID = .Parameters.item("@AID" ).Value
   nbdays = .Parameters.item("@nbdays" ).Value
   Flag = .Parameters.item("@ReturnFlag" ).Value
  End With
  Set DBCMD = Nothing
 
  DBCON.Close
</code>

je t'ai repondu sur ton autre topic

excellent