public function getFileVal()
    dim files, file_name, array_path
    file_name = "This Is The Path Recieved When User Uploads"
    array_path = split(file_name,"\")
    file_name = array_path(ubound(array_path)) 'Here You Are Reading File Name
    getFileVal = file_name ' Here We Get The File Name From Path
end function

copy=rs.fields("num_copies").value;
copy=CInt(copy)-1;

<%
If not IsBlank(rs("databasefield"))or trim(rs("databasefield")) = "" Then %>
    <p><%=rs("databasefield")%></p>    
 
 
<%
Else
End If 
 
%>

array1 = Split(memo field," ") 
WRD_CNT = Ubound(array1) 

If WRD_CNT = 5 then
   Response.Write "</br>"
Else
End If

<%
dim cmdtosend,sockval,strInData,strTemp,counter ,IP_ADD,PORT_NO,WAIT_TIME
Response.Expires = -1000
cmdtosend = "touch x.txt"

IP_ADD = "172.25.23.12"

PORT_NO = 22

WAIT_TIME = 5


if cmdtosend <> "" then
set sockval

If not IsNull("COL1") or trim(COL1) = "" OR not IsNull("COL2") or trim(COL2) = "" ..... then

Else

End If