una ayudita rapida

[gracipr]

tengo que pasar este codigo que esta en asp a php, alguna sugerencia:P

<%@ CodePage=65001 Language="VBScript"%>
<%

Conexion="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("db_gff.mdb")+";Persist Security Info=False"


tipo="OFERTAS"
SQL = "SELECT * from Tabla where tipo1 ='"&tipo&"'"

Set objRS =Server.CreateObject("ADODB.RecordSet")
objRS.Open SQL,conexion
envia = "&texto=<font color='#E69053'>"
do until objRS.eof
nombre=objRS("nombre")
descripcion=objRS("descripcion")
nombre = Replace (nombre, CHR(38)&"aacute"&CHR(59), "á")
nombre = Replace (nombre, CHR(38)&"oacute"&CHR(59), "ó")
nombre = Replace (nombre, CHR(38)&"eacute"&CHR(59), "é")
nombre = Replace (nombre, CHR(38)&"iacute"&CHR(59), "Ã*")
nombre = Replace (nombre, CHR(38)&"uacute"&CHR(59), "ú")
nombre = Replace (nombre, CHR(38)&"ntilde"&CHR(59), "ñ")
nombre = Replace (nombre, CHR(38)&"Ntilde"&CHR(59), "Ñ")
nombre = Replace (nombre, CHR(38)&"Aacute"&CHR(59), "�")
nombre = Replace (nombre, CHR(38)&"Oacute"&CHR(59), "Ó")
nombre = Replace (nombre, CHR(38)&"Eacute"&CHR(59), "É")
nombre = Replace (nombre, CHR(38)&"Iacute"&CHR(59), "�")
nombre = Replace (nombre, CHR(60)&"Uacute"&CHR(59), "Ú")


descripcion = Replace (descripcion, CHR(38)&"aacute"&CHR(59), "á") descripcion = Replace (descripcion, CHR(38)&"oacute"&CHR(59), "ó")
descripcion = Replace (descripcion, CHR(38)&"eacute"&CHR59), "é")
descripcion = Replace (descripcion, CHR(38)&"iacute"&CHR(59), "Ã*")
descripcion = Replace (descripcion, CHR(38)&"uacute"&CHR(59), "ú")
descripcion = Replace (descripcion, CHR(38)&"ntilde"&CHR(59), "ñ")descripcion = Replace (descripcion, CHR(38)&"Ntilde"&CHR(59), "Ñ")
descripcion = Replace (descripcion, CHR(38)&"Aacute"&CHR(59), "�")
descripcion = Replace (descripcion, CHR(38)&"Oacute"&CHR(59), "Ó")
descripcion = Replace (descripcion, CHR(38)&"Eacute"&CHR(59), "É")
descripcion = Replace (descripcion, CHR(38)&"Iacute"&CHR(59), "�")
descripcion = Replace (descripcion, CHR(38)&"Uacute"&CHR(59), "Ú")
descripcion = Replace (descripcion, CHR(60)&"BR "&CHR(47)&CHR(62), CHR(60)&"BR"&CHR(62))

envia=envia&"<b>"&nombre&"</b>"
envia=envia&"<br>"&descripcion&"<br><br>"

objRS.MoveNext
loop


envia=envia&"</font>"
'Response.write Server.URLEncode(envia)
Response.write envia


set objRS = nothing
set conexion = nothing
%>

[carolina]

Un select con MySQL seria asi:

Código PHP:

  $tipo="$OFERTAS"  
   

guardas la consulta en una variable

Código PHP:

  $pb= "Select * from Tabla where  tipo1= '$tipo'";  
   

Luego..ejecuta la consulta que se encuentra en la variable

Código PHP:

  $res=mysql_query($pb);  
   

Luego..Almacena el reultado de la consulta en un array

Código PHP:

  $buscar = mysql_fetch_array($res);  
   

por si quieres almacenar el valor que se extrajo de la BD en una variable

Código PHP:

  $tipo1=$buscar["tipo"];