<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<%
Dim fid
IDL = request.querystring("ID")
response.write IDL
'response.end
Dim AdoCon
Dim RsID
Dim RsP
Dim SQLP
Dim IDL
Dim pt
Dim SQLID
Dim IDD
Dim ImagesPath
'Set AdoCon = server.createobject ("ADODB.CONNECTION")
'AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("fh.mdb")
'Set RsID = server.createobject ("ADODB.RECORDSET")
'SQLID = "select MAX(propID) from ListedProperties"
'RsID.open SQLID,AdoCon,3
'IDD = RsID(0)
'IDL = IDD + 1
pt = "D:\inetpub\virtual\futurehomes\wwwroot\Project_Images\classifieds\" & IDL
response.write pt
'response.end
ImagesPath = "Project_Images/classifieds/" & IDL & "/"
'response.end
'--------test----------
dim fs,f,k
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists(pt)=true then
k = 1
'response.write("Folder already exists")
else
set f=fs.CreateFolder(pt)
end if
set fs=nothing
' ****************************************************
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
Dim uploadsDirVar
uploadsDirVar = pt
' ****************************************************
' Note: this file uploadTester.asp is just an example to demonstrate
' the capabilities of the freeASPUpload.asp class. There are no plans
' to add any new features to uploadTester.asp itself. Feel free to add
' your own code. If you are building a content management system, you
' may also want to consider this script: http://www.webfilebrowser.com/
function OutputForm()
%>