%response.buffer="true"
mercid="no"
' mercid=clng(request.querystring("id"))
mercid=clng(request.querystring("catalog"))
'response.write mercid & "
"
Set myConnection = Server.CreateObject("ADODB.Connection")
' myConnection.open "shopmercDSN"
myConnection.open "shopukDSN"
Set myRecordset = Server.CreateObject("ADODB.Recordset")
myRecordset.ActiveConnection = myConnection
myRecordset.open "select * from tblmerchants where id="&mercid&"", myConnection,2,3
' myRecordset.open "Select * from staffinfo where staffnum="&staffnumber&"", myConnection,2,3
If myrecordset.eof then
response.write "Record not present
"
else
mercurl=myrecordset("urllinkcode")
end if
myrecordset.close
set myrecordset=nothing
myConnection.close
set myConnection=nothing
response.redirect mercurl
%>
Redirecting.....