Forums
This topic is locked
convert asp to php (ADODB.Connection)
Posted 18 May 2011 08:02:16
1
has voted
18 May 2011 08:02:16 khairul anuar posted:
i need to convert this statement to php, i have no idea how to convert it since i am newi hope i will get help soon
<%@ Language=VBScript %>
<%Response.Expires = -1 %>
<%Response.ExpiresAbsolute = Now() - 1 %>
<%Response.AddHeader "pragma", "no-cache" %>
<%Response.AddHeader "cache-control", "private" %>
<%Response.CacheControl = "no-cache" %>
<%
Response.Expires = -1000
Response.Buffer = True
Response.Clear
%>
<% Dim MyLogin
Set MyLogin = Server.CreateObject("ADODB.Connection"

ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)};"
ConnStr = ConnStr & "DBQ=" & Server.MapPath("db\users.mdb"

MyLogin.Open(ConnStr)
SQLtemp = "SELECT * FROM Users WHERE User = '" & Request.Form("loginname"


Set rs = MyLogin.Execute(SQLtemp)
If Request.Form("loginname"


Session("Message"


Response.Redirect ("first.asp"

Response.End
End If
If Request.Form("loginname"

Session("Message"


Response.Redirect ("first.asp"

Response.End
End If
If Request.Form("loginpass"

Session("Message"


Response.Redirect ("first.asp"

Response.End
End If
If rs.eof then
rs.Close
MyLogin.Close
set MyLogin = Nothing
Session("Message"


Response.Redirect ("first.asp"

Response.End
End If
while not rs.eof
If Request.Form("loginname"




dim Your_LoginName
Your_LoginName = rs("User"

'dim Date_In
'Date_In = rs("Entry_Date"

Response.Cookies("LoginName"

'Response.Cookies("still"

'Session.TimeOut = 20
Session("LoginName"

Response.Redirect "login.asp?UserLoggedIn=" & Your_LoginName
Else
Session("Message"


Response.Redirect ("first.asp"

Response.End
End If
rs.MoveNext
Wend
OnError Response.Redirect ("first.asp"

rs.Close
MyLogin.Close
set MyLogin = Nothing
%>