10/09/2002, 06:50
|
 | | | Fecha de Ingreso: abril-2002 Ubicación: Málaga
Mensajes: 1.475
Antigüedad: 23 años Puntos: 9 | |
| Re: Netmeeting+asp+parametros De Session
<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="royalblue" onload="Direccion.focus();">
<table border="0" cellPadding="1" cellSpacing="1" width="75%" style="HEIGHT: 353px; WIDTH: 203px">
<TR>
<TD colSpan=5>
<P align=center><FONT
color=white><STRONG>Soporte&nbsp;On-Line</STRONG></FONT></P></TD></TR>
<tr>
<td colSpan="5">
<P align=center>
<OBJECT classid=clsid:3E9BAF2D-7A79-11D2-9334-0000F875AE17 id=NetMeeting
VIEWASTEXT width="180" height="148"></OBJECT>
</P>
</td>
</tr>
<tr>
<td colSpan="5">
<P align=center><select id="Direccion">
<option value="nada" selected>Seleccione tutor</option>
select id="Direccion">
<option value="nada" selected>Seleccione tutor</option>
<%
'crearCon
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\netmeeting.mdb") )
'crearRS
set rs = CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Netmeeting"
rs.open SQL,Conn
while not rs.eof
%>
<option value="<%=rs.fields("ip")%>&q uot;><%=rs.fields("tutor")%>< ;/option>
<%
rs.movenext
wend
rs.close
%>
</select></select>
</P>
</td>
</tr>
<tr>
<td>
<p align="center"><strong><font color="white">LLamar</font></strong></p></td>
<td>
<p align="center"><strong><font color="white">Colgar</font></strong></p></td>
<td>
<p align="center"><font color="white"><strong>Flotar< ;/strong></font></p></td></tr>
<tr>
<td>
<p align="center"><IMG height=34 id=llamar src="images/call.gif" width=44></p></td>
<td>
<p align="center"><IMG height=34 id=colgar onclick=onHangUp(); src="images/hangup.gif" width=44></p></td>
<td>
<p align="center"><IMG height=34 id=flotar onclick=NetMeeting.UnDock(); src="images/undock.gif" width=44></p></td>
</tr>
<tr>
<td colSpan="3"></td></tr>
<tr>
<td colSpan="5">
<p align="center"><font color="white"><a href="http://www.microsoft.com/windows/netmeeting/download/nm301x86.asp" target="_blank"><strong>Bajar Netmeeting
</strong>
</a>
</body>
|