<%
dim objConn
dim objRS
dim strSQL
dim iRefID
iRefID = request("RefID")
if isInt(iRefID) then
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")
strDBOpen = "Provider=SQLOLEDB;Server=PRODSQL3.acsysprod.com;Database=Pavilion;User Id=sql_iims;Password=Password#10;"
objConn.Open strDBOpen
strSQL = "SELECT [Message], [Signature]" &_
" FROM [References]" &_
" WHERE RefID = " & iRefID &_
" ORDER BY SortOrder"
objRS.Open strSQL, objConn
if not objRS.eof then
%>
Reference from <%=objRS(1)%>
<%
else
response.redirect("modaldefault.htm")
end if
else
response.redirect("modaldefault.htm")
end if
Function AddLineBreaks(str)
if not isnull(str) then
AddLineBreaks = replace(str,vbCRLF&vbCRLF,"")
else
AddLineBreaks = ""
end if
End Function
%>