Aja, entiendo lo de Cargar las Variables.
A continuacion os pongo el codigo ASP, que hace que se me carguen los datos para visualizarlos en web:
Código :
<%
dim Conn
dim objRS
id=Request.Querystring("id")
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtest=dsntest & "DBQ=" & Server.MapPath("/Data/1867.mdb")
Conn.Open DSNtest
id=cstr(id)
id=replace(id,",",".")
SQL="SELECT * FROM 1867_UN WHERE IdPiso="&id
set objRS=Conn.Execute(SQL)
idpro=objRS("IdPromocion")
idpro=cstr(idpro)
idpro=replace(idpro,",",".")
SQLPro="SELECT * FROM 1867_UN WHERE IdPromocion="&idpro
set objRSPro=Conn.Execute(SQLPro)
SQLCas="SELECT * FROM 1867_CS WHERE IdPiso="&id
set objRSCas=Conn.Execute(SQLCas)
SQLpromo="SELECT * FROM 1867_PR WHERE IdPromocion="&idpro
set objRSPromo=Conn.Execute(SQLPromo)
%>
<html>
<head>
<meta name="GENERATOR" Content="ASP Express 3.1">
<title><%=objRS("Expediente")%></title>
<script language="Javascript">
function intercambia(imagen)
{
document.grande.src=imagen.src
}
</script>
<script language="JavaScript">
var winName="titulo"
function Abrir_Ventana(theURL,w,h) {
var windowprops ="top=0,left=0,toolbar=no,location=no,status=no, menubar=no,scrollbars=yes, resizable=no,width=" + w + ",height=" + h;
window.open(theURL,winName,windowprops);
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body {
background-color: #D5EAFD;
}
.Estilo1 {
color: #FFFFFF;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
-->
</style></head>
<body>
<table align="Center" bgcolor="#FFFFFF" style="border:1px solid black">
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center"><img src="images/img_promociones.mini.gif" >
</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF" bgcolor="526E92">
<tr>
<td><div align="left"><img src="images/img_referencia.gif" width="69" height="11"><span class="Estilo1">- </span><font color="#ffffff"><%=objRS("Expediente")%></font></div>
<div align="center"></div></td>
<td><div align="center"><span class="Estilo1"></span><font color="#ffffff"><%=objRSPromo("Descripcion")%></font></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#ffffff">
<td>
<div align="left">
<font color="#557691" face="Arial" size="3"><b><%=objRSCas("Cabecera")%> </b></font>
<hr color="#c0c0c0" noshade="noshade" size="1">
<img src="images/img_descr.ampliada.gif"><br>
Situado en
- <%=objRS("Situacion2")%>
<br>
<%=objRSCas("Descripcion")%>
<strong><%
response.Write (" Desde <acronym title="""& FormatNumber(objRS("PrecioPts")) &" Pts"">"& FormatNumber(objRS("PrecioEur")) &"€</acronym>")
%></strong>
<hr color="#c0c0c0" noshade="noshade" size="1">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" height="33" width="450">
<param name="movie" value="barra mas info.swf">
<param name="quality" value="best">
<param name="play" value="true">
<embed height="33" pluginspage="http://www.macromedia.com/go/getflashplayer" src="barra mas info.swf" type="application/x-shockwave-flash" width="450" quality="best" play="true">
</object></div>
</td>
</tr>COmo ves, las Variables que me interesan cargar en el flash = "barra mas info.swf" son las siguientes : <%=objRS("Expediente")%> y tambien <%=objRSPromo("Descripcion"), en el campo de Asunto.
Y por si no lo he comentado, el flash "para enviar mail" es el que teneis puesto en cristal Lab.
El que pone, nombre - email - asunto - comentarios.
mmmmm, bueno - de todas formas, muchas gracias
