Flash y Asp
Hola!, oye mira tengo un problemilla...Tengo un sistema hecho en asp, y lo que quiero es transformar los formularios de asp en formularios hechos en flash...No se si haya alguna manera de hacerlo...Comoquiera aqui te mando el codigo del login de la pagina (que es por donde quiero empezar), toma los datos del usuario de una base de datos de access:
<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%
vac = false
val = 0
cve = Request.Form("clave")
pwd = Request.Form("password")
if Len(Request.Form("clave")) < 1 then Response.Redirect "default.htm" end if
if Len(Request.Form("password")) < 1 then Response.Redirect "default.htm" end if
Session.Timeout = 600
Session("MyCon") = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("../db/santre.mdb")
Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open Session("MyCon")
Set oRec = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM Socios WHERE Cvesoc ='" & cve & "'"
sSQL = sSQL & "AND Passoc ='" & pwd & "'"
oRec.Open sSQL, oCon
if oRec.BOF And oRec.EOF then Response.Redirect "default.htm" end if
Session("NomSoc") = oRec("NomSoc")
Session("idsoc") = oRec("idsoc")
Fecha = Date()
Hora = Left(Time(),10)
soc = Left(Session("NomSoc"),25)
acti = "Entro al Sistema"
sSQL = "INSERT INTO Bitaco (FecMov,Hora,Socio,Activi) "
sSQL = sSQL & "VALUES ('"
sSQL = sSQL & Fecha & "', '"
sSQL = sSQL & Hora & "', '"
sSQL = sSQL & soc & "', '"
sSQL = sSQL & acti & "' )"
oCon.Execute sSQL
oRec.Close
Set oRec = Nothing
oCon.Close
Set oCon = Nothing
Response.Redirect "ingreso1.asp" %>
DE ANTEMANO MUCHAS GRACIAS...
<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%
vac = false
val = 0
cve = Request.Form("clave")
pwd = Request.Form("password")
if Len(Request.Form("clave")) < 1 then Response.Redirect "default.htm" end if
if Len(Request.Form("password")) < 1 then Response.Redirect "default.htm" end if
Session.Timeout = 600
Session("MyCon") = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("../db/santre.mdb")
Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open Session("MyCon")
Set oRec = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM Socios WHERE Cvesoc ='" & cve & "'"
sSQL = sSQL & "AND Passoc ='" & pwd & "'"
oRec.Open sSQL, oCon
if oRec.BOF And oRec.EOF then Response.Redirect "default.htm" end if
Session("NomSoc") = oRec("NomSoc")
Session("idsoc") = oRec("idsoc")
Fecha = Date()
Hora = Left(Time(),10)
soc = Left(Session("NomSoc"),25)
acti = "Entro al Sistema"
sSQL = "INSERT INTO Bitaco (FecMov,Hora,Socio,Activi) "
sSQL = sSQL & "VALUES ('"
sSQL = sSQL & Fecha & "', '"
sSQL = sSQL & Hora & "', '"
sSQL = sSQL & soc & "', '"
sSQL = sSQL & acti & "' )"
oCon.Execute sSQL
oRec.Close
Set oRec = Nothing
oCon.Close
Set oCon = Nothing
Response.Redirect "ingreso1.asp" %>
DE ANTEMANO MUCHAS GRACIAS...
1 respuesta
Respuesta de andyb
1