05/09/2002, 11:38
|
 | | | Fecha de Ingreso: abril-2002 Ubicación: Málaga
Mensajes: 1.475
Antigüedad: 23 años, 1 mes 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 "IP"</option>
<%
'crearCon
Set Conn = Server.CreateObject("ADODB.Connection")
'abrimos la conexion y le decimos el directorio de nuestra BD y el nombre de la BD
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\netmeeting.mdb") )
'crearRS
set rs = CreateObject("ADODB.Recordset")
SQL="SELECT * FROM netmeeting WHERE tutor='"&amigos&"' AND ip='"&ip&"'"
'sql="select 'ip o correo' from usuario"
RSEjecutar(sql)
while not rs.eof
%>
<option value="<%=rs.fields("IP")%>&q uot;><%=rs.fields("IP")%></option>
<%
rs.movenext
wend%>
</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>
Miralo cuando puedas y me dices.
Te espero.
Salu2
Bye |