10/09/2002, 11:15
|
| | | Fecha de Ingreso: mayo-2002
Mensajes: 83
Antigüedad: 23 años Puntos: 0 | |
| Re: Netmeeting+asp+parametros De Session
Hola...
bueno te dejo este regalo :))
espero que te sirva......
Copialo tal cual para que despues
no se te pierda...
chausito y suerte :))
<html>
<head>
<title>Camara Web</title>
<script language="jscript">
function onHangUp()
{
NetMeeting.LeaveConference();
}
</script>
<script language="vbscript">
Sub llamar_onclick()
NetMeeting.CallTo(Direccion.value)
End Sub
</script>
</head>
<body bgcolor="#336699" onload="Direccion.focus();">
<div align="center">
<center>
<table border="0" cellspacing="1">
<TR>
<TD colSpan=2 bgcolor="#4169E1">
<p align="center"><font color="white"><strong> Centro de Consulta On-Line</strong></font></TD></TR>
<TR>
<TD bgcolor="#009933">
<P align=center><FONT
color=white><STRONG>Camara Remota&nbsp;</STRONG></FONT></P></TD>
<TD bgcolor="#009933" align="center">
<P align=center><STRONG><FONT
color=white>Su Camara</FONT></STRONG></P></TD></TR>
<tr>
<td bordercolor="#808080" bgcolor="#808080">
<FONT
face="Arial Narrow">
<OBJECT id=NetMeeting height=200 width=196
classid=CLSID:3E9BAF2D-7A79-11d2-9334-0000F875AE17><PARAM NAME="MODE" VALUE="RemoteOnly"></OBJECT></FONT>
</td>
<td bordercolor="#808080" bgcolor="#808080">
<FONT
face="Arial Narrow">
<OBJECT id=NetMeetingPreview height=200 width=196
classid=CLSID:3E9BAF2D-7A79-11d2-9334-0000F875AE17><PARAM NAME="MODE" VALUE="PreviewOnly"></OBJECT></FONT>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0">
<tr>
<td bgcolor="#4169E1" colspan="3">
<select id="Direccion">
<option value="nada" selected>Seleccione Profesor</option>
<%
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\netmeeting.mdb") )
set rs = CreateObject("ADODB.Recordset")
SQL="SELECT IP,Nombre FROM netmeeting WHERE Tema_O_ALGO='"&session("Tema_O_ALGO_ TU_ELIGE")"'"
rs.open SQL,Conn
while not rs.eof
%>
<option value="<%=rs.fields("IP")%>&q uot;><%=rs.fields("Nombre")%>&l t;/option>
<%
rs.movenext
wend
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#4169E1" align="center">
<p align="center"><strong><font color="white">LLamar</font></strong></p></td>
<td bgcolor="#4169E1" align="center">
<strong><font color="white">Colgar</font></strong></td>
<td bgcolor="#4169E1" align="center">
<font color="white"><strong>Flotar< ;/strong></font></td>
</tr>
<tr>
<td align="center" bgcolor="#336699">
<p align="center"><IMG id=llamar src="../imagenes/call.gif" width="44" height="34"></p></td>
<td align="center" bgcolor="#336699">
<IMG id=colgar onclick=onHangUp(); src="../imagenes/hangup.gif" width="44" height="34"></td>
<td align="center" bgcolor="#336699">
<IMG id=flotar onclick=NetMeeting.UnDock(); src="../imagenes/undock.gif" width="44" height="34"></td>
</tr>
</table>
</center>
</div>
<br>
<center>
<div align="center">
<center>
<table border="1" width="40%" height="50">
<tr>
<td bgcolor="#808080" bordercolor="#009933"><center>& lt;script language="JavaScript">
var marqueewidth=200
var marqueeheight=100
var speed=1
var cuerpo='<P align=center><FONT face=Verdana size=5 color=white><I><B>NetMeeting Web</B></I></FONT><P align=center><font face="Arial" color=white><font size="2">Observe por favor que esta página trabaja solamente en Internet Explorer 4.x&nbsp;<br> o superior en Windows 95, 98, NT 4.x, ME, 2000 y XP.&nbsp;<br> Si usted no tiene NetMeeting instalado,&nbsp;<br> descárguelo cuando usted abra esta página</font></font>'
var down='<br><font color=white><a href="http://www.microsoft.com/windows/netmeeting/download/nm301x86.asp" target="_blank"><strong>Bajar Netmeeting</strong></a></font>'
var marqueecontents=cuerpo+down
if (document.all)
document.write('<marquee direction="up" scrollAmount='+speed+' style="width:'+marqueewidth+';height:'+marque eheight+'">'+marqueecontents+'</marquee>')
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate", 450)
intializemarquee()
}
}
function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.w rite(marqueecontents)
document.cmarquee01.document.cmarquee02.document.c lose()
thelength=document.cmarquee01.document.cmarquee02. document.height
scrollit()
}
function scrollit(){
if (document.cmarquee01.document.cmarquee02.top>=t helength*(-1)){
document.cmarquee01.document.cmarquee02.top-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.top=marque eheight
scrollit()
}
}
window.onload=regenerate2
</script></center>
</td>
</tr>
</table>
</center>
</div>
</center>
<P align=center><BR>
</body>
</HTML>
|