<% Response.Expires = -1000 'Make sure the browser doesnt cache this page Response.Buffer = True 'enables our response.redirect to work Dim myconn, objRS, ecom, backup Set myconn = Server.CreateObject("ADODB.Connection") myconn.open = "Provider=SQLOLEDB.1;Password=2v8omiq6;Persist Security Info=True;User ID=c19249-1;Initial Catalog=c19249-1;Data Source=67.19.0.30" ecom = 1 backup = 2 Set objRS = myconn.execute("SELECT place FROM ecom_switch WHERE name='" & "Michael" & "';") If objRS("place") = ecom Then '''PAYMENT ONLINE BUY LINK GOES HERE Response.Redirect "http://ic2.paymentonline.com/cgi-bin/P1005470C?mv_pc=123004PCTESTSITEC" Else If objRS("place") = backup Then '''POL BACKUP LINK GOES HERE Response.Redirect "http://ic2.paymentonline.com/cgi-bin/P1005470A?mv_pc=123004PCTESTSITEC" Else '''ESELL BUY LINK GOES HERE Response.Redirect "http://www.pc-test.net/backup/index.html" objRS.Close Set objRS= Nothing myconn.close set myconn = nothing End If End If %>