<% Session("login") = "" Session("password") = "" if Request.Form("login") = "" or Request.Form("password") = "" then message = "Please Fill Both Fields *" else Session("login") = Request.Form("login") Session("password") = Request.Form("password") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={SQL SERVER};server=209.213.231.162;database=tbx;uid=tbx;pwd=tbx" sql = "select name, login, password from _logins where login ='" + trim(Session("login")) sql = sql + "' and password ='" + trim(Session("password")) + "'" Set Rs = Server.CreateObject("ADODB.Recordset") Set Rs = Conn.execute(sql) if Rs.EOF then message = "Incorrect Login/Password" else session("login") = rs("login") session("password") = rs("password") if session("login") = "1235" then Response.Redirect "default2.asp" else Response.Redirect "default.sp" end if end if Rs.Close Set Rs = nothing end if%> TRADE BUSINESS EXCHANGE

 

"We'll find you new customers and you'll save cash on expenses,
that's smart business"

Privacy Policy

Privacy Statement:

INFORMATION ON THIS WEB SITE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY
KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR
NON-INFRINGEMENT. SOME JURISDICTIONS DO NOT ALLOW THE EXCLUSION OF IMPLIED
WARRANTIES, SO THE ABOVE EXCLUSION MAY NOT APPLY TO YOU.
Information on this Web site may contain technical inaccuracies or
typographical errors. Information may be changed or updated without notice.

  "I used barter to..."
click here to read more
  NEED TO AUTHORIZE ?
CLICK HERE

Trade Business Exchange (Canada) Inc.

95 West Beaver Creek Rd.
Unit 15
Richmond Hill,  Ontario
(Toronto) Canada
L4B 1H2
1-866-OK-TRADE
416-410-8881
fax. 905-707-6575
info@oktrade.ca
www.oktrade.ca
Copyright 2005 Trade Business Exchange. All rights reserved. PRIVACY POLICY Site designed by Mosaic Design.