'***INCLUDE UR CONNECTION FILES HERE like
'**<!--#include file="dbconnect _sql.asp" -->
<%
'******code for uploading file and storing in a folder(here new_folder) starts here**
Set objFileUpload = Server.CreateOb ject("ur_fileUp loadComponent.F ileUpload")
dim CompleteFileNam e, FileName, UserFileName, SysFileName, UserFileExt
'here we assign values to the variable
FileName = objFileUpload.F ilePath("file1" )'***file1 ,u will get frm ur form
CompleteFileNam e = FileName
OnlyFileName = Mid(FileName,le n(FileName)-InStr(1,StrReve rse(FileName)," \")+2)
UserFileName = Mid(FileName,1, inStr(1,FileNam e,".")-1)
UserFileExt = Mid(FileName,Le n(FileName)-2,Len(FileName) )
'here we check if the folder(where we want to upload the file)exists,if not,again create it
set FS = server.CreateOb ject("Scripting .FileSystemObje ct")
if fs.FolderExists (server.MapPath ("new_upload")) =false then
fs.CreateFolder (server.MapPath ("new_upload "))
End If
UploadedFileNam e = Server.MapPath( ".") & "\" & "new_upload "& "\" & OnlyFileName
objFileUpload.u pload "file1", UploadedFileNam e
'code for uploading file and storing in a folder(here new_folder) ends here
%>
<%
'**code for inserting the file name into database starts here
dim strConn
dim strSql
Set oConn = Server.CreateOb ject("ADODB.Con nection")
Set oRs = Server.CreateOb ject("ADODB.Rec ordset")
strSql= "insert into <my_file_tabl e>[(FILE_NAME_COLU MN)] values ('" & UploadedFileNam e & "')"
oRS.open strSql,conn
'**********NOW CLOSE THE CONNECTION N RECORDSET HERE
**code for inserting the file name into database ends here
%> NOW FINETUNE THE CODE AS PER UR REQUIREMENT N GET GOING :)
REGARDS,
Lipsa
Comment