% dim OTCommand, rsDB, RepName, Email if len(Session("ReplRepID")) then Set OTCommand = Server.CreateObject("ADODB.Command") 'Switch between dev/live db's If cbool(Application("bProduction")) = true then OTCommand.ActiveConnection ="Provider=SQLOLEDB;Initial Catalog=firstclass;Data Source=192.168.0.153;Connect Timeout=30;Network Library=DBMSSOCN;Packet Size=4096;User Id=techsupport;PASSWORD=jock33strap;" else OTCommand.ActiveConnection ="Provider=SQLOLEDB;Initial Catalog=firstclass;Data Source=mlmsql;Connect Timeout=30;Network Library=DBMSSOCN;Packet Size=4096;User Id=techsupport;PASSWORD=jock33strap;" end if OTCommand.CommandText ="Select firstname,lastname,company,repid,email FROM reps WHERE RepID=" & Session("ReplRepID") set rsDB = OTCommand.Execute Email=rsDB("email") if len(rsDB("firstname")) or len(rsDB("lastname")) then RepName = rsDB("firstname") & " " & rsDB("lastname") else RepName = rsDB("company") end if else Email="" RepName = "" end if %>
![]() |
![]() |
|
<% if len(Session("ReplRepID")) then %>
Welcome from:
<% =RepName %> <% if len(Email)>2 then %> Email Me <% end if %> <% end if %> |
|
|