<%
set db=Server.CreateObject("ADODB.Connection")
db.Open "Provider=SQLOLEDB;Data Source=66.135.39.88\sqlwrkgrp;UID=plusc;PWd=creations;Database=pluscreations"
set cmd=Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=db
set rst=Server.CreateObject("ADODB.Recordset")
if rst.State=1 then rst.Close
rst.Open "select distinct pa_name from dispatch where pa_name like 'N%' order by pa_name",db
if rst.EOF then
Response.Write "No record found..."
Response.Redirect "status.asp"
else
rst.MoveFirst
end if
%>