Inclusão

[inicio 0]

Bom dia,

O código abaixo é um login, o problema é que quando executo este código aparece o prório código como resposta

Como resolvo?

 

<% @Language = VBScript %><% Option ExplicitDim loginDim senhalogin = Request.Form("login")senha = Request.Form("senha")If Len(login) > 0 ThenSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &Server.MapPath("d:\web\localuser\jamesnascimento\banco\banco.mdb")Set Rs=server.CreateObject("ADODB.RECORDSET")SqlStr = "SELECT login,senha FROM banco WHERE login='" &login & "' AND senha='" & senha & "'"Set Rs = Conn.Execute(SqlStr)If Rs.EOF AND Rs.BOF ThenResponse.write "<a href=index.htm>Oppsss! Você não é James Nascimento</a>"ElseResponse.redirect "index_agenda.htm"End IfConn.CloseRs.Closeset Rs=nothingConn=nothingEnd If%>

[Ted k' 126]

Sua página está salva .asp?

 

Você está usando que Editor de Códigos para a sua programação?

[jrcardozo 4]

tópico fechado, continua em http://forum.imasters.com.br/index.php?showtopic=238706

 

Não duplique tópicos