Paso dce asp a php
Publicado por jaurri (1 intervención) el 26/07/2006 14:02:56
Necesito pasar este codigo que esta en Asp a Php:
<%
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("preguntas_db.mdb"))
numero = request("numero")
strSQL = "SELECT * FROM preguntas where id="& numero & ""
Set objRS = oConn.Execute(strSQL)
Response.Write "&question=" & objRS("pregunta") & "&a1="& objRS("respuesta1") & "&a2="& objRS("respuesta2") &"&a3="& objRS("respuesta3") &"&ca="& objRS("solucion") &"&XQUE="& objRS("CORRECTO") &"&category="& objRS("CORRECTO") &""
oConn.Close
set objRS = nothing
set oConn = nothing
%>
Muchisimas gracias
<%
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("preguntas_db.mdb"))
numero = request("numero")
strSQL = "SELECT * FROM preguntas where id="& numero & ""
Set objRS = oConn.Execute(strSQL)
Response.Write "&question=" & objRS("pregunta") & "&a1="& objRS("respuesta1") & "&a2="& objRS("respuesta2") &"&a3="& objRS("respuesta3") &"&ca="& objRS("solucion") &"&XQUE="& objRS("CORRECTO") &"&category="& objRS("CORRECTO") &""
oConn.Close
set objRS = nothing
set oConn = nothing
%>
Muchisimas gracias
Valora esta pregunta


0