<% 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, mc 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 mc = 3 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://www.on2url.com/app/adtrack.asp?MerchantID=102374&AdID=331192" Else If objRS("place") = backup Then '''POL BACKUP LINK Response.Redirect "http://www.on2url.com/app/adtrack.asp?MerchantID=102374&AdID=331192" Else If objRS("place") = mc Then '''MARKET CHOICE Response.Redirect "http://www.on2url.com/app/adtrack.asp?MerchantID=102374&AdID=331192" Else '''CLICKBANK BUY LINK GOES HERE Response.Redirect "http://www.pc-test.net/click/20061115CLICKRR1C/special/index.asp" objRS.Close Set objRS= Nothing myconn.close set myconn = nothing End If End If End If %>