Convert ASP to PHP

Question

Any recommendations to convert this asp to php/mysql?

Answer 1

Yes, learn PHP and re-write the code.
Paul Davis
http://www.kaosweaver.com/
Visit us for dozens of useful Dreamweaver Extensions.
http://www.communitymx.com/
Partner at Community MX - Extend your knowledge
jsteinmann wrote:
> Any recommendations to convert this asp to php/mysql?
>
> <%@LANGUAGE="VBSCRIPT"%>
> <!--#include file="Connections/cnConn.asp" -->
> <%
> if request.form <> "" then
>
> dim username, password, DateExpire
> username = request.form ("username")
> password = request.form ("password")
>
> set rs = Server.CreateObject("ADODB.Recordset")
> rs.ActiveConnection = MM_cnConn_STRING
> rs.Source = "SELECT * FROM members WHERE username = '" +
Replace(username,
> "'", "''") + "'" & "AND Password = '" +
Replace(password, "'", "''") + "'"
> rs.CursorType = 0
> rs.CursorLocation = 2
> rs.LockType = 3
> rs.Open()
> rs_numRows = 0
>
> session("username") = request.form("username")
> session("password") = request.form("password")
>
> if rs.eof or rs.bof then
> response.redirect "logon2.asp"
> else
>
> expire = rs("MemberExpire")
> ip = rs("ip")
> ip2 = rs("ip2")
> ccbillcustomer = rs("ccbillcustomer")
> session("id") = rs("id")
> session("firstName") = rs("firstName")
> session("LastName") = rs("LastName")
> session("MemberID") = rs("username")
> session("memberStatus") = rs("memberStatus")
>
> end if
>
> rs("LastLogin") = date()
> rs("ip2") = Request.ServerVariables("REMOTE_HOST")
> rs.Update
>
> if username = "" THEN
> response.redirect "join.asp"
> elseif session("firstname") <> "" and
session("lastName") <> "" and
> session("memberStatus") = "suspended" THEN
> response.redirect "account_update.asp"
> elseif session("firstname") <> "" and
session("lastName") <> "" and expire <
> date() THEN
> response.redirect "join_renew.asp"
> elseif session("firstname") <> "" and
session("lastName") <> "" and expire =>
> date() THEN
> response.redirect "members/index.asp"
>
> else
> response.redirect "login.asp?err=true"
>
> end if
> end if
> %>
> <%
> rs.Close()
> Set rs = Nothing
> %>
>