Business Unlimited

<% 'on error resume next if NOT isempty(Request.Form("OK")) then password =Request("password") username =Request("username") set Objconn = server.createobject ("adodb.connection") ObjConn.Open "A6302_business" set RSFinduser = Objconn.Execute(" select * from members where username = '" & username & "' and password = '"& password &"' ") if RSFinduser.EOF then TheMessage = "Invalid User Name or pin." else Session("password") = RSFinduser("password") Session("fname") = RSFinduser("fname") Session("lname") = RSFinduser("lname") Session("tel") = RSFinduser("tel") Session("email") = RSFinduser("email") Session("address") = RSFinduser("address") Session("country") = RSFinduser("country") Session("memberid") = RSFinduser("memberid") Response.Redirect "./index.asp" end if else TheMessage = "Log in Form" end if %> <% If IsNumeric(Request.QueryString("lowerbound")) Then intLowerBound = CLng(Request.QueryString("lowerbound")) Else intLowerBound = 0 End If If IsNumeric(Request.QueryString("upperbound")) Then intUpperBound = CLng(Request.QueryString("upperbound")) If intLowerBound = 0 And intUpperBound = 0 Then intUpperBound = 3 Else intUpperBound = 3 End If If intLowerBound > intUpperBound Then Dim iTemp iTemp = intLowerBound intLowerBound = intUpperBound intUpperBound = iTemp End If Randomize() intRangeSize = intUpperBound - intLowerBound + 1 sngRandomValue = intRangeSize * Rnd() sngRandomValue = sngRandomValue + intLowerBound intRandomInteger = Int(sngRandomValue) %> Business Unlimited

.gif width="567" height="110" border="0" usemap="#Map" href="community.asp">

Business is an art
Make it grow Unlimited

Do I need a consultant?

About Dr. Hajje

Franchising

Careers

Clients Testimonials

Contact us

Home page

Site map

Microsoft Tools

Do you have a question about a Microsoft Tool? Are you creating a presentation? Analyzing data? Designing a flowchart? Managing a project?
Our Gurus can answer any question relating to:

• Microsoft Excel
• Microsoft Project
• Microsoft Access
• Microsoft Word
• Microsoft Power Point

Our Gurus can help with your Microsoft Tools needs in the following ways:

• We can analyze your objective and advise on the best tools to accomplish the job.
• We can answer any question you may have in regards to any of the tools mentioned above.
• We can correct or improve a document created using any of these tools.
Please note that we do not presently have any Programming Gurus on staff and therefore we cannot provide any detailed coding advice (ex: embedding SQL code within Excel or VB within Access...). Our advice solely relates to the capabilities built into the Microsoft products above.

Microsoft Tools
• We will respond by e-mail in less than two business days
• Please ask only one main question per e-mail. We will only respond to the first main question if your e-mail contains multiple and differing questions.

US$19.95 to Buy
Proposals are Free

I am ready to buy. I want to Send a Guru my Question
I am not ready to buy.I want the Guru to evaluate my issue and to send me a proposal first

:. Members

<%if Session("password") = "" then%> Log in User Name

Password

Register - Forget your password <%else%> Welcome <%Response.Write Session("fname") & " " & Session("lname")%>
Sign out <%end if%>