<%
Option Explicit
%>
<%
Session.LCID = 2058
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normalw" style="position:absolute; top:1px">
<center>
<!--#include file="empresa.asp"--><br>
<hr>
</center>
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>
<div class="normalw" style="position:absolute; top:1px;">
Bienvenido: <%= nombre %>. <br>
Hora Actual: <%= time %>
</div>
<div class="normalw" style="position:absolute; top:34px; left:1">
<!--#include file="mpro.asp"-->
</div>
<div class="normal" style="position:absolute; top:60px; left:10">
<%
dim rs5, sql5
set rs5 = server.CreateObject("ADODB.Recordset")
sql5 = "select * from CXcM where (usuario like'" & nombre & "')"
rs5.open sql5,cn1,1,2
%>
<%
do while not rs5.EOF
%>
<a href="<%=rs5.fields("cxcm")%>.asp"><img src="Image/<%=rs5.fields("cxcn")%>.gif" border=0 ALT="<%=rs5.fields("cxCn")%>"></a>
<%
rs5.MoveNext
loop
%>
</div>
<div style="position:absolute; top:95px; left:10">
<center>
<hr>
<%
Dim Cn2, Rsa, Sqla
Dim Rs11, sql11
Dim Digital, Nfactura, FolioFiscal
set rs11 = server.CreateObject("ADODB.Recordset")
SQL11="SELECT nfacxcg, right('00000000' + Cast(nfacxcg as varchar), 10 ) as digital FROM cxcgen where nfacxcg > 255926;"
rs11.open sql11,cn1,1,2
Do while Not Rs11.EoF
Digital = rs11("Digital")
Nfactura = Rs11("nfacxcg")
Response.write(Rs11("nfacxcg"))
Response.write("--")
Response.write(Digital)
Response.write("<br>")
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=mimtampico.dyndns-free.com\sqlexpress;UID=sa;PWD=ST2108GP;Database=COFIDIPASOM"
set rsa = server.CreateObject("ADODB.Recordset")
Sqla="SELECT * FROM CFDENC where nodocumento > '"& Nfactura &"'"
Rsa.Open Sqla,cn2,1,2
If Rsa.Eof then
FolioFiscal = 0
else
Do while Not Rsa.Eof
FolioFiscal = Rsa("FolioFiscal")
Response.write(FolioFiscal)
Response.write("<br>")
Rsa.Movenext
Loop
end If
Rsa.Close
Rs11.Movenext
Loop
%>
</center>
</div>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>