<% Dim URL, NewURL, addpath
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "f:\mirror\mines\docs"
NewFileName = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
NewUrl = NewFileName
%>
<%
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout")
DataConn.CommandTimeout = Session("DataConn_CommandTimeout")
DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rssubmitdocs = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT `ID`, `title`, `abstract`, `fileurl`, `date`, `origname`, `origemail` FROM `docs`"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DataConn
rssubmitdocs.Open cmdTemp, , 1, 3
'Add new record and update
On Error Resume Next
rssubmitdocs.AddNew
rssubmitdocs.Fields("title") = upl.Form("title")
rssubmitdocs.Fields("abstract") = upl.Form("abstract")
rssubmitdocs.Fields("date") = upl.Form("date")
rssubmitdocs.Fields("origname") = upl.Form("origname")
rssubmitdocs.Fields("origemail") = upl.Form("origemail")
'rssubmitdocs.Fields("ID") = upl.Form("ID")
rssubmitdocs.Fields("fileurl") = NewUrl
upl.SaveAs NewfileName
rssubmitdocs.Update
If Err.Number <> 0 Then
Response.Write "
Record was not added. The database may be disabled. Contact the administrator.
"
End If
rssubmitdocs.Close
Set rssubmitdocs = Nothing
%>
You have submitted the
following:
|
| Document Title: |
<%= upl.Form("title")%> |
| Originator: |
<%= upl.Form("origname")%> |
| Originator's Email: |
<%= upl.Form("origemail")%> |
| Document Description: |
<%= upl.Form("abstract")%> |
| URL: |
<%= NewUrl%> |
|
